📄 fzgz.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form FZGZ
BorderStyle = 1 'Fixed Single
Caption = "房租夜审过帐"
ClientHeight = 6630
ClientLeft = 690
ClientTop = 1740
ClientWidth = 9990
Icon = "FZGZ.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6630
ScaleWidth = 9990
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "(&C) 取消"
Height = 375
Left = 1680
TabIndex = 4
Top = 120
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "(&S) 过帐"
Height = 375
Left = 360
TabIndex = 3
Top = 120
Width = 1095
End
Begin TabDlg.SSTab SSTab1
Height = 6015
Left = 0
TabIndex = 0
Top = 600
Width = 9975
_ExtentX = 17595
_ExtentY = 10610
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "散客"
TabPicture(0) = "FZGZ.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "DBGrid1(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Data1(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "团会"
TabPicture(1) = "FZGZ.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Data1(1)"
Tab(1).Control(1)= "DBGrid2"
Tab(1).Control(2)= "Label1(1)"
Tab(1).ControlCount= 3
Begin VB.Data Data1
Connect = "Access"
DatabaseName = "C:\JDGL\DATA\jdgl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Index = 0
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "住房散客登记"
Top = 5160
Visible = 0 'False
Width = 8625
End
Begin VB.Data Data1
Connect = "Access"
DatabaseName = "C:\JDGL\DATA\jdgl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Index = 1
Left = -74400
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "住房团会登记"
Top = 4320
Visible = 0 'False
Width = 5505
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "FZGZ.frx":047A
Height = 5175
Index = 0
Left = 240
OleObjectBlob = "FZGZ.frx":0491
TabIndex = 1
Top = 600
Width = 9495
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "FZGZ.frx":1533
Height = 5175
Left = -74760
OleObjectBlob = "FZGZ.frx":154A
TabIndex = 2
Top = 600
Width = 9495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 255
Index = 1
Left = -68040
TabIndex = 6
Top = 50
Width = 2535
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label1"
Height = 255
Index = 0
Left = 7080
TabIndex = 5
Top = 45
Width = 2535
End
End
End
Attribute VB_Name = "FZGZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECHJZT As Recordset
Dim RECHJAP As Recordset
Dim RECKRZD As Recordset
Private Sub Command1_Click()
SFOK = MsgBox("请确认是否马上进行房租过帐?", vbQuestion + vbYesNo, "提示信息")
If SFOK <> vbYes Then Exit Sub
Set RECKRZD = DATJDGL.OpenRecordset("客人帐单", dbOpenDynaset)
If Data1(0).Recordset.RecordCount > 0 Then Data1(0).Recordset.MoveFirst
If Data1(1).Recordset.RecordCount > 0 Then Data1(1).Recordset.MoveFirst
While Not Data1(0).Recordset.EOF
If Data1(0).Recordset("房费") <> 0 Then
RECKRZD.AddNew
RECKRZD("客人ID") = Data1(0).Recordset("客人ID")
RECKRZD("日期") = Now
RECKRZD("房费") = Data1(0).Recordset("房费")
RECKRZD("操作员") = frmLogin.CZYXM
RECKRZD("班次") = frmLogin.CZYBC
RECKRZD.Update
STRMARK = Data1(0).Recordset.Bookmark
Data1(0).Recordset.Edit
Data1(0).Recordset("计租日期") = Now
Data1(0).Recordset.Update
Data1(0).Recordset.Bookmark = STRMARK
End If
Data1(0).Recordset.MoveNext
Wend
While Not Data1(1).Recordset.EOF
If Data1(1).Recordset("房费") <> 0 Then
RECKRZD.AddNew
RECKRZD("团会ID") = Data1(1).Recordset("团会ID")
RECKRZD("日期") = Now
RECKRZD("房费") = Data1(1).Recordset("房费")
RECKRZD("操作员") = frmLogin.CZYXM
RECKRZD("班次") = frmLogin.CZYBC
RECKRZD.Update
STRMARK = Data1(1).Recordset.Bookmark
Data1(1).Recordset.Edit
Data1(1).Recordset("计租日期") = Now
Data1(1).Recordset.Update
Data1(1).Recordset.Bookmark = STRMARK
End If
Data1(1).Recordset.MoveNext
Wend
MsgBox "房租过帐完毕!", vbInformation, "提示信息"
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
' Set RECHJZT = DATJDGL.OpenRecordset("房间状态", dbOpenDynaset)
' If Data1(0).Recordset.RecordCount > 0 Then Data1(0).Recordset.MoveFirst
While Not Data1(0).Recordset.EOF
If Not IsNull(Data1(0).Recordset("房号")) Then
' STRFIND = "房号=" & Data1(0).Recordset("房号")
' Else
' STRFIND = "房号=999"
' End If
' RECHJZT.FindFirst (STRFIND)
' If Not RECHJZT.NoMatch Then
' CURFZF = RECHJZT("房价") * (1 - RECHJZT("折扣率")) * Int(Now - Data1(0).Recordset("计租日期"))
CURFZF = Data1(0).Recordset("房价") * Int(CDate(Format(Now, "SHORT DATE")) - CDate(Format(Data1(0).Recordset("计租日期"), "SHORT DATE")))
STRMARK = Data1(0).Recordset.Bookmark
Data1(0).Recordset.Edit
Data1(0).Recordset("房费") = CURFZF
Data1(0).Recordset.Update
Data1(0).Recordset.Bookmark = STRMARK
End If
Data1(0).Recordset.MoveNext
Wend
If Data1(1).Recordset.RecordCount > 0 Then Data1(1).Recordset.MoveFirst
While Not Data1(1).Recordset.EOF
STRFIND = "SELECT 团会房间安排.团会ID, 团会房间安排.房号,团会房间安排.房价 From 团会房间安排 WHERE (((团会房间安排.团会ID)='" & Data1(1).Recordset("团会ID") & "'))"
Set RECHJAP = DATJDGL.OpenRecordset(STRFIND, dbOpenDynaset)
CURFZF = 0
While Not RECHJAP.EOF
If Not IsNull(RECHJAP("房号")) Then
CURFZF = CURFZF + RECHJAP("房价") * Int(CDate(Format(Now, "SHORT DATE")) - CDate(Format(Data1(1).Recordset("计租日期"), "SHORT DATE")))
End If
RECHJAP.MoveNext
Wend
STRMARK = Data1(1).Recordset.Bookmark
Data1(1).Recordset.Edit
Data1(1).Recordset("房费") = CURFZF
Data1(1).Recordset.Update
Data1(1).Recordset.Bookmark = STRMARK
Data1(1).Recordset.MoveNext
Wend
End Sub
Private Sub Form_Load()
Data1(0).DatabaseName = App.Path & "\data\jdgl.mdb"
Data1(0).Refresh
Data1(1).DatabaseName = App.Path & "\data\jdgl.mdb"
Data1(1).Refresh
Label1(0).Caption = "结租日期:" + Format(Now, "LONG DATE")
Label1(1).Caption = "结租日期:" + Format(Now, "LONG DATE")
End Sub
Private Sub Form_Unload(Cancel As Integer)
DATJDGL.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -