Dim SQL1 As GMOBJECTLib.SQL

Private Sub DB_Close_Click()
    SQL1.DB_Close
End Sub

Private Sub DB_Delete_Click()
    SQL1.DB_Delete
End Sub

Private Sub DB_Filter_Click()
    'All companies that begin with R
    Status.Caption = SQL1.DB_Filter("left(upper(contact1->company),1) = ""R""")
End Sub

Private Sub DB_Goto_Click()
    Status.Caption = SQL1.DB_Goto("6N3GHAI&!IG-M^B")
End Sub

Private Sub DB_Range_Click()
    'Give me only the companies that start with S
    Status.Caption = SQL1.DB_Range("S", "T", "CONTCOMP")
End Sub

Private Sub DB_Seek_Click()
    Status.Caption = SQL1.DB_Seek(UCase("ABC Corp"))
End Sub

Private Sub DB_SetOrder_Click()
    'CONTCOMP is an index on the Contact1 table
    Status.Caption = SQL1.DB_SetOrder("CONTCOMP")
End Sub

Private Sub DB_Top_Click()
    Status.Caption = SQL1.DB_Top
End Sub

Private Sub Form_Load()
    Set SQL1 = New GMOBJECTLib.SQL
End Sub

Private Sub LoadBDE_Click()
    Status.Caption = SQL1.LoadBDE("x:\", "MSSQL: Contacts: dbo.", "MSSQL: Contacts: dbo.", "USERNAME", "")
End Sub

Private Sub DB_Read_Click()
    Status.Caption = SQL1.DB_Read("Notes", val1)
    Status.Caption = SQL1.DB_Read("Company", val2)
    GMNotes.Text = val1
    GMCompany.Text = val2
End Sub

Private Sub DB_Bottom_Click()
    Status.Caption = SQL1.DB_Bottom()
End Sub

Private Sub DB_Skip_Click()
    Status.Caption = SQL1.DB_Skip(1)
End Sub

Private Sub DB_RecNo_Click()
    Status.Caption = SQL1.DB_RecNo(tempval)
    GMNotes.Text = tempval
End Sub

Private Sub DB_UpdateSyncLog_Click()
    Status.Caption = SQL1.DB_UpdateSyncLog("Contact1", "6N3GHAI&!IG-M^B", "Contact", "U")
End Sub

Private Sub DB_Open_Click()
    Status.Caption = SQL1.DB_Open("Contact1")
End Sub

Private Sub DB_Append_Click()
    Status.Caption = SQL1.DB_Append(tempval)
    GMNotes.Text = tempval
End Sub

Private Sub DB_Replace_Click()
    Status.Caption = SQL1.DB_Replace("Company", "ABC Incorporated", 0)
End Sub

Private Sub NewRecID_Click()
    Status.Caption = SQL1.NewRecID("USERNAME", tempval)
    GMNotes.Text = tempval
End Sub

Private Sub SetSQLUserPass_Click()
    Status.Caption = SQL1.SetSQLUserPass("USERNAME", "PASSWORD")
End Sub

Private Sub SyncStamp_Click()
    Status.Caption = SQL1.SyncStamp("19980201:19:01:30", tempval)
    GMNotes.Text = tempval
End Sub

Private Sub UnloadBDE_Click()
    Status.Caption = SQL1.UnloadBDE
End Sub

Private Sub DB_Unlock_Click()
    Status.Caption = SQL1.DB_Unlock
End Sub

Private Sub DB_IsSQL_Click()
    Status.Caption = SQL1.DB_IsSQL
End Sub

Private Sub DB_Search_Click()
    'Find companies that begin with C
  
    Status.Caption = SQL1.DB_Search("left(upper(contact1->company),1) = ""C""", tempval)
    GMNotes.Text = tempval
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SQL1.DB_Close
    SQL1.UnloadBDE
    Set SQL1 = Nothing
End Sub

Private Sub UpdateSyncLog_Click()
    Status.Caption = SQL1.UpdateSyncLog("CONTACT1", "6N3GHAI&!IG-M^B", "CONTACT", "U")
End Sub