【正文】 backstage database and takes the Microsoft Corporation39。s change, equipment39。 任何一種工業(yè)管理制度和技術(shù)管理制度，都是為滿足和適應(yīng)當(dāng)時(shí)科學(xué)技術(shù)和工業(yè)發(fā)展的需要而出現(xiàn)的。在現(xiàn)代管理階段，由于科學(xué)技術(shù)的高速發(fā)展，企業(yè)的許多生產(chǎn)過程由機(jī)器設(shè)備逐步取代人的作用，因此生產(chǎn)開始受到設(shè)備影響，設(shè)備管理在企業(yè)管理中的作用愈來愈重要了 [3]。加強(qiáng)對(duì)企業(yè)設(shè)備的管理，對(duì)促進(jìn)經(jīng)濟(jì)進(jìn)步，實(shí)現(xiàn)工業(yè)現(xiàn)代化具有重要的意義 [5]。 現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。 Visual Basic 是操作系統(tǒng)中快速應(yīng)用開發(fā) 3 環(huán)境的最新版本。在 Visual Basic 的集成開發(fā)環(huán)境中，用戶 可以設(shè)計(jì)程序代碼、運(yùn)行程序、進(jìn)行程序錯(cuò)誤的調(diào)試等，可視化的開發(fā)方法降低了應(yīng)用程序開發(fā)的難度。同時(shí)， Inter 技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫(kù)內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。數(shù)據(jù)庫(kù)技術(shù)作為數(shù)據(jù)管理技術(shù)，是計(jì)算機(jī)軟件領(lǐng)域的一個(gè)重要分支，產(chǎn)生于 60 年代末。 目前廣泛作用的數(shù)據(jù)模型可分為兩種類型。 另一種數(shù)據(jù)模型是直接面向數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)，它是現(xiàn)實(shí)世界的第二層抽象 。 （ 1）層次模型 ： 用樹型結(jié)構(gòu)表示實(shí)體類型及實(shí)體間聯(lián)系的數(shù)據(jù)模型。但層次模 5 型有兩個(gè)缺點(diǎn)：一是只能表示 1∶N 聯(lián)系，雖然有多種輔助手段實(shí)現(xiàn)了 M∶N 聯(lián)系，但都較復(fù)雜，用戶不易掌握，二是由于樹型結(jié)構(gòu)層次順序的嚴(yán)格和復(fù)雜，引起數(shù)據(jù)的查詢和更新操作也很復(fù)雜，因此，編寫應(yīng)用程序也很復(fù)雜。網(wǎng)狀模型的特點(diǎn)：記錄之間聯(lián)系通過指針實(shí)現(xiàn)， M∶N 聯(lián)系也容易實(shí)現(xiàn)（每個(gè) M∶N 聯(lián)系可拆成兩個(gè) 1∶N 聯(lián)系），查詢效率較高。網(wǎng)狀模型有許多成功的產(chǎn)品 ,20 世紀(jì) 70 年代的產(chǎn)品大部分網(wǎng)狀系統(tǒng) ,例如 ,Honeywell 公司的 IDS/Ⅱ 、 HP 公司的 IMAGE/3000、 Burroughs 公司的 DMSⅡ 、 Umivac 公司的 DMS1100、 Culli 公司的 IDMS、 Cim 公司的 TOTAL等 。 關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂，編程時(shí)并不涉及存儲(chǔ)結(jié)構(gòu)，訪問技術(shù)等細(xì)節(jié)。 80 年代初才形成產(chǎn)品，但很快得到廣泛的應(yīng)用和普及，并最終取代了層次、網(wǎng)狀數(shù)據(jù)庫(kù)產(chǎn)品。只需用簡(jiǎn)單的查詢語(yǔ)句就可對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。因此，人們需要更高級(jí)的 數(shù)據(jù)庫(kù)技術(shù)來表達(dá)這類信息。 SQL 語(yǔ)言基礎(chǔ) 用戶對(duì)數(shù)據(jù)庫(kù)的使用，是通過數(shù)據(jù)庫(kù)管理系統(tǒng)提供的語(yǔ)言來實(shí)現(xiàn)的。 SQL 語(yǔ)句可以從關(guān)系數(shù)據(jù)庫(kù)中獲得數(shù)據(jù)，也可以建立數(shù)據(jù)庫(kù)、增加數(shù)據(jù)、修改數(shù)據(jù)。同時(shí)，其它數(shù)據(jù)庫(kù)產(chǎn)品廠家也紛紛推出各自的支持 SQL 的軟件或者與 SQL的接口軟件。 DDL 語(yǔ)句可以用于創(chuàng)建用戶和重建數(shù)據(jù)庫(kù)對(duì)象。當(dāng)設(shè)計(jì)者在關(guān)系表上定義了索引時(shí)，系統(tǒng)會(huì)自動(dòng)利用索引進(jìn)行快速檢索，用戶不需知道表上是否有索引或者有什么類型的索引等細(xì)節(jié)。隨著企業(yè)生產(chǎn)規(guī)模的急劇擴(kuò)大，管理現(xiàn)代化程度的提高，使設(shè)備管理的地位愈來愈突出，作用愈來愈顯著。 石化企業(yè)設(shè)備管理系統(tǒng)實(shí)施后能達(dá)到以下目標(biāo)： （ 1）使企業(yè)的設(shè)備情況讓管理人方便管理。 10 ER 圖 : 圖 設(shè)備檔案 ER 圖 圖 設(shè)備變動(dòng) ER 圖 設(shè)備檔案信息 名稱 編號(hào) 生產(chǎn)廠家 型號(hào) 存放地點(diǎn)點(diǎn) 主要性能 設(shè)備變動(dòng)信息 聯(lián)系電話 剩余數(shù)量 調(diào)出時(shí)間 調(diào)入時(shí)間 新管理員 新布放地 11 報(bào)修時(shí)間 解決時(shí)間 故障原因 設(shè)備維護(hù)信息 圖 設(shè)備維護(hù) ER 圖 系統(tǒng) 概要設(shè)計(jì)： 系統(tǒng)功能 分析 ： 石化企業(yè)設(shè)備管理系統(tǒng)是針對(duì)企業(yè)的大量設(shè)備用計(jì)算機(jī)進(jìn)行全面的現(xiàn)代化管理，它主要包括系統(tǒng)設(shè)備檔案管理，設(shè)備變動(dòng)管理，設(shè)備維修管理這幾方面功能。收集基本數(shù)據(jù)，數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下 基礎(chǔ)。 現(xiàn)在需要將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為 SQL Server 2021 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。 15 表 check 設(shè)備檔案 表 表 moveEdit 設(shè)備變動(dòng)信息 表 列名 數(shù)據(jù)類型 可否為空 字段大小 說明 dm Char not null 50 設(shè)備編號(hào) mc Char not null 50 設(shè)備名稱 xh Char null 50 設(shè)備型號(hào) cfdd Char null 50 存放地點(diǎn) sccj Char null 50 生產(chǎn)廠家 scrq Numeric null 50 生產(chǎn)日期 列名 數(shù)據(jù)類型 可否為空 字段大小 說明 mc Char not null 50 設(shè)備名稱 rcsj Datetime null 50 入廠時(shí)間 dcsj Datetime null 50 調(diào)出時(shí)間 sysl numeric null 50 剩余數(shù)量 Addr char null 50 所在地 tel char null 50 聯(lián)系電話 16 表 MntenanceEdit 設(shè)備維護(hù) 信息表 表 user_Info 用戶信息表 列名 數(shù) 據(jù)類型 可否為空 字段大小 說明 mc Char not null 50 設(shè)備名稱 kswx datetime not null 50 報(bào)修時(shí)間 jswx datetime not null 50 維修時(shí)間 列名 數(shù)據(jù)類型 可否為空 字段大小 說明 user_id char Not null 50 用戶名 user_pwd char null 50 用戶密碼 17 第 4 章 系統(tǒng)詳細(xì) 設(shè)計(jì) 啟動(dòng) Visual Basic 后，單擊 File|New Project 菜單，在工程模塊中選擇Standard EXE, Visual Basic 將自動(dòng)產(chǎn)生一個(gè) Form 窗體，屬性都是缺省設(shè)置，這里我刪除這個(gè)窗體，單擊 File|Save Project 菜單，將這個(gè)工程項(xiàng)目命名為 SBGL。Caption(屬性取值： 石化企 18 業(yè)設(shè)備 管理系統(tǒng) )。Panels(1) style(屬性取值： SbrText)。 系統(tǒng)信息模塊的設(shè)計(jì) 用系統(tǒng)信息管理模塊只要實(shí)現(xiàn)： 用戶登陸；添加用戶；修改用戶密碼 。 登錄成功，將當(dāng)前用戶的信息 保存在CurUser中。添加用戶窗體中放置了三個(gè)文本框（ TextBox） ，用來輸入用戶名、用戶密碼和確認(rèn)密碼；兩個(gè)按鈕（ CommamdButton）用來確定或者取消；三個(gè)標(biāo)簽（ Label） 用來標(biāo)示窗體的信息 。設(shè)計(jì)步驟與添加用戶類似，這里省略。當(dāng)輸入完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求 ，然后添加到數(shù)據(jù)庫(kù)中。這個(gè)窗體用來顯示 設(shè)備變動(dòng) 信息，并且可以對(duì)各條記錄進(jìn)行操作。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，最后保存修改后的記錄。 圖 設(shè)備變動(dòng)信息 圖 設(shè)備維護(hù)信息列表 28 圖 設(shè)備維護(hù)信息 查詢窗體的設(shè)計(jì) 這個(gè)窗體可以查詢?cè)O(shè)備的存儲(chǔ)位置 ,還可查詢 設(shè)備的現(xiàn)有情況和變動(dòng)狀態(tài)維護(hù)情況。從測(cè)試是否針對(duì)系統(tǒng)的內(nèi)部結(jié)構(gòu)和具體實(shí)現(xiàn)算法的角度，可分為白盒測(cè)試和黑盒測(cè)試。 具體的 軟件 測(cè)試 對(duì)登陸窗體的測(cè)試： 第一步：用戶名為空的時(shí)候，系統(tǒng)提示“用戶 名不能為空，請(qǐng)輸入用戶名！” 。 如果用戶輸入信息不正確，并且超過 3次，系統(tǒng)自動(dòng)退出。 第四步 ：當(dāng)用戶名和密碼都正確時(shí)，系統(tǒng)提示“添加用戶成功！” 。 由于許多窗體的測(cè)試都很相似，所以在這里就不一一重復(fù)。并提供部分系統(tǒng)維護(hù)功能 ,使用戶方便進(jìn)行數(shù) 據(jù)備份。通過此次畢業(yè)設(shè)計(jì)，使我了解到了許多方面的知識(shí)，尤其是管理系統(tǒng)的組成以及一些管理系統(tǒng)理論方面的知識(shí)。對(duì)于各門課程之間的相互聯(lián)系有了更加深入的體會(huì)，同時(shí)也深深感到自己掌握的知識(shí)和實(shí)際需要還有很大的差距，在今后的學(xué)習(xí)和工作中我們應(yīng)該注重知識(shí)的學(xué)習(xí)和積累，鍛煉自己的動(dòng)手能力，理論聯(lián)系實(shí)際，為自己今后的發(fā)展奠定堅(jiān)實(shí)的理論和實(shí)踐基礎(chǔ)！這對(duì)我以后的工作和學(xué)習(xí)有著重要的意義和深遠(yuǎn)的影響。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If 35 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。插入 =false,修改 =true Public OriId As Long 39。讀取指定對(duì)象信息 txtDevNo = Trim() 39。生產(chǎn)廠家 38 txtPlace = Trim() 39。根據(jù)變量 Modify的值，決定 是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) 40 End If End With 39。退出系統(tǒng) DBapi_Disconnect End End Sub Private Sub mn_Interprise_Click() = 2 = 設(shè)備變動(dòng)管理 1 End Sub Private Sub mn_Mntenance_Click() 3