📄 frmmainmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "餐饮茶馆控制系统"
ClientHeight = 5520
ClientLeft = 165
ClientTop = 735
ClientWidth = 7230
Icon = "frmMainMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 7230
_ExtentX = 12753
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 11
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "客人上台"
Key = "Customer"
Object.ToolTipText = "客人上台"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "销售单据"
Key = "SellOrder"
Object.ToolTipText = "销售单据"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "销售汇总"
Key = "SellDetail"
Object.ToolTipText = "销售汇总"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "畅销产品"
Key = "SellTop"
Object.ToolTipText = "畅销产品"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "会员管理"
Key = "Member"
Object.ToolTipText = "会员管理"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "操作员"
Key = "Operator"
Object.ToolTipText = "操作员"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "帮助"
Key = "Help"
Object.ToolTipText = "帮助"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "关于"
Key = "About"
Object.ToolTipText = "关于"
Object.Tag = ""
ImageIndex = 8
EndProperty
EndProperty
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 330
Left = 0
TabIndex = 0
Top = 5190
Width = 7230
_ExtentX = 12753
_ExtentY = 582
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4304
MinWidth = 4304
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 7056
MinWidth = 7056
Text = "程序设计：温州东化计算机科技有限公司"
TextSave = "程序设计：温州东化计算机科技有限公司"
Key = ""
Object.Tag = ""
Object.ToolTipText = "程序设计：温州东化计算机科技有限公司"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
TextSave = "2000-12-1"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Text = "技术支持：0577-8269005 8269007"
TextSave = "技术支持：0577-8269005 8269007"
Key = ""
Object.Tag = ""
Object.ToolTipText = "技术支持：0577-8269005 8269007"
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 840
Top = 3750
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 8
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":0624
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":093E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":0C58
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":0F72
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":128C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":15A6
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMainMain.frx":18C0
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuConfig
Caption = "系统配置(&S)"
Begin VB.Menu mnuSite
Caption = "座位分类(&S)..."
Shortcut = ^S
End
Begin VB.Menu Line101
Caption = "-"
End
Begin VB.Menu mnuPayType
Caption = "付款分类(&P)"
Shortcut = ^P
End
Begin VB.Menu mnuUnitType
Caption = "单位分类(&U)..."
Shortcut = ^U
End
Begin VB.Menu Line104
Caption = "-"
End
Begin VB.Menu mnuMenuCatalog
Caption = "菜单分类(&L)..."
Shortcut = ^L
End
Begin VB.Menu mnuMenuManager
Caption = "菜单管理(&M)..."
Shortcut = ^M
End
Begin VB.Menu Line05
Caption = "-"
End
Begin VB.Menu mnuMember
Caption = "会员卡管理(&C)..."
Shortcut = {F2}
End
End
Begin VB.Menu mnuStore
Caption = "仓库管理(&K)"
Begin VB.Menu mnuEnterStore
Caption = "购进物品(&E)..."
Shortcut = ^{F5}
End
Begin VB.Menu mnuQueryEnter
Caption = "购进物品明细表(&E) ..."
Shortcut = +{F6}
End
Begin VB.Menu Line3010
Caption = "-"
End
Begin VB.Menu mnuKuCunStore
Caption = "物品库存查询(&S)..."
Shortcut = ^{F6}
End
Begin VB.Menu mnuYearCun
Caption = "系统年结存(&J) ..."
Shortcut = ^{F8}
Visible = 0 'False
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 mnuQuerySystem
Caption = "营业单据(S)"
Shortcut = {F11}
End
Begin VB.Menu Line011
Caption = "-"
End
Begin VB.Menu mnuHZ
Caption = "营业汇总表(&H)"
Shortcut = {F12}
End
Begin VB.Menu mnuQueryCustomer
Caption = "营业明细表(&C) ..."
Shortcut = +{F8}
End
Begin VB.Menu LIne0302
Caption = "-"
End
Begin VB.Menu mnuSort
Caption = "畅销物品排名(&M) ..."
Shortcut = ^{F12}
End
End
Begin VB.Menu mnuControl
Caption = "控制面板(&C)"
Begin VB.Menu mnuExit
Caption = "退出(&X)..."
Shortcut = ^X
End
Begin VB.Menu Line03
Caption = "-"
End
Begin VB.Menu mnuAbout
Caption = "关于(&A)..."
End
Begin VB.Menu mnuHelp
Caption = "使用帮助(&H)..."
Shortcut = {F1}
End
Begin VB.Menu Line102
Caption = "-"
End
Begin VB.Menu mnuProccess
Caption = "操作员管理(&P)..."
Shortcut = ^Q
End
Begin VB.Menu LIne303
Caption = "-"
End
Begin VB.Menu mnuSystemClear
Caption = "系统重新建立(&B) ..."
Shortcut = ^B
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
On Error Resume Next
'安装背景图片
frmMain.Picture = LoadPicture(App.Path & "\Plus!.bmp")
'设置权限
Me.Show
AuthorityE
'御载Splash
Unload frmSplash
StatusBar1.Panels(1).Text = " 操作员： " & UserText
End Sub
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuGuest
End If
End Sub
Private Sub mnuAbout_Click()
If frmAbout.Visible Then
frmAbout.SetFocus
Else
frmAbout.Show
End If
End Sub
Private Sub mnuEnterStore_Click()
If frmCustomer.Visible Then
frmCustomer.SetFocus
Else
frmCustomer.Show
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -