?? krjz.frm

?? 計算機學位畢業設計客房管理系統無解壓密碼
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
          If Not IsNull(Data1(SSTab1.Tab).Recordset("房號")) Then STROPTION = STROPTION + CStr(Data1(SSTab1.Tab).Recordset("房號"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("姓名")) Then STROPTION = STROPTION + "  " + CStr(Data1(SSTab1.Tab).Recordset("姓名"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("性別")) Then STROPTION = STROPTION + "  " + CStr(Data1(SSTab1.Tab).Recordset("性別"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("證件類別")) Then STROPTION = STROPTION + Chr(13) + CStr(Data1(SSTab1.Tab).Recordset("證件類別"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("證件號碼")) Then STROPTION = STROPTION + "  " + CStr(Data1(SSTab1.Tab).Recordset("證件號碼"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("類別")) Then STROPTION = STROPTION + Chr(13) + CStr(Data1(SSTab1.Tab).Recordset("類別"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("國籍")) Then STROPTION = STROPTION + "  " + CStr(Data1(SSTab1.Tab).Recordset("國籍"))
          If Not IsNull(Data1(SSTab1.Tab).Recordset("入住日期")) Then STROPTION = STROPTION + Chr(13) + Format(Data1(SSTab1.Tab).Recordset("入住日期"), "LONG DATE")
          If Not IsNull(Data1(SSTab1.Tab).Recordset("離住日期")) Then STROPTION = STROPTION + "  " + Format(Data1(SSTab1.Tab).Recordset("離住日期"), "LONG DATE")
          If Not IsNull(Data1(SSTab1.Tab).Recordset("單位或地址")) Then STROPTION = STROPTION + Chr(13) + CStr(Data1(SSTab1.Tab).Recordset("單位或地址"))
          If Not Data1(SSTab1.Tab).Recordset("住房") Then
             STROPTION = STROPTION + Chr(13) + Chr(13) + "非住房客人"
             DBGrid1.Columns("房費").Locked = True
             DBGrid1.Columns("商品").Locked = True
             DBGrid1.Columns("加床費").Locked = True
             Else
               DBGrid1.Columns("房費").Locked = False
               DBGrid1.Columns("商品").Locked = False
               DBGrid1.Columns("加床費").Locked = False
          End If
          Else
            If Not IsNull(Data1(SSTab1.Tab).Recordset("團會名稱")) Then STROPTION = STROPTION + CStr(Data1(SSTab1.Tab).Recordset("團會名稱"))
            If Not IsNull(Data1(SSTab1.Tab).Recordset("團體人數")) Then STROPTION = STROPTION + Chr(13) + "人數:" + CStr(Data1(SSTab1.Tab).Recordset("團體人數"))
            If Not IsNull(Data1(SSTab1.Tab).Recordset("陪同人數")) Then STROPTION = STROPTION + "  陪同:" + CStr(Data1(SSTab1.Tab).Recordset("陪同人數"))
            If Not IsNull(Data1(SSTab1.Tab).Recordset("入住日期")) Then STROPTION = STROPTION + Chr(13) + Format(Data1(SSTab1.Tab).Recordset("入住日期"), "LONG DATE")
            If Not IsNull(Data1(SSTab1.Tab).Recordset("離住日期")) Then STROPTION = STROPTION + "  " + Format(Data1(SSTab1.Tab).Recordset("離住日期"), "LONG DATE")
            If Not Data1(SSTab1.Tab).Recordset("住房") Then
               STROPTION = STROPTION + Chr(13) + Chr(13) + "非住房團會"
               DBGrid1.Columns("房費").Locked = True
               DBGrid1.Columns("商品").Locked = True
               DBGrid1.Columns("加床費").Locked = True
               Else
                 DBGrid1.Columns("房費").Locked = False
                 DBGrid1.Columns("商品").Locked = False
                 DBGrid1.Columns("加床費").Locked = False
            End If
       End If
    End If
    Label2(SSTab1.Tab).Caption = STROPTION
    DBGrid1.Refresh
End Sub

Private Sub MNU11_Click()      '打印機設置
    CDLTEST.flags = cdlPDDisablePrintToFile
    CDLTEST.Copies = 3
    CDLTEST.PrinterDefault = True
    CDLTEST.ShowPrinter

End Sub

Private Sub MNU16_Click()     ' 退出模塊
    Unload Me
    
End Sub

Private Sub MNU21_Click()
    If DBGrid1.DataChanged Then
       Data3(0).UpdateRecord
    End If
    If SSTab1.Tab = 0 And List1(0).Text <> "" Then
       Data3(0).Recordset.AddNew
       Data3(0).Recordset("客人ID") = left(List1(0).Text, 12)
       Data3(0).Recordset("日期") = Now
       Data3(0).Recordset("操作員") = frmLogin.CZYXM
       Data3(0).Recordset("班次") = frmLogin.CZYBC
       INTID = Data3(0).Recordset("ID")
       Data3(0).Recordset.Update
    End If
    If SSTab1.Tab = 1 And List1(1).Text <> "" Then
       Data3(0).Recordset.AddNew
       Data3(0).Recordset("團會ID") = left(List1(1).Text, 12)
       Data3(0).Recordset("日期") = Now
       Data3(0).Recordset("操作員") = frmLogin.CZYXM
       Data3(0).Recordset("班次") = frmLogin.CZYBC
       INTID = Data3(0).Recordset("ID")
       Data3(0).Recordset.Update
    End If
    Data3(0).Recordset.FindFirst ("ID=" & INTID)
End Sub

Private Sub MNU22_Click()     ' 刪除記錄
    If Data3(0).Recordset.RecordCount = 0 Then Exit Sub
    SFOK = MsgBox("是否刪除當前行?", vbYesNo + vbQuestion, "提示信息")
    If SFOK = vbYes Then
       Data3(0).Recordset.Delete
       If Not Data3(0).Recordset.EOF Then
          Data3(0).Recordset.MoveNext
          If Data3(0).Recordset.EOF And Data3(0).Recordset.RecordCount > 0 Then Data3(0).Recordset.MoveLast
          Else
            Data3(0).Recordset.MoveLast
       End If
       Data3(1).Refresh
    End If
    List1_Click (SSTab1.Tab)
    
End Sub

Private Sub MNU3_Click()
    Dim RECHJAP As Recordset, RECSKJZ As Recordset
    
    On Error GoTo BACKERROR
    
    Set RECHJAP = DATJDGL.OpenRecordset("團會房間安排", dbOpenDynaset)
    If SSTab1.Tab = 1 Then
       RECHJAP.FindFirst ("團會ID='" & left(List1(1).Text, 12) & "' AND 押金<>0 ")
       If Not RECHJAP.NoMatch Then
          Load THYJ
          THYJ.Caption = "退還鑰匙押金"
          THYJ.Label1.Caption = List1(1).Text
          THYJ.Show vbModal
       End If
       RECHJAP.FindFirst ("團會ID='" & left(List1(1).Text, 12) & "' AND 押金<>0 ")
       If Not RECHJAP.NoMatch Then
          MsgBox "還有團會成員未退鑰匙押金,不能結帳!", vbCritical, "錯誤信息"
          Exit Sub
       End If
    End If
    If List1(SSTab1.Tab).Text = "" Then
       MsgBox "請選擇需辦理結算的客人或團會!", vbCritical, "提示信息"
       Exit Sub
    End If
    If Data3(0).Recordset.RecordCount = 0 Then
       MsgBox "此客人沒有消費帳單!不能結帳...", vbCritical, "提示信息"
       Exit Sub
    End If
    If STRJZLX = "" Then
       MsgBox "請選擇結帳類型!", vbCritical, "提示信息"
       Option1(0).SetFocus
       Exit Sub
    End If
    SFOK = MsgBox(List1(SSTab1.Tab).Text + Chr(13) + "請確認是否辦理" + STRJZLX + "?", vbYesNo + vbQuestion, "提示信息")
    If SFOK = vbYes Then
       Set RECHT = DATJDGL.OpenRecordset("房間狀態", dbOpenDynaset)       '打開房間狀態表
       If SSTab1.Tab = 0 Then                                             '散客結帳
          DATJDGL.Execute ("INSERT INTO 散客結帳 SELECT 客人ID,房號,姓名,性別,證件類別,證件號碼,類別,國籍,入住日期,離住日期,房價,單位或地址,預付款,附注,住房 FROM 散客登記表 WHERE 散客登記表.客人ID='" & left(List1(0).Text, 12) & "'")
          Set RECSKJZ = DATJDGL.OpenRecordset("散客結帳", dbOpenDynaset)
          RECSKJZ.FindFirst ("客人ID='" & left(List1(0).Text, 12) & "'")
          If Not RECSKJZ.NoMatch Then
             RECSKJZ.Edit
             RECSKJZ("結帳日期") = Now
             RECSKJZ("離住日期") = Now
             RECSKJZ("結帳類型") = STRJZLX
             RECSKJZ("操作員") = frmLogin.CZYXM
             RECSKJZ("班次") = frmLogin.CZYBC
             RECSKJZ.Update
             '調整結帳房間的房態
             RECSK.Requery
             If RECSKJZ("住房") Then
                RECSK.FindFirst ("房號=" & RECSKJZ("房號"))
                If RECSK.NoMatch Then
                   RECHJAP.FindFirst ("房號=" & RECSKJZ("房號"))
                   If RECHJAP.NoMatch Then
                      RECHT.FindFirst ("房號=" & RECSKJZ("房號"))
                      If Not RECHT.NoMatch Then
                         RECHT.Edit
                         RECHT("房態") = "走房"
                         RECHT.Update
                      End If
                   End If
                End If
             End If
          End If
          DATJDGL.Execute ("INSERT INTO 結帳帳單 SELECT * FROM 客人帳單 WHERE 客人帳單.客人ID='" & left(List1(0).Text, 12) & "'")
          DATJDGL.Execute ("UPDATE 結帳帳單 SET 結帳日期=NOW,班次=" & frmLogin.CZYBC & " WHERE 客人ID='" & left(List1(0).Text, 12) & "'")
          DATJDGL.Execute ("DELETE FROM 散客登記表 WHERE 散客登記表.客人ID='" & left(List1(0).Text, 12) & "'")
          Load KRJZ1
          KRJZ1.Show vbModal
          List1(0).Clear
          RECSK.Requery
          If RECSK.RecordCount > 0 Then RECSK.MoveFirst
          While Not RECSK.EOF
                List1(0).AddItem RECSK("客人ID") + "  " + IIf(IsNull(RECSK("姓名")), "", RECSK("姓名"))
                RECSK.MoveNext
          Wend
          Else
            RECTH.FindFirst ("團會ID='" & left(List1(1).Text, 12) & "'")
            If Not RECTH.NoMatch Then
               STRFIND = "SELECT 團會房間安排.團會ID, 團會房間安排.房號 From 團會房間安排 WHERE (((團會房間安排.團會ID)='" & RECTH("團會ID") & "'))"
               Set RECHJAP = DATJDGL.OpenRecordset(STRFIND, dbOpenDynaset)
               STRFF = ""
               While Not RECHJAP.EOF
                     If InStr(STRFF, CStr(RECHJAP("房號"))) = 0 Then
                        If STRFF = "" Then
                           STRFF = STRFF + CStr(RECHJAP("房號"))
                           Else
                             STRFF = STRFF + "、" + CStr(RECHJAP("房號"))
                        End If
                     End If
                     '調整結帳房間的房態
                     Set RECHJAP1 = DATJDGL.OpenRecordset("SELECT 團會房間安排.ID, 團會房間安排.團會ID, 團會房間安排.房號, 團會房間安排.姓名, 團會房間安排.性別, 團會房間安排.押金, 團會房間安排.附注 From 團會房間安排 WHERE (((團會房間安排.團會ID)<>'" & left(List1(1).Text, 12) & "'))")
                     RECSK.FindFirst ("房號=" & RECHJAP("房號"))
                     If RECSK.NoMatch Then
                        RECHJAP1.FindFirst ("房號=" & RECHJAP("房號"))
                        If RECHJAP1.NoMatch Then
                           RECHT.FindFirst ("房號=" & RECHJAP("房號"))
                           If Not RECHT.NoMatch Then
                              RECHT.Edit
                              RECHT("房態") = "走房"
                              RECHT.Update
                           End If
                        End If
                     End If
                     RECHJAP.MoveNext
               Wend
            End If
            DATJDGL.Execute ("INSERT INTO 團會結帳 SELECT 團會ID,團會名稱,團體人數,陪同人數,入住日期,離住日期,預付款,附注,操作員,住房 FROM 團會登記表 WHERE 團會登記表.團會ID='" & left(List1(1).Text, 12) & "'")
            Set RECTHJZ = DATJDGL.OpenRecordset("團會結帳", dbOpenDynaset)
            RECTHJZ.FindFirst ("團會ID='" & left(List1(1).Text, 12) & "'")
            If Not RECTHJZ.NoMatch Then
               RECTHJZ.Edit
               RECTHJZ("結帳日期") = Now
               RECTHJZ("離住日期") = Now
               RECTHJZ("結帳類型") = STRJZLX
               If STRFF <> "" Then RECTHJZ("房號") = STRFF
               RECTHJZ("操作員") = frmLogin.CZYXM
               RECTHJZ("班次") = frmLogin.CZYBC
               RECTHJZ.Update
            End If
            DATJDGL.Execute ("INSERT INTO 結帳帳單 SELECT * FROM 客人帳單 WHERE 客人帳單.團會ID='" & left(List1(1).Text, 12) & "'")
            DATJDGL.Execute ("UPDATE 結帳帳單 SET 結帳日期=NOW,班次=" & frmLogin.CZYBC & " WHERE 團會ID='" & left(List1(1).Text, 12) & "'")
            DATJDGL.Execute ("DELETE FROM 團會登記表 WHERE 團會登記表.團會ID='" & left(List1(1).Text, 12) & "'")
            Load KRJZ2
            KRJZ2.Show vbModal
            If RECTH.RecordCount > 0 Then RECTH.MoveFirst
            List1(1).Clear
            RECTH.Requery
            Do While Not RECTH.EOF
               If RECTH("團會名稱") <> " " Then
                  List1(1).AddItem RECTH("團會ID") + "  " + IIf(IsNull(RECTH("團會名稱")), "", RECTH("團會名稱"))
               End If
               RECTH.MoveNext
            Loop
       End If
       Data1(SSTab1.Tab).Refresh
       Data3(1).RecordSource = Data2(SSTab1.Tab).RecordSource
       Data3(1).Refresh
       List1_Click (SSTab1.Tab)
       Else
         Exit Sub
    End If
    Exit Sub
    
BACKERROR:
    If Err.Number = 3704 Then
       Resume Next
       Else
         MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "錯誤信息"
         Unload Me
    End If

End Sub


Private Sub MNU4_Click()            ' 計算器
    Dim jsq As Double
    jsq = Shell("calc", vbNormalNoFocus)
 
End Sub

Private Sub MNU51_Click()
    Shell App.Path & "\hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub

Private Sub MNU54_Click()          ' 關于對話
    Load frmAbout
    frmAbout.Show vbModal
    
End Sub


Private Sub Option1_Click(Index As Integer)
    STRJZLX = Option1(Index).Caption
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
    If SSTab1.Tab = 0 Then
       Data3(1).RecordSource = Data2(0).RecordSource
       Else
         Data3(1).RecordSource = Data2(1).RecordSource
    End If
    Data3(1).Refresh
    If List1(SSTab1.Tab).ListCount > 0 Then
       If List1(SSTab1.Tab).Text = "" Then List1(SSTab1.Tab).ListIndex = 0
    End If
    List1_Click (SSTab1.Tab)
    

End Sub

Private Sub Text3_Change(Index As Integer)
    List1(SSTab1.Tab).Clear
    If RECSK.RecordCount > 0 Then RECSK.MoveFirst
    If RECTH.RecordCount > 0 Then RECTH.MoveFirst
    If SSTab1.Tab = 0 Then
       While Not RECSK.EOF
           If InStr(UCase(RECSK("FPY")), UCase(Text3(Index).Text)) > 0 Or Text3(Index).Text = "" Then
              List1(SSTab1.Tab).AddItem RECSK("客人ID") + "  " + IIf(IsNull(RECSK("姓名")), "", RECSK("姓名"))
           End If
           RECSK.MoveNext
       Wend
       Else
         While Not RECTH.EOF
             If InStr(UCase(RECTH("FPY")), UCase(Text3(Index).Text)) > 0 Or Text3(Index).Text = "" Then
                List1(SSTab1.Tab).AddItem RECTH("團會ID") + "  " + IIf(IsNull(RECTH("團會名稱")), "", RECTH("團會名稱"))
             End If
             RECTH.MoveNext
         Wend
    End If

End Sub

Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = 13 Then
       If List1(SSTab1.Tab).ListCount > 0 Then
          List1(SSTab1.Tab).ListIndex = 0
          List1(SSTab1.Tab).SetFocus
       End If
    End If

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case UCase(Button.Key)
        Case "A"          ' 打印機設置
            MNU11_Click
        Case "B"          ' 打印預覽
            MsgBox "B"
        Case "C"          ' 文件輸出
            MsgBox "C"
        Case "E"          ' 增加
            MNU21_Click
        Case "G"          ' 刪除
            MNU22_Click
        Case "I"          ' 查看
            MNU3_Click
            
        Case "K"          ' 計算器
            MNU4_Click
        Case "M"          ' 幫助
            MNU51_Click
        Case "N"          ' 退出
            Unload Me
    End Select
End Sub
上一頁 1 23
?? 文件大小 1526 K
?? 上傳用戶 liu2237329
?? 所屬分類 MySQL數據庫
??? 相關標簽

#計算機 #畢業設計 #密碼 #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? krjz.frm

?? 快捷鍵說明
