mod_publicfunction.bas

一部酒店管理系统

Attribute VB_Name = "mod_publicFunction"
'连接数据库函数 ----连接方式 ADO
Public myCon As ADODB.Connection

Public m_no As String       '保存帐票号
Public m_day As Integer     '保存入住总天数
Public m_yajin As Integer   '保存押金数
Public m_tuichu As Integer
Public m_user As String       '保存登陆人名
Public m_houseno As String  '房间号码

Public Function db_Open() As Integer

On Error GoTo loop_error

  Set myCon = New ADODB.Connection
  myCon.Provider = "microsoft.jet.oledb.4.0;"
  myCon.ConnectionString = "Data Source=" + App.Path + "\hostel.mdb;"
  myCon.Open
  
  GoTo loop_open

loop_error:

    db_Open = 1
loop_open:

    db_Open = 0
  
End Function


'判断用户权限

Public Function JudgeUser() As Boolean

    Dim str As String
    str = "select * from userinfo where uid='" & m_user & "'"
    
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
        
    If myrs("quanxian") = 3 Then
        
        JudgeUser = False
    
    Else
        
        JudgeUser = True
    
    End If
        
End Function

'预定房间到点提醒
Public Sub TimeMessage()
    
    Dim str As String
    str = "select * from house,guestinfo,guest where ding='1'and house.nam=houseno and guestinfo.numb=guest.numb"
    
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
        
        
    Dim m_dingfang As String    '订房时间
        
    While Not myrs.EOF
        
        m_houseno = myrs("house.nam")
        m_dingfang = myrs("tim")
        If Now >= m_dingfang Then
            tixing.Show vbModal
        End If
        myrs.MoveNext
    Wend

End Sub