【正文】 If xinghao = Then MsgBox 請(qǐng)輸入商品型號(hào)。 , vbOKOnly Exit Sub End If Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = INSERT INTO s_insert VALUES (39。,39。,39。,39。,39。,39。,39。) SQLStr 39。riqi = (0) 39。 SQLStr 39。 , vbOKOnly End Sub 商品信息查詢 單擊“商品信息管理”窗口中的 “ 商品信息 查詢” 菜單，將彈出商品信息 查詢 窗體，如圖 45所示。 AND shangpinming = 39。 End If If xinghao Then where = where amp。 39。 changjia amp。 amp。 AND riqi = 39。 End If If where = Then MsgBox 請(qǐng)輸入查詢條件。 where Set db_set = (SQLStr) Dim line 更多論文 27 line = 0 Do While = False line = line + 1 bianhao = (0) shangpinming = (1) xinghao = (2) changjia = (3) changzhi = (4) riqi = (5) With MSHFlexGrid1 39。 39。 .Row = 0 39。設(shè)置單元大小 .ColWidth(0) = 1500 .ColWidth(1) = 1500 .ColWidth(2) = 1500 .ColWidth(3) = 1500 .ColWidth(4) = 3000 .ColWidth(5) = 3000 End With Loop End If 更多論文 28 Exit Sub err_en: MsgBox 商品編號(hào)輸入有錯(cuò)誤。 調(diào)試 模塊調(diào)試 系統(tǒng)中的名處理功能由一個(gè)或多個(gè)的程序構(gòu)成，因此在單個(gè)程序調(diào)試成功后，還要進(jìn)行 模塊調(diào)試，以保證各模塊功能的完善和運(yùn)行正常。由今后具體使用此系統(tǒng)的各類人員對(duì)系統(tǒng)進(jìn)行操作，使用部分實(shí)際數(shù)據(jù)對(duì)系統(tǒng)進(jìn)行驗(yàn)收測(cè)試。在測(cè)試中發(fā)現(xiàn)了，數(shù)據(jù)庫中數(shù)據(jù)一經(jīng)修改后無法恢復(fù)的問題，以而使部分錯(cuò)誤的修改損壞了的正確數(shù)據(jù)，故此在數(shù)據(jù)修改菜單中增加數(shù)據(jù)恢復(fù)的功能。 (3)本系統(tǒng)若需維護(hù)需由專業(yè)人員進(jìn)行。包括：軟件與硬件的保護(hù)。 取得的成績(jī) (1)系統(tǒng)的開發(fā)是一個(gè)綜合運(yùn)用各學(xué)科知識(shí)的過程，通過該過程，使我對(duì)知識(shí)有了系統(tǒng)化的掌握。 (5)通過對(duì)本系統(tǒng)的開發(fā)使我充分認(rèn)識(shí)到，一個(gè)良好的系統(tǒng)開發(fā)是發(fā)揮團(tuán)隊(duì)精神以及合作意識(shí)的共同成果。 建議 (1)請(qǐng)用戶在使用本系統(tǒng)的過程中，如遇到難以解決的問題（諸如：錄入錯(cuò)誤，無法打印等）請(qǐng)?jiān)诖_認(rèn)硬件設(shè)備完好的基礎(chǔ)上直接與開發(fā)者聯(lián)系。 (4)用戶在使用本系統(tǒng)的過程中，最好能夠定期的由專業(yè)人員對(duì)系統(tǒng)進(jìn)行定期的維護(hù)，以便本系統(tǒng)保持良好的工作狀態(tài)。同時(shí)，老師為了輔導(dǎo)我們高質(zhì)量的完成論文，不辭辛苦的在兩個(gè)校區(qū)之間來回奔波，付出了寶貴的時(shí)間和精力。 最后，感謝在百忙之中為本文審稿的諸位老師 更多論文 32 參考文獻(xiàn) 家：《信息開發(fā)方法教程》清華大學(xué)出版社， 2020. 齊：《計(jì)算機(jī)應(yīng)用基礎(chǔ)》西安電子科技大學(xué)， 2020. 于：《計(jì)算機(jī)應(yīng)用技術(shù)》經(jīng)濟(jì)科學(xué)出版社， 2020. ：《數(shù)據(jù)庫極其應(yīng)用》經(jīng)濟(jì)科學(xué)出版社， 2020. ：《 Visual 應(yīng)用系統(tǒng)開發(fā)》清華大學(xué)出版社， 2020. ：《高級(jí)語言程序設(shè)計(jì)》經(jīng)濟(jì)科學(xué)出版社， 2020. ：《管理信息系統(tǒng)》電子工業(yè)出版社， 1999. ：《管理信息系統(tǒng)開發(fā)指南 》上?？茖W(xué)技術(shù)出版社，2020. 9.《電腦報(bào)》 2020 年 12 期 于：《信息經(jīng)濟(jì)學(xué)教程》清華大學(xué)出版社， 2020 ：《走向知識(shí)經(jīng)濟(jì)時(shí)代》中國人民出版社， 1998 12.《管理學(xué)》，經(jīng)濟(jì)科學(xué)出版社 1993 年出版，郝國華等譯 13.《現(xiàn)代組織學(xué)》，中國倉庫出版社 1989 年出版。 另外，要感謝我周圍的同學(xué)們?cè)趯W(xué)習(xí)和生活中對(duì)我的幫助，正是在他們的幫助和支持下，才使我克服畢業(yè)設(shè)計(jì)過程中的各種困難，順利的完成了所有的工作。謝謝！ 更多論文 31 謝辭 首先要感謝老師在論文的設(shè)計(jì)過程中對(duì)我的精心輔導(dǎo)。 (3)本系統(tǒng)是一個(gè)初級(jí)版本，再以后中我們還會(huì)繼續(xù)努力，以開發(fā)功能更加先進(jìn)的升級(jí)版本。 (2)由于本系統(tǒng)的形成時(shí)間較短，再加上我的水平所限，在系統(tǒng)中部分細(xì)節(jié)性的問題還有待于解決 。 (3)本系統(tǒng)的開發(fā)，能在一定范圍內(nèi)和功能上滿足了相應(yīng)的企事業(yè)單位的管理需求。 更多論文 30 第 5章 結(jié)論 經(jīng)過這段時(shí)間對(duì)系統(tǒng)的開發(fā)，以及在開發(fā)過程中對(duì)所遇到的問題的解決，是我從整體上對(duì)系統(tǒng)的開發(fā)和解決實(shí)際問題的能力有了很大的提高。 維護(hù) 該系統(tǒng)維護(hù)的主要內(nèi)容包括數(shù)據(jù)結(jié)構(gòu)維護(hù)，建立備份文件以及記錄維護(hù)。 系統(tǒng)使用說明書 此系統(tǒng)主要是為了實(shí)現(xiàn)對(duì)倉庫管理的自動(dòng)化，利用計(jì)算機(jī)的強(qiáng)大數(shù)據(jù)處理功能，對(duì)倉庫進(jìn)行有效的管理，在用系統(tǒng)的過程中請(qǐng)注意以下幾個(gè)說明 ： (1)倉庫管理系統(tǒng)支持非法數(shù)據(jù)的處理 和排除 。再這個(gè)測(cè)試步驟中發(fā)現(xiàn)的問題，往往是系統(tǒng) 說明書中存更多論文 29 在的錯(cuò)誤。在這個(gè)過程中不僅應(yīng)該發(fā)現(xiàn)設(shè)計(jì)和編碼的錯(cuò)誤，還應(yīng)該驗(yàn)證系統(tǒng)確實(shí)能提供需求說明書中指定的功能，而且系統(tǒng)的動(dòng)態(tài)特性也符合預(yù)定要求。 圖 倉庫信息管理 該窗體的源代碼（詳見附錄） 。 .ColSel = .Cols 1 39。 .FillStyle = flexFillRepeat 39。定義列標(biāo)題 .TextMatrix(0, 0) = 商品編號(hào) .TextMatrix(0, 1) = 商品名 .TextMatrix(0, 2) = 型號(hào) .TextMatrix(0, 3) = 生產(chǎn)日期 .TextMatrix(0, 4) = 生產(chǎn)廠家 .TextMatrix(0, 5) = 廠址 .TextMatrix(line, 0) = bianhao .TextMatrix(line, 1) = shangpinming .TextMatrix(line, 2) = xinghao .TextMatrix(line, 3) = riqi .TextMatrix(line, 4) = changjia .TextMatrix(line, 5) = changzhi 39。 where Set db_set = (SQLStr) If (0) = 0 Then MsgBox 沒有滿足條件的紀(jì)錄。 riqi amp。 39。 End If If changzhi Then where = where amp。 AND changjia = 39。 amp。 shangpinming amp。 AND bianhao = amp。 , vbOKOnly 更多論文 25 39。 SQLStr = DLETE * FROM s_insert WHERE bianhao = amp。 bianhao 39。 beizhu amp。 riqi amp。 changzhi amp。 changjia amp。 xinghao amp。 shangpinming amp。 bianhao amp。 , vbOKOnly Exit Sub End If If changzhi = Then MsgBox 請(qǐng)輸入廠址。 , vbOKOnly Exit Sub End If If bianhao = Then MsgBox 請(qǐng)輸入商品編號(hào)。 44“ 商品信息錄入 ” 窗口 該窗體中“確定”按鈕中的源代碼如下： Private Sub Command1_Click() On Error GoTo err_en bianhao = shangpinming = xinghao = changjia = changzhi = riqi = beizhu = Dim con Dim number Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = SELECT COUNT(*) FROM s_inser