【文章內(nèi)容簡介】 碼 ； 發(fā)票號碼 ； 進庫日期 ； 經(jīng)辦人 ； 保管人 。 inlibdetail（進 庫表 ） 分為 進庫單號碼 ； 材料編碼 ； 數(shù)量 ； 單價 ； 金額 ； 備注 。 msurplus（庫存材料表） 分為 材料編碼 ； 數(shù)量 ； 單價 ； 金額 ； 備注 。 outlib（出庫明細表） 分為 出庫單號碼 ； 發(fā)票號碼 ； 出庫類型 ； 工程號 ； 出庫日期 ； 經(jīng)辦人 ； 保管人 。 outlibdetail（出庫表） 分為出 庫單號碼 ； 材料編碼 ； 數(shù)量 ； 單價 ； 金額 ； 備注 。 如圖： 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 14頁 （圖 1） 4． 3 登陸模塊設計 此模塊使用了 Access 數(shù)據(jù)庫，用戶名和密碼存放在 里。 程序在判斷輸入的 ID 和密碼是否正確時將 IF?? ELSE 嵌套使用。 當用戶名不存在時，第一循環(huán)判定為“ TURE”返回“沒有這個用戶名，請重新輸入”，反之進入第二循環(huán)。第二循環(huán)判斷用戶名和密碼是否相符合，值為“ TURE”時進入主界面，為“ FAILE”時返回“輸入密碼不正確，請重新輸入！” （源代碼見附錄） 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 15頁 4． 3 界面設計 主界面是用戶打開系統(tǒng)首先見到的界面，也是進入其他模塊的入口。 主界面將常用菜單項設計為工具欄，在工具欄上有 系統(tǒng) 、 材料管理 、 倉庫管理 、信息查詢、數(shù)據(jù)統(tǒng)計、報表管理和幫助 菜單。 主界面運行如下： （圖 2） （源 代碼 實現(xiàn)較簡單，見附錄） 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 16頁 4． 4 功能設計 項目模塊 項目模塊分為 用戶管理、材料 管理、 倉庫 管理、 信息查詢 、 數(shù)據(jù)統(tǒng)計 、 報表管理等 部分，用來輸入各項信息。 4． 4． 1 用戶管理 用戶管理展開后有添加用戶；刪除用戶和修改密碼三項，分別用于添加新用戶，刪除不需要用戶，修改已存在用戶密碼 。 運行界面如下圖所示： （圖 3） 這里，程序類似登陸模塊，也使用 IF?? ELSE 嵌套。 當符合條件時數(shù)據(jù)將記錄到 Access 數(shù)據(jù)庫文件 里。 （源代碼見附錄） 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 17頁 4． 4． 2 材料管理 ： 窗體分為左右兩個部分 。 左側(cè) 材料列表里顯示了材料編碼、名稱、規(guī)格型號、計量單位等信息，并 可選擇已登記的各種材料 。右側(cè)可對已選擇的材料進行修改、刪除，并可新增材料種類。 如圖 （圖 4） （源代碼見附錄） 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 18頁 4． 4． 3 倉庫管理 在倉庫管理模塊中，有入庫信息和出庫信息兩項，各項又細分為添加和編輯兩個界面。各界面實現(xiàn)基本相同，這里以添加入庫單為例。 運行效果圖如下 （圖 5） 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 19頁 窗體分基本信息和材料明細兩頁，每頁主要由六個標簽、五個文本框和三個按鈕組成 。添加的信息會存入數(shù)據(jù)庫文件。 （源代碼見附錄） 4． 4． 4 信息查詢 查詢部分分為入庫 信息 ，出庫 信息 ， 倉庫余額，價格信息。 下圖為入庫信息查詢界面： 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 20頁 （圖 5） 查詢 可以以數(shù)字（如進庫單號碼、發(fā)票號碼、材料編碼），文本 （如名稱、型號）和時間（進出庫時間）為查詢 條件 ，可實現(xiàn)單條件或多條件查詢。程序?qū)臄?shù)據(jù)庫里查找出符合條件的信息顯示。 （源代碼見附錄） 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 21頁 第四章 結論 流程符合工程材料管理的要求。界面友好，輸入信息方便（信息系統(tǒng)自動生成），系統(tǒng)擴充容易。由于資料有限，有很多地方還需要更好的完善。即面向開發(fā)人員，又面向用戶。由于時間的原因，輸出報表不完善。網(wǎng)絡功能欠缺，本系統(tǒng)只能在單機上運行，不能實現(xiàn)網(wǎng)絡連接，資源共享。容錯性不高。系統(tǒng)的抗錯，容錯性不高，這方面有待加強。由于資料有限，有很多地方還設計的不夠詳細，還需要更 好的完善。 參考文獻 [1] Visual Basic 使用指南 作者： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 97 自學通 作者： Ned Snell 出版社：機械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 22頁 [4] 中文 Access 2021 24 學時教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機械工業(yè)出版社 附錄 主界面代碼： Option Explicit Private Sub MDIForm_Activate() (1).Text = 就緒 End Sub Private Sub MDIForm_Load() 39。放置背景文字 = / 2 / 2 = / 5 * 1 = / 2 / 2 = / 5 * 2 = / 2 / 2 = / 5 * 3 End Sub Private Sub MDIForm_Resize() On Error GoTo err1 = = = = Exit Sub err1: Exit Sub End Sub Private Sub mnuAbout_Click() (1).Text = 顯示版本信息 1 End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuInadd_Click() 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 23頁 (1).Text = 添加進庫單 1 End Sub Private Sub mnuInedit_Click() (1).Text = 編輯進庫單 1 End Sub Private Sub mnuMaterailInfo_Click() (1).Text = 材料基本信息管理 1 End Sub Private Sub mnuOutadd_Click() (1).Text = 添 加出庫單 1 End Sub Private Sub mnuOutedit_Click() (1).Text = 編輯出庫單 1 End Sub Private Sub mnuPrice_Click() (1).Text = 查詢材料的最高價和最低價 1 End Sub Private Sub mnuPriceRepair_Click() (1).Text = 統(tǒng)計修理成本 1 End Sub Private Sub mnuPriceUpdate_Click() (1).Text = 統(tǒng)計改造成本 1 End Sub Private Sub mnuPriceWork_Click() (1).Text = 統(tǒng)計特定工程的成本 1 End Sub Private Sub mnuQin_Click() (1).Text = 查詢材料入庫信息 1 End Sub Private Sub mnuQout_Click() 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 24頁 (1).Text = 查詢材料出庫信息 1 End Sub Private Sub mnuQsub_Click() (1).Text = 查詢倉庫余額信息 1 End Sub Private Sub mnuReportIn_Click() (1).Text = 查詢、打印進庫材料報表 1 End Sub Private Sub mnuReportNorth_Click() (1).Text = 查詢、打印北撥材料報表 1 End Sub Private Sub mnuReportRepair_Click() (1).Text = 查詢、打印修理材料報表 1 End Sub Private Sub mnuReportRetail_Click() (1).Text = 查詢、打印銷售材料報表 1 End Sub Private Sub mnuReportRevise_Click() (1).Text = 查詢、打印改造材料報表 1 End Sub Private Sub mnuReportSouth_Click() (1).Text = 查詢、打印南撥材料報表 1 End Sub Private Sub mnuReportTotal_Click() (1).Text = 查詢、打印倉庫報表 1 End Sub Private Sub mnuRetail_Click() (1).Text = 統(tǒng)計銷售額 1 End Sub Private Sub mnuUserAdd_Click() 北京理工大學 現(xiàn)代遠程教育 學院畢業(yè)設計 (論文 ) 第 25頁 (1).Text = 添加用戶 1 End Sub Private Sub mnuUserDelete_Click() (1).Text = 刪除用戶 1 End Sub Private Sub mnuUserUpdata_Click() (1).Text = 修改密碼 1 End Sub Private Sub Picture1_Click() End Sub 項目管理代碼： Option Explicit 39。 Reg Key Security Options... Const READ_CONTROL = amp。H20210 Const KEY_QUERY_VALUE = amp。H1 Const KEY_SET_VALUE = amp。H2 Const KEY_CREATE_SUB_KEY = amp。H4 Const KEY_ENUMERATE_SUB_KEYS = amp。H8 Const KEY_NOTIFY = amp。H10 Const KEY_CREATE_LINK = amp。H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL 39。 Reg Key ROOT Types... Const HKEY_LOCAL_MACHINE = amp。H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 39。 Unicode nul terminated string Cons