Airfield Models - Visual Basic Database

Converting VB DB to a Daily Quote Applet (Stand-Alone Version)

May 05, 2015



Home
About
Site Feedback
Register
Contact
Site Map
Add to Favorites
Tell a Friend
Comments
Items For Sale
Search Airfield Models

Back to VB DB

 

Airfield Models (http://www.airfieldmodels.com/)Converting VB DB to a Daily Quote Applet
(Stand-Alone Version)

Note: This tutorial uses the code resulting from Tutorial 1.

There are several ways to go about turning the Daily Quote into a stand-alone application depending on what features you want the end user to have.

My way of handling this particular task was to remove field definitions editing capabilities from the end user.  I left the record editing capabilities in place so the user can add, edit or delete quotes at his option.

Here's the plan in a nutshell:

  • Remove field definition editing functionality.
  • Open the last used file at startup and automatically display the next quote.

 
 

Step 1 Remove Field Definition Editing Capability

  • Remove frmFieldDefinitions.frm form from the project

  • Remove the mnuRecordsFieldDefinitions menu item using the menu editor.  Remove the separator item (mnuRecordsSeparator5) as well.

  • Delete the mnuRecordsFieldDefinitions_Click sub-routine code in the form.

  • Delete the mnuRecords_Click sub-routine code in the form.

 
 

Step 2 Open the Last Used File at Start-Up

  • Modify the code in the FormLoad event of frmQuote.frm as follows:

Before conversion

' frmQuote.frm

Private Sub Form_Load()

Prompt = True

SetupToolbar
StartDatabase

Set MRU.Form = Me
Set frmFind.frmParent = Me

StatusBar1.Panels("EditMode").Text = "No open database"

End Sub

After conversion

' frmQuote.frm

Private Sub Form_Load()
Dim sFilename As String

Prompt = True

SetupToolbar

Set MRU.Form = Me
Set frmFind.frmParent = Me

StatusBar1.Panels("EditMode").Text = "No open database"

' Open last file on startup
sFilename = GetSetting(App.Title, "Quote", "Last file", vbNullString)

If FileExists(sFilename) Then
 
Filename = sFilename
Else
  Exit Sub
End If

End Sub

 
 

Step 3 Move to the Next Quote

  • Retrieve the index of the last read quote and automatically move to the next quote on start-up.

Before conversion

' frmQuote.frm

Private Sub StartDatabase()
Dim i As Long

If TBL.RecordCount = 0 Then
 
Reposition ADD_NEW
Else
 
Reposition MOVE_FIRST
End If

End Sub

After conversion

' frmQuote.frm

Private Sub StartDatabase()
Dim nRecordNumber As Long

nRecordNumber = GetSetting(App.Title, "Quote", "Last quote", 1)

' Get next quote
nRecordNumber = nRecordNumber + 1

With TBL
  If .RecordCount > 0 Then
    If
nRecordNumber > .RecordCount Then ' Next record is beyond end of file
   
  nRecordNumber = 1
    End If
   
Reposition MOVE_RECORDNUMBER, nRecordNumber
  Else
   
' There are no records
 
End If
End With

End Sub

 
 

Step 4 Save Last Read Quote to Registery on Reposition

  • Save the index position of the record when it is read.

After conversion

' frmQuote.frm

Public Function Reposition(Direction As REPOSITION_TYPE, Optional iRecordNumber As Long) As Long

' Code omitted for brevity

' Add this line to save the last recordnumber to the registry
SaveSetting App.Title, "Quote", "Last quote", TBL.RecordNumber

Exit Function

errHandler:
Dim nErrReturn As Long

nErrReturn = ErrorHandler(Error, Err, TBL.Filename, Me.Name & ".Reposition")

End Function

Notes:

  • You should consider changing the word "Record" in menu captions and toolbar tooltips to the word "Quote."
  • Compile the code into an exe and create your setup package.
 
 

Previous
Next

Final Step to Converting VB DB to a Daily Quote Applet (Developer's Version)
Download Visual Basic Database (VB DB) Source Code

Comments about VBDB

 
 

Back to VB DB
Airfield Models Home

 
 

Copyright 2002-2005 Paul K. Johnson