固定資產(chǎn)管理系統(tǒng)源代碼 mdb數(shù)據(jù)庫的

ID:717320 · 發(fā)表于 2020-3-28 00:34

全部資料51hei下載地址：

固定資產(chǎn)管理系統(tǒng).rar (1.83 MB, 下載次數(shù): 17)

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0"; "MSComCtl.ocx"
Begin VB.Form 主頁
BackColor = &H00FFFFFF&
Caption = "固定資產(chǎn)管理系統(tǒng)"
ClientHeight = 10275
ClientLeft = 165
ClientTop = 450
ClientWidth = 23760
Icon = "資產(chǎn)登記.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 = "資產(chǎn)登記.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 = "資產(chǎn)登記.frx":1C1DA
ScaleHeight = 1020
ScaleWidth = 15780
TabIndex = 1
Top = 0
Width = 15810
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "廣東暖豐電熱科技固定資產(chǎn)管理系統(tǒng)"
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 = "權(quán)限："
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 = "資產(chǎn)登記.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 = "資產(chǎn)登記.frx":2173F
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "資產(chǎn)登記.frx":21A93
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "資產(chǎn)登記.frx":21C24
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "資產(chǎn)登記.frx":21DB2
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "資產(chǎn)登記.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
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 = "資產(chǎn)登記.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(, , "固定資產(chǎn)管理", "固定資產(chǎn)管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "資產(chǎn)借還管理", "資產(chǎn)借還管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "資產(chǎn)維修管理", "資產(chǎn)維修管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "資產(chǎn)報廢管理", "資產(chǎn)報廢管理", 2)
Set nodx = TreeView1.Nodes.Add(, , "系統(tǒng)資料維護", "系統(tǒng)資料維護", 2)
'建立名稱為"蒲子明"的父節(jié)點,選擇索引為1的圖像
Set nodx = TreeView1.Nodes.Add("固定資產(chǎn)管理", tvwChild, "child01", "資產(chǎn)臺帳管理", 5)
Set nodx = TreeView1.Nodes.Add("資產(chǎn)借還管理", tvwChild, "child02", "資產(chǎn)借用管理", 5)
Set nodx = TreeView1.Nodes.Add("資產(chǎn)借還管理", tvwChild, "child03", "資產(chǎn)歸還管理", 5)
Set nodx = TreeView1.Nodes.Add("資產(chǎn)維修管理", tvwChild, "child04", "資產(chǎn)維修管理", 5)
Set nodx = TreeView1.Nodes.Add("資產(chǎn)報廢管理", tvwChild, "child05", "資產(chǎn)報廢管理", 5)
Set nodx = TreeView1.Nodes.Add("系統(tǒng)資料維護", tvwChild, "child06", "資產(chǎn)信息設置", 5)
Set nodx = TreeView1.Nodes.Add("系統(tǒng)資料維護", 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 '節(jié)點被展開時,選擇索引為2的圖像
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComCtlLib.Node)
If TreeView1.SelectedItem.Children = 0 Then '檢查是否有子節(jié)點,0為無
For I = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(I).Selected Then
'MsgBox "index=" & i
If I = 6 Then
資產(chǎn)臺帳管理.Show 1
End If
If I = 7 Then
資產(chǎn)借用管理.Show 1
End If
If I = 8 Then
資產(chǎn)歸還管理.Show 1
End If
If I = 9 Then
'資產(chǎn)維修管理.Show 1
End If
If I = 10 Then
'資產(chǎn)報廢管理.Show 1
End If
If I = 11 Then
資產(chǎn)信息設置.Show 1
End If
If I = 12 Then
用戶資料添加.Show 1
End If
End If
Next I
End If
End Sub

復制代碼

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

固定資產(chǎn)管理系統(tǒng)源代碼 mdb數(shù)據(jù)庫的

評分