jbbwin.frm

计算机学位毕业设计 客房管理系统 无解压密码

    RECWJBC.Edit
    RECWJBC("日期") = Now
    RECWJBC("保证金") = DBLBZJ
    If RECSKSQ.RecordCount > 0 And RECTHSQ.RecordCount > 0 Then
       RECWJBC("赊欠金额") = RECSKSQ("赊欠金额") + RECTHSQ("赊欠金额")
       Else
         If RECSKSQ.RecordCount > 0 Then
            RECWJBC("赊欠金额") = RECSKSQ("赊欠金额")
            Else
              If RECTHSQ.RecordCount > 0 Then
                 RECWJBC("赊欠金额") = RECTHSQ("赊欠金额")
              End If
         End If
    End If
    RECWJBC("房费") = RECJBB("房费")
    RECWJBC("商品") = RECJBB("商品")
    RECWJBC("加床费") = RECJBB("加床费")
    RECWJBC("餐费") = RECJBB("餐费")
    RECWJBC("酒水") = RECJBB("酒水")
    RECWJBC("停车") = RECJBB("停车")
    RECWJBC("电话") = RECJBB("电话")
    RECWJBC("商务") = RECJBB("商务")
    RECWJBC("会议") = RECJBB("会议")
    RECWJBC("酒吧") = RECJBB("酒吧")
    RECWJBC("舞厅") = RECJBB("舞厅")
    RECWJBC("旅游") = RECJBB("旅游")
    RECWJBC("损失赔偿") = RECJBB("损失赔偿")
    RECWJBC("其他") = RECJBB("其他")
    RECWJBC.Update
    Set RECYBB = DATJDGL.OpenRecordset("SELECT DISTINCTROW Year([交班表].[日期]) AS 年, Month([交班表].[日期]) AS 月, Sum(交班表.房费) AS 房费, Sum(交班表.商品) AS 商品, Sum(交班表.加床费) AS 加床费, Sum(交班表.停车) AS 停车, Sum(交班表.电话) AS 电话, Sum(交班表.餐费) AS 餐费, Sum(交班表.酒水) AS 酒水, Sum(交班表.商务) AS 商务, Sum(交班表.会议) AS 会议, Sum(交班表.酒吧) AS 酒吧, Sum(交班表.舞厅) AS 舞厅, Sum(交班表.旅游) AS 旅游, Sum(交班表.损失赔偿) AS 损失赔偿, Sum(交班表.其他) AS 其他 From 交班表 GROUP BY Year([交班表].[日期]), Month([交班表].[日期]) HAVING (((Year([交班表].[日期]))=Year(Now())) AND ((Month([交班表].[日期]))=Month(Now())))", dbOpenDynaset)
    RECWJBC.MoveFirst
    RECWJBC.Edit
    RECWJBC("L房费") = RECYBB("房费")
    RECWJBC("L商品") = RECYBB("商品")
    RECWJBC("L加床费") = RECYBB("加床费")
    RECWJBC("L餐费") = RECYBB("餐费")
    RECWJBC("L酒水") = RECYBB("酒水")
    RECWJBC("L停车") = RECYBB("停车")
    RECWJBC("L电话") = RECYBB("电话")
    RECWJBC("L商务") = RECYBB("商务")
    RECWJBC("L会议") = RECYBB("会议")
    RECWJBC("L酒吧") = RECYBB("酒吧")
    RECWJBC("L舞厅") = RECYBB("舞厅")
    RECWJBC("L旅游") = RECYBB("旅游")
    RECWJBC("L损失赔偿") = RECYBB("损失赔偿")
    RECWJBC("L其他") = RECYBB("其他")
    RECWJBC.Update
    RECWJBC.MoveFirst
    DBLRLJ = IIf(RECWJBC("房费") <> 0, RECWJBC("房费"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("商品") <> 0, RECWJBC("商品"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("加床费") <> 0, RECWJBC("加床费"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("餐费") <> 0, RECWJBC("餐费"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("酒水") <> 0, RECWJBC("酒水"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("停车") <> 0, RECWJBC("停车"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("电话") <> 0, RECWJBC("电话"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("商务") <> 0, RECWJBC("商务"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("会议") <> 0, RECWJBC("会议"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("酒吧") <> 0, RECWJBC("酒吧"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("舞厅") <> 0, RECWJBC("舞厅"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("旅游") <> 0, RECWJBC("旅游"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("损失赔偿") <> 0, RECWJBC("损失赔偿"), 0)
    DBLRLJ = DBLRLJ + IIf(RECWJBC("其他") <> 0, RECWJBC("其他"), 0)
    DBLYLJ = IIf(RECWJBC("L房费") <> 0, RECWJBC("L房费"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L商品") <> 0, RECWJBC("L商品"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L加床费") <> 0, RECWJBC("L加床费"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L餐费") <> 0, RECWJBC("L餐费"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L酒水") <> 0, RECWJBC("L酒水"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L停车") <> 0, RECWJBC("L停车"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L电话") <> 0, RECWJBC("L电话"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L商务") <> 0, RECWJBC("L商务"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L会议") <> 0, RECWJBC("L会议"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L酒吧") <> 0, RECWJBC("L酒吧"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L舞厅") <> 0, RECWJBC("L舞厅"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L旅游") <> 0, RECWJBC("L旅游"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L损失赔偿") <> 0, RECWJBC("L损失赔偿"), 0)
    DBLYLJ = DBLYLJ + IIf(RECWJBC("L其他") <> 0, RECWJBC("L其他"), 0)
    DBLXJSR = DBLRLJ - IIf(RECWJBC("赊欠金额") <> 0, RECWJBC("赊欠金额"), 0)

    '装入报表数据
    Load JBBPREVIEW
    JBBPREVIEW.Label4(0).Caption = IIf(RECWJBC("房费") <> 0, FormatNumber(RECWJBC("房费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(1).Caption = IIf(RECWJBC("商品") <> 0, FormatNumber(RECWJBC("商品"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(2).Caption = IIf(RECWJBC("加床费") <> 0, FormatNumber(RECWJBC("加床费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(3).Caption = IIf(RECWJBC("餐费") <> 0, FormatNumber(RECWJBC("餐费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(4).Caption = IIf(RECWJBC("酒水") <> 0, FormatNumber(RECWJBC("酒水"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(5).Caption = IIf(RECWJBC("停车") <> 0, FormatNumber(RECWJBC("停车"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(6).Caption = IIf(RECWJBC("电话") <> 0, FormatNumber(RECWJBC("电话"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(7).Caption = IIf(RECWJBC("会议") <> 0, FormatNumber(RECWJBC("会议"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(8).Caption = IIf(RECWJBC("商务") <> 0, FormatNumber(RECWJBC("商务"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(9).Caption = IIf(RECWJBC("舞厅") <> 0, FormatNumber(RECWJBC("舞厅"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(10).Caption = IIf(RECWJBC("酒吧") <> 0, FormatNumber(RECWJBC("酒吧"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(11).Caption = IIf(RECWJBC("旅游") <> 0, FormatNumber(RECWJBC("旅游"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(12).Caption = IIf(RECWJBC("损失赔偿") <> 0, FormatNumber(RECWJBC("损失赔偿"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label4(13).Caption = IIf(RECWJBC("其他") <> 0, FormatNumber(RECWJBC("其他"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(0).Caption = IIf(RECWJBC("L房费") <> 0, FormatNumber(RECWJBC("L房费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(1).Caption = IIf(RECWJBC("L商品") <> 0, FormatNumber(RECWJBC("L商品"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(2).Caption = IIf(RECWJBC("L加床费") <> 0, FormatNumber(RECWJBC("L加床费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(3).Caption = IIf(RECWJBC("L餐费") <> 0, FormatNumber(RECWJBC("L餐费"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(4).Caption = IIf(RECWJBC("L酒水") <> 0, FormatNumber(RECWJBC("L酒水"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(5).Caption = IIf(RECWJBC("L停车") <> 0, FormatNumber(RECWJBC("L停车"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(6).Caption = IIf(RECWJBC("L电话") <> 0, FormatNumber(RECWJBC("L电话"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(7).Caption = IIf(RECWJBC("L会议") <> 0, FormatNumber(RECWJBC("L会议"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(8).Caption = IIf(RECWJBC("L商务") <> 0, FormatNumber(RECWJBC("L商务"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(9).Caption = IIf(RECWJBC("L舞厅") <> 0, FormatNumber(RECWJBC("L舞厅"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(10).Caption = IIf(RECWJBC("L酒吧") <> 0, FormatNumber(RECWJBC("L酒吧"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(11).Caption = IIf(RECWJBC("L旅游") <> 0, FormatNumber(RECWJBC("L旅游"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(12).Caption = IIf(RECWJBC("L损失赔偿") <> 0, FormatNumber(RECWJBC("L损失赔偿"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label5(13).Caption = IIf(RECWJBC("L其他") <> 0, FormatNumber(RECWJBC("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(RECWJBC("赊欠金额") <> 0, FormatNumber(RECWJBC("赊欠金额"), 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.Label2(14).Caption = IIf(DBLXJSR <> 0, FormatNumber(DBLXJSR, 2, vbTrue, , vbFalse), "")
    JBBPREVIEW.BZJLJ.Caption = IIf(RECWJBC("保证金") <> 0, FormatNumber(RECWJBC("保证金"), 2, vbTrue, , vbFalse), "")
    Unload JBBWIN1
    JBBPREVIEW.Show vbModal  '显示预览窗口
    If SFJB Then
       RECWJBC.Edit
       RECWJBC("交班") = True
       RECWJBC("操作员") = frmLogin.CZYXM
       RECWJBC.Update
       RECWJBC.Requery
       RECMAXBC.Requery
        '交班后重定义当前操作员班次
       If RECWJBC.RecordCount = 0 Then
          If RECMAXBC.RecordCount = 0 Then
             RECWJBC.AddNew
             RECWJBC("班次") = 1
             RECWJBC.Update
             frmLogin.CZYBC = 1
             Else
               frmLogin.CZYBC = IIf(IsNull(RECMAXBC("班次")), 0, RECMAXBC("班次")) + 1
               RECWJBC.AddNew
               RECWJBC("班次") = frmLogin.CZYBC
               RECWJBC.Update
          End If
          Else
            frmLogin.CZYBC = RECWJBC("班次")
       End If
       SMAIN.StatusBar1.Panels(1).Text = "操作员:" & frmLogin.CZYXM + "  总班次:" + CStr(frmLogin.CZYBC)
    End If
    Unload Me

End Sub