📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form frmMain
Caption = "仓库管理系统"
ClientHeight = 6675
ClientLeft = 165
ClientTop = 450
ClientWidth = 9285
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6675
ScaleWidth = 9285
StartUpPosition = 1 '所有者中心
Begin VB.PictureBox Picture1
Height = 315
Left = 7440
MouseIcon = "frmMain.frx":1272
MousePointer = 99 'Custom
ScaleHeight = 255
ScaleWidth = 255
TabIndex = 26
Top = 3000
Visible = 0 'False
Width = 315
End
Begin VB.PictureBox 操作信息
Align = 3 'Align Left
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 6405
Left = 0
ScaleHeight = 6375
ScaleWidth = 6375
TabIndex = 2
Top = 0
Width = 6405
Begin VB.Label L用户管理
BackStyle = 0 'Transparent
Caption = "用户管理"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 360
MouseIcon = "frmMain.frx":157C
MousePointer = 99 'Custom
TabIndex = 25
Top = 3360
Width = 855
End
Begin VB.Label 登记新职员
BackStyle = 0 'Transparent
Caption = "登记新职员"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 255
Left = 1680
MouseIcon = "frmMain.frx":1886
MousePointer = 99 'Custom
TabIndex = 24
Top = 1080
Width = 1035
End
Begin VB.Label 创建新仓库
BackStyle = 0 'Transparent
Caption = "创建新仓库"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 255
Left = 360
MouseIcon = "frmMain.frx":1B90
MousePointer = 99 'Custom
TabIndex = 23
Top = 1500
Width = 1095
End
Begin VB.Label 修改密码
BackStyle = 0 'Transparent
Caption = "修改密码"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 2640
MouseIcon = "frmMain.frx":1E9A
MousePointer = 99 'Custom
TabIndex = 22
Top = 3360
Width = 795
End
Begin VB.Label 更换用户登陆
BackStyle = 0 'Transparent
Caption = "更换用户登陆"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 4800
MouseIcon = "frmMain.frx":21A4
MousePointer = 99 'Custom
TabIndex = 21
Top = 3360
Width = 1215
End
Begin VB.Label L职员操作统计
BackStyle = 0 'Transparent
Caption = "职员操作统计"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3960
MouseIcon = "frmMain.frx":24AE
MousePointer = 99 'Custom
TabIndex = 20
Top = 1320
Width = 1215
End
Begin VB.Label L货物出入统计
BackStyle = 0 'Transparent
Caption = "货物出入统计"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3360
MouseIcon = "frmMain.frx":27B8
MousePointer = 99 'Custom
TabIndex = 19
Top = 720
Width = 1215
End
Begin VB.Label L库存查询
BackStyle = 0 'Transparent
Caption = "库存查询"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 4920
MouseIcon = "frmMain.frx":2AC2
MousePointer = 99 'Custom
TabIndex = 18
Top = 720
Width = 795
End
Begin VB.Label Label9
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "维护设置"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 2400
TabIndex = 17
Top = 2400
Width = 1155
End
Begin VB.Label Label7
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "查询统计"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 3300
TabIndex = 16
Top = 120
Width = 1095
End
Begin VB.Label 查看库存状况
BackStyle = 0 'Transparent
Caption = "查看库存状况"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 255
Left = 1680
MouseIcon = "frmMain.frx":2DCC
MousePointer = 99 'Custom
TabIndex = 15
Top = 1500
Width = 1215
End
Begin VB.Label 登记新客户
BackStyle = 0 'Transparent
Caption = "登记新客户"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 255
Left = 360
MouseIcon = "frmMain.frx":30D6
MousePointer = 99 'Custom
TabIndex = 14
Top = 1080
Width = 1035
End
Begin VB.Label 登记新供应商
BackStyle = 0 'Transparent
Caption = "登记新供应商"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 255
Left = 1680
MouseIcon = "frmMain.frx":33E0
MousePointer = 99 'Custom
TabIndex = 13
Top = 660
Width = 1215
End
Begin VB.Label 登记新货物
BackStyle = 0 'Transparent
Caption = "登记新货物"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 255
Left = 360
MouseIcon = "frmMain.frx":36EA
MousePointer = 99 'Custom
TabIndex = 12
Top = 660
Width = 1035
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "登记信息"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 300
TabIndex = 11
Top = 120
Width = 1095
End
Begin VB.Shape Shape1
BackColor = &H00FFC0C0&
BackStyle = 1 'Opaque
BorderColor = &H00FFC0C0&
Height = 435
Left = 0
Shape = 4 'Rounded Rectangle
Top = 0
Width = 6375
End
Begin VB.Shape Shape2
BackColor = &H00FFC0C0&
BackStyle = 1 'Opaque
BorderColor = &H00FFC0C0&
Height = 435
Left = 0
Shape = 4 'Rounded Rectangle
Top = 2280
Width = 6375
End
End
Begin VB.PictureBox 软件信息
Align = 4 'Align Right
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 6405
Left = 6390
ScaleHeight = 6375
ScaleWidth = 2865
TabIndex = 1
Top = 0
Width = 2895
Begin VB.Label 给作者写信
BackStyle = 0 'Transparent
Caption = "haifei049042@vip.163.net"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
MouseIcon = "frmMain.frx":39F4
MousePointer = 99 'Custom
TabIndex = 10
Top = 2340
Width = 2355
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "给作者写信:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 9
Top = 2040
Width = 2595
End
Begin VB.Label 我的主页
BackStyle = 0 'Transparent
Caption = "http://yelianhong.51.con"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 240
MouseIcon = "frmMain.frx":3CFE
MousePointer = 99 'Custom
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -