jbbwin.frm

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

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)