VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form JBBWIN 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "提示信息"
   ClientHeight    =   1305
   ClientLeft      =   690
   ClientTop       =   1740
   ClientWidth     =   5400
   ControlBox      =   0   'False
   Icon            =   "JBBWIN.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1305
   ScaleWidth      =   5400
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   30
      Left            =   3000
      Top             =   120
   End
   Begin VB.Timer Timer2 
      Interval        =   10
      Left            =   2160
      Top             =   120
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   1320
      Top             =   120
   End
   Begin DevPowerTransImg.TransImg TransImg1 
      Height          =   495
      Left            =   8880
      TabIndex        =   0
      Top             =   680
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   873
      AutoSize        =   0   'False
      MaskColor       =   16777215
      Transparent     =   -1  'True
   End
End
Attribute VB_Name = "JBBWIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    Dim DATJDGL As Database
    Dim RECWJBC As Recordset
    Dim RECMAXBC As Recordset
    Dim RECJBB As Recordset
    Dim RECYBB As Recordset
    Dim RECSKSQ As Recordset
    Dim RECTHSQ As Recordset
    Dim RECSKBZJ As Recordset
    Dim RECTHBZJ As Recordset
    Dim RECZDBZJ As Recordset
    Dim RECYDBZJ As Recordset
    Dim RECTHYJ As Recordset
    Dim SFJB As Boolean          '是否交班
    
Private Sub Form_Activate()
    If RECWJBC.RecordCount = 0 Then
       Unload Me
    End If

End Sub

Private Sub Form_Load()
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECWJBC = DATJDGL.OpenRecordset("SELECT 交班表.ID, 交班表.班次, 交班表.交班, 交班表.日期, 交班表.操作員, 交班表.保證金, 交班表.房費, 交班表.商品, 交班表.加床費, 交班表.停車, 交班表.電話, 交班表.餐費, 交班表.酒水, 交班表.商務, 交班表.會議, 交班表.酒吧, 交班表.舞廳, 交班表.旅游, 交班表.損失賠償, 交班表.其他, 交班表.L房費, 交班表.L商品, 交班表.L加床費, 交班表.L停車, 交班表.L電話, 交班表.L餐費, 交班表.L酒水, 交班表.L商務, 交班表.L會議, 交班表.L酒吧, 交班表.L舞廳, 交班表.L旅游, 交班表.L損失賠償, 交班表.L其他,交班表.賒欠金額, 交班表.附注 From 交班表 WHERE (((交班表.交班)=False))", dbOpenDynaset)
    
    Me.Hide
End Sub

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

Private Sub Timer1_Timer()    '調用進度顯示表單
    Timer1.Enabled = False
    Load JBBWIN1
    JBBWIN1.Show
    Timer3.Enabled = True
End Sub

Private Sub Timer2_Timer()     '打印交班表
    
    Timer2.Enabled = False
    
    On Error GoTo BACKERROR
    
    SFOK = MsgBox("請確認是否交班?", vbQuestion + vbYesNoCancel, "提示信息")
    If SFOK = vbCancel Then
       Unload Me
       Else
         If SFOK = vbNo Then
            If MsgBox("是否打印本班次收入報表?", vbQuestion + vbYesNo, "提示信息") = vbYes Then
               SFJB = False
               Timer1.Enabled = True
               Else
                 Unload Me
            End If
            Else
              SFJB = True
              Timer1.Enabled = True
         End If
    End If
    Exit Sub
    
BACKERROR:
    If Err.Number = 3704 Then
       Resume Next
    End If


End Sub

Private Sub Timer3_Timer()
    Timer3.Enabled = False
    Set RECMAXBC = DATJDGL.OpenRecordset("SELECT DISTINCTROW Max([交班表].[班次]) AS 班次 FROM 交班表", dbOpenDynaset)
    JBBTJ = "SELECT DISTINCTROW 結帳帳單.班次, 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 結帳帳單.班次 HAVING (((結帳帳單.班次)=" & RECWJBC("班次") & " ))"
    Set RECJBB = DATJDGL.OpenRecordset(JBBTJ, dbOpenDynaset)
    If RECJBB.RecordCount = 0 Then
       Unload JBBWIN1
       MsgBox "本日無業務收入!", vbInformation, "提示信息"
       Unload Me
       Exit Sub
    End If
    Set RECSKSQ = DATJDGL.OpenRecordset("SELECT DISTINCTROW 散客結帳帳單.班次, -Sum([余額]) AS 賒欠金額 From 散客結帳帳單 GROUP BY 散客結帳帳單.班次 HAVING (((散客結帳帳單.班次)=" & RECWJBC("班次") & "))", dbOpenDynaset)
    Set RECTHSQ = DATJDGL.OpenRecordset("SELECT DISTINCTROW 團會結帳帳單.班次, -Sum([余額]) AS 賒欠金額 From 團會結帳帳單 GROUP BY 團會結帳帳單.班次 HAVING (((團會結帳帳單.班次)=" & RECWJBC("班次") & "))", dbOpenDynaset)
    Set RECSKBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW Sum([散客登記表].[預付款]) AS 預付款 FROM 散客登記表", dbOpenDynaset)
    Set RECTHBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW Sum([團會登記表].[預付款]) AS 預付款 FROM 團會登記表", dbOpenDynaset)
    Set RECZDBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW Sum([客人帳單].[保證金]) AS 預付款 FROM 客人帳單", dbOpenDynaset)
    Set RECTHYJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW Sum([團會房間安排].[押金]) AS 預付款 FROM 團會房間安排", dbOpenDynaset)
    Set RECYDBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW Sum([預訂單].[預付款]) AS 預付款 FROM 預訂單", dbOpenDynaset)

    DBLBZJ = IIf(RECSKBZJ("預付款") <> 0, RECSKBZJ("預付款"), 0) + IIf(RECTHBZJ("預付款") <> 0, RECTHBZJ("預付款"), 0) + IIf(RECZDBZJ("預付款") <> 0, RECZDBZJ("預付款"), 0) + IIf(RECTHYJ("預付款") <> 0, RECTHYJ("預付款"), 0) + IIf(RECYDBZJ("預付款") <> 0, RECYDBZJ("預付款"), 0)