model1.bas

1:首先要导入hotel数据

Attribute VB_Name = "mdlCon"

Public Room_id                          '房间号码
Public Room_type As String              '房间类型
Public Room_price As String             '房间价格
'Public Room_state As String             '房间状态
Public Room_update As Boolean           '顾客入住时的房间信息更新
Public Room_load As String              '房态图的选择按钮
Public Load_state As String

Public PreIn As String                  '预订顾客转入住

Public LeaveCon As String               '离开顾家信息查询

Public RoomModify As String             '修改房间传递变量

Public EmpId As String                  '修改员工信息传递变量

Public UserModify As String             '修改用户姓名、等级所用

Public userName As String               '用户名称
Public userPassowrd As String           '用户密码
Public userType As String               '用户类型
Public connectString As String          '数据库连接字符串

'连接数据库函数
Public Function connectToserver(ByRef con1 As ADODB.Connection, rs1 As ADODB.Recordset, ByVal sqlstr As String) As Boolean
    con1.ConnectionString = strCon '
    con1.CommandTimeout = 15                                 '15秒等待时间
    con1.Open
    rs1.Open sqlstr, con1, adOpenKeyset, adLockOptimistic
    If rs1.EOF And rs1.BOF Then
        connectToserver = False
    Else
        connectToserver = True
    End If
End Function
Public Function connectTotable(ByRef con1 As ADODB.Connection, rs1 As ADODB.Recordset, ByVal tablestr As String) As Boolean
    Set con1 = New ADODB.Connection
    Set rs1 = New ADODB.Recordset
    If rs1.State = 1 Then rs1.Close
    If con1.State = 1 Then con1.Close
    
    con1.ConnectionString = mdlCreatData.strCon   '"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hotel;Data Source=."
    con1.Open
    rs1.Open tablestr, con1, adOpenKeyset, adLockOptimistic
    If rs1.EOF And rs1.BOF Then
        connectTotable = False
    Else
        connectTotable = True
    End If
End Function

Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub