📄 tbzj.frm

📁 酒店系统源码。为了学习和研究软件内含的设计思想和原理
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
    Dim CURBZJ As Currency

    On Error GoTo BACKERROR
 
    If Not IsNumeric(Text1(SSTab1.Tab).Text) Then Exit Sub
    If CCur(Data2(SSTab1.Tab).Recordset("保证金合计")) < CCur(Text1(SSTab1.Tab).Text) Then
       MsgBox "累收保证金不足退款!", vbCritical, "提示信息"
       Exit Sub
    End If
    SFOK = MsgBox("请确认是否退还保证金?", vbYesNo + vbQuestion, "提示信息")
    If SFOK = vbYes Then
       RECZD.AddNew
       If SSTab1.Tab = 0 Then
          RECZD("客人ID") = left(List1(SSTab1.Tab).Text, 12)
          Else
            RECZD("团会ID") = left(List1(SSTab1.Tab).Text, 12)
       End If
       RECZD("日期") = Now
       RECZD("保证金") = -CCur(Text1(SSTab1.Tab).Text)
       RECZD("操作员") = frmLogin.CZYXM
       RECZD("班次") = frmLogin.CZYBC
       RECZD.Update
       Data2(SSTab1.Tab).Refresh
       SFOK = MsgBox("是否打印退还保证金收据?", vbYesNo + vbQuestion, "提示信息")
       If SFOK = vbYes Then
          TBZJPREVIEW.Show vbModal
       End If
       List1_Click (SSTab1.Tab)
       Else
         Text1(SSTab1.Tab).SetFocus
         Exit Sub
    End If
    
BACKERROR:
    If Err.Number = 3704 Then
       Resume Next
    End If
   
End Sub

Private Sub Command2_Click()
    TBZJPREVIEW.Show vbModal
End Sub

Private Sub Form_Activate()
    SSTab1_Click (SSTab1.Tab)
    List1_Click (SSTab1.Tab)
    If List1(SSTab1.Tab).ListCount > 0 Then
       If List1(SSTab1.Tab).Text = "" Then List1(SSTab1.Tab).ListIndex = 0
    End If
End Sub

Private Sub Form_Load()
    Data1(0).DatabaseName = App.Path & "\data\jdgl.mdb"
    Data1(0).Refresh
    Data1(1).DatabaseName = App.Path & "\data\jdgl.mdb"
    Data1(1).Refresh
    Data2(0).DatabaseName = App.Path & "\data\jdgl.mdb"
    Data2(0).Refresh
    Data2(1).DatabaseName = App.Path & "\data\jdgl.mdb"
    Data2(1).Refresh

    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECTH = DATJDGL.OpenRecordset("团会登记表", dbOpenDynaset)
    Set RECSK = DATJDGL.OpenRecordset("散客登记表", dbOpenDynaset)
    Set RECZD = DATJDGL.OpenRecordset("客人帐单", dbOpenDynaset)

    List1(1).Clear
    Do While Not RECTH.EOF
       If RECTH("团会名称") <> " " Then
          List1(1).AddItem RECTH("团会ID") + "  " + IIf(IsNull(RECTH("团会名称")), "", RECTH("团会名称"))
       End If
       RECTH.MoveNext
    Loop
    List1(0).Clear
    If RECSK.RecordCount > 0 Then RECSK.MoveFirst
    While Not RECSK.EOF
          List1(0).AddItem RECSK("客人ID") + "  " + IIf(IsNull(RECSK("姓名")), "", RECSK("姓名"))
          RECSK.MoveNext
    Wend

End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
End Sub

Private Sub List1_Click(Index As Integer)
    Text1(SSTab1.Tab).Text = ""
    If IsNumeric(Text1(SSTab1.Tab).Text) Then
       Text1(SSTab1.Tab).Text = FormatCurrency(Text1(SSTab1.Tab).Text, 2, vbTrue, , vbFalse)
       Label3(SSTab1.Tab).Caption = "金额<大写>人民币" + SUMDM(CDbl(Text1(SSTab1.Tab).Text)) + "。"
       Else
         Text1(SSTab1.Tab).Text = ""
         Label3(SSTab1.Tab).Caption = ""
    End If
    If SSTab1.Tab = 0 Then
       Data1(SSTab1.Tab).Recordset.FindFirst ("客人ID='" & left(List1(SSTab1.Tab).Text, 12) & "'")
       Data2(SSTab1.Tab).Recordset.FindFirst ("客人ID='" & left(List1(SSTab1.Tab).Text, 12) & "'")
       Else
         Data1(SSTab1.Tab).Recordset.FindFirst ("团会ID='" & left(List1(SSTab1.Tab).Text, 12) & "'")
         Data2(SSTab1.Tab).Recordset.FindFirst ("团会ID='" & left(List1(SSTab1.Tab).Text, 12) & "'")
    End If
    STROPTION = ""
    If Data1(SSTab1.Tab).Recordset.RecordCount > 0 Then
       If SSTab1.Tab = 0 Then
          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) + "非住房客人"
          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) + "非住房团会"
       End If
       STROPTION = STROPTION + Chr(13) + Chr(13) + "累收保证金:" + FormatNumber(Data2(SSTab1.Tab).Recordset("保证金合计"), 2, vbTrue, , vbFalse)
    End If
    Label8(SSTab1.Tab).Caption = STROPTION
    
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 MNU3_Click()
    If Not Data1(1).Recordset("住房") Then
       MsgBox "此团会未住房,不能退还钥匙押金!", vbInformation, "提示信息"
       Exit Sub
    End If
    Load THYJ
    THYJ.Caption = "退还钥匙押金"
    THYJ.Label1.Caption = List1(1).Text
    THYJ.Show vbModal

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 SSTab1_Click(PreviousTab As Integer)
    If SSTab1.Tab = 0 Then
       Data1(0).Recordset.FindFirst ("客人ID='" & left(List1(0).Text, 12) & "'")
       Data2(0).Recordset.FindFirst ("客人ID='" & left(List1(0).Text, 12) & "'")
       If Data1(0).Recordset.RecordCount > 0 Then
          Command1(0).Enabled = True
          Else
            Command1(0).Enabled = False
       End If
       MNU3.Enabled = False     '设置团会钥匙押金菜单项无效
       Else
         Data1(1).Recordset.FindFirst ("团会ID='" & left(List1(1).Text, 12) & "'")
         Data2(1).Recordset.FindFirst ("团会ID='" & left(List1(1).Text, 12) & "'")
         If Data1(1).Recordset.RecordCount > 0 Then
            MNU3.Enabled = True     '设置团会钥匙押金菜单项有效
            Command1(1).Enabled = True
            Else
              MNU3.Enabled = False     '设置团会钥匙押金菜单项有效
              Command1(1).Enabled = False
         End If
    End If
    
    List1_Click (SSTab1.Tab)
    If List1(SSTab1.Tab).ListCount > 0 Then
       If List1(SSTab1.Tab).Text = "" Then List1(SSTab1.Tab).ListIndex = 0
    End If
End Sub
Private Sub Text1_GotFocus(Index As Integer)
    Text1(Index).SelStart = 0
    Text1(Index).SelLength = Len(Text1(Index).Text)

End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    Dim STRVALID As String
    
    If KeyAscii = 13 Then
       If IsNumeric(Text1(SSTab1.Tab).Text) Then
          Text1(SSTab1.Tab).Text = FormatCurrency(Text1(SSTab1.Tab).Text, 2, vbTrue, , vbFalse)
          Label3(SSTab1.Tab).Caption = "金额<大写>人民币" + SUMDM(CDbl(Text1(SSTab1.Tab).Text)) + "。"
          Else
            Text1(SSTab1.Tab).Text = ""
            Label3(SSTab1.Tab).Caption = ""
       End If
    End If
    STRVALID = "0123456789.+-"
    If KeyAscii > 26 Then
       If InStr(STRVALID, Chr(KeyAscii)) = 0 Then
          KeyAscii = 0
       End If
    End If

End Sub

Private Sub Text1_Validate(Index As Integer, Cancel As Boolean)
    If IsNumeric(Text1(SSTab1.Tab).Text) Then
       Text1(SSTab1.Tab).Text = FormatCurrency(Text1(SSTab1.Tab).Text, 2, vbTrue, , vbFalse)
       Label3(SSTab1.Tab).Caption = "金额<大写>人民币" + SUMDM(CDbl(Text1(SSTab1.Tab).Text)) + "。"
       Else
         Text1(SSTab1.Tab).Text = ""
         Label3(SSTab1.Tab).Caption = ""
    End If
End Sub

Private Sub Text2_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(Text2(Index).Text)) > 0 Or Text2(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(Text2(Index).Text)) > 0 Or Text2(Index).Text = "" Then
                List1(SSTab1.Tab).AddItem RECTH("团会ID") + "  " + IIf(IsNull(RECTH("团会名称")), "", RECTH("团会名称"))
             End If
             RECTH.MoveNext
         Wend
    End If
End Sub

Private Sub Text2_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 "K"          ' 计算器
            MNU4_Click
        Case "M"
            MNU51_Click
        Case "N"          ' 退出
            Unload Me
    End Select
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -