📄 frmeatlist.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmEatList
Caption = "菜单管理"
ClientHeight = 5745
ClientLeft = 60
ClientTop = 345
ClientWidth = 8160
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmEatList.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 8595
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin MSComctlLib.TabStrip Strip1
Height = 480
Left = 120
TabIndex = 12
Top = 1755
Width = 10290
_ExtentX = 18150
_ExtentY = 847
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 1
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "所有物品"
Key = "ALL"
Object.ToolTipText = "列出所有菜单"
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Frame Frame1
Height = 1605
Left = 135
TabIndex = 13
Top = 120
Width = 11700
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "关闭退出(&C)"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 8460
TabIndex = 11
Top = 255
Width = 1665
End
Begin VB.CommandButton cmdAdd
Caption = "添加输入的新菜(&A)"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 6000
Picture = "frmEatList.frx":030A
TabIndex = 6
ToolTipText = "输入菜名,编码后,单击保存。"
Top = 255
Width = 1965
End
Begin VB.CommandButton cmdModify
Caption = "修改选定的菜单(&M)"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4050
TabIndex = 10
ToolTipText = "在下面菜单中选定菜单,单击修改。"
Top = 255
Width = 1965
End
Begin VB.CommandButton cmdDel
Caption = "删除选定的菜单(&D)"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2100
TabIndex = 9
ToolTipText = "在下面的菜单中选定需要删除的菜单,单击删除。"
Top = 255
Width = 1965
End
Begin VB.ComboBox txtDW
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3510
TabIndex = 2
Text = "txtDW"
Top = 1140
Width = 945
End
Begin VB.ComboBox cmbType
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5775
TabIndex = 4
Text = "cmbType"
Top = 1125
Width = 1230
End
Begin VB.TextBox txtPingYin
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 7065
MaxLength = 25
TabIndex = 5
Top = 1140
Width = 1245
End
Begin VB.TextBox txtCode
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 4515
MaxLength = 25
TabIndex = 3
Top = 1140
Width = 1185
End
Begin VB.TextBox txtDJ
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2550
MaxLength = 8
TabIndex = 1
Text = "0"
Top = 1140
Width = 900
End
Begin VB.TextBox txtPM
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1230
MaxLength = 30
TabIndex = 0
Top = 1140
Width = 1260
End
Begin VB.CommandButton cmdPrint
Caption = "打印下面菜单列表"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 150
TabIndex = 8
Top = 255
Width = 1965
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ": 物品名称 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 195
Index = 1
Left = 1245
TabIndex = 30
Top = 870
Width = 1200
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ": 单价 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 195
Index = 1
Left = 2550
TabIndex = 29
Top = 870
Width = 810
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ": 单位 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Index = 1
Left = 3525
TabIndex = 28
Top = 870
Width = 810
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ": 助记编码 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 195
Index = 7
Left = 4515
TabIndex = 27
Top = 870
Width = 1200
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ": 所属类别 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 195
Index = 6
Left = 5775
TabIndex = 26
Top = 870
Width = 1200
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ": 拼音编码 :"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 195
Index = 5
Left = 7065
TabIndex = 25
Top = 870
Width = 1200
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用↑↓键移动"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 195
Index = 4
Left = 8415
TabIndex = 24
Top = 1185
Width = 1365
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用↑↓键移动"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 3
Left = 8400
TabIndex = 23
Top = 1200
Width = 1365
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = ": 拼音编码 :"
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -