VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form BZJWIN 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "提示信息"
   ClientHeight    =   1305
   ClientLeft      =   690
   ClientTop       =   1740
   ClientWidth     =   5400
   ControlBox      =   0   'False
   Icon            =   "BZJWIN.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 = "BZJWIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    Dim DATJDGL As Database
    Dim RECSBZJ As Recordset
    Dim RECTBZJ As Recordset
    Dim RECYBZJ As Recordset
    Dim RECYSYJ As Recordset
    Dim RECBZJ As Recordset

Private Sub Form_Activate()
    Load BZJPREVIEW
End Sub

Private Sub Form_Load()
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Load JBBWIN1
    JBBWIN1.Show
    Timer3.Enabled = True

End Sub

Private Sub Timer2_Timer()
    Timer1.Enabled = True
    Timer2.Enabled = False

End Sub

Private Sub Timer3_Timer()
'    On Error GoTo BACKERROR

    Set RECSBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW 散客登記表.客人ID AS 編號, 散客登記表.姓名 AS 名稱, '散客保證金' AS 類型, 散客登記表.預付款, Sum(客人帳單.保證金) AS 保證金, IIf([預付款]<>0,[預付款],0)+IIf([保證金]<>0,[保證金],0) AS 金額 FROM 散客登記表 LEFT JOIN 客人帳單 ON 散客登記表.客人ID = 客人帳單.客人ID GROUP BY 散客登記表.客人ID, 散客登記表.姓名, '散客保證金', 散客登記表.預付款", dbOpenDynaset)
    Set RECTBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW 團會登記表.團會ID AS 編號, 團會登記表.團會名稱 AS 名稱, '團會保證金' AS 類型, 團會登記表.預付款, Sum(客人帳單.保證金) AS 保證金, IIf([預付款]<>0,[預付款],0)+IIf([保證金]<>0,[保證金],0) AS 金額 FROM 團會登記表 LEFT JOIN 客人帳單 ON 團會登記表.團會ID = 客人帳單.團會ID GROUP BY 團會登記表.團會ID, 團會登記表.團會名稱, '團會保證金', 團會登記表.預付款", dbOpenDynaset)
    Set RECYBZJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW 預訂單.定房卡號 AS 編號, 預訂單.姓名 AS 名稱, '預訂金' AS 類型, 預訂單.預付款 AS 金額 From 預訂單 GROUP BY 預訂單.定房卡號, 預訂單.姓名, '預訂金', 預訂單.預付款 HAVING (((預訂單.預付款)<>0))", dbOpenDynaset)
    Set RECYSYJ = DATJDGL.OpenRecordset("SELECT DISTINCTROW 團會登記表.團會ID AS 編號, 團會房間安排.姓名 AS 名稱, '鑰匙押金' AS 類型, 團會房間安排.押金 AS 金額 FROM 團會登記表 LEFT JOIN 團會房間安排 ON 團會登記表.團會ID = 團會房間安排.團會ID GROUP BY 團會登記表.團會ID, 團會房間安排.姓名, '鑰匙押金', 團會房間安排.押金 HAVING (((團會房間安排.押金)<>0))", dbOpenDynaset)
    
    DATJDGL.Execute ("DELETE FROM 當前保證金")
    While Not RECSBZJ.EOF
        If RECSBZJ("金額") <> 0 Then
           MBH = RECSBZJ("編號")
           MMC = IIf(IsNull(RECSBZJ("名稱")), "無名氏", RECSBZJ("名稱"))
           MLX = IIf(IsNull(RECSBZJ("類型")), "", RECSBZJ("類型"))
           MJE = IIf(IsNull(RECSBZJ("金額")), "", RECSBZJ("金額"))
           DD = "'" + MBH + "','" + MMC + "','" + MLX + "'," + CStr(MJE)
           DATJDGL.Execute "INSERT INTO 當前保證金 " & "(編號,名稱,類型,金額) VALUES (" & DD & ")"
        End If
        RECSBZJ.MoveNext
    Wend
    While Not RECTBZJ.EOF
        If RECTBZJ("金額") <> 0 Then
           MBH = RECTBZJ("編號")
           MMC = IIf(IsNull(RECTBZJ("名稱")), "無名氏", RECTBZJ("名稱"))
           MLX = IIf(IsNull(RECTBZJ("類型")), "", RECTBZJ("類型"))
           MJE = IIf(IsNull(RECTBZJ("金額")), "", RECTBZJ("金額"))
           DD = "'" + MBH + "','" + MMC + "','" + MLX + "'," + CStr(MJE)
           DATJDGL.Execute "INSERT INTO 當前保證金 " & "(編號,名稱,類型,金額) VALUES (" & DD & ")"
        End If
        RECTBZJ.MoveNext
    Wend
    While Not RECYSYJ.EOF
        MBH = RECYSYJ("編號")
        MMC = IIf(IsNull(RECYSYJ("名稱")), "無名氏", RECYSYJ("名稱"))
        MLX = IIf(IsNull(RECYSYJ("類型")), "", RECYSYJ("類型"))
        MJE = IIf(IsNull(RECYSYJ("金額")), "", RECYSYJ("金額"))
        DD = "'" + MBH + "','" + MMC + "','" + MLX + "'," + CStr(MJE)
        DATJDGL.Execute "INSERT INTO 當前保證金 " & "(編號,名稱,類型,金額) VALUES (" & DD & ")"
        RECYSYJ.MoveNext
    Wend
    While Not RECYBZJ.EOF
        MBH = RECYBZJ("編號")
        MMC = IIf(IsNull(RECYBZJ("名稱")), "無名氏", RECYBZJ("名稱"))
        MLX = IIf(IsNull(RECYBZJ("類型")), "", RECYBZJ("類型"))
        MJE = IIf(IsNull(RECYBZJ("金額")), "", RECYBZJ("金額"))
        DD = "'" + MBH + "','" + MMC + "','" + MLX + "'," + CStr(MJE)
        DATJDGL.Execute "INSERT INTO 當前保證金 " & "(編號,名稱,類型,金額) VALUES (" & DD & ")"
        RECYBZJ.MoveNext
    Wend
    Set RECBZJ = DATJDGL.OpenRecordset("當前保證金", dbOpenDynaset)
    If RECBZJ.RecordCount = 0 Then
       Unload JBBWIN1
       MsgBox "經查無保證金明細記錄!", vbInformation, "提示信息"
       Unload Me
       Exit Sub
    End If
    RECBZJ.MoveLast
    If RECBZJ.RecordCount Mod 22 <> 0 Then
       For A = 1 To 22 - RECBZJ.RecordCount Mod 22 Step 1
           RECBZJ.AddNew
           RECBZJ.Update
       Next A
    End If
    RECBZJ.Requery
    RECBZJ.MoveLast
    c = RECBZJ.RecordCount
    RECBZJ.MoveFirst
    For A = 1 To c / 22 Step 1
        For b = 1 To 22 Step 1
            MYMARK = RECBZJ.Bookmark
            RECBZJ.Edit
            RECBZJ("頁碼") = A
            RECBZJ.Update
            RECBZJ.Bookmark = MYMARK
            If RECBZJ.EOF Then
               Exit For
               Else
                 RECBZJ.MoveNext
            End If
        Next b
    Next A
    Unload JBBWIN1
    BZJPREVIEW.Show vbModal
    Unload Me
    Exit Sub
    
BACKERROR:
    If Err.Number = 3704 Then
       Resume Next
       Else
         MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "錯誤信息"
         Unload Me
    End If

End Sub