【正文】 elect_cost_get_Click() (0).Caption = 設(shè)備領(lǐng)用月報(bào)表 = False drawgetyuebao End Sub Private Sub select_cost_used_Click() (0).Caption = 設(shè)備消耗月報(bào)表 = False drawusedyuebao End Sub Private Sub select_data_del_get_Click() setFramusedrepairdel End Sub Private Sub select_data_del_used_Click() setFramusedrepair End Sub Private Sub select_data_del_zk_Click() setFramrepair End Sub Private Sub select_data_new_get_Click() setFramgetgetget End Sub Private Sub select_data_new_used_Click() setFramgetget End Sub Private Sub select_data_new_zk_Click() setFramkuget End Sub Private Sub select_data_repair_get_Click() setFramusedrepairget End Sub Private Sub select_data_repair_used_Click() setFramusedrepairused End Sub Private Sub select_data_repair_zk_Click() setFramrepairrepair End Sub Private Sub select_file_exit_Click() End Sub Private Sub select_select_get_Click() = True = False = False End Sub Private Sub select_select_used_Click() = False = False = True End Sub Private Sub select_select_zu_Click() = True = False = False End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 設(shè)備查詢 = True = False = False Case 領(lǐng)用查詢 = True = False = False Case 消耗查詢 = False = False = True Case 退出系統(tǒng) End Case 返回 End Select End Sub 、數(shù)據(jù)處理模塊說明 Option Explicit Private Sub Combo2_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。H8000000F Cobriqi1(14).Enabled = False Cobriqi1(14).BackColor = amp。H8000000F End If Case 5 If Check2(5).Value = 1 Then = True = amp。H8000000F End If Case 2 If Check1(2).Value = 1 Then Combo1(2).Enabled = True Combo1(2).BackColor = amp。 、系統(tǒng)流程圖 業(yè)務(wù)流程分析： 業(yè)務(wù)流程分析的目的是獲得業(yè)務(wù)流程及業(yè)務(wù)與數(shù)據(jù)聯(lián)系的形式描述。 Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與 其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。 Visual Basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。由于散亂、復(fù)雜，很可能文案丟失的情況，而且查找也不方便，給管理工作人員帶來很大程度的管理滯后，增加了成本，降低了企業(yè)生產(chǎn)力。畢業(yè)設(shè)計(jì)論文 設(shè)計(jì)題目 企業(yè)設(shè)備管理系統(tǒng) 教 學(xué) 班： 學(xué)生姓名： 學(xué) 號： 指導(dǎo)教師： 完成日期： 摘要 目前的公司企業(yè) ,對于大型電氣設(shè)備的使用十分頻繁 ,對于大型設(shè)備的 管理也成為現(xiàn)代企業(yè)管理之中不可或缺的一部分。自 中國加入 wto 以來，給國內(nèi)一些企業(yè)帶來很大的竟?fàn)帀毫Γ袌鼍範(fàn)幵絹碓絹砑ち摇? 2．面向?qū)ο蟮某绦蛟O(shè)計(jì)： 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言 (C++)不完全相同。 Visual Basic 提供了動(dòng)態(tài)數(shù) 據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。 下圖是本系統(tǒng)的業(yè)務(wù)流圖： 下面是設(shè)備管理數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)的業(yè)務(wù)流程 分析，原始的數(shù)據(jù)是設(shè)備的基本信息，系統(tǒng)要求統(tǒng)計(jì)設(shè)備的信息，并根據(jù)信息統(tǒng)計(jì)的結(jié)果由及時(shí)對設(shè)備進(jìn)行檢修和更換，其數(shù)據(jù)流圖如下圖： 信息清單 統(tǒng)計(jì)整理 報(bào)表清單 更換清單 存儲文件 圖 設(shè)備統(tǒng)計(jì)的數(shù)據(jù)流 、設(shè)備管理系統(tǒng)的構(gòu)架圖 : 本系統(tǒng) 主要用數(shù)據(jù)處理、數(shù)據(jù)查詢、成本核算三個(gè)功能模塊對設(shè)備信息進(jìn)行綜合的管理過程 ，讓管理人員隨時(shí)掌握設(shè)備的運(yùn)行動(dòng)態(tài)，以進(jìn)行操作與管理工作，功能模塊圖如下： 輸入處理 產(chǎn)生報(bào)表 輸出處理 、 設(shè)備管理系統(tǒng) ER 圖 、數(shù)據(jù)庫設(shè)計(jì)與實(shí)現(xiàn) 在需求分析階段對系統(tǒng)數(shù)據(jù)要求已經(jīng)做了基本分析，總體設(shè)計(jì)階段分析了各個(gè)模塊所要實(shí)現(xiàn)的功能，再根據(jù)需求分析階段的數(shù)據(jù)字典系統(tǒng)需求，設(shè)計(jì)數(shù)據(jù)庫如下表： 產(chǎn)量 表 字段名稱 數(shù)據(jù)類型 是否允許空值 備注 chanliang int 0 主鍵 yiqi Datetime 1 領(lǐng)料庫 表 字段名稱 數(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 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)建的表實(shí)現(xiàn)數(shù)據(jù)庫的設(shè)計(jì) :如 消耗表 (其余表的與之 同 ) 數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。H80000005 Else Combo1(2).Enabled = False Combo1(2).BackColor = amp。H80000005 Text2(1).Enabled = True Text2(1).BackColor = amp。H8000000F Cobriqi1(18).Enabled = False Cobriqi1(18).BackColor = amp。 from zongku where = amp。 ) Exit Sub End If If (10).Text = Then MsgBox (貨架號不能為空，請輸入貨架號。 amp。 ) Exit Sub End If With recsetxhk .AddNew .Fields(日期 ) = riqi .Fields(型號 ) = Text5(0).Text .Fields(數(shù)量 ) = Text5(1).Text .Fields(責(zé) 任組 ) = .Fields(責(zé)任人 ) = .Fields(消耗原因 ) = Text5(4).Text .Update
。 _ amp。 ) Exit Sub End If If = 1 Then End If Do While Not 39。 amp。H8000000F Cobriqi1(20).Enabled = False Cobriqi1(20).BackColor = amp。H8000000F Text2(1).Enabled = False Text2(1).BackColor = amp。H80000005 Else Combo1(3).Enabled = False Combo1(3).BackColor = amp。 第四章 設(shè)備管理系統(tǒng)的實(shí)現(xiàn) 、數(shù)據(jù)庫的連接 Public dbmain As Database Sub opendb() allfilepath = Set dbmain = OpenDatabase(allfilepath amp。 （ 3）是所有關(guān)系數(shù)據(jù)庫的公共語言 由于所有主要的關(guān)系數(shù)據(jù)庫管理系統(tǒng)都支持 SQL 語言，用戶可將使用 SQL 的技能從一個(gè) RDBMS 轉(zhuǎn)到另一個(gè)。 OLE 技術(shù)是 Microsoft 公司對象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。