Kofax DM API - Manual (Page 129)

DM API O BJECTS 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