?? 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 + -