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