📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
ClientHeight = 2085
ClientLeft = 120
ClientTop = -180
ClientWidth = 8955
ControlBox = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2085
ScaleWidth = 8955
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 6000
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0BC2
Key = ""
EndProperty
EndProperty
End
Begin VB.Timer T1
Interval = 100
Left = 7800
Top = 1080
End
Begin MSComctlLib.ImageList Toolbar
Left = 8280
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1014
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":18EE
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1AEA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23C4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2C9E
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3578
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3892
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3BAC
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4486
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":5058
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tb
Align = 1 'Align Top
Height = 1650
Left = 0
TabIndex = 0
Top = 0
Width = 8955
_ExtentX = 15796
_ExtentY = 2910
ButtonWidth = 2593
ButtonHeight = 1376
Appearance = 1
ImageList = "Toolbar"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Update"
Key = "update"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Maintenance"
Key = "maintenance"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Reservations"
Key = "reservation"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Room Transactions"
Key = "transaction"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Restaurant Order"
Key = "restaurant"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Bar"
Key = "Bar"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Pool"
Key = "pool"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "View"
Key = "view"
ImageIndex = 9
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Exit"
Key = "shutdown"
ImageIndex = 10
EndProperty
EndProperty
OLEDropMode = 1
End
Begin VB.Menu mnuAdd
Caption = "&Add"
Visible = 0 'False
Begin VB.Menu mnuGuest
Caption = "&Guest"
End
Begin VB.Menu mnuroom
Caption = "&Room"
End
Begin VB.Menu mnuFRoom
Caption = "&Banquet"
End
Begin VB.Menu mnumeals
Caption = "&Meals"
End
Begin VB.Menu mnuOthers
Caption = "&Function/Setup/Engineering"
End
Begin VB.Menu mnuOthers2
Caption = "&Food/Liquor/Pool"
End
End
Begin VB.Menu mnuMaintenance
Caption = "&Maintenance"
Visible = 0 'False
Begin VB.Menu mnuAdmin
Caption = "&Admin"
End
End
Begin VB.Menu mnuTransaction
Caption = "&Transaction"
Visible = 0 'False
Begin VB.Menu mnuIn
Caption = "&Check In"
End
Begin VB.Menu mnutransfer
Caption = "&Transfer"
End
Begin VB.Menu mnuout
Caption = "C&heckout"
End
End
Begin VB.Menu mnuRes
Caption = "&Reservation"
Visible = 0 'False
Begin VB.Menu mnuResRoom
Caption = "&Room"
End
Begin VB.Menu mnubanquetres
Caption = "&Banquet"
End
Begin VB.Menu mnuConfirmation
Caption = "&Confirmation"
End
End
Begin VB.Menu mnuview
Caption = "&View"
Visible = 0 'False
Begin VB.Menu mnuRStatus
Caption = "Room Status"
End
Begin VB.Menu mnuRep
Caption = "Reports"
End
Begin VB.Menu mnuArchive
Caption = "In and Out Guest"
End
Begin VB.Menu mnuRT
Caption = "Room Updation"
End
Begin VB.Menu mnuD
Caption = "Developers"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public m As String
Public nad As String
Public sw1, seed, eks, way, a, b, c, d, e, f, G, beat, x, z As Integer
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub mnuArchive_Click()
Load frmINOUT
frmINOUT.Show 1
End Sub
Private Sub mnuD_Click()
Load Form1
Form1.Show 1
End Sub
Private Sub mnuRep_Click()
Load frmReports
frmReports.Show 1
End Sub
Private Sub mnuRoom_Click()
Load frmRoom
frmRoom.Show 1
End Sub
Private Sub Form_Load()
check_RS
rs.Open "select * from guest", Cnn
End Sub
Private Sub mnubanquetres_click()
Load frmBanquetRes
frmBanquetRes.Show 1
End Sub
Private Sub mnuConfirmation_Click()
Load frmConfirmation
frmConfirmation.Show 1
End Sub
Private Sub mnuguest_click()
Load frmGuestData
frmGuestData.Show 1
End Sub
Private Sub mnumeals_click()
Load frmMeal
frmMeal.Show 1
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuOthers_Click()
Load frmOthers
frmOthers.Show 1
End Sub
Private Sub mnuEmployee_Click()
Load frmEmployee
frmEmployee.Show 1
End Sub
Private Sub mnuOut_Click()
Load frmCheckout
frmCheckout.Show 1
End Sub
Private Sub mnuResRoom_Click()
Load Reservation
Reservation.Show 1
End Sub
Private Sub mnuothers2_Click()
Load frmOthers2
frmOthers2.Show 1
End Sub
Private Sub mnuFRoom_Click()
Load frmFuncRoom
frmFuncRoom.Show 1
End Sub
Private Sub mnuIn_Click()
Load frmCheckin
frmCheckin.Show 1
End Sub
Private Sub mnubar_Click()
Load frmBar
frmBar.Show 1
End Sub
Private Sub mnuRStatus_Click()
Load RoomStatus
RoomStatus.Show 1
End Sub
Private Sub mnuRT_Click()
Load frmViewArchive
frmViewArchive.Show 1
End Sub
Private Sub mnutransfer_Click()
Load frmRoomTransfer
frmRoomTransfer.Show 1
End Sub
Private Sub tb_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
'=======
Case "update"
PopupMenu mnuAdd
'=======
Case "maintenance"
nad = "open"
'Load frmAdminArea
If nad = "open" Then
Load frmMain
frmAdminArea.Show 1 'vbModal
Else
Load frmMain
frmAdminArea.Show 1 'vbModal
End If
'=======
Case "reservation"
PopupMenu mnuRes
'=======
Case "transaction"
PopupMenu mnuTransaction
'=======
Case "restaurant"
Load frmRestaurant
frmRestaurant.Show 1
Case "Bar"
Load frmBar
frmBar.Show 1
'=======
Case "pool"
Load frmPool
frmPool.Show 1
'=======
Case "view"
PopupMenu mnuview
'======
Case "shutdown"
'ans = MsgBox("Are you sure you want to shutdown the system?", vbYesNo + vbExclamation, "Quit System?")
' If ans = vbYes Then
End
' Else
' Exit Sub
' End If
End Select
End Sub
Public Sub GenerateOut(thedate As Date)
check_RS
rs.Open "exec out #" & thedate & "#", Cnn ', adOpenDynamic, adLockOptimistic
With rptout
Set .DataSource = rs
With .Sections("Section4").Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptLabel Then
If .Item(i).Name = "lbldate" Then
.Item(i).Caption = thedate
End If
End If
Next i
End With
.Refresh
'Unload frmReports
.Show vbModal
End With
rs.Close
End Sub
Public Sub GenerateIn(thedate As Date)
check_RS2
rs2.Open "exec CIN #" & thedate & "#", Cnn ', adOpenDynamic, adLockOptimistic
With rptIn
Set .DataSource = rs2
With .Sections("Section4").Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptLabel Then
If .Item(i).Name = "lblDate" Then
.Item(i).Caption = thedate
End If
End If
Next i
End With
.Refresh
'Unload frmReports
.Show vbModal
End With
rs2.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -