📄 frmmainmain.frm
字号:
VERSION 5.00
Object = "{C147FD16-9923-435B-BCA9-34B2FC8A59AE}#1.0#0"; "VertMenu.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.MDIForm frmMain
BackColor = &H00FFFFFF&
Caption = "餐饮收银管理系统"
ClientHeight = 6315
ClientLeft = 285
ClientTop = 1320
ClientWidth = 11295
Icon = "frmMainMain.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 18
Left = 1305
Top = 855
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
BackColor = &H00000080&
BorderStyle = 0 'None
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 11295
TabIndex = 4
Top = 555
Width = 11295
Begin MSComCtl2.DTPicker dtpTest
Height = 285
Left = 30
TabIndex = 10
Top = -15
Visible = 0 'False
Width = 1260
_ExtentX = 2223
_ExtentY = 503
_Version = 393216
Format = 62390273
CurrentDate = 37491
End
Begin VB.Label lbInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欢迎光临〖新开元大酒店〗"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 210
Left = 2715
TabIndex = 9
Top = 30
Width = 2520
End
Begin VB.Line Line2
BorderColor = &H00C0C0C0&
Index = 1
X1 = 5415
X2 = 5790
Y1 = 240
Y2 = 0
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "q"
BeginProperty Font
Name = "Webdings"
Size = 9
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Index = 1
Left = 5685
TabIndex = 8
Top = 15
Width = 180
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "i"
BeginProperty Font
Name = "Webdings"
Size = 9
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFC0&
Height = 285
Index = 0
Left = 8775
TabIndex = 7
Top = 30
Width = 180
End
Begin VB.Label lbContact
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话: 0512-51565209，13701576622"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 240
Left = 9000
TabIndex = 6
Top = 45
Width = 3105
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "网维网络软件有限公司"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 240
Index = 0
Left = 5895
TabIndex = 5
Top = 15
Width = 1800
End
Begin VB.Line Line3
BorderColor = &H00C0C0C0&
X1 = 5280
X2 = 15930
Y1 = 15
Y2 = 15
End
Begin VB.Line Line2
BorderColor = &H00C0C0C0&
Index = 0
X1 = 8460
X2 = 8835
Y1 = 255
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
X1 = 0
X2 = 8535
Y1 = 255
Y2 = 255
End
End
Begin VB.PictureBox picADV
Align = 1 'Align Top
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 555
Left = 0
ScaleHeight = 555
ScaleWidth = 11295
TabIndex = 1
Top = 0
Width = 11295
Begin VB.Timer Timer2
Interval = 60000
Left = 3555
Top = 90
End
Begin VB.Image imgControl
Height = 480
Left = 390
Picture = "frmMainMain.frx":08CA
Top = 30
Width = 480
End
Begin VB.Label lbControl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收银控制中心"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 315
Left = 1185
TabIndex = 2
Top = 135
Width = 2070
End
End
Begin VB.PictureBox picTool
Align = 3 'Align Left
BackColor = &H8000000A&
BorderStyle = 0 'None
Height = 5460
Left = 0
ScaleHeight = 5460
ScaleWidth = 1290
TabIndex = 0
Top = 855
Width = 1290
Begin OutLookMenu.VerticalMenu VerticalMenu1
Height = 5610
Left = 15
TabIndex = 3
Top = 15
Width = 1200
_ExtentX = 2117
_ExtentY = 9895
MenusMax = 6
MenuCaption1 = "预订业务"
MenuItemsMax1 = 3
MenuItemIcon11 = "frmMainMain.frx":1194
MenuItemCaption11= "包厢状态"
MenuItemKey11 = "PreStatus"
MenuItemIcon12 = "frmMainMain.frx":1A6E
MenuItemCaption12= "新的预订"
MenuItemKey12 = "NewPre"
MenuItemIcon13 = "frmMainMain.frx":2348
MenuItemCaption13= "预订查询"
MenuItemKey13 = "FindPre"
MenuCaption2 = "客人消费"
MenuItemsMax2 = 4
MenuItemIcon21 = "frmMainMain.frx":2C22
MenuItemCaption21= "客人上台"
MenuItemKey21 = "CustomerST"
MenuItemIcon22 = "frmMainMain.frx":34FC
MenuItemCaption22= "消费统计"
MenuItemKey22 = "CheckST"
MenuItemIcon23 = "frmMainMain.frx":3DD6
MenuItemCaption23= "挂帐管理"
MenuItemKey23 = "TodayST"
MenuItemIcon24 = "frmMainMain.frx":46B0
MenuItemCaption24= "帐后退单"
MenuCaption3 = "会员管理"
MenuItemsMax3 = 2
MenuItemIcon31 = "frmMainMain.frx":49CA
MenuItemCaption31= "会员管理"
MenuItemKey31 = "AddMember"
MenuItemIcon32 = "frmMainMain.frx":52A4
MenuItemCaption32= "升级标准"
MenuCaption4 = "报表管理"
MenuItemsMax4 = 3
MenuItemIcon41 = "frmMainMain.frx":5B7E
MenuItemCaption41= "现金帐单"
MenuItemKey41 = "SiteHZ"
MenuItemIcon42 = "frmMainMain.frx":6458
MenuItemCaption42= "按座位统计"
MenuItemKey42 = "NameHZ"
MenuItemIcon43 = "frmMainMain.frx":6772
MenuItemCaption43= "按菜名统计"
MenuItemKey43 = "SiteMX"
MenuCaption5 = "基本设置"
MenuItemsMax5 = 3
MenuItemIcon51 = "frmMainMain.frx":704C
MenuItemCaption51= "基本配置"
MenuItemKey51 = "SiteSet"
MenuItemIcon52 = "frmMainMain.frx":7926
MenuItemCaption52= "酒席配置"
MenuItemKey52 = "CheckSet"
MenuItemIcon53 = "frmMainMain.frx":7C40
MenuItemCaption53= "菜单管理"
MenuItemKey53 = "DanweiSet"
MenuCaption6 = "辅助管理"
MenuItemsMax6 = 5
MenuItemIcon61 = "frmMainMain.frx":7F5A
MenuItemCaption61= "其它设置"
MenuItemKey61 = "SendServer"
MenuItemIcon62 = "frmMainMain.frx":8274
MenuItemCaption62= "员工管理"
MenuItemKey62 = "UpdateMenu"
MenuItemIcon63 = "frmMainMain.frx":8B4E
MenuItemCaption63= "操作员配置"
MenuItemKey63 = "mnuOperator"
MenuItemIcon64 = "frmMainMain.frx":9720
MenuItemCaption64= "数据备份"
MenuItemKey64 = "Backup"
MenuItemIcon65 = "frmMainMain.frx":9A3A
MenuItemCaption65= "系统重建"
MenuItemKey65 = "ReBuild"
End
End
Begin VB.Menu mnuBook
Caption = "预订业务(&B)"
Begin VB.Menu mnuSites
Caption = "餐桌状态(&S)..."
Shortcut = {F2}
End
Begin VB.Menu aaaa
Caption = "-"
End
Begin VB.Menu mnuNewBook
Caption = "新的预订(&New)..."
Shortcut = ^N
End
Begin VB.Menu ljljklj
Caption = "-"
End
Begin VB.Menu mnuFindBook
Caption = "预订查询(&Find) ..."
Shortcut = {F3}
End
End
Begin VB.Menu mnuConfig
Caption = "基本设置(&S)"
Begin VB.Menu mnuBase
Caption = "基本配置(&B)..."
Shortcut = ^S
End
Begin VB.Menu mnuTime
Caption = "时间段配置(&T)..."
Shortcut = ^T
End
Begin VB.Menu Line101
Caption = "-"
End
Begin VB.Menu mnuIntegration
Caption = "酒席配置(&I) ..."
End
Begin VB.Menu mnuMenuManager
Caption = "菜单管理(&M)..."
Shortcut = ^M
End
Begin VB.Menu jkjkjkjkjkjkj
Caption = "-"
End
Begin VB.Menu mnuLevel
Caption = "会员级别定义(&Level)..."
Shortcut = +{F8}
End
Begin VB.Menu mnuMember
Caption = "会员管理(Cusotmer) ..."
Shortcut = +{F9}
End
End
Begin VB.Menu mnuAssistant
Caption = "辅助管理(&A)"
Begin VB.Menu mnuBox
Caption = "包厢点菜(&X)"
Shortcut = +{F5}
End
Begin VB.Menu mnuPrint
Caption = "飞单打印(&P)"
Shortcut = +{F6}
End
Begin VB.Menu FADSFFF
Caption = "-"
End
Begin VB.Menu mnuOther
Caption = "其它配置(&O)"
Shortcut = ^O
End
Begin VB.Menu ddfdasdfsd
Caption = "-"
End
Begin VB.Menu mnuEmploy
Caption = "员工管理(&E)"
Shortcut = ^E
End
Begin VB.Menu mnuProccess
Caption = "操作员管理(&P)..."
Shortcut = ^Q
End
Begin VB.Menu asdfff
Caption = "-"
End
Begin VB.Menu mnuBackup
Caption = "数据备份与恢复"
Shortcut = {F8}
End
Begin VB.Menu xxxxx
Caption = "-"
End
Begin VB.Menu mnuSystemClear
Caption = "系统重新建立(&B) ..."
Shortcut = ^B
End
End
Begin VB.Menu mnuGuest
Caption = "客人消费(&G)"
Begin VB.Menu mnuStart
Caption = "客人上台(&T)..."
Shortcut = {F5}
End
Begin VB.Menu Line301
Caption = "-"
End
Begin VB.Menu mnuTongJi
Caption = "消费统计(&J) ..."
Shortcut = {F7}
End
Begin VB.Menu mnuArrearage
Caption = "挂帐管理(&Arrearage) ..."
Shortcut = {F9}
End
Begin VB.Menu p99
Caption = "-"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -