module1.bas

宾馆管理信息系统

Attribute VB_Name = "Module1"
Public flagTedit As Boolean
Public flagRedit As Boolean
Public flagBedit As Boolean
Public flagCedit As Boolean
Public gintCmode As Integer
Public gintTmode As Integer
Public gintRmode As Integer
Public gintBmode As Integer
Public flagSedit As Boolean
'Public cnn As New ADODB.Connection
'Public rst As New ADODB.Recordset
'Public connString As String
Public connString$, UserName$, UserID$
Sub main()
connString = "Provider=SQLOLEDB.1;Persist Security Info=False;UserID=03j2;Initial Catalog=03j2caochenguang;Data Source=192.168.173.230"
frmLogin.Show vbModal
If 1 Then
   FrmMain.Show
   Unload frmLogin
Else
  MsgBox "无权登陆本系统", , "登录"
  End
End If
    Unload frmLogin
    FrmMain.Show
End Sub

Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
   As ADODB.Recordset

 'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   On Error GoTo executeSQL_error
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open connString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim(SQL), cnn, adOpenKeyset, adLockOptimistic
      'rst.MoveLast
   ' get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & " 条记录 "
   End If
executeSQL_exit:
   Set rst = Nothing
   Set cnn = Nothing
 Exit Function
executeSQL_error:
MsgString = "查询错误: " & Err.Description
   Resume executeSQL_exit
End Function
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub

Public Sub menuAddbookroom_Click()
 gintBmode = 1
    frmBookin1.Show
    frmBookin1.ZOrder 0
End Sub