固定资产管理系统源代码 mdb数据库的 -

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0"; "MSComCtl.ocx"
Begin VB.Form 主页
BackColor = &H00FFFFFF&
Caption = "固定资产管理系统"
ClientHeight = 10275
ClientLeft = 165
ClientTop = 450
ClientWidth = 23760
Icon = "资产登记.frx":0000
LinkTopic = "Form1"
ScaleHeight = 10275
ScaleWidth = 23760
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 495
Left = 4800
Picture = "资产登记.frx":324A
ScaleHeight = 495
ScaleWidth = 615
TabIndex = 5
Top = 1440
Width = 615
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1050
Left = 0
Picture = "资产登记.frx":1C1DA
ScaleHeight = 1020
ScaleWidth = 15780
TabIndex = 1
Top = 0
Width = 15810
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "广东暖丰电热科技固定资产管理系统"
BeginProperty Font
Name = "微软雅黑"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000F&
Height = 585
Left = 120
TabIndex = 2
Top = 240
Width = 6960
End
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 7935
Left = 0
ScaleHeight = 7905
ScaleWidth = 2505
TabIndex = 0
Top = 1080
Width = 2535
Begin MSComctlLib.TreeView TreeView1
Height = 6255
Left = 240
TabIndex = 9
Top = 1440
Width = 2175
_ExtentX = 3836
_ExtentY = 11033
_Version = 393217
LabelEdit = 1
Style = 7
ImageList = "ImageList1"
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "微软雅黑"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "权限："
Height = 255
Left = 480
TabIndex = 8
Top = 720
Width = 1095
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "用户："
Height = 255
Left = 480
TabIndex = 7
Top = 240
Width = 1095
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "ADMIN"
Height = 255
Left = 1200
TabIndex = 6
Top = 720
Width = 1095
End
Begin VB.Line Line1
X1 = 120
X2 = 2400
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "ADMIN"
Height = 255
Left = 1200
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.Image Image3
Height = 480
Left = 120
Picture = "资产登记.frx":20AFB
Top = 240
Width = 480
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 13200
Top = 2760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "资产登记.frx":2173F
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "资产登记.frx":21A93
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "资产登记.frx":21C24
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "资产登记.frx":21DB2
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "资产登记.frx":22106
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 4
Top = 10020
Width = 23760
_ExtentX = 41910
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Object.Width = 28187
MinWidth = 3528
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Enabled = 0 'False
Object.Width = 7056
MinWidth = 7056
Text = "Copyright 2015 广东暖丰电热科技资讯部"
TextSave = "Copyright 2015 广东暖丰电热科技资讯部"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "9:06"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Object.Width = 3528
MinWidth = 3528
Picture = "资产登记.frx":226A0
TextSave = "2015/8/1"
EndProperty
EndProperty
End
End
Attribute VB_Name = "主页"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CN As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sq1 As String
Dim sqkm As String
Dim sqjg As String
Dim sqzz As String
Public yhxhcd As String '用户序号传递
Private Sub Form_Load()
Label4.Caption = 登录界面.txtUserName.Text
Label3.Caption = 登录界面.cmbUserType.Text
Set nodx = TreeView1.Nodes.Add(, , "固定资产管理", "固定资产管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "资产借还管理", "资产借还管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "资产维修管理", "资产维修管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "资产报废管理", "资产报废管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "系统资料维护", "系统资料维护", 2)
'建立名称为"蒲子明"的父节点,选择索引为1的图像
Set nodx = TreeView1.Nodes.Add("固定资产管理", tvwChild, "child01", "资产台帐管理", 5)
Set nodx = TreeView1.Nodes.Add("资产借还管理", tvwChild, "child02", "资产借用管理", 5)
Set nodx = TreeView1.Nodes.Add("资产借还管理", tvwChild, "child03", "资产归还管理", 5)
Set nodx = TreeView1.Nodes.Add("资产维修管理", tvwChild, "child04", "资产维修管理", 5)
Set nodx = TreeView1.Nodes.Add("资产报废管理", tvwChild, "child05", "资产报废管理", 5)
Set nodx = TreeView1.Nodes.Add("系统资料维护", tvwChild, "child06", "资产信息设置", 5)
Set nodx = TreeView1.Nodes.Add("系统资料维护", tvwChild, "child07", "用户资料添加", 5)
End Sub
Private Sub Form_Resize()
If Me.Width > 10350 Or Me.Height > 7440 Then
Me.Picture1.Width = Me.ScaleWidth - 50
Me.Picture2.Width = Me.ScaleWidth - 2850
Me.Picture2.Height = Me.ScaleHeight - 2500
Me.Picture3.Height = Me.ScaleHeight - 1300
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub TreeView1_Expand(ByVal Node As MSComCtlLib.Node)
Node.ExpandedImage = 3 '节点被展开时,选择索引为2的图像
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComCtlLib.Node)
If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无
For I = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(I).Selected Then
'MsgBox "index=" & i
If I = 6 Then
资产台帐管理.Show 1
End If
If I = 7 Then
资产借用管理.Show 1
End If
If I = 8 Then
资产归还管理.Show 1
End If
If I = 9 Then
'资产维修管理.Show 1
End If
If I = 10 Then
'资产报废管理.Show 1
End If
If I = 11 Then
资产信息设置.Show 1
End If
If I = 12 Then
用户资料添加.Show 1
End If
End If
Next I
End If
End Sub

复制代码