欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 2978|回復: 0
打印 上一主題 下一主題
收起左側

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

[復制鏈接]
跳轉到指定樓層
樓主


全部資料51hei下載地址：
固定資產管理系統.rar (1.83 MB, 下載次數: 17)

  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 '用戶序號傳遞




  243. Private Sub Form_Load()

  245. Label4.Caption = 登錄界面.txtUserName.Text
  246. Label3.Caption = 登錄界面.cmbUserType.Text

  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)



  256. '建立名稱為"蒲子明"的父節點,選擇索引為1的圖像
  257. Set nodx = TreeView1.Nodes.Add("固定資產管理", tvwChild, "child01", "資產臺帳管理", 5)

  259. Set nodx = TreeView1.Nodes.Add("資產借還管理", tvwChild, "child02", "資產借用管理", 5)
  260. Set nodx = TreeView1.Nodes.Add("資產借還管理", tvwChild, "child03", "資產歸還管理", 5)

  262. Set nodx = TreeView1.Nodes.Add("資產維修管理", tvwChild, "child04", "資產維修管理", 5)

  264. Set nodx = TreeView1.Nodes.Add("資產報廢管理", tvwChild, "child05", "資產報廢管理", 5)


  267. Set nodx = TreeView1.Nodes.Add("系統資料維護", tvwChild, "child06", "資產信息設置", 5)

  269. Set nodx = TreeView1.Nodes.Add("系統資料維護", tvwChild, "child07", "用戶資料添加", 5)






  276. End Sub
  277. Private Sub Form_Resize()

  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

  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)

  298. If TreeView1.SelectedItem.Children = 0 Then '檢查是否有子節點,0為無
  299. For I = 1 To TreeView1.Nodes.Count
  300. If TreeView1.Nodes(I).Selected Then

  302. 'MsgBox "index=" & i

  304. If I = 6 Then

  306. 資產臺帳管理.Show 1

  308. End If

  310. If I = 7 Then

  312. 資產借用管理.Show 1

  314. End If

  316. If I = 8 Then

  318. 資產歸還管理.Show 1

  320. End If


  323. If I = 9 Then

  325. '資產維修管理.Show 1

  327. End If


  330. If I = 10 Then

  332. '資產報廢管理.Show 1

  334. End If




  339. If I = 11 Then

  341. 資產信息設置.Show 1

  343. End If


  346. If I = 12 Then

  348. 用戶資料添加.Show 1

  350. End If





  356. End If
  357. Next I
  358. End If
  359. End Sub
復制代碼


評分

參與人數 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏2 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表