?? 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 + -