Application developed with Visual Basic, Part 12.


Option resume :

  • Activate the ComboBox - Cmbbook, the procedure ((Private Sub Cmbbook_Click()) of the Book.frm View code) stores this operation.
  • Activate the ComboBox - Cmbtitle, the procedure (Private Sub Cmbtitle_Click()) stores this operation.
  • Activate the ComboBox - Cmbchapter, the procedure (Private Sub Cmbchapter_Click()) stores this operation.
  • Activate the ComboBox - Cmbverse, the procedure (Private Sub Cmbverse_Click()) stores this operation.
    1. The Book.frm View Code - Part 4b.

      View Code, examine these changes - the new text Code to be add is red.

      Dim WithEvents adoPrimaryRS As Recordset

      'Type of AdRecordset1
      Dim AdRecordset1 As Recordset

      ' Type of strdatasource
      Dim strdatasource As String

      Dim recordno As Long
      ----------------------------------------------------------------------------------------------------------------------
      'when you select any items of the CombBox - Cmbbook,
      Private Sub Cmbbook_Click()

      (To display the Sub Cmbbook_Click(), click here)

      End Sub

      ----------------------------------------------------------------------------------------------------------------------
      'when you select any items of the CombBox - Cmbchapter,
      Private Sub Cmbchapter_Click()


      (To display the Sub Cmbchapter_Click(), click here )

      End Sub

      ----------------------------------------------------------------------------------------------------------------------
      'when you select any items of the CombBox - Cmbtitle,
      Private Sub Cmbtitle_Click()

      (To display the Sub Cmbtitle_Click(), click here)

      End Sub


      -----------------------------------------------------------------------------------------------------------------------
      'when you select any items of the CombBox - Cmbverse,
      Private Sub Cmbverse_Click()

      (To display the Sub Cmbverse_Click(), click here)

      End Sub
      ----------------------------------------------------------------------------------------------------------------------

      Private Sub cmddisplay_Click()
      (.................)

      End Sub

      ----------------------------------------------------------------------------------------------------------------------
      Private Sub cmddisplay_GotFocus()
      (.................)
      End Sub
      ----------------------------------------------------------------------------------------------------------------------

      Private Sub Form_Load()
      'Data Soure at current directory
      strdatasource = App.Path + "\res\KJV.mdb"

      'Declare the adoPrimaryRS
      Dim db As Connection
      Set db = New Connection
      db.CursorLocation = adUseClient
      db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & strdatasource

      Set adoPrimaryRS = New Recordset
      adoPrimaryRS.Open "select Book,BookTitle,Chapter,TextData,Verse from BibleTable", db, adOpenStatic, adLockOptimistic

      'Load icon - BookIco.ico
      Set Me.Icon = LoadPicture(App.Path & "\res\BookIco.ico")

      'Load the picture - forum.gif
      Set Image1.Picture = LoadPicture(App.Path & "\res\forum.gif")

      'Load the picture - Christus-th.gif
      Set Image2.Picture = LoadPicture(App.Path & "\res\Christus-th.gif")


      'The datasource value of TextBox
      Set Me.txtFields.DataSource = adoPrimaryRS

      'The database file Begin with the 2nd
      adoPrimaryRS.Move (Str(2))

      ' Disable the CmdFirst and CmdPrevious CommandButtons with begin
      CmdFirst.Enabled = False
      CmdPrevious.Enabled = False

      'Calcul the values of book, title, chapter and verse
      Call LabelAddress


      'Tabstrip control
      For i = 0 To Frtb.Count - 1
      With Frtb(i)
      .Move TabStrip1.ClientLeft, _
      TabStrip1.ClientTop, _
      TabStrip1.ClientWidth, _
      TabStrip1.ClientHeight
      End With
      Next i
      ' Bring the first frTb control to the front.
      Frtb(0).ZOrder 0

      'AdRecordset1 - Recordset object
      Dim db1 As Connection
      Set db1 = New Connection
      db1.CursorLocation = adUseClient
      db1.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & strdatasource

      Set AdRecordset1 = New Recordset
      AdRecordset1.Open "select Book,BookTitle,Chapter,Verse from BibleTable", db1, adOpenStatic, adLockOptimistic

      'The cmbbook stores the book number values and the cmbtitle stores the book title values
      With AdRecordset1
      Cmbtitle.Clear
      Cmbbook.Clear
      .MoveFirst
      Do While Not .EOF
      'where Chapter = 001 and Verse = 001
      If Trim(.Fields(2).Value) = "001" And _
      Trim(.Fields(3).Value) = "001" Then
      Cmbtitle.AddItem Trim(.Fields(1).Value)
      Cmbbook.AddItem Trim(.Fields(0).Value)
      recordno = Val(.AbsolutePosition) - 1
      Cmbtitlerecno.AddItem Str(recordno)
      End If
      .MoveNext
      Loop
      End With

      Cmbtitle.Text = "Select"
      Cmbbook.Text = "Select"
      Cmbchapter.Text = "no select"
      Cmbverse.Text = "no select"
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub Form_Resize()
      (.................)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub Form_Unload(Cancel As Integer)
      (.................)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
      '(.................)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub cmdClose_Click()
      (.................)
      End Sub

      ----------------------------------------------------------------------------------------------------------------------
      Private Sub cmdFirst_Click()
      (.................)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub cmdLast_Click()
      (.................)

      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub cmdNext_Click()
      (.................)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub cmdPrevious_Click()
      (.................)
      End Sub

      ----------------------------------------------------------------------------------------------------------------------
      Private Sub SetButtons(bVal As Boolean)
      CmdClose.Visible = bVal
      CmdNext.Enabled = bVal
      CmdFirst.Enabled = bVal
      CmdLast.Enabled = bVal
      CmdPrevious.Enabled = bVal
      End Sub
      ----------------------------------------------------------------------------------------------------------------------
      Private Sub Settitle(bVal As Boolean)
      SetButtons bVal
      Cmbbook.Enabled = bVal
      Cmbchapter.Enabled = bVal
      Cmbverse.Enabled = bVal
      End Sub
      -----------------------------------------------------------------------------------------------------------------------

      Private Sub Setbook(bVal As Boolean)
      SetButtons bVal
      Cmbtitle.Enabled = bVal
      Cmbchapter.Enabled = bVal
      Cmbverse.Enabled = bVal
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub Setchapter(bVal As Boolean)
      SetButtons bVal
      Cmbtitle.Enabled = bVal
      Cmbbook.Enabled = bVal
      Cmbverse.Enabled = bVal
      End Sub

      ----------------------------------------------------------------------------------------------------------------------
      Private Sub Setverse(bVal As Boolean)
      SetButtons bVal
      Cmbtitle.Enabled = bVal
      Cmbbook.Enabled = bVal
      Cmbchapter.Enabled = bVal
      End Sub


      ----------------------------------------------------------------------------------------------------------------------

      Private Sub List1_Click()

      (.................)
      End Sub
      ----------------------------------------------------------------------------------------------------------------------
      'Calcul the values of book, title, chapter and verse
      Private Sub LabelAddress()
      Titre.Caption = "Book: " + Trim(adoPrimaryRS.Fields.Item(0).Value) + ", Title: " + Trim(adoPrimaryRS.Fields.Item(1).Value)
      Chapter.Caption = "Chapter: " + Trim(adoPrimaryRS.Fields.Item(2).Value) + ", Verse: " + Trim(adoPrimaryRS.Fields.Item(4).Value)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------

      Private Sub TabStrip1_Click()
      (.................)
      End Sub

      -----------------------------------------------------------------------------------------------------------------------
      Private Sub TxtWord_KeyPress(KeyAscii As Integer)
      (.................)
      End Sub


    2. Save this application; From File menu, choose and click Save Project.
    3. Run it; From Run menu, choose and click Start.

    Previous
    Home 12 Home
    Next