📄 frmoldguestlist.frm
字号:
Height = 735
Left = -71880
TabIndex = 1
Top = 3840
Width = 1695
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 2
Top = 240
Width = 1455
End
End
Begin MSComctlLib.ListView l
Height = 3255
Left = -74880
TabIndex = 7
ToolTipText = "Double Click to Update"
Top = 480
Width = 9135
_ExtentX = 16113
_ExtentY = 5741
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
TextBackground = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Room Trans No."
Object.Width = 2822
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Trans Date"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Guest ID"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Room No."
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "Checkout Date"
Object.Width = 2822
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "Total Charges"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ListView ll
Height = 3255
Left = 120
TabIndex = 8
ToolTipText = "Double Click to Update"
Top = 480
Width = 9135
_ExtentX = 16113
_ExtentY = 5741
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
TextBackground = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Room Res No."
Object.Width = 2822
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Guest ID"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Room No"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Reservation Date"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "Date Reserved"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "Checkout Date"
Object.Width = 2822
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 480
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOldGuestList.frx":0BFA
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmViewArchive"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strno As String
Dim strnoo As String
Dim ronald As String
Dim ronaldo As String
Private Sub Command1_Click()
If ronald = "guapo" Then
Cnn.Execute "update room_transaction set lenght_of_stay = '" & DTPicker1.Value & "' where room_trans_no = " & strno
Cnn.Execute "update archive set checkout_date = '" & DTPicker1.Value & "' where room_trans_no = " & strno
fillt
MsgBox "Checkout Date in transaction Updated!", vbInformation, "IIS-CVH"
ronald = "pangit"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
If ronaldo = "guapo" Then
Cnn.Execute "update room_reservation set lenght_of_stay = '" & DTPicker2.Value & "' where room_res_no = " & strnoo
'Cnn.Execute "update archive set checkout_date = '" & Text1.Text & "' where room_trans_no = " & strno
filll
MsgBox "Checkout Date in reservation Updated!", vbInformation, "IIS-CVH"
ronaldo = "pangit"
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
filll
check_RS
rs.Open "select * from room_transaction order by room_trans_no asc", Cnn
fillt
DTPicker1.Value = Date
DTPicker2.Value = Date
End Sub
Private Sub fillt()
On Error GoTo r
check_RS
rs.Open "select * from room_transaction", Cnn
'check_RS
'rs.Open "select * from archive where archive.guest_id = " & lblGC, Cnn
l.ListItems.Clear
l.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
l.Refresh
l.ListItems.Add
l.ListItems(i).Text = rs(0).Value
l.ListItems(i).SubItems(1) = rs(1).Value
l.ListItems(i).SubItems(2) = rs(2).Value
l.ListItems(i).SubItems(3) = rs(3).Value
l.ListItems(i).SubItems(4) = rs(4).Value
l.ListItems(i).SubItems(5) = rs(5).Value
'l.ListItems(i).SubItems(5) = rs(6).Value
i = i + 1
rs.MoveNext
Wend
r:
End Sub
Private Sub filll()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(6) = "Not Confirmed" Then
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
'll.ListItems(i).SubItems(6) = rs(6).Value
i = i + 1
End If
rs.MoveNext
Wend
End Sub
Private Sub l_Click()
On Error GoTo r
ronald = "guapo"
check_RS
rs.Open "select * from room_transaction order by room_trans_no asc", Cnn
While Not rs.EOF
If l.SelectedItem.Text = rs!room_trans_no Then
Label1.Caption = rs!guest_id
Label2.Caption = rs!room_no
DTPicker1.Value = rs!lenght_of_stay
strno = rs!room_trans_no
rs.MoveLast
rs.MoveNext
Else
rs.MoveNext
End If
Wend
r:
End Sub
Private Sub ll_Click()
On Error GoTo r
ronaldo = "guapo"
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
While Not rs.EOF
If rs.Fields(6) = "Not Confirmed" Then
If ll.SelectedItem.Text = rs!room_res_no Then
Label4.Caption = rs!guest_id
Label3.Caption = rs!room_no
DTPicker2.Value = rs!lenght_of_stay
strnoo = rs!room_res_no
rs.MoveLast
rs.MoveNext
Else
rs.MoveNext
End If
End If
Wend
r:
End Sub
Private Sub Text1_GotFocus() '(KeyAscii As Integer)
DTPicker1.Visible = True
'If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii <= vbKeyBack Then
' Exit Sub
' Else
' KeyAscii = 0
' End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -