固定資產管理系統源代碼 mdb數據庫的

ID:717320 · 發表于 2020-3-28 00:34

全部資料51hei下載地址：

固定資產管理系統.rar (1.83 MB, 下載次數: 17)

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

復制代碼

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

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

固定資產管理系統源代碼 mdb數據庫的

評分