dengji.frm

一部酒店管理系统

    
    If txt_name.Text = "" Then
        MsgBox "姓名不能为空!", vbExclamation
        txt_name.SetFocus
        Exit Sub
    End If
    
    If txt_no.Text = "" Then
        MsgBox "证件号码不能为空!", vbExclamation
        txt_no.SetFocus
        Exit Sub
    End If
    
    If IsNumeric(txt_no.Text) = False Then
        MsgBox "证件号码只能是数字!", vbExclamation
        txt_no.SetFocus
        Exit Sub
    End If
    
    If comb_zheng.Text = "军官证" Then
        
        If Len(Trim(txt_no.Text)) <> 6 Then
            MsgBox "证件号码位数不正确，注意为6位!", vbExclamation
            txt_no.SetFocus
            Exit Sub
        End If
        
    ElseIf comb_zheng.Text = "学生证" Then
        
        If Len(Trim(txt_no.Text)) <> 11 Then
            MsgBox "证件号码位数不正确，注意为11位!", vbExclamation
            txt_no.SetFocus
            Exit Sub
        End If
    
    ElseIf comb_zheng.Text = "身份证" Then
        
        If Len(Trim(txt_no.Text)) <> 15 And Len(Trim(txt_no.Text)) <> 18 Then
            MsgBox "证件号码位数不正确，注意为15或18位!", vbExclamation
            txt_no.SetFocus
            Exit Sub
        End If
    
    End If
    
    If txt_money.Text = "" Then
        MsgBox "押金不能为空!", vbExclamation
        txt_money.SetFocus
        Exit Sub
    End If
    
    If IsNumeric(txt_money.Text) = False Then
        MsgBox "只能输入数字!", vbExclamation
        txt_money.SetFocus
        Exit Sub
    End If
    
    Call RegGuest
    Call RegHouse
    Call UpdateHouse
    MsgBox "记录添加成功！", vbExclamation
    
    Call CleanScreen
    Call LoadHouse
    
End Sub

Private Sub Command2_Click()

    Call CleanScreen

End Sub

Private Sub Command3_Click()

    Unload Me

End Sub



Private Sub Command4_Click(Index As Integer)

    m_name = Command4(Index).Caption
    Call SelHouse

End Sub


Private Sub Command4_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 2 Then
        
        m_name = Command4(Index).Caption
        mnu_sum.Caption = LoadChuang()
        PopupMenu mnu_op
        
    End If

End Sub




Private Sub Form_Load()

    '窗口居中
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2 - 550
    
    VScroll1.Max = 1
    VScroll1.Min = 1024
    VScroll1.LargeChange = 1
    
    VScroll2.Max = 1
    VScroll2.Min = 1024
    VScroll2.LargeChange = 1
    
    VScroll3.Max = 1
    VScroll3.Min = 20
    VScroll3.LargeChange = 1
    
    opsex(0).Value = True
    
    lbl_time.Caption = GetTime '调用时间函数
    lbl_pepole.Caption = m_user
    
     '初始化表格窗体
    MSFlexGrid1.ColWidth(0) = 1560
    MSFlexGrid1.ColWidth(1) = 1560

    '初始化表格名称
    MSFlexGrid1.TextMatrix(0, 0) = "房间号"
    MSFlexGrid1.TextMatrix(0, 1) = "可入住人数"
    
    m_val = 1
    
    Call LoadsZheng
    Call LoadsNum
    Call LoadsHouseKind
    
End Sub


Private Sub mnu_selethouse_Click()

    Call SelHouse

End Sub



Private Sub opsex_Click(Index As Integer)
    
    If opsex(0).Value = True Then
        m_sex = 0
    Else
        m_sex = 1
    End If
End Sub

Private Sub VScroll1_Change()

    txt_sum.Text = VScroll1.Value

End Sub



Private Sub VScroll2_Change()

    txt_days.Text = VScroll2.Value

End Sub

'加载证件信息

Private Sub LoadsZheng()

    Dim str As String
    str = "select * from zheng"
    
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
    myrs.MoveFirst
    
    While Not myrs.EOF
        
         comb_zheng.AddItem (myrs("nam"))
         myrs.MoveNext
        
    Wend
    
    comb_zheng.ListIndex = 0
    
End Sub


'加载编号信息

Private Sub LoadsNum()

    Dim str As String
    str = "select * from guest"
    
    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.EOF = False Then
        myrs.MoveLast
        lbl_no = Int(myrs("code")) + 1
    Else
        lbl_no = 1
        
    End If
        
End Sub

'客人注册
Private Sub RegGuest()

    
    Dim m_sex As String
    If opsex(0).Value = True Then
        m_sex = 0
    Else
        m_sex = 1
    
    End If
    
    Dim strSQL As String
    
    strSQL = "insert into guest (numb,nam,sexs,zhengjian,hao,danwei," & _
    "addr,sums,tim,days,pepole,moneys) values ('" & lbl_no.Caption & "'," & _
    "'" & txt_name.Text & "','" & m_sex & "','" & comb_zheng.Text & "'," & _
    "'" & txt_no.Text & "','" & txt_danwei.Text & "','" & txt_addr.Text & "'," & _
    "'" & txt_sum.Text & "','" & lbl_time.Caption & "','" & txt_days.Text & "'," & _
    "'" & lbl_pepole.Caption & "','" & txt_money.Text & "')"

    myCon.Execute (strSQL)
    
End Sub


'加载酒店房间类型信息

Private Sub LoadsHouseKind()

    Dim str As String
    str = "select * from housekind"
    
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
    myrs.MoveFirst
        
    Combo1.AddItem ("全部")
    txt_jiage.Text = 0
        
    While Not myrs.EOF
    
     Combo1.AddItem (myrs("kind"))
     myrs.MoveNext
    
    Wend
    
    Combo1.ListIndex = 0

End Sub

'价格联动
Private Sub LoadJiaGe()

    If m_kind <> "全部" Then
    
        Dim str As String
        str = "select * from housekind where kind = '" & m_kind & "'"
        
        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.EOF = False Then
        
           txt_jiage.Text = myrs("jiage")
        
        End If
    
    Else
        
        txt_jiage.Text = 0
    
    End If
             
End Sub

'加载房间信息

Private Sub LoadHouse()

    Dim m As Integer '循环变量
    For m = 0 To 24
        
        Command4(m).Visible = False
        Command4(m).Caption = ""
        Command4(m).Picture = LoadPicture()
    Next
    
    
    Dim str As String
    If m_kind = "全部" Then
    
        str = "select * from house"
    Else
        str = "select * from house where kind='" & m_kind & "' order by nam"
    
    End If
        
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
        
    Dim sum As Integer      '对应房间总数
    sum = myrs.RecordCount
        
    Dim n As Integer        '循环变量
    Dim m_xingbie As String '保存性别
    Dim m_man As String
    Dim m_ding As String
    Dim m_qingsao As String
    Dim m_weixiu As String
    
    For n = 0 To sum - 1 Step 1
    
        m_xingbie = myrs("xingbie")
        m_man = myrs("man")
        m_ding = myrs("ding")
        m_qingsao = myrs("qingsao")
        m_weixiu = myrs("weixiu")
        If m_qingsao = 1 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\qingsao.bmp")
        ElseIf m_weixiu = 1 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\weixiu.bmp")
        ElseIf m_ding = 1 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\ding.bmp")
        ElseIf m_man = 1 And m_xingbie = 0 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\nanman.bmp")
        ElseIf m_man = 1 And m_xingbie = 1 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\nvman.bmp")
        ElseIf m_man = 2 And m_xingbie = 0 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\nanweiman.bmp")
        ElseIf m_man = 2 And m_xingbie = 1 Then
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\nvweiman.bmp")
        Else
            Command4(n).Picture = LoadPicture(App.Path + "\bmp\kong.bmp")
        End If
        Command4(n).Visible = True
        Command4(n).Caption = myrs("nam")
        myrs.MoveNext
        
    Next

End Sub

'加载房间床位，入住人数信息

Private Function LoadChuang() As String


    
    Dim str As String
    str = "select * from house where nam='" & m_name & "'"
     
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
    myrs.MoveFirst
        
    Dim m_renshu As String  '已住人数
    m_renshu = myrs("zhu")
        
    If myrs("ding") = 1 Then
        LoadChuang = "已订"
        m_renshu = 0
    ElseIf myrs("kong") = 0 Then
        LoadChuang = "空闲"
    ElseIf myrs("man") = 1 Then
        LoadChuang = "已满"
    Else
        LoadChuang = "未满"
    End If
     
    LoadChuang = LoadChuang + " 床位 " + myrs("chuang") + " 已住人数 " + m_renshu
    
End Function

'加载房间床位，入住人数信息

Private Function LoadChuang2() As Integer