📄 sksqwin.frm

📁 酒店系统源码。为了学习和研究软件内含的设计思想和原理
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
Private Sub Command3_Click()
    On Error GoTo BACKERROR

    If Check1.Value = 0 Then
       INTBC = MID(TreeView1.SelectedItem.Key, 2)
       SKSQTJ = "SELECT 团会结帐帐单.入住日期, 团会结帐帐单.离住日期, 团会结帐帐单.结帐类型, 团会结帐帐单.团会ID, 团会结帐帐单.团会名称, 团会结帐帐单.房号, 团会结帐帐单.团体人数, 团会结帐帐单.陪同人数, 团会结帐帐单.预付款, 团会结帐帐单.保证金, 团会结帐帐单.房费, 团会结帐帐单.商品, 团会结帐帐单.加床费, 团会结帐帐单.停车, 团会结帐帐单.电话, 团会结帐帐单.餐费, 团会结帐帐单.酒水, 团会结帐帐单.商务, 团会结帐帐单.会议, 团会结帐帐单.酒吧, 团会结帐帐单.舞厅, 团会结帐帐单.旅游, 团会结帐帐单.损失赔偿, 团会结帐帐单.其他, 团会结帐帐单.消费合计, 团会结帐帐单.结帐收现, -团会结帐帐单.余额 AS 赊欠金额, 团会结帐帐单.班次 From 团会结帐帐单 WHERE (((团会结帐帐单.余额)<>0)) AND ((团会结帐帐单.班次)=" & INTBC & ")"
       Else
         SKSQTJ = "SELECT 团会结帐帐单.入住日期, 团会结帐帐单.离住日期, 团会结帐帐单.结帐类型, 团会结帐帐单.团会ID, 团会结帐帐单.团会名称, 团会结帐帐单.房号, 团会结帐帐单.团体人数, 团会结帐帐单.陪同人数, 团会结帐帐单.预付款, 团会结帐帐单.保证金, 团会结帐帐单.房费, 团会结帐帐单.商品, 团会结帐帐单.加床费, 团会结帐帐单.停车, 团会结帐帐单.电话, 团会结帐帐单.餐费, 团会结帐帐单.酒水, 团会结帐帐单.商务, 团会结帐帐单.会议, 团会结帐帐单.酒吧, 团会结帐帐单.舞厅, 团会结帐帐单.旅游, 团会结帐帐单.损失赔偿, 团会结帐帐单.其他, 团会结帐帐单.消费合计, 团会结帐帐单.结帐收现, -团会结帐帐单.余额 AS 赊欠金额, 团会结帐帐单.班次 From 团会结帐帐单 WHERE (((团会结帐帐单.余额)<>0))"
    End If
    Load THSQPREVIEW
    THSQPREVIEW.Data1.RecordSource = SKSQTJ
    THSQPREVIEW.Show vbModal
    Unload Me
    Exit Sub
    
BACKERROR:
    If Err.Number = 3704 Or Err.Number = 3705 Or Err.Number = 3709 Then
       Resume Next
       Else
         MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "错误"
         Exit Sub
    End If

End Sub

Private Sub Command4_Click()
    On Error GoTo BACKERROR
    
    DBLRLJ = IIf(RECJBB("房费") <> 0, RECJBB("房费"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("商品") <> 0, RECJBB("商品"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("加床费") <> 0, RECJBB("加床费"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("餐费") <> 0, RECJBB("餐费"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("酒水") <> 0, RECJBB("酒水"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("停车") <> 0, RECJBB("停车"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("电话") <> 0, RECJBB("电话"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("商务") <> 0, RECJBB("商务"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("会议") <> 0, RECJBB("会议"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("酒吧") <> 0, RECJBB("酒吧"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("舞厅") <> 0, RECJBB("舞厅"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("旅游") <> 0, RECJBB("旅游"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("损失赔偿") <> 0, RECJBB("损失赔偿"), 0)
    DBLRLJ = DBLRLJ + IIf(RECJBB("其他") <> 0, RECJBB("其他"), 0)
    DBLYLJ = IIf(RECJBB("L房费") <> 0, RECJBB("L房费"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L商品") <> 0, RECJBB("L商品"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L加床费") <> 0, RECJBB("L加床费"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L餐费") <> 0, RECJBB("L餐费"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L酒水") <> 0, RECJBB("L酒水"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L停车") <> 0, RECJBB("L停车"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L电话") <> 0, RECJBB("L电话"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L商务") <> 0, RECJBB("L商务"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L会议") <> 0, RECJBB("L会议"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L酒吧") <> 0, RECJBB("L酒吧"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L舞厅") <> 0, RECJBB("L舞厅"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L旅游") <> 0, RECJBB("L旅游"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L损失赔偿") <> 0, RECJBB("L损失赔偿"), 0)
    DBLYLJ = DBLYLJ + IIf(RECJBB("L其他") <> 0, RECJBB("L其他"), 0)
    DBLXJSR = DBLRLJ - IIf(RECJBB("赊欠金额") <> 0, RECJBB("赊欠金额"), 0)
        
    '装入报表数据
    Load JBBPREVIEW
    JBBPREVIEW.RQ.Caption = IIf(IsNull(RECJBB("房费")), "", Format(RECJBB("日期"), "LONG DATE"))
    JBBPREVIEW.Label4(0).Caption = IIf(RECJBB("房费") <> 0, FormatNumber(RECJBB("房费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(1).Caption = IIf(RECJBB("商品") <> 0, FormatNumber(RECJBB("商品"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(2).Caption = IIf(RECJBB("加床费") <> 0, FormatNumber(RECJBB("加床费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(3).Caption = IIf(RECJBB("餐费") <> 0, FormatNumber(RECJBB("餐费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(4).Caption = IIf(RECJBB("酒水") <> 0, FormatNumber(RECJBB("酒水"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(5).Caption = IIf(RECJBB("停车") <> 0, FormatNumber(RECJBB("停车"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(6).Caption = IIf(RECJBB("电话") <> 0, FormatNumber(RECJBB("电话"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(7).Caption = IIf(RECJBB("会议") <> 0, FormatNumber(RECJBB("会议"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(8).Caption = IIf(RECJBB("商务") <> 0, FormatNumber(RECJBB("商务"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(9).Caption = IIf(RECJBB("舞厅") <> 0, FormatNumber(RECJBB("舞厅"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(10).Caption = IIf(RECJBB("酒吧") <> 0, FormatNumber(RECJBB("酒吧"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(11).Caption = IIf(RECJBB("旅游") <> 0, FormatNumber(RECJBB("旅游"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(12).Caption = IIf(RECJBB("损失赔偿") <> 0, FormatNumber(RECJBB("损失赔偿"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(13).Caption = IIf(RECJBB("其他") <> 0, FormatNumber(RECJBB("其他"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(0).Caption = IIf(RECJBB("L房费") <> 0, FormatNumber(RECJBB("L房费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(1).Caption = IIf(RECJBB("L商品") <> 0, FormatNumber(RECJBB("L商品"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(2).Caption = IIf(RECJBB("L加床费") <> 0, FormatNumber(RECJBB("L加床费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(3).Caption = IIf(RECJBB("L餐费") <> 0, FormatNumber(RECJBB("L餐费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(4).Caption = IIf(RECJBB("L酒水") <> 0, FormatNumber(RECJBB("L酒水"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(5).Caption = IIf(RECJBB("L停车") <> 0, FormatNumber(RECJBB("L停车"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(6).Caption = IIf(RECJBB("L电话") <> 0, FormatNumber(RECJBB("L电话"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(7).Caption = IIf(RECJBB("L会议") <> 0, FormatNumber(RECJBB("L会议"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(8).Caption = IIf(RECJBB("L商务") <> 0, FormatNumber(RECJBB("L商务"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(9).Caption = IIf(RECJBB("L舞厅") <> 0, FormatNumber(RECJBB("L舞厅"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(10).Caption = IIf(RECJBB("L酒吧") <> 0, FormatNumber(RECJBB("L酒吧"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(11).Caption = IIf(RECJBB("L旅游") <> 0, FormatNumber(RECJBB("L旅游"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(12).Caption = IIf(RECJBB("L损失赔偿") <> 0, FormatNumber(RECJBB("L损失赔偿"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(13).Caption = IIf(RECJBB("L其他") <> 0, FormatNumber(RECJBB("L其他"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(14).Caption = IIf(DBLRLJ <> 0, FormatNumber(DBLRLJ, 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(14).Caption = IIf(DBLYLJ <> 0, FormatNumber(DBLYLJ, 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label3(14).Caption = IIf(RECJBB("赊欠金额") <> 0, FormatNumber(RECJBB("赊欠金额"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label2(14).Caption = IIf(DBLXJSR <> 0, FormatNumber(DBLXJSR, 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.BZJLJ.Caption = IIf(RECJBB("保证金") <> 0, FormatNumber(RECJBB("保证金"), 2, vbTrue, , vbFalse), "")
    Unload JBBWIN1
    JBBPREVIEW.Show vbModal  '显示预览窗口
    Unload Me
    Exit Sub
    
BACKERROR:
    If Err.Number = 3704 Then
       Resume Next
       Else
         MsgBox CStr(Err.Number) & "-" & Err.Description
         Unload Me
    End If
    
End Sub

Private Sub Form_Load()
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECJBB = DATJDGL.OpenRecordset("SELECT * From 交班表 WHERE (((Year([日期]))=Year(Now())))", dbOpenDynaset)
    TreeView1.Nodes.Clear
    While Not RECJBB.EOF
        Set TEMPNODE = TreeView1.Nodes.Add(, , "A" & CStr(RECJBB("班次")), IIf(IsNull(RECJBB("日期")), "无日期", Format(RECJBB("日期"), "LONG DATE")) + "  操作员:" + IIf(IsNull(RECJBB("操作员")), "无名氏", RECJBB("操作员")) + "  班次:" + IIf(IsNull(RECJBB("班次")), "", CStr(RECJBB("班次"))))
        RECJBB.MoveNext
    Wend
    If RECJBB.RecordCount > 0 Then
       RECJBB.MoveFirst
       Set TEMPNODE = TreeView1.Nodes("A" & CStr(RECJBB("班次")))
       TEMPNODE.EnsureVisible
       TEMPNODE.Selected = True
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    RECJBB.FindFirst ("班次=" & MID(TreeView1.SelectedItem.Key, 2))

End Sub
上一页 12
⌨️ 快捷键说明

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