📄 ybbwin.frm
字号:
VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form YBBWIN
BorderStyle = 3 'Fixed Dialog
Caption = "提示信息"
ClientHeight = 1305
ClientLeft = 690
ClientTop = 1740
ClientWidth = 5400
ControlBox = 0 'False
Icon = "YBBWIN.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 = "YBBWIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECYBB As Recordset
Dim RECLBB As Recordset
Private Sub Form_Load()
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
DATJDGL.Close
Set DATJDGL = Nothing
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 + vbYesNo, "提示信息")
If SFOK = vbNo Then
Unload Me
Else
Timer1.Enabled = True
End If
Exit Sub
BACKERROR:
If Err.Number = 3704 Then
Resume Next
End If
End Sub
Private Sub Timer3_Timer()
Dim DBLRLJ As Double, DBLYLJ As Double, DBLXJSR As Double
On Error GoTo BACKERROR
Timer3.Enabled = False
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 其他, Sum(交班表.赊欠金额) AS 赊欠金额 From 交班表 GROUP BY Year([日期]), Month([日期]) HAVING (((Year([日期]))=Year(Now())) AND ((Month([日期]))=Month(Now())))", dbOpenDynaset)
Set RECLBB = 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 其他, Sum(交班表.赊欠金额) AS 赊欠金额 From 交班表 GROUP BY Year([日期]), Month([日期]) HAVING (((Year([日期]))=Year(Now())) AND ((Month([日期]))<=Month(Now())))", dbOpenDynaset)
If RECYBB.RecordCount = 0 And RECLBB.RecordCount = 0 Then
Unload JBBWIN1
MsgBox "年初至本月没有业务收入!", vbInformation, "提示信息"
Unload Me
Exit Sub
End If
DBLRLJ = 0
DBLYLJ = 0
If RECYBB.RecordCount > 0 Then
DBLRLJ = IIf(RECYBB("房费") <> 0, RECYBB("房费"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("商品") <> 0, RECYBB("商品"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("加床费") <> 0, RECYBB("加床费"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("餐费") <> 0, RECYBB("餐费"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("酒水") <> 0, RECYBB("酒水"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("停车") <> 0, RECYBB("停车"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("电话") <> 0, RECYBB("电话"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("商务") <> 0, RECYBB("商务"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("会议") <> 0, RECYBB("会议"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("酒吧") <> 0, RECYBB("酒吧"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("舞厅") <> 0, RECYBB("舞厅"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("旅游") <> 0, RECYBB("旅游"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("损失赔偿") <> 0, RECYBB("损失赔偿"), 0)
DBLRLJ = DBLRLJ + IIf(RECYBB("其他") <> 0, RECYBB("其他"), 0)
DBLXJSR = DBLRLJ - IIf(RECYBB("赊欠金额") <> 0, RECYBB("赊欠金额"), 0)
End If
If RECLBB.RecordCount > 0 Then
DBLYLJ = IIf(RECLBB("房费") <> 0, RECLBB("房费"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("商品") <> 0, RECLBB("商品"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("加床费") <> 0, RECLBB("加床费"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("餐费") <> 0, RECLBB("餐费"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("酒水") <> 0, RECLBB("酒水"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("停车") <> 0, RECLBB("停车"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("电话") <> 0, RECLBB("电话"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("商务") <> 0, RECLBB("商务"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("会议") <> 0, RECLBB("会议"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("酒吧") <> 0, RECLBB("酒吧"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("舞厅") <> 0, RECLBB("舞厅"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("旅游") <> 0, RECLBB("旅游"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("损失赔偿") <> 0, RECLBB("损失赔偿"), 0)
DBLYLJ = DBLYLJ + IIf(RECLBB("其他") <> 0, RECLBB("其他"), 0)
End If
'装入报表数据
Load JBBPREVIEW
JBBPREVIEW.TITLE.Caption = "营业收入月报表"
If RECYBB.RecordCount > 0 Then
JBBPREVIEW.RQ.Caption = CStr(RECYBB("年")) & "年" & CStr(RECYBB("月")) & "月"
Else
JBBPREVIEW.RQ.Caption = " 年 月"
End If
JBBPREVIEW.BT1.Caption = "本月合计"
JBBPREVIEW.BT2.Caption = "本年累计"
If RECYBB.RecordCount > 0 Then
JBBPREVIEW.Label4(0).Caption = IIf(RECYBB("房费") <> 0, FormatNumber(RECYBB("房费"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(1).Caption = IIf(RECYBB("商品") <> 0, FormatNumber(RECYBB("商品"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(2).Caption = IIf(RECYBB("加床费") <> 0, FormatNumber(RECYBB("加床费"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(3).Caption = IIf(RECYBB("餐费") <> 0, FormatNumber(RECYBB("餐费"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(4).Caption = IIf(RECYBB("酒水") <> 0, FormatNumber(RECYBB("酒水"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(5).Caption = IIf(RECYBB("停车") <> 0, FormatNumber(RECYBB("停车"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(6).Caption = IIf(RECYBB("电话") <> 0, FormatNumber(RECYBB("电话"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(7).Caption = IIf(RECYBB("会议") <> 0, FormatNumber(RECYBB("会议"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(8).Caption = IIf(RECYBB("商务") <> 0, FormatNumber(RECYBB("商务"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(9).Caption = IIf(RECYBB("舞厅") <> 0, FormatNumber(RECYBB("舞厅"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(10).Caption = IIf(RECYBB("酒吧") <> 0, FormatNumber(RECYBB("酒吧"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(11).Caption = IIf(RECYBB("旅游") <> 0, FormatNumber(RECYBB("旅游"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(12).Caption = IIf(RECYBB("损失赔偿") <> 0, FormatNumber(RECYBB("损失赔偿"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label4(13).Caption = IIf(RECYBB("其他") <> 0, FormatNumber(RECYBB("其他"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label3(14).Caption = IIf(RECYBB("赊欠金额") <> 0, FormatNumber(RECYBB("赊欠金额"), 2, vbTrue, , vbFalse), "")
End If
If RECLBB.RecordCount > 0 Then
JBBPREVIEW.Label5(0).Caption = IIf(RECLBB("房费") <> 0, FormatNumber(RECLBB("房费"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(1).Caption = IIf(RECLBB("商品") <> 0, FormatNumber(RECLBB("商品"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(2).Caption = IIf(RECLBB("加床费") <> 0, FormatNumber(RECLBB("加床费"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(3).Caption = IIf(RECLBB("餐费") <> 0, FormatNumber(RECLBB("餐费"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(4).Caption = IIf(RECLBB("酒水") <> 0, FormatNumber(RECLBB("酒水"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(5).Caption = IIf(RECLBB("停车") <> 0, FormatNumber(RECLBB("停车"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(6).Caption = IIf(RECLBB("电话") <> 0, FormatNumber(RECLBB("电话"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(7).Caption = IIf(RECLBB("会议") <> 0, FormatNumber(RECLBB("会议"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(8).Caption = IIf(RECLBB("商务") <> 0, FormatNumber(RECLBB("商务"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(9).Caption = IIf(RECLBB("舞厅") <> 0, FormatNumber(RECLBB("舞厅"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(10).Caption = IIf(RECLBB("酒吧") <> 0, FormatNumber(RECLBB("酒吧"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(11).Caption = IIf(RECLBB("旅游") <> 0, FormatNumber(RECLBB("旅游"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(12).Caption = IIf(RECLBB("损失赔偿") <> 0, FormatNumber(RECLBB("损失赔偿"), 2, vbTrue, , vbFalse), "")
JBBPREVIEW.Label5(13).Caption = IIf(RECLBB("其他") <> 0, FormatNumber(RECLBB("其他"), 2, vbTrue, , vbFalse), "")
End If
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.Label2(14).Caption = IIf(DBLXJSR <> 0, FormatNumber(DBLXJSR, 2, vbTrue, , vbFalse), "")
Unload JBBWIN1
JBBPREVIEW.Show vbModal '显示预览窗口
RECYBB.Close
RECLBB.Close
Set RECYBB = Nothing
Set RECLBB = Nothing
Unload Me
Exit Sub
BACKERROR:
MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "误错信息"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -