【文章內(nèi)容簡介】 Datetime 0 Shuliang Varchar(50) 0 zerenren Long int 0 zerenzu Int 0 xiaohaoyuanyin text 0 總庫 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 mingchan Varchar(40) 0 主鍵 xinghao Long int 0 外鍵 Jishucanshu1 Varchar(40) 0 Jishucanshu2 Varchar(40) 0 Jishucanshu3 Varchar(50) 0 pinjianxinghao Datetime 0 danjia int 0 kuzenliang Long int 0 shiyongshouming Varchar(200) 0 chuangjia text 0 zhongli Text 0 接下來就利用上面創(chuàng)建的表實現(xiàn)數(shù)據(jù)庫的設(shè)計 :如 消耗表 (其余表的與之 同 ) 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄 ,最終實現(xiàn)各表之間通過關(guān)鍵字段聯(lián)系起來。 第四章 設(shè)備管理系統(tǒng)的實現(xiàn) 、數(shù)據(jù)庫的連接 Public dbmain As Database Sub opendb() allfilepath = Set dbmain = OpenDatabase(allfilepath amp。 data\) On Error GoTo errhandel: Exit Sub errhandel: MsgBox (數(shù)據(jù)庫打開出錯（路徑錯誤），請與編程者聯(lián)系處理。 ) End Sub 、主界面模塊說明 隨著計算機技術(shù)的不斷發(fā)展，計算機應用于各大領(lǐng)域，給人們的生活帶來了極大的便利，人們的生活水平也得到很大提高，更加喜歡追求美好事物，因此，任何事物的第一印象是非常重要。 前臺 界面 是給用戶提供一個方便易用的接口和美觀友好的界面，它滿足擁護的各種查詢 、修改 和 刪除綜合 實現(xiàn) 。事之今日，系統(tǒng)開發(fā)工具不斷升級，軟件的功能越來越強大，利用先進的技術(shù)設(shè)計新穎、大方的界面，讓用戶接受也是越來越顯的重要。 本系統(tǒng)沒有用戶名登錄方式，而是用一個計時器直接進入主界面，設(shè)計如圖： Option Explicit Private Sub Form_Load() startime = 0 = True End Sub Private Sub Timer1_Timer() startime = startime + 1 = True = startime * 5 = startime * 5 amp。 % If startime = 20 Then = False End If DoEvents End Sub 接下來 在 Visual 自帶功能 ”菜單編 輯器 ”編輯窗體界面中的相關(guān)數(shù)據(jù)信息 ， 形成的前臺用戶界面如圖： 前臺是用戶進行綜合管理、進入其它操作模塊的唯一的接口，主要連接的界面窗口有： 數(shù)據(jù)處理、數(shù)據(jù)查詢、成本核算三個功能模 數(shù)據(jù)處理包括新設(shè)備的添加、修改、刪除；及領(lǐng)用設(shè)備和消耗設(shè)備的修改、刪除 。 數(shù)據(jù)查詢包括庫設(shè)備、領(lǐng)用設(shè)備和消耗設(shè)備的查詢。 成本核算包括對每月設(shè)備的運行狀態(tài)（領(lǐng)用、消耗）以領(lǐng)用報表、消耗報表、班組報表和個人報表四表分別進行統(tǒng)計分析。 、數(shù)據(jù)查詢管模塊分析與實現(xiàn) 設(shè)備信息數(shù)據(jù)查詢，數(shù)據(jù)查詢包括庫設(shè)備查詢、領(lǐng)用查詢、消耗 查詢?nèi)糠郑煌牟樵兡K有不同的查詢方式，庫設(shè)備查詢、消耗查詢都是以設(shè)備的屬性進行查找，而領(lǐng)用查詢以設(shè)備在每一階段的運動情況進行查找的，同時還分別以詳細列表、與匯總表兩種方式顯示在ListView 框格中， 上 圖是庫設(shè)備查詢的顯示： Option Explicit Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 If Check1(0).Value = 1 Then Combo1(0).Enabled = True Combo1(0).BackColor = amp。H80000005 Else Combo1(0).Enabled = False Combo1(0).BackColor = amp。H8000000F End If Case 1 If Check1(1).Value = 1 Then Combo1(1).Enabled = True Combo1(1).BackColor = amp。H80000005 Else Combo1(1).Enabled = False Combo1(1).BackColor = amp。H8000000F End If Case 2 If Check1(2).Value = 1 Then Combo1(2).Enabled = True Combo1(2).BackColor = amp。H80000005 Else Combo1(2).Enabled = False Combo1(2).BackColor = amp。H8000000F End If Case 3 If Check1(3).Value = 1 Then Combo1(3).Enabled = True Combo1(3).BackColor = amp。H80000005 Else Combo1(3).Enabled = False Combo1(3).BackColor = amp。H8000000F End If End Select End Sub Private Sub Check2_Click(Index As Integer) Select Case Index Case 0 If Check2(0).Value = 1 Then Combo2(0).Enabled = True Combo2(0).BackColor = amp。H80000005 Else Combo2(0).Enabled = False Combo2(0).BackColor = amp。H8000000F End If Case 1 If Check2(1).Value = 1 Then Combo2(1).Enabled = True Combo2(1).BackColor = amp。H80000005 Else Combo2(1).Enabled = False Combo2(1).BackColor = amp。H8000000F End If Case 2 If Check2(2).Value = 1 Then Combo2(2).Enabled = True Combo2(2).BackColor = amp。H80000005 Else Combo2(2).Enabled = False Combo2(2).BackColor = amp。H8000000F End If Case 3 If Check2(3).Value = 1 Then Combo2(3).Enabled = True Combo2(3).BackColor = amp。H80000005 Else Combo2(3).Enabled = False Combo2(3).BackColor = amp。H8000000F End If Case 4 If Check2(4).Value = 1 Then = True = amp。H80000005 Text2(0).Enabled = True Text2(0).BackColor = amp。H80000005 Else = False = amp。H8000000F Text2(0).Enabled = False Text2(0).BackColor = amp。H8000000F End If Case 5 If Check2(5).Value = 1 Then = True = amp。H80000005 Text2(1).Enabled = True Text2(1).BackColor = amp。H80000005 Else = False = amp。H8000000F Text2(1).Enabled = False Text2(1).BackColor = amp。H8000000F End If Case 6 If Check2(6).Value = 1 Then Text2(2).Enabled = True Text2(2).BackColor = amp。H80000005 Else Text2(2).Enabled = False Text2(2).BackColor = amp。H8000000F End If Case 7 If Check2(7).Value = 1 Then Combo2(7).Enabled = True Combo2(7).BackColor = amp。H80000005 Else Combo2(7).Enabled = False Combo2(7).BackColor = amp。H8000000F End If Case 8 If Check2(8).Value = 1 Then Cobriqi1(12).Enabled = True Cobriqi1(12).BackColor = amp。H80000005 Cobriqi1(13).Enabled = True Cobriqi1(13).BackColor = amp。H80000005 Cobriqi1(14).Enabled = True Cobriqi1(14).BackColor = amp。H80000005 Cobriqi1(18).Enabled = True Cobriqi1(18).BackColor = amp。H80000005 Cobriqi1(19).Enabled = True Cobriqi1(19).BackColor = am