📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash8.ocx"
Begin VB.Form frm_main
Caption = "商品进销存管理系统"
ClientHeight = 8535
ClientLeft = 165
ClientTop = 450
ClientWidth = 12990
Icon = "frm_main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "frm_main.frx":038A
ScaleHeight = 8535
ScaleWidth = 12990
StartUpPosition = 2 '屏幕中心
Tag = "进入主程序"
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash2
Height = 6135
Left = 2220
TabIndex = 9
Top = 2040
Width = 10755
_cx = 18971
_cy = 10821
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1
Height = 645
Left = 2205
TabIndex = 8
Top = 1320
Width = 10770
_cx = 18997
_cy = 1138
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 630
Top = 7380
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 0
Top = 8190
Width = 12990
_ExtentX = 22913
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 14993
MinWidth = 14993
Text = " 版权所有：吉林省明日科技有限公司 电话：(0431)84978981,84978982"
TextSave = " 版权所有：吉林省明日科技有限公司 电话：(0431)84978981,84978982"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Object.Width = 4304
MinWidth = 4304
TextSave = "2007-11-29"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Object.Width = 6068
MinWidth = 6068
TextSave = "14:42"
EndProperty
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "退 出"
ForeColor = &H00C00000&
Height = 180
Index = 6
Left = 735
TabIndex = 6
Top = 5400
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "辅 助 工 具"
ForeColor = &H00C00000&
Height = 180
Index = 5
Left = 735
TabIndex = 7
Top = 4815
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系 统 管 理"
ForeColor = &H00C00000&
Height = 180
Index = 4
Left = 735
TabIndex = 5
Top = 4200
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "基本信息管理"
ForeColor = &H00C00000&
Height = 180
Index = 3
Left = 750
TabIndex = 4
Top = 1815
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品查询统计"
ForeColor = &H00C00000&
Height = 180
Index = 2
Left = 735
TabIndex = 3
Top = 3615
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "库存商品管理"
ForeColor = &H00C00000&
Height = 180
Index = 1
Left = 735
TabIndex = 2
Top = 3015
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日常业务管理"
ForeColor = &H00C00000&
Height = 180
Index = 0
Left = 735
TabIndex = 1
Top = 2415
Width = 1080
End
Begin VB.Menu jbzlgl
Caption = "【基础信息管理】"
Begin VB.Menu m12
Caption = "商品资料管理"
End
Begin VB.Menu l3
Caption = "-"
End
Begin VB.Menu m13
Caption = "供应商管理(Y)"
Shortcut = ^Y
End
Begin VB.Menu m14
Caption = "客户管理(K)"
Shortcut = ^K
End
Begin VB.Menu l4
Caption = "-"
End
Begin VB.Menu m15
Caption = "人员管理"
End
Begin VB.Menu l6
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出"
End
End
Begin VB.Menu rcyw
Caption = "【日常业务管理】"
NegotiatePosition= 2 'Middle
Begin VB.Menu m1
Caption = "商品入库"
Shortcut = ^R
End
Begin VB.Menu m2
Caption = "商品销售"
Shortcut = ^X
End
Begin VB.Menu l1
Caption = "-"
End
Begin VB.Menu m3
Caption = "销售退货"
Shortcut = ^A
End
Begin VB.Menu m4
Caption = "入库退货"
Shortcut = ^B
End
End
Begin VB.Menu kcgl
Caption = "【库存商品管理】"
Begin VB.Menu m5
Caption = "库存查询(C)"
Shortcut = ^C
End
Begin VB.Menu m6
Caption = "库存盘点(P)"
Shortcut = ^P
End
Begin VB.Menu m7
Caption = "价格管理(G)"
Shortcut = ^G
End
End
Begin VB.Menu cxtj
Caption = "【商品查询统计】"
Begin VB.Menu m8
Caption = "入库查询"
Shortcut = ^{F1}
End
Begin VB.Menu m9
Caption = "入库退货查询"
End
Begin VB.Menu l2
Caption = "-"
End
Begin VB.Menu m10
Caption = "销售查询"
Shortcut = ^{F2}
End
Begin VB.Menu m11
Caption = "销售退货查询"
End
End
Begin VB.Menu xtgl
Caption = "【系统管理】"
Begin VB.Menu m17
Caption = "操作权限"
Shortcut = {F1}
End
Begin VB.Menu m18
Caption = "数据备份与恢复"
End
Begin VB.Menu m19
Caption = "数据初始化"
Shortcut = {F2}
End
Begin VB.Menu m20
Caption = "系统日志"
End
End
Begin VB.Menu fzgj
Caption = "【辅助工具】"
Begin VB.Menu m21
Caption = "计算器"
End
Begin VB.Menu m22
Caption = "记事本"
End
Begin VB.Menu m23
Caption = "通讯录"
End
Begin VB.Menu m24
Caption = "银行账号"
End
End
Begin VB.Menu bz
Caption = "【帮助】"
Begin VB.Menu m16
Caption = "本单位信息"
End
Begin VB.Menu l5
Caption = "-"
End
Begin VB.Menu m25
Caption = "帮助"
End
Begin VB.Menu m26
Caption = "关于"
Shortcut = {F12}
End
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -