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

標題: 固定資產管理系統源代碼 mdb數據庫的 [打印本頁]
作者: VB小小    時間: 2020-3-28 00:34
標題: 固定資產管理系統源代碼 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
復制代碼






歡迎光臨 (http://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 日韩一区三区 | 综合网伊人 | 在线观看日韩视频 | 国产精品久久久久久久久久久久久久 | 99精品欧美一区二区蜜桃免费 | 国产精品久久久久久妇女6080 | 在线观看av的网站 | 中文在线永久免费观看 | 亚洲免费二区 | 久久黄色免费视频 | 国产永久视频 | 久久婷婷网 | 欧美日韩一二区 | 神马福利视频 | 性做久久久久久久免费看 | 在线观看日韩视频 | 欧美不卡一区二区三区 | 影音先锋在线观看视频 | www.欧美在线 | av网站免费在线观看 | 97久久久久| 亚洲综合视频在线 | 精品综合网 | 中文字幕一区二区三区四区 | 国产精品免费人成网站酒店 | 免费黄色一级 | av免费观看网站 | 视频在线观看一区 | 在线看黄色片 | 超碰成人在线观看 | 五月婷婷激情 | 天天操夜夜 | 不卡av网站 | 午夜av在线| 久久久黄色片 | 一级片aa | 欧美做受喷浆在线观看 | 欧美日在线 | 日韩精品免费 | 中文字幕在 | 亚洲精品一级 |