📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmmain
Caption = "管理软件"
ClientHeight = 7920
ClientLeft = 165
ClientTop = 555
ClientWidth = 10335
LinkTopic = "Form1"
ScaleHeight = 7920
ScaleWidth = 10335
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
Height = 7455
IMEMode = 1 'ON
Left = 2040
Picture = "frmmain.frx":0000
ScaleHeight = 7395
ScaleWidth = 8235
TabIndex = 2
Top = 0
Width = 8295
Begin VB.Timer Timer1
Interval = 100
Left = 600
Top = 5040
End
End
Begin MSComctlLib.StatusBar SBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 7545
Width = 10335
_ExtentX = 18230
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 6720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":14183
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":18BFF
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 7455
Left = 0
TabIndex = 0
Top = 0
Width = 2055
_ExtentX = 3625
_ExtentY = 13150
_Version = 393217
Style = 7
Appearance = 1
End
Begin VB.Menu 系统信息
Caption = "系统信息"
Begin VB.Menu 登陆
Caption = "登陆"
End
Begin VB.Menu 注销
Caption = "注销"
End
End
Begin VB.Menu 商品信息维护
Caption = "商品信息维护"
Begin VB.Menu 添加商品
Caption = "添加商品"
End
Begin VB.Menu 查询商品
Caption = "查询商品"
End
Begin VB.Menu 修改删除商品信息
Caption = "修改删除"
End
End
Begin VB.Menu 进货信息维护
Caption = "进货信息维护"
Begin VB.Menu 添加进货记录
Caption = "添加记录"
End
Begin VB.Menu 查询进货记录
Caption = "查询记录"
End
Begin VB.Menu 修改删除进货记录
Caption = "修改删除"
End
End
Begin VB.Menu 销售信息维护
Caption = "销售信息维护"
Begin VB.Menu 添加销售记录
Caption = "添加记录"
End
Begin VB.Menu 查询销售记录
Caption = "查询记录"
End
Begin VB.Menu 按日查询
Caption = "按日查询"
End
Begin VB.Menu 添加销售修改
Caption = "添加修改"
End
End
Begin VB.Menu 库存信息维护
Caption = "库存信息维护"
Begin VB.Menu 查询库存
Caption = "查询库存"
End
End
Begin VB.Menu 关于程序
Caption = "关于"
Begin VB.Menu 关于程序1
Caption = "关于程序"
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Call Addtree
End Sub
Private Sub Timer1_Timer()
SBar.Panels(1).Text = "操作者:" & LoginUserName
End Sub
Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
'Node.ExpandedImage = 2
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If TreeView1.Nodes("SP01").Selected Then
frmsp.Show
End If
If TreeView1.Nodes("SP02").Selected Then
frmspinfo.Show
End If
If TreeView1.Nodes("SP03").Selected Then
frmspinfo.Show
End If
If TreeView1.Nodes("SP04").Selected Then
frmspinfo.Show
End If
If TreeView1.Nodes("JH01").Selected Then
frmJinhuoAdd.Show
End If
If TreeView1.Nodes("JH02").Selected Then
frmSearchDayJH.Show
End If
If TreeView1.Nodes("JH03").Selected Then
frmJinhuoAdd.Show
End If
If TreeView1.Nodes("JH04").Selected Then
frmJinhuoAdd.Show
End If
If TreeView1.Nodes("XS01").Selected Then
frmxiaoshou.Show
End If
If TreeView1.Nodes("XS02").Selected Then
frmSearchId.Show
End If
If TreeView1.Nodes("XS03").Selected Then
frmCHSale.Show
End If
If TreeView1.Nodes("XS04").Selected Then
frmCHSale.Show
End If
If TreeView1.Nodes("XS05").Selected Then
frmSearchDay.Show
End If
If TreeView1.Nodes("KC01").Selected Then
frmKCSearch.Show
End If
If TreeView1.Nodes("CX01").Selected Then
frmAbout.Show
End If
End Sub
Public Sub Addtree()
TreeView1.LineStyle = tvwTreeLines
'TreeView1.ImageList = ImageList1
Dim nodx As Node
TreeView1.Style = tvwTreelinesPlusMinusPictureText
Set nodx = TreeView1.Nodes.Add(, , "SP", "商品信息")
Set nodx = TreeView1.Nodes.Add("SP", tvwChild, "SP01", "添加商品")
Set nodx = TreeView1.Nodes.Add("SP", tvwChild, "SP02", "查询商品")
Set nodx = TreeView1.Nodes.Add("SP", tvwChild, "SP03", "修改商品")
Set nodx = TreeView1.Nodes.Add("SP", tvwChild, "SP04", "删除商品")
Set nodx = TreeView1.Nodes.Add(, , "JH", "进货信息")
Set nodx = TreeView1.Nodes.Add("JH", tvwChild, "JH01", "添加进货记录")
Set nodx = TreeView1.Nodes.Add("JH", tvwChild, "JH02", "查询进货记录")
Set nodx = TreeView1.Nodes.Add("JH", tvwChild, "JH03", "修改进货记录")
Set nodx = TreeView1.Nodes.Add("JH", tvwChild, "JH04", "删除进货记录")
Set nodx = TreeView1.Nodes.Add(, , "XS", "销售信息")
Set nodx = TreeView1.Nodes.Add("XS", tvwChild, "XS01", "添加销售记录")
Set nodx = TreeView1.Nodes.Add("XS", tvwChild, "XS02", "查询销售记录")
Set nodx = TreeView1.Nodes.Add("XS", tvwChild, "XS05", "按日查询销售")
Set nodx = TreeView1.Nodes.Add("XS", tvwChild, "XS03", "修改销售记录")
Set nodx = TreeView1.Nodes.Add("XS", tvwChild, "XS04", "删除销售记录")
Set nodx = TreeView1.Nodes.Add(, , "KC", "库存信息")
Set nodx = TreeView1.Nodes.Add("KC", tvwChild, "KC01", "查询库存记录")
Set nodx = TreeView1.Nodes.Add(, , "CX", "程序信息")
Set nodx = TreeView1.Nodes.Add("CX", tvwChild, "CX01", "关于本程序")
End Sub
Private Sub 按日查询_Click()
frmSearchDayJH.Show
End Sub
Private Sub 查询进货记录_Click()
frmSearchDayJH.Show
End Sub
Private Sub 查询库存_Click()
frmKCSearch.Show
End Sub
Private Sub 查询商品_Click()
frmspinfo.Show
End Sub
Private Sub 查询销售记录_Click()
frmSearchId.Show
End Sub
Private Sub 登陆_Click()
If (IsLogin) Then
MsgBox "你已经登陆~", vbOKOnly, "系统提示"
Else
frmlogin.Show
End If
End Sub
Private Sub 关于程序1_Click()
frmAbout.Show
End Sub
Private Sub 添加进货记录_Click()
frmJinhuoAdd.Show
End Sub
Private Sub 添加商品_Click()
frmsp.Show
End Sub
Private Sub 添加销售记录_Click()
frmxiaoshou.Show
End Sub
Private Sub 添加销售修改_Click()
frmCHSale.Show
End Sub
Private Sub 修改删除进货记录_Click()
frmCHJinHuo.Show
End Sub
Private Sub 修改删除商品信息_Click()
frmspinfo.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -