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

全部资料51hei下载地址：
固定资产管理系统.rar (1.83 MB, 下载次数: 16)

2020-3-28 00:34 上传

点击文件名下载附件
下载积分: 黑币 -5

1. VERSION 5.00
   
2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0"; "MSComCtl.ocx"
   
3. Begin VB.Form 主页
   
4.    BackColor       =   &H00FFFFFF&
   
5.    Caption         =   "固定资产管理系统"
   
6.    ClientHeight    =   10275
   
7.    ClientLeft      =   165
   
8.    ClientTop       =   450
   
9.    ClientWidth     =   23760
   
10.    Icon            =   "资产登记.frx":0000
    
11.    LinkTopic       =   "Form1"
    
12.    ScaleHeight     =   10275
    
13.    ScaleWidth      =   23760
    
14.    StartUpPosition =   2  '屏幕中心
    
15.    WindowState     =   2  'Maximized
    
16.    Begin VB.PictureBox Picture2
    
17.       Appearance      =   0  'Flat
    
18.       BackColor       =   &H80000005&
    
19.       BorderStyle     =   0  'None
    
20.       ForeColor       =   &H80000008&
    
21.       Height          =   495
    
22.       Left            =   4800
    
23.       Picture         =   "资产登记.frx":324A
    
24.       ScaleHeight     =   495
    
25.       ScaleWidth      =   615
    
26.       TabIndex        =   5
    
27.       Top             =   1440
    
28.       Width           =   615
    
29.    End
    
30.    Begin VB.PictureBox Picture1
    
31.       Appearance      =   0  'Flat
    
32.       BackColor       =   &H80000005&
    
33.       ForeColor       =   &H80000008&
    
34.       Height          =   1050
    
35.       Left            =   0
    
36.       Picture         =   "资产登记.frx":1C1DA
    
37.       ScaleHeight     =   1020
    
38.       ScaleWidth      =   15780
    
39.       TabIndex        =   1
    
40.       Top             =   0
    
41.       Width           =   15810
    
42.       Begin VB.Label Label1
    
43.          AutoSize        =   -1  'True
    
44.          BackStyle       =   0  'Transparent
    
45.          Caption         =   "广东暖丰电热科技固定资产管理系统"
    
46.          BeginProperty Font
    
47.             Name            =   "微软雅黑"
    
48.             Size            =   21.75
    
49.             Charset         =   134
    
50.             Weight          =   700
    
51.             Underline       =   0   'False
    
52.             Italic          =   0   'False
    
53.             Strikethrough   =   0   'False
    
54.          EndProperty
    
55.          ForeColor       =   &H8000000F&
    
56.          Height          =   585
    
57.          Left            =   120
    
58.          TabIndex        =   2
    
59.          Top             =   240
    
60.          Width           =   6960
    
61.       End
    
62.    End
    
63.    Begin VB.PictureBox Picture3
    
64.       Appearance      =   0  'Flat
    
65.       BackColor       =   &H80000005&
    
66.       ForeColor       =   &H80000008&
    
67.       Height          =   7935
    
68.       Left            =   0
    
69.       ScaleHeight     =   7905
    
70.       ScaleWidth      =   2505
    
71.       TabIndex        =   0
    
72.       Top             =   1080
    
73.       Width           =   2535
    
74.       Begin MSComctlLib.TreeView TreeView1
    
75.          Height          =   6255
    
76.          Left            =   240
    
77.          TabIndex        =   9
    
78.          Top             =   1440
    
79.          Width           =   2175
    
80.          _ExtentX        =   3836
    
81.          _ExtentY        =   11033
    
82.          _Version        =   393217
    
83.          LabelEdit       =   1
    
84.          Style           =   7
    
85.          ImageList       =   "ImageList1"
    
86.          Appearance      =   0
    
87.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
    
88.             Name            =   "微软雅黑"
    
89.             Size            =   9.75
    
90.             Charset         =   134
    
91.             Weight          =   400
    
92.             Underline       =   0   'False
    
93.             Italic          =   0   'False
    
94.             Strikethrough   =   0   'False
    
95.          EndProperty
    
96.       End
    
97.       Begin VB.Label Label5
    
98.          Alignment       =   2  'Center
    
99.          BackStyle       =   0  'Transparent
    
100.          Caption         =   "权限："
     
101.          Height          =   255
     
102.          Left            =   480
     
103.          TabIndex        =   8
     
104.          Top             =   720
     
105.          Width           =   1095
     
106.       End
     
107.       Begin VB.Label Label2
     
108.          Alignment       =   2  'Center
     
109.          BackStyle       =   0  'Transparent
     
110.          Caption         =   "用户："
     
111.          Height          =   255
     
112.          Left            =   480
     
113.          TabIndex        =   7
     
114.          Top             =   240
     
115.          Width           =   1095
     
116.       End
     
117.       Begin VB.Label Label3
     
118.          Alignment       =   2  'Center
     
119.          BackStyle       =   0  'Transparent
     
120.          Caption         =   "ADMIN"
     
121.          Height          =   255
     
122.          Left            =   1200
     
123.          TabIndex        =   6
     
124.          Top             =   720
     
125.          Width           =   1095
     
126.       End
     
127.       Begin VB.Line Line1
     
128.          X1              =   120
     
129.          X2              =   2400
     
130.          Y1              =   1080
     
131.          Y2              =   1080
     
132.       End
     
133.       Begin VB.Label Label4
     
134.          Alignment       =   2  'Center
     
135.          BackStyle       =   0  'Transparent
     
136.          Caption         =   "ADMIN"
     
137.          Height          =   255
     
138.          Left            =   1200
     
139.          TabIndex        =   3
     
140.          Top             =   240
     
141.          Width           =   1095
     
142.       End
     
143.       Begin VB.Image Image3
     
144.          Height          =   480
     
145.          Left            =   120
     
146.          Picture         =   "资产登记.frx":20AFB
     
147.          Top             =   240
     
148.          Width           =   480
     
149.       End
     
150.    End
     
151.    Begin MSComctlLib.ImageList ImageList1
     
152.       Left            =   13200
     
153.       Top             =   2760
     
154.       _ExtentX        =   1005
     
155.       _ExtentY        =   1005
     
156.       BackColor       =   -2147483643
     
157.       ImageWidth      =   16
     
158.       ImageHeight     =   16
     
159.       MaskColor       =   12632256
     
160.       _Version        =   393216
     
161.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
     
162.          NumListImages   =   5
     
163.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
     
164.             Picture         =   "资产登记.frx":2173F
     
165.             Key             =   ""
     
166.          EndProperty
     
167.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
     
168.             Picture         =   "资产登记.frx":21A93
     
169.             Key             =   ""
     
170.          EndProperty
     
171.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
     
172.             Picture         =   "资产登记.frx":21C24
     
173.             Key             =   ""
     
174.          EndProperty
     
175.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
     
176.             Picture         =   "资产登记.frx":21DB2
     
177.             Key             =   ""
     
178.          EndProperty
     
179.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
     
180.             Picture         =   "资产登记.frx":22106
     
181.             Key             =   ""
     
182.          EndProperty
     
183.       EndProperty
     
184.    End
     
185.    Begin MSComctlLib.StatusBar StatusBar1
     
186.       Align           =   2  'Align Bottom
     
187.       Height          =   255
     
188.       Left            =   0
     
189.       TabIndex        =   4
     
190.       Top             =   10020
     
191.       Width           =   23760
     
192.       _ExtentX        =   41910
     
193.       _ExtentY        =   450
     
194.       _Version        =   393216
     
195.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
     
196.          NumPanels       =   4
     
197.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
     
198.             Alignment       =   1
     
199.             AutoSize        =   1
     
200.             Object.Width           =   28187
     
201.             MinWidth        =   3528
     
202.          EndProperty
     
203.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
     
204.             Alignment       =   1
     
205.             Enabled         =   0   'False
     
206.             Object.Width           =   7056
     
207.             MinWidth        =   7056
     
208.             Text            =   "Copyright 2015 广东暖丰电热科技资讯部"
     
209.             TextSave        =   "Copyright 2015 广东暖丰电热科技资讯部"
     
210.          EndProperty
     
211.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
     
212.             Style           =   5
     
213.             Alignment       =   1
     
214.             TextSave        =   "9:06"
     
215.          EndProperty
     
216.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
     
217.             Style           =   6
     
218.             Alignment       =   1
     
219.             Object.Width           =   3528
     
220.             MinWidth        =   3528
     
221.             Picture         =   "资产登记.frx":226A0
     
222.             TextSave        =   "2015/8/1"
     
223.          EndProperty
     
224.       EndProperty
     
225.    End
     
226. End
     
227. Attribute VB_Name = "主页"
     
228. Attribute VB_GlobalNameSpace = False
     
229. Attribute VB_Creatable = False
     
230. Attribute VB_PredeclaredId = True
     
231. Attribute VB_Exposed = False
     
232. Dim CN As New ADODB.Connection
     
233. Dim rs1 As New ADODB.Recordset
     
234. Dim sq1 As String
     
235. Dim sqkm As String
     
236. Dim sqjg As String
     
237. Dim sqzz As String
     
238. Public yhxhcd As String '用户序号传递
     
239. 
     
240. 
     
241. 
     
242. 
     
243. Private Sub Form_Load()
     
244. 
     
245. Label4.Caption = 登录界面.txtUserName.Text
     
246. Label3.Caption = 登录界面.cmbUserType.Text
     
247. 
     
248. Set nodx = TreeView1.Nodes.Add(, , "固定资产管理", "固定资产管理", 2)
     
249. Set nodx = TreeView1.Nodes.Add(, , "资产借还管理", "资产借还管理", 2)
     
250. Set nodx = TreeView1.Nodes.Add(, , "资产维修管理", "资产维修管理", 2)
     
251. Set nodx = TreeView1.Nodes.Add(, , "资产报废管理", "资产报废管理", 2)
     
252. Set nodx = TreeView1.Nodes.Add(, , "系统资料维护", "系统资料维护", 2)
     
253. 
     
254. 
     
255. 
     
256. '建立名称为"蒲子明"的父节点,选择索引为1的图像
     
257. Set nodx = TreeView1.Nodes.Add("固定资产管理", tvwChild, "child01", "资产台帐管理", 5)
     
258. 
     
259. Set nodx = TreeView1.Nodes.Add("资产借还管理", tvwChild, "child02", "资产借用管理", 5)
     
260. Set nodx = TreeView1.Nodes.Add("资产借还管理", tvwChild, "child03", "资产归还管理", 5)
     
261. 
     
262. Set nodx = TreeView1.Nodes.Add("资产维修管理", tvwChild, "child04", "资产维修管理", 5)
     
263. 
     
264. Set nodx = TreeView1.Nodes.Add("资产报废管理", tvwChild, "child05", "资产报废管理", 5)
     
265. 
     
266. 
     
267. Set nodx = TreeView1.Nodes.Add("系统资料维护", tvwChild, "child06", "资产信息设置", 5)
     
268. 
     
269. Set nodx = TreeView1.Nodes.Add("系统资料维护", tvwChild, "child07", "用户资料添加", 5)
     
270. 
     
271. 
     
272. 
     
273. 
     
274. 
     
275. 
     
276. End Sub
     
277. Private Sub Form_Resize()
     
278. 
     
279. If Me.Width > 10350 Or Me.Height > 7440 Then
     
280.    Me.Picture1.Width = Me.ScaleWidth - 50
     
281.    
     
282.    Me.Picture2.Width = Me.ScaleWidth - 2850
     
283.    Me.Picture2.Height = Me.ScaleHeight - 2500
     
284.    
     
285.    Me.Picture3.Height = Me.ScaleHeight - 1300
     
286.    
     
287. End If
     
288. End Sub
     
289. Private Sub Form_Unload(Cancel As Integer)
     
290. End
     
291. End Sub
     
292. 
     
293. Private Sub TreeView1_Expand(ByVal Node As MSComCtlLib.Node)
     
294. Node.ExpandedImage = 3 '节点被展开时,选择索引为2的图像
     
295. End Sub
     
296. Private Sub TreeView1_NodeClick(ByVal Node As MSComCtlLib.Node)
     
297. 
     
298. If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无
     
299. For I = 1 To TreeView1.Nodes.Count
     
300. If TreeView1.Nodes(I).Selected Then
     
301. 
     
302. 'MsgBox "index=" & i
     
303. 
     
304. If I = 6 Then
     
305. 
     
306. 资产台帐管理.Show 1
     
307. 
     
308. End If
     
309. 
     
310. If I = 7 Then
     
311. 
     
312. 资产借用管理.Show 1
     
313. 
     
314. End If
     
315. 
     
316. If I = 8 Then
     
317. 
     
318. 资产归还管理.Show 1
     
319. 
     
320. End If
     
321. 
     
322. 
     
323. If I = 9 Then
     
324. 
     
325. '资产维修管理.Show 1
     
326. 
     
327. End If
     
328. 
     
329. 
     
330. If I = 10 Then
     
331. 
     
332. '资产报废管理.Show 1
     
333. 
     
334. End If
     
335. 
     
336. 
     
337. 
     
338. 
     
339. If I = 11 Then
     
340. 
     
341. 资产信息设置.Show 1
     
342. 
     
343. End If
     
344. 
     
345. 
     
346. If I = 12 Then
     
347. 
     
348. 用户资料添加.Show 1
     
349. 
     
350. End If
     
351. 
     
352. 
     
353. 
     
354. 
     
355. 
     
356. End If
     
357. Next I
     
358. End If
     
359. End Sub
     

复制代码