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