【正文】 . . . 1 9 第四章 設備 管 理系 統(tǒng)的 實現(xiàn) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 5 、 數(shù)據(jù)庫的 連接 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 5 、主界面模塊說明 .......................................... 28 、數(shù)據(jù)查詢管模塊分析與實現(xiàn) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 、 數(shù) 據(jù)處 理 模 塊 設計 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 總結 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 致謝 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 參考文獻 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 第一 章 系統(tǒng)的功能需求分析 、設備管理系統(tǒng)的背景分析 設備管理系統(tǒng)是企業(yè)內部的信息管理系統(tǒng) ,是連接企業(yè)內部各生產部 門的橋梁與紐帶 ,起著核心作用。 本管理信息系統(tǒng)是針對企業(yè)的實際需求開發(fā)設計的 ,利用計算機運算速度快、存儲信息容量大、處理邏輯問題強、功能強大的優(yōu)勢 ,從企業(yè)管理特別是查詢與決策信息的管理需求出發(fā) ,針對性強 ,功能齊備 ,旨在通過幫助該企業(yè)物資管理實現(xiàn)信息化 ,以提高企業(yè)管理的效率。 本信息系統(tǒng)合理的借鑒國際領先的設備管理思想并結合國內設備管理現(xiàn)狀，通過對各行業(yè)設備管理情況的長期研究探索，以靈活、通用為主要設計思想，開發(fā)適合各行各業(yè)設備管理信息系統(tǒng)， 實現(xiàn)了設備整個生命周期的計算機化管理，同時再與使用單位內部網絡配合的基礎上可以實現(xiàn)無紙化辦公。 如何 解決 這一問題正式我要陳述的，關注當代形式，利用社會上出來的先進技術 開發(fā)出新的設備管理 系統(tǒng) 是許 多企業(yè)拭目以待 的，正所謂 “工欲善其事，必先利其器” 。它簡單易學、效率高，且功能強大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程基礎。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上， Visual Basic自動生成對象的程序代碼并封裝起來。例如，命令按鈕是一個對象，當用戶單擊該按鈕時，將產生一個“單擊“ (CLICK)事件，而在產生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。 OLE 技術是 Microsoft 公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程序看做是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術。所以數(shù)據(jù)庫的嚴格定義是一組相關記錄的集合，而字段則是最基本的數(shù)據(jù)項，也是數(shù)據(jù)庫中最小的單位。 （ 3）是所有關系數(shù)據(jù)庫的公共語言 由于所有主要的關系數(shù)據(jù)庫管理系統(tǒng)都支持 SQL 語言，用戶可將使用 SQL 的技能從一個 RDBMS 轉到另一個。 數(shù)據(jù)查詢 功能： 實現(xiàn)每一階段庫設備、領用設備和消耗設備的查詢 操作活動。 第四章 設備管理系統(tǒng)的實現(xiàn) 、數(shù)據(jù)庫的連接 Public dbmain As Database Sub opendb() allfilepath = Set dbmain = OpenDatabase(allfilepath amp。 成本核算包括對每月設備的運行狀態(tài)（領用、消耗）以領用報表、消耗報表、班組報表和個人報表四表分別進行統(tǒng)計分析。H80000005 Else Combo1(3).Enabled = False Combo1(3).BackColor = amp。H80000005 Else Combo2(3).Enabled = False Combo2(3).BackColor = amp。H8000000F Text2(1).Enabled = False Text2(1).BackColor = amp。H80000005 Cobriqi1(18).Enabled = True Cobriqi1(18).BackColor = amp。H8000000F Cobriqi1(20).Enabled = False Cobriqi1(20).BackColor = amp。H8000000F Cobriqi1(16).Enabled = False Cobriqi1(16).BackColor = amp。 amp。 _ amp。 ) Exit Sub End If If = 1 Then End If Do While Not 39。 ) Exit Sub End If If Text2(2).Text = Then MsgBox (單價不能為空。 _ amp。 amp。 ) Exit Sub End If With recsetxhk .AddNew .Fields(日期 ) = riqi .Fields(型號 ) = Text5(0).Text .Fields(數(shù)量 ) = Text5(1).Text .Fields(責 任組 ) = .Fields(責任人 ) = .Fields(消耗原因 ) = Text5(4).Text .Update
。 Set rectemp = (strsql) If = 0 Then MsgBox (型號輸入錯誤 (庫中無改型號設備 /輔材 )，請重新輸入。 amp。======================================================== Private Sub Comdok1_Click() Dim i As Integer, j As Integer Dim riqi As Date Dim strsql As String Dim rectemp As Recordset Dim yiyou As Boolean On Error Resume Next If Text2(0).Text = Then MsgBox (型號不能為空。 ) Exit Sub End If If (10).Text = Then MsgBox (貨架號不能為空，請輸入貨架號。 Set rectemp = (strsql) If = 0 Then Exit Sub End If (型號 ) = (型號 ) If = True Then Exit Sub Else For i = 1 To 1 (型號 ) Next End If End Sub Private Sub Combo5_Change() If 型號 Then datatorepllk End If End Sub Private Sub Combo5_Click() If 型號 Then datatorepllk End If End Sub Private Sub Combo6_Click() Dim i As Integer, j As Integer, k As Integer Dim strsql As String Dim rectemp As Recordset On Error Resume Next strsql = select strsql = strsql amp。 from zongku where = amp。H80000005 Cobriqi1(23).Enabled = True Cobriqi1(23).BackColor = amp。H8000000F Cobriqi1(18).Enabled = False Cobriqi1(18).BackColor = amp。H80000005 Cobriqi1(13).Enabled = True Cobriqi1(13).BackColor = amp。H80000005 Text2(1).Enabled = True Text2(1).BackColor = amp。H80000005 Else Combo2(2).Enabled = False Combo2(2).BackColor = amp。H80000005 Else Combo1(2).Enabled = False Combo1(2).BackColor = amp。 % If startime = 20 Then = False End If DoEvents End Sub 接下來 在 Visual 自帶功能 ”菜單編 輯器 ”編輯窗體界面中的相關數(shù)據(jù)信息 ， 形成的前臺用戶界面如圖： 前臺是用戶進行綜合管理、進入其它操作模塊的唯一的接口，主要連接的界面窗口有： 數(shù)據(jù)處理、數(shù)據(jù)查詢、成本核算三個功能模 數(shù)據(jù)處理包括新設備的添加、修改、刪除；及領用設備和消耗設備的修改、刪除 。 下圖是本系統(tǒng)的業(yè)務流圖： 下面是設備管理數(shù)據(jù)庫系統(tǒng)設計的業(yè)務流程 分析，原始的數(shù)據(jù)是設備的基本信息，系統(tǒng)要求統(tǒng)計設備的信息，并根據(jù)信息統(tǒng)計的結果由及時對設備進行檢修和更換，其數(shù)據(jù)流圖如下圖： 信息清單 統(tǒng)計整理 報表清單 更換清單 存儲文件 圖 設備統(tǒng)計的數(shù)據(jù)流 、設備管理系統(tǒng)的構架圖 : 本系統(tǒng) 主要用數(shù)據(jù)處理、數(shù)據(jù)查詢、成本核算三個功能模塊對設備信息進行綜合的管理過程 ，讓管理人員隨時掌握設備的運行動態(tài)，以進行操作與管理工作，功能模塊圖如下： 輸入處理 產生報表 輸出處理 、 設備管理系統(tǒng) ER 圖 、數(shù)據(jù)庫設計與實現(xiàn) 在需求分析階段對系統(tǒng)數(shù)據(jù)要求已經做了基本分析，總體設計階段分析了各個模塊所要實現(xiàn)的功能，再根據(jù)需求分析階段的數(shù)據(jù)字典系統(tǒng)需求，設計數(shù)據(jù)庫如下表： 產量 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 chanliang int 0 主鍵 yiqi Datetime 1 領料庫 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 xinghao Long int 0 主鍵 Shuliang int 0 danjia int 0 yiqi Datetime 1 消耗庫 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 xinghao Long int 0 主鍵 yiqi Datetime 0 Shuliang Varchar(50) 0 zerenren Long int 0 zeren