【正文】 數(shù)據(jù)庫的系統(tǒng)，我們稱之為數(shù)據(jù)庫管理管理系統(tǒng)（ Database Management System DBMS）。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與 其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。 SQL 語句簡介 SQL 語句簡介 SQL 全稱是“結(jié)構(gòu)化查詢語言 (Structured Query Language)”， SQL 包含 4 個部分： （ 1）數(shù)據(jù)查詢語言 DQLData Query Language SELECT （ 2）據(jù)操縱語言 DQLData Manipulation Language INSERT, UPDATE, DELETE （ 3）數(shù)據(jù)定義語言 DQLData Definition Language CREATE, ALTER, DROP （ 4）數(shù)據(jù)控制語言 DQLData Control Language COMMIT WORK, ROLLBACK WORK SQL 的優(yōu)點 （ 1）非過程化語言 （ 2）統(tǒng)一的語言 SQL 為許多任務(wù)提供了命令，包括：查詢數(shù)據(jù)、數(shù)據(jù)更新、在表中插入記錄、在表中修改記錄、在表中刪除記錄、建立、修改和刪除數(shù)據(jù)對象、控制對數(shù)據(jù)和數(shù)據(jù)對象的存取 、保證數(shù)據(jù)庫一致性和完整性 、以前的數(shù)據(jù)庫管理系統(tǒng)為上述各類操 作提供單獨的語言，而 SQL 將全部任務(wù)統(tǒng)一在一種語言中。所有用 SQL 編寫的程序都是可以移植的。它是可以移植的，并且容易學習使用，但是所有 SQL 語句都必須由數(shù)據(jù)庫服務(wù)器獨立地執(zhí)行。所有這些東西都會產(chǎn)生進程間 通訊，并且如果客戶端在另外一臺機器上甚至還會導致網(wǎng)絡(luò)開銷。 數(shù)據(jù)處理 功能： 新設(shè)備的添加、修改、刪除；及領(lǐng)用設(shè)備和消耗設(shè)備的修改、刪除 等一些設(shè)備信息操作活動。 成本核算功能：對每月設(shè)備的運行狀態(tài)（領(lǐng)用、 消耗）以領(lǐng)用報表、消耗報表、班組報表和個人報表四表分別進行統(tǒng)計分析。設(shè)備管理信息人員通過本系統(tǒng)完成相關(guān)的日常工作，這些工作也是平常較為繁重的工作。 、系統(tǒng)流程圖 業(yè)務(wù)流程分析： 業(yè)務(wù)流程分析的目的是獲得業(yè)務(wù)流程及業(yè)務(wù)與數(shù)據(jù)聯(lián)系的形式描述。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄 ,最終實現(xiàn)各表之間通過關(guān)鍵字段聯(lián)系起來。 data\) On Error GoTo errhandel: Exit Sub errhandel: MsgBox (數(shù)據(jù)庫打開出錯（路徑錯誤），請與編程者聯(lián)系處理。 前臺 界面 是給用戶提供一個方便易用的接口和美觀友好的界面，它滿足擁護的各種查詢 、修改 和 刪除綜合 實現(xiàn) 。 本系統(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。 數(shù)據(jù)查詢包括庫設(shè)備、領(lǐng)用設(shè)備和消耗設(shè)備的查詢。 、數(shù)據(jù)查詢管模塊分析與實現(xiàn) 設(shè)備信息數(shù)據(jù)查詢，數(shù)據(jù)查詢包括庫設(shè)備查詢、領(lǐng)用查詢、消耗 查詢?nèi)糠?，不同的查詢模塊有不同的查詢方式，庫設(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。H8000000F End If Case 1 If Check1(1).Value = 1 Then Combo1(1).Enabled = True Combo1(1).BackColor = amp。H8000000F End If Case 2 If Check1(2).Value = 1 Then Combo1(2).Enabled = True Combo1(2).BackColor = amp。H8000000F End If Case 3 If Check1(3).Value = 1 Then Combo1(3).Enabled = True 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。H8000000F End If Case 1 If Check2(1).Value = 1 Then Combo2(1).Enabled = True Combo2(1).BackColor = amp。H8000000F End If Case 2 If Check2(2).Value = 1 Then Combo2(2).Enabled = True Combo2(2).BackColor = amp。H8000000F End If Case 3 If Check2(3).Value = 1 Then Combo2(3).Enabled = True Combo2(3).BackColor = amp。H8000000F End If Case 4 If Check2(4).Value = 1 Then = True = amp。H80000005 Else = False = amp。H8000000F End If Case 5 If Check2(5).Value = 1 Then = True = amp。H80000005 Else = False = amp。H8000000F End If Case 6 If Check2(6).Value = 1 Then Text2(2).Enabled = True Text2(2).BackColor = amp。H8000000F End If Case 7 If Check2(7).Value = 1 Then Combo2(7).Enabled = True 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(14).Enabled = True Cobriqi1(14).BackColor = amp。H80000005 Cobriqi1(19).Enabled = True Cobriqi1(19).BackColor = amp。H80000005 Else Cobriqi1(12).Enabled = False Cobriqi1(12).BackColor = amp。H8000000F Cobriqi1(14).Enabled = False Cobriqi1(14).BackColor = amp。H8000000F Cobriqi1(19).Enabled = False Cobriqi1(19).BackColor = amp。H8000000F End If Case 9 If Check2(9).Value = 1 Then Cobriqi1(15).Enabled = True Cobriqi1(15).BackColor = amp。H80000005 Cobriqi1(17).Enabled = True Cobriqi1(17).BackColor = amp。H80000005 Cobriqi1(22).Enabled = True Cobriqi1(22).BackColor = amp。H80000005 Else Cobriqi1(15).Enabled = False Cobriqi1(15).BackColor = amp。H8000000F Cobriqi1(17).Enabled = False Cobriqi1(17).BackColor = amp。H8000000F Cobriqi1(22).Enabled = False Cobriqi1(22).BackColor = amp。H8000000F End If End Select End Sub Private Sub Comdstartselect_Click() If = True Then chaxunxiaohao ElseIf = True Then chaxunlingyong ElseIf = True Then chaxunku End If End Sub Private Sub Form_Load() = False = False setfraxiaohao setlingyongchanxun setkuchaxun = True = False = False End Sub Private Sub Fralingyong_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub select_cost_banzu_Click() (0).Caption = 設(shè)備班組成本月報表 = False drawbanzuyuebao End Sub Private Sub select_cost_geren_Click() (0).Caption = 可控硅班個人成本月報表 = False draw