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