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

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 3024|回復: 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 '用戶序號傳遞




  239. Private Sub Form_Load()

  240. Label4.Caption = 登錄界面.txtUserName.Text
  241. Label3.Caption = 登錄界面.cmbUserType.Text

  242. Set nodx = TreeView1.Nodes.Add(, , "固定資產管理", "固定資產管理", 2)
  243. Set nodx = TreeView1.Nodes.Add(, , "資產借還管理", "資產借還管理", 2)
  244. Set nodx = TreeView1.Nodes.Add(, , "資產維修管理", "資產維修管理", 2)
  245. Set nodx = TreeView1.Nodes.Add(, , "資產報廢管理", "資產報廢管理", 2)
  246. Set nodx = TreeView1.Nodes.Add(, , "系統資料維護", "系統資料維護", 2)



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

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

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

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


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

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






  255. End Sub
  256. Private Sub Form_Resize()

  257. If Me.Width > 10350 Or Me.Height > 7440 Then
  258.    Me.Picture1.Width = Me.ScaleWidth - 50
  259.    
  260.    Me.Picture2.Width = Me.ScaleWidth - 2850
  261.    Me.Picture2.Height = Me.ScaleHeight - 2500
  262.    
  263.    Me.Picture3.Height = Me.ScaleHeight - 1300
  264.    
  265. End If
  266. End Sub
  267. Private Sub Form_Unload(Cancel As Integer)
  268. End
  269. End Sub

  270. Private Sub TreeView1_Expand(ByVal Node As MSComCtlLib.Node)
  271. Node.ExpandedImage = 3 '節點被展開時,選擇索引為2的圖像
  272. End Sub
  273. Private Sub TreeView1_NodeClick(ByVal Node As MSComCtlLib.Node)

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

  277. 'MsgBox "index=" & i

  278. If I = 6 Then

  279. 資產臺帳管理.Show 1

  280. End If

  281. If I = 7 Then

  282. 資產借用管理.Show 1

  283. End If

  284. If I = 8 Then

  285. 資產歸還管理.Show 1

  286. End If


  287. If I = 9 Then

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

  289. End If


  290. If I = 10 Then

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

  292. End If




  293. If I = 11 Then

  294. 資產信息設置.Show 1

  295. End If


  296. If I = 12 Then

  297. 用戶資料添加.Show 1

  298. End If





  299. End If
  300. Next I
  301. End If
  302. End Sub
復制代碼


評分

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

查看全部評分

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

使用道具 舉報

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

本版積分規則

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

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板: 日日干日日操 | 亚洲精品字幕 | 欧洲性视频| 欧美片网站yy | 一级在线视频 | 亚洲精品在线观看视频 | 日韩国产精品视频 | 久久久一级片 | 亚洲精品观看 | 亚洲永久精品视频 | 日韩黄色录像 | 日韩一区二区三区视频 | 97caoporn| 第一福利视频导航 | 久久九九国产 | 看黄色大片 | 午夜黄色大片 | 亚洲精品一二三 | 国产三级在线免费观看 | 狠狠干在线 | 欧美午夜精品一区二区三区 | 午夜精品一区二区三区在线播放 | 国产黄色片在线观看 | 午夜国产福利 | 欧美日韩一区二区三区视频 | 日本免费一级片 | 97自拍视频 | 精品久久久久久久 | 亚洲亚洲人成综合网络 | 黑人巨大精品欧美一区二区 | 在线成人免费 | 性欧美xxxx| 日韩黄色免费视频 | 男人天堂网在线 | 日韩一级在线观看 | 4438xxx| 亚洲精品www久久久久久广东 | 视频在线观看一区 | 一区二区三区日韩 | 一区二区不卡视频 | 欧美日韩国产在线播放 |