📄 frmmain.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9e.ocx"
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 = "天宏钢构仓库管理系统 Ver 2.96"
ClientHeight = 6675
ClientLeft = 165
ClientTop = 450
ClientWidth = 9285
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6675
ScaleWidth = 9285
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Interval = 10
Left = 4080
Top = 3120
End
Begin VB.PictureBox Picture1
Height = 315
Left = 8700
MouseIcon = "frmMain.frx":1272
MousePointer = 99 'Custom
ScaleHeight = 255
ScaleWidth = 255
TabIndex = 40
Top = 300
Visible = 0 'False
Width = 315
End
Begin VB.PictureBox 操作信息
Align = 3 'Align Left
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 2835
Left = 0
ScaleHeight = 2805
ScaleWidth = 8655
TabIndex = 4
Top = 3570
Width = 8685
Begin VB.TextBox Text1
Height = 375
Left = 360
TabIndex = 44
Text = "Text1"
Top = 480
Visible = 0 'False
Width = 615
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "出错单据管理"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 255
Left = 840
MouseIcon = "frmMain.frx":157C
MousePointer = 99 'Custom
TabIndex = 47
Top = 4800
Width = 1395
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":1886
MousePointer = 99 'Custom
TabIndex = 42
Top = 4020
Width = 1035
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 = 4800
MouseIcon = "frmMain.frx":1B90
MousePointer = 99 'Custom
TabIndex = 41
Top = 1740
Width = 795
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 = &H00000000&
Height = 255
Left = 4800
MouseIcon = "frmMain.frx":1E9A
MousePointer = 99 'Custom
TabIndex = 39
Top = 4440
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 = &H00000000&
Height = 255
Left = 6660
MouseIcon = "frmMain.frx":21A4
MousePointer = 99 'Custom
TabIndex = 38
Top = 4020
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 = &H00008080&
Height = 255
Left = 2640
MouseIcon = "frmMain.frx":24AE
MousePointer = 99 'Custom
TabIndex = 37
Top = 4800
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 = 2640
MouseIcon = "frmMain.frx":27B8
MousePointer = 99 'Custom
TabIndex = 36
Top = 1320
Width = 1515
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 = 4800
MouseIcon = "frmMain.frx":2AC2
MousePointer = 99 'Custom
TabIndex = 35
Top = 2160
Visible = 0 'False
Width = 1395
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 = 840
MouseIcon = "frmMain.frx":2DCC
MousePointer = 99 'Custom
TabIndex = 34
Top = 1320
Width = 975
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 = 6660
MouseIcon = "frmMain.frx":30D6
MousePointer = 99 'Custom
TabIndex = 33
Top = 3600
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 = 6660
MouseIcon = "frmMain.frx":33E0
MousePointer = 99 'Custom
TabIndex = 32
Top = 4440
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 = &H00000000&
Height = 195
Left = 4800
MouseIcon = "frmMain.frx":36EA
MousePointer = 99 'Custom
TabIndex = 31
Top = 3600
Width = 795
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 = 6720
MouseIcon = "frmMain.frx":39F4
MousePointer = 99 'Custom
TabIndex = 30
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 = 4800
MouseIcon = "frmMain.frx":3CFE
MousePointer = 99 'Custom
TabIndex = 29
Top = 1320
Width = 1215
End
Begin VB.Label L库存查询
BackStyle = 0 'Transparent
Caption = "货物信息查询"
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -