📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_main
BackColor = &H00808000&
Caption = "洗浴管理系统"
ClientHeight = 6495
ClientLeft = 60
ClientTop = -390
ClientWidth = 11880
Icon = "frm_main.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6495
ScaleWidth = 11880
StartUpPosition = 1 '所有者中心
Begin VB.Timer Timer1
Interval = 100
Left = 585
Top = 1980
End
Begin MSComctlLib.StatusBar St1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 0
Top = 6150
Width = 11880
_ExtentX = 20955
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7056
MinWidth = 7056
Text = "http://www.mingrisoft.com"
TextSave = "http://www.mingrisoft.com"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3881
MinWidth = 3881
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 3075
Top = 2025
_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 = "frm_main.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":11A6
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":1A82
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":235E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":2C3A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":3516
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":3DF2
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":46CE
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":4FAA
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":5886
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 2
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1402
ButtonWidth = 2090
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "总台服务管理"
Key = "ztfwgl"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "结账收银管理"
Key = "jzsygl"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "日结算"
Key = "rjs"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "月结算"
Key = "yjs"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "总台服务查询"
Key = "ztfwcx"
ImageIndex = 5
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "月营业分析"
Key = "yyyfx"
ImageIndex = 8
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "权限设置"
Key = "qxsz"
ImageIndex = 7
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "exit"
ImageIndex = 9
EndProperty
EndProperty
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 270
Left = 10575
TabIndex = 3
Top = 4245
Width = 2445
End
Begin VB.Image Image1
Height = 5400
Left = -45
Picture = "frm_main.frx":6162
Stretch = -1 'True
Top = 765
Width = 12210
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Height = 405
Index = 0
Left = 1530
TabIndex = 1
Top = 2925
Width = 4110
End
Begin VB.Menu jbxxgl
Caption = "基本信息管理"
Begin VB.Menu bfxxgl
Caption = "包房信息管理"
End
Begin VB.Menu xhxxgl
Caption = "箱号信息管理"
End
Begin VB.Menu fwxmgl
Caption = "服务项目管理"
End
Begin VB.Menu ygxxgl
Caption = "员工信息管理"
End
End
Begin VB.Menu qtxxgl
Caption = "前台信息管理"
Begin VB.Menu ztfwgl
Caption = "总台服务管理"
End
Begin VB.Menu jzsygl
Caption = "结账收银管理"
End
Begin VB.Menu drxfcx
Caption = "当日消费查询"
End
Begin VB.Menu rjsgl
Caption = "日结算管理"
End
End
Begin VB.Menu htxxgl
Caption = "后台信息管理"
Begin VB.Menu yjsgl
Caption = "月结算管理"
End
Begin VB.Menu lsdjcx
Caption = "历史单据查询"
End
End
Begin VB.Menu jlcxxt
Caption = "总经理查询"
Begin VB.Menu ztfwcx
Caption = "总台服务查询"
End
Begin VB.Menu drjzcx
Caption = "当日结账查询"
End
Begin VB.Menu yyyfx
Caption = "月营业分析"
End
End
Begin VB.Menu xtwh
Caption = "系统维护"
Begin VB.Menu czysz
Caption = "操作员设置"
End
Begin VB.Menu klsz
Caption = "口令设置"
End
Begin VB.Menu qxsz
Caption = "权限设置"
End
Begin VB.Menu l1
Caption = "-"
End
Begin VB.Menu sjbf
Caption = "数据备份"
End
Begin VB.Menu xtcsh
Caption = "系统初始化"
End
End
Begin VB.Menu xtbz
Caption = "系统帮助"
Begin VB.Menu help
Caption = "帮助"
End
Begin VB.Menu about
Caption = "关于"
End
End
Begin VB.Menu exit
Caption = "退出"
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'在标题栏上显示软件名称与版本
Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub bfxxgl_Click() '调入包房信息管理窗口
Load main_jbxx_bfxxgl
main_jbxx_bfxxgl.Show
frm_main.Enabled = False
End Sub
Private Sub xhxxgl_Click() '调入箱号信息管理窗口
Load main_jbxx_xhxxgl
main_jbxx_xhxxgl.Show
frm_main.Enabled = False
End Sub
Private Sub fwxmgl_Click() '调入服务项目管理窗口
Load main_jbxx_fwxmgl
main_jbxx_fwxmgl.Show
frm_main.Enabled = False
End Sub
Private Sub ygxxgl_Click() '调入员工信息管理窗口
Load main_jbxx_yginf
main_jbxx_yginf.Show
frm_main.Enabled = False
End Sub
Private Sub ztfwgl_Click() '调入总台服务管理窗口
Load main_qtgl_ztfwgl
main_qtgl_ztfwgl.Show
frm_main.Enabled = False
End Sub
Private Sub jzsygl_Click() '调入结帐收银管理窗口
Load main_qtgl_jzgl
main_qtgl_jzgl.Show
frm_main.Enabled = False
End Sub
Private Sub drxfcx_Click() '调入当日消费查询窗口
Load main_qtgl_drxfcx
main_qtgl_drxfcx.Show
frm_main.Enabled = False
End Sub
Private Sub rjsgl_Click() '调入日结算管理窗口
Load main_qtgl_rjgl
main_qtgl_rjgl.Show
frm_main.Enabled = False
End Sub
Private Sub yjsgl_Click() '调入月结算管理窗口
Load main_htgl_yjgl
main_htgl_yjgl.Show
frm_main.Enabled = False
End Sub
Private Sub lsdjcx_Click() '调入历史单据查询窗口
Load main_htgl_lsdjcx
main_htgl_lsdjcx.Show
frm_main.Enabled = False
End Sub
Private Sub ztfwcx_Click() '调入总台服务查询窗口
Load main_jlcx_ztfwcx
main_jlcx_ztfwcx.Show
frm_main.Enabled = False
End Sub
Private Sub drjzcx_Click() '调入当日结帐查询窗口
Load main_jlcx_drjzcx
main_jlcx_drjzcx.Show
frm_main.Enabled = False
End Sub
Private Sub yyyfx_Click() '调入月营业分析窗口
Load main_jlcx_yyyfx
main_jlcx_yyyfx.Show
frm_main.Enabled = False
End Sub
Private Sub czysz_Click() '调入操作员设置窗口
Load main_xtwh_czysz
main_xtwh_czysz.Show
frm_main.Enabled = False
End Sub
Private Sub klsz_Click() '调入口令设置窗口
Load main_xtwh_klsz
main_xtwh_klsz.Show
frm_main.Enabled = False
End Sub
Private Sub qxsz_Click() '调入权限设置窗口
Load main_xtwh_qxsz
main_xtwh_qxsz.Show
frm_main.Enabled = False
End Sub
Private Sub sjbf_Click() '调入数据备份窗口
Load main_sjbf
main_sjbf.Show
Unload Me
End Sub
Private Sub xtcsh_Click() '调入系统初始化窗口
Load main_xtwh_xtcsh
main_xtwh_xtcsh.Show
frm_main.Enabled = False
End Sub
Private Sub help_Click() '调入帮助窗口
Load frmTip
frmTip.Show
frm_main.Enabled = False
End Sub
Private Sub about_Click() '调入关于窗口
Load frmAbout
frmAbout.Show
frm_main.Enabled = False
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Timer1_Timer()
'设置时间
St1.Panels(1).Text = Format(Date, "long date") & " " & Time
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case Is = "ztfwgl"
ztfwgl_Click '调入总台服务管理窗口
frm_main.Enabled = False
Case Is = "jzsygl"
jzsygl_Click '调入结帐收银管理窗口
frm_main.Enabled = False
Case Is = "rjs"
rjsgl_Click '调入日结算管理窗口
frm_main.Enabled = False
Case Is = "yjs"
yjsgl_Click '调入月结算管理窗口
frm_main.Enabled = False
Case Is = "ztfwcx"
ztfwcx_Click '调入总台服务查询窗口
frm_main.Enabled = False
Case Is = "yyyfx"
yyyfx_Click '调入月营业分析窗口
frm_main.Enabled = False
Case Is = "qxsz"
qxsz_Click '调入权限设置窗口
frm_main.Enabled = False
Case Is = "exit"
End
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -