📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H00FFFFFF&
Caption = "MDIForm1"
ClientHeight = 9945
ClientLeft = 165
ClientTop = 855
ClientWidth = 13215
LinkTopic = "MDIForm1"
Picture = "MDIForm1.frx":0000
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Interval = 400
Left = 11520
Top = 3840
End
Begin VB.Timer Timer1
Interval = 1000
Left = 0
Top = 3840
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 855
Left = 0
TabIndex = 1
Top = 9090
Width = 13215
_ExtentX = 23310
_ExtentY = 1508
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Bevel = 0
Object.Width = 5741
Text = "酒店管理系统"
TextSave = "酒店管理系统"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "062255"
TextSave = "062255"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "李振"
TextSave = "李振"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 6094
MinWidth = 2893
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5741
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "华文行楷"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 1800
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 122
ImageHeight = 96
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":10484
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":13FEF
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":17D29
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1F4D7
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":212D6
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":2B31D
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":31467
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":3692E
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1815
Left = 0
TabIndex = 0
Top = 0
Width = 13215
_ExtentX = 23310
_ExtentY = 3201
ButtonWidth = 3413
ButtonHeight = 3043
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客房查询"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "续住"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "入住登记"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客房预定"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "结账"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "会员注册"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退房"
ImageIndex = 8
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
ImageIndex = 7
EndProperty
EndProperty
End
Begin VB.Menu rzdj
Caption = "入住登记"
Begin VB.Menu dj
Caption = "客户登记"
End
Begin VB.Menu kfxx
Caption = "客房信息"
End
Begin VB.Menu khrzxx
Caption = "客户入住信息"
End
End
Begin VB.Menu hygl
Caption = "会员管理"
Begin VB.Menu hyxx
Caption = "会员信息"
End
Begin VB.Menu hyzc
Caption = "会员注册"
End
End
Begin VB.Menu kfyd
Caption = "客房预定"
End
Begin VB.Menu jz
Caption = "结账"
End
Begin VB.Menu czygl
Caption = "操作员管理"
Begin VB.Menu glyzc
Caption = "管理员注册"
End
Begin VB.Menu xgmm
Caption = "修改密码"
End
End
Begin VB.Menu bz
Caption = "帮助"
End
Begin VB.Menu tc
Caption = "退出"
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim n As Integer
Private Sub bz_Click()
Form10.Show
End Sub
Private Sub dj_Click()
Form8.Show
End Sub
Private Sub glyzc_Click()
Form3.Show
End Sub
Private Sub hyxx_Click()
Form4.Show
End Sub
Private Sub hyzc_Click()
Form2.Show
End Sub
Private Sub jz_Click()
Form9.Show
End Sub
Private Sub kfxx_Click()
Form6.Show
End Sub
Private Sub kfyd_Click()
Form8.Show
End Sub
Private Sub khrzxx_Click()
Form7.Show
End Sub
Private Sub Label1_Change()
Label1.ForeColor = vbRed
Label1.FontName = "楷体_GB2312"
Label1.FontSize = 38
End Sub
Private Sub tc_Click()
End
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(4).Text = Format(Date, "long date")
StatusBar1.Panels(5).Text = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
Dim str1 As String
str1 = "欢迎使用本酒店系统"
StatusBar1.Panels(1).Text = Mid(str1, 1, n)
n = n + 1
If StatusBar1.Panels(1).Text = "欢迎使用本酒店系统" Then
n = 0
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Caption
Case "客房查询"
Form6.Show
Case "入住登记"
Form8.Show
Case "客房预定"
Form8.Show
Case "结账"
Form9.Show
Case "会员注册"
Form2.Show
Case "退出系统"
End
Case "续住"
Form11.Show
Case "退房"
Form7.Show
End Select
End Sub
Private Sub xgmm_Click()
Form5.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -