
DM API OBJECTS 109
PCDSQL
'This will be shared throughout this form.
Public oDIC As New DocInternalClass
Private Sub cbNextKey_Click()
NextKeyForm.oNextKey.SetDST( oDIC.GetDST() )
NextKeyForm.Show
End Sub
Private Sub cbNoDST_Click()
DSTForm.Show
End Sub
Private Sub cbQuit_Click()
Dim oForm As Form
For Each oForm In Forms
Unload oForm
Next oForm
End Sub
Private Sub cbSelectTest_Click()
'Pass the DST from the Base form to
'the SelectForm's PCDSQL object.
SelectForm.oSelectSQL.SetDST( oDIC.GetDST() )
SelectForm.Show
End Sub
Private Sub cbUpdateTest_Click()
'This allows the DST has to make it from
'one form to another.
UpdateForm.oUpdateSQL.SetDST( oDIC.GetDST() )
'Call the other form.
UpdateForm.Show
End Sub
'This is the base form for this application.
Private Sub Form_Load()
'Local Variable declarations
Kommentare zu diesen Handbüchern