📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_main
Caption = "明日物资管理系统 V1.0"
ClientHeight = 7485
ClientLeft = 60
ClientTop = 630
ClientWidth = 12000
Icon = "frm_main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "frm_main.frx":164A
ScaleHeight = 7485
ScaleWidth = 12000
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.TreeView TreeView1
Height = 5835
Left = 60
TabIndex = 1
Top = 1185
Width = 2865
_ExtentX = 5054
_ExtentY = 10292
_Version = 393217
LabelEdit = 1
Style = 5
ImageList = "ImageList1"
Appearance = 0
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 0
Top = 7230
Width = 12000
_ExtentX = 21167
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 3885
Top = 4725
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":27F34
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":2958E
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "退出"
Height = 195
Index = 3
Left = 11220
TabIndex = 6
Top = 615
Width = 405
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "网上明日"
Height = 195
Index = 2
Left = 10065
TabIndex = 5
Top = 615
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "关于"
Height = 195
Index = 1
Left = 9165
TabIndex = 4
Top = 615
Width = 405
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "帮助"
Height = 195
Index = 0
Left = 8280
TabIndex = 3
Top = 615
Width = 405
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Height = 285
Left = 8505
TabIndex = 2
Top = 450
Width = 555
End
Begin VB.Menu m
Caption = "物资进货管理"
Index = 0
WindowList = -1 'True
Begin VB.Menu m1
Caption = "供应商资料管理"
Index = 0
End
Begin VB.Menu m1
Caption = "物资采购"
Index = 1
End
Begin VB.Menu m1
Caption = "物资送检"
Index = 2
End
Begin VB.Menu m1
Caption = "检验结果"
Index = 3
End
Begin VB.Menu m1
Caption = "审核入库"
Index = 4
End
Begin VB.Menu m1
Caption = "进货查询"
Index = 5
End
Begin VB.Menu m1
Caption = "送检查询"
Index = 6
End
Begin VB.Menu m1
Caption = "检验结果查询"
Index = 7
End
End
Begin VB.Menu m
Caption = "物资退货管理"
Index = 1
Begin VB.Menu m2
Caption = "不合格物资退货"
Index = 0
End
Begin VB.Menu m2
Caption = "合格物资退货"
Index = 1
End
Begin VB.Menu m2
Caption = "退货查询"
Index = 2
End
End
Begin VB.Menu m
Caption = "库存管理"
Index = 2
Begin VB.Menu m3
Caption = "仓库管理"
Index = 0
End
Begin VB.Menu m3
Caption = "物资资料管理"
Index = 1
End
Begin VB.Menu m3
Caption = "库存查询"
Index = 2
End
End
Begin VB.Menu m
Caption = "统计报表"
Index = 3
Begin VB.Menu m4
Caption = "材料进货检验统计台帐"
Index = 0
End
Begin VB.Menu m4
Caption = "物资盘点报表"
Index = 1
End
Begin VB.Menu m4
Caption = "不合格商品报表"
Index = 2
End
End
Begin VB.Menu m
Caption = "基本资料管理"
Index = 4
Begin VB.Menu m5
Caption = "商品类别管理"
Index = 0
End
Begin VB.Menu m5
Caption = "经手人管理"
Index = 1
End
Begin VB.Menu m5
Caption = "本单位信息"
Index = 2
End
End
Begin VB.Menu m
Caption = "系统管理"
Index = 5
Begin VB.Menu m6
Caption = "用户管理"
Index = 0
End
Begin VB.Menu m6
Caption = "密码修改"
Index = 1
End
Begin VB.Menu m6
Caption = "数据初始化"
Index = 2
End
End
Begin VB.Menu m
Caption = "帮助"
Index = 6
Begin VB.Menu m7
Caption = "帮助"
Index = 0
End
Begin VB.Menu m7
Caption = "关于"
Index = 1
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim rs1 As New ADODB.Recordset
Dim i, j As Integer
Private Sub Form_Load()
Dim pnlX As Panel
'添加多于两个的面板，并将它们设置为目录
Set pnlX = StatusBar1.Panels.Add
pnlX.AutoSize = sbrContents
Set pnlX = StatusBar1.Panels.Add
pnlX.AutoSize = sbrContents
StatusBar1.Panels(1).text = mytag
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "X1", "物资进货管理", 1)
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C1", "供应商资料管理", 2)
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C2", "物资采购", 2)
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C3", "物资送检", 2)
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C4", "检验结果", 2)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -