📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmMain
Caption = "小型超市后台管理系统"
ClientHeight = 7935
ClientLeft = 2280
ClientTop = 2400
ClientWidth = 11280
LinkTopic = "Form1"
ScaleHeight = 7935
ScaleMode = 0 'User
ScaleWidth = 12244.24
WindowState = 2 'Maximized
Begin VB.PictureBox picQuery
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 6315
Left = 780
ScaleHeight = 6285
ScaleWidth = 2400
TabIndex = 13
Top = 2250
Visible = 0 'False
Width = 2430
Begin MSComCtl2.DTPicker dtEnd
Height = 300
Left = 525
TabIndex = 2
Top = 2370
Width = 1545
_ExtentX = 2725
_ExtentY = 529
_Version = 393216
CalendarTitleBackColor= 12582912
CalendarTitleForeColor= 16777215
Format = 62980097
CurrentDate = 38505
End
Begin MSComCtl2.DTPicker dtBegin
Height = 300
Left = 525
TabIndex = 1
Top = 1995
Width = 1545
_ExtentX = 2725
_ExtentY = 529
_Version = 393216
CalendarTitleBackColor= 12582912
CalendarTitleForeColor= 16777215
Format = 62980097
CurrentDate = 38505
End
Begin VB.TextBox txtGoodsName
Height = 270
Left = 120
MaxLength = 50
TabIndex = 0
Top = 1320
Width = 2175
End
Begin VB.CommandButton cmdReturn
BackColor = &H00FFFFFF&
Caption = "返回(&R)"
Height = 360
Left = 1440
Style = 1 'Graphical
TabIndex = 4
Top = 5130
Width = 810
End
Begin VB.CommandButton cmdQuery
BackColor = &H00FFFFFF&
Caption = "查询(&Q)"
Default = -1 'True
Height = 360
Left = 585
Style = 1 'Graphical
TabIndex = 3
Top = 5130
Width = 810
End
Begin VB.Label lblQuery
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询完毕！"
Height = 180
Index = 5
Left = 225
TabIndex = 20
Top = 4230
Width = 1935
WordWrap = -1 'True
End
Begin VB.Label lblQuery
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 4
Left = 225
TabIndex = 18
Top = 2430
Width = 180
End
Begin VB.Label lblQuery
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 3
Left = 225
TabIndex = 17
Top = 2055
Width = 180
End
Begin VB.Label lblQuery
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登记日期"
Height = 180
Index = 2
Left = 120
TabIndex = 16
Top = 1725
Width = 720
End
Begin VB.Label lblQuery
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品名称(模糊查询)"
Height = 180
Index = 1
Left = 120
TabIndex = 15
Top = 1065
Width = 1620
End
Begin VB.Label lblQuery
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请输入查询条件"
Height = 180
Index = 0
Left = 120
TabIndex = 14
Top = 240
Width = 1260
End
End
Begin VB.PictureBox picAbout
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 5925
Left = 3240
ScaleHeight = 5925
ScaleWidth = 8715
TabIndex = 11
Top = 1800
Visible = 0 'False
Width = 8715
Begin VB.Image Image1
Height = 5415
Left = 360
Top = 360
Width = 6975
End
End
Begin MSComctlLib.TreeView TreeView
Height = 6360
Left = 0
TabIndex = 7
Top = 1290
Width = 2475
_ExtentX = 4366
_ExtentY = 11218
_Version = 393217
HideSelection = 0 'False
Indentation = 0
LabelEdit = 1
Style = 7
ImageList = "imglView"
Appearance = 1
End
Begin MSComctlLib.ListView ListView
Height = 6030
Left = 2490
TabIndex = 8
Top = 1635
Width = 8805
_ExtentX = 15531
_ExtentY = 10636
View = 3
LabelEdit = 1
SortOrder = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
OLEDragMode = 1
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "imglTBar"
SmallIcons = "imglView"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
OLEDragMode = 1
NumItems = 0
End
Begin VB.PictureBox picTitle
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 435
Left = 0
ScaleHeight = 435
ScaleWidth = 11280
TabIndex = 6
Top = 840
Width = 11280
Begin VB.Label lblUser
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "当前登录用户"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 1
Left = 120
TabIndex = 22
Top = 120
Width = 1350
End
Begin VB.Label lblUser
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "当前登录用户"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 150
TabIndex = 21
Top = 150
Width = 1350
End
End
Begin MSComctlLib.ImageList imglTBar
Left = 9240
Top = 180
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0000
Key = "IMG12"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0C52
Key = "IMG2"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":18A4
Key = "IMG3"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":24F6
Key = "IMG4"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3148
Key = "IMG5"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3D9A
Key = "IMG6"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":49EC
Key = "IMG7"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":563E
Key = "IMG8"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6290
Key = "IMG9"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6EE2
Key = "IMG10"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7B34
Key = "IMG11"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar TBar
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 5
Top = 0
Visible = 0 'False
Width = 11280
_ExtentX = 19897
_ExtentY = 1402
ButtonWidth = 1455
ButtonHeight = 1349
ToolTips = 0 'False
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "imglTBar"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 14
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用户管理"
Key = "User"
ImageIndex = 5
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 6
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "BrowseUser"
Text = "浏览所有用户(&B)"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "-"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "AddUser"
Text = "添加用户(&A)"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "QueryUser"
Text = "查询用户(&Q)"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "ModifyUser"
Text = "修改用户(&M)"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "DelUser"
Text = "删除用户(&D)"
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "供货商"
Key = "Supplier"
ImageIndex = 1
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 6
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "BrowseSupplier"
Text = "浏览所有供货商(&B)"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "-"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "AddSupplier"
Text = "登记供货商(&A)"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "QuerySupplier"
Text = "查询供货商(&Q)"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "ModifySupplier"
Text = "修改供货商(&M)"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "DelSupplier"
Text = "删除供货商(&D)"
EndProperty
EndProperty
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "商品类型"
Key = "Type"
ImageIndex = 3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -