【文章內(nèi)容簡(jiǎn)介】 出庫(kù)單中的客戶(hù)必須是Customer數(shù)據(jù)表中有相應(yīng)的記錄。如果在銷(xiāo)售中發(fā)展了新的裝配車(chē)間，必須先在Customer數(shù)據(jù)表中增加這家裝配車(chē)間的信息。這些關(guān)系可以在SQL Serve中用關(guān)系圖工具設(shè)計(jì)和查看，： 各數(shù)據(jù)表之間的關(guān)系 系統(tǒng)的功能設(shè)計(jì)庫(kù)存管理系統(tǒng)充分發(fā)揮信息技術(shù)的有事，通過(guò)集中式的信息數(shù)據(jù)庫(kù)，將企業(yè)的進(jìn)、出、存等經(jīng)營(yíng)業(yè)務(wù)有機(jī)的結(jié)合起來(lái)，達(dá)到數(shù)據(jù)共享、降低成本、提高效率、改進(jìn)服務(wù)的目的，進(jìn)而提高企業(yè)的生產(chǎn)效率和管理水平。根據(jù)需求分析，：庫(kù)存管理系統(tǒng)退出系統(tǒng)系統(tǒng)設(shè)置基礎(chǔ)信息統(tǒng)計(jì)查詢(xún)庫(kù)存管理日常業(yè)務(wù)裝配車(chē)間管理供應(yīng)商管理出庫(kù)查詢(xún)庫(kù)存查詢(xún)采購(gòu)查詢(xún)庫(kù)存盤(pán)點(diǎn)關(guān)于系統(tǒng)密碼設(shè)置出庫(kù)單采購(gòu)單 庫(kù)存管理系統(tǒng)模塊結(jié)構(gòu)組織圖各功能模塊的設(shè)計(jì)功能進(jìn)行說(shuō)明：l 出庫(kù)單：日常業(yè)務(wù)中需要頻繁使用的功能，主要是對(duì)每筆出庫(kù)業(yè)務(wù)進(jìn)行記錄，自動(dòng)生成對(duì)應(yīng)的出庫(kù)憑證。銷(xiāo)售單中的商品名稱(chēng)、客戶(hù)和經(jīng)手人字段分別對(duì)應(yīng)Product數(shù)據(jù)表、Customer數(shù)據(jù)表和Users數(shù)據(jù)表中的相關(guān)字段，所以這里需要檢驗(yàn)用戶(hù)輸入的合法性。為了管理的方便和規(guī)范，每筆出庫(kù)單對(duì)應(yīng)一個(gè)唯一的出庫(kù)單票號(hào)。l 采購(gòu)單：日常業(yè)務(wù)中需要頻繁的使用的功能，主要是對(duì)每筆采購(gòu)入庫(kù)業(yè)務(wù)進(jìn)行記錄，自動(dòng)生成對(duì)應(yīng)的采購(gòu)憑證。采購(gòu)單中的零件名稱(chēng)，供應(yīng)商和經(jīng)手人分別對(duì)應(yīng)Product數(shù)據(jù)表、Supplier數(shù)據(jù)表和Users數(shù)據(jù)表中的相關(guān)字段，所以這里需要驗(yàn)證用戶(hù)輸入的合法性。為了管理的方便和規(guī)范，每筆采購(gòu)單對(duì)應(yīng)一個(gè)唯一的采購(gòu)單票號(hào)。： 采購(gòu)單運(yùn)行效果圖l 庫(kù)存盤(pán)點(diǎn):庫(kù)存管理中的重要業(yè)務(wù)活動(dòng)，主要是根據(jù)采購(gòu)記錄和出庫(kù)記錄對(duì)庫(kù)存商品盤(pán)點(diǎn)，更新每種商品的庫(kù)存量，為制定采購(gòu)計(jì)劃提供依據(jù)。計(jì)算庫(kù)存時(shí)需要檢索每一種商品的采購(gòu)記錄，匯總得到此種商品總的采購(gòu)數(shù)量，然后檢索這種商品的出庫(kù)記錄，匯總得到此種商品總的出庫(kù)數(shù)量，最后用總的采購(gòu)數(shù)量和總的出庫(kù)數(shù)量相減即可。l 采購(gòu)查詢(xún)：統(tǒng)計(jì)查詢(xún)功能中的一個(gè)模塊，提供了對(duì)采購(gòu)記錄的多種字段的復(fù)合式查詢(xún)功能。l 出庫(kù)查詢(xún)：統(tǒng)計(jì)查詢(xún)功能中的一個(gè)模塊，提供了對(duì)出庫(kù)記錄的多種字段的復(fù)合式查詢(xún)功能。l 庫(kù)存查詢(xún)：統(tǒng)計(jì)查詢(xún)功能中的一個(gè)模塊，提供了對(duì)庫(kù)存商品按照多種字段進(jìn)行模糊查詢(xún)的功能。： 庫(kù)存查詢(xún)界面l 供應(yīng)商管理：基礎(chǔ)信息維護(hù)中的一個(gè)模塊，主要用于對(duì)供應(yīng)商信息進(jìn)行查詢(xún)和維護(hù)。為了方便對(duì)多個(gè)供應(yīng)商的管理和比較，本案例中將此功能用Tab頁(yè)的形式實(shí)現(xiàn)，既方便對(duì)單個(gè)供應(yīng)商信息的查看和編輯，又利于對(duì)供應(yīng)商總體的評(píng)價(jià)和比較。： 供應(yīng)商管理界面l 裝配車(chē)間管理：基礎(chǔ)信息維護(hù)中的一個(gè)模塊，主要用于對(duì)裝配車(chē)間信息進(jìn)行查詢(xún)和維護(hù)。為了方便對(duì)多個(gè)裝配車(chē)間的管理和比較，本案例中將此功能用Tab頁(yè)的形式實(shí)現(xiàn)，既方便對(duì)單個(gè)裝配車(chē)間信息的查看和編輯，又利于對(duì)裝配車(chē)間總體的評(píng)價(jià)和比較。l 密碼設(shè)置：系統(tǒng)設(shè)置中的一個(gè)模塊，主要用于為系統(tǒng)中現(xiàn)有的用戶(hù)提供密碼更改功能。l 關(guān)于系統(tǒng)：系統(tǒng)設(shè)置中的一個(gè)模塊，主要用于說(shuō)明本系統(tǒng)的版權(quán)信息。為了用戶(hù)使用本系統(tǒng)的方便，該模塊中還提供了計(jì)算機(jī)系統(tǒng)信息的顯示功能。l 退出系統(tǒng)：用于退出本系統(tǒng)。為了防止用戶(hù)的誤錯(cuò)左，退出系統(tǒng)前需要用戶(hù)確認(rèn)退出的操作。：工作人員庫(kù)存管理工作人員工作人員數(shù)據(jù)庫(kù)出庫(kù)單采購(gòu)單企業(yè)查詢(xún)查詢(xún)結(jié)果裝配車(chē)間供應(yīng)商工作人員 系統(tǒng)流程圖 系統(tǒng)實(shí)現(xiàn)本系統(tǒng)采用系統(tǒng)開(kāi)發(fā)中常見(jiàn)的多文檔結(jié)構(gòu)，搭配菜單欄、工具欄、狀態(tài)欄等界面工具實(shí)現(xiàn)系統(tǒng)分析和系統(tǒng)設(shè)計(jì)中提出的功能。，在這個(gè)窗口中，單擊不同的菜單或者工具欄中的按鈕，可以打開(kāi)不同的窗口以完成各種對(duì)應(yīng)的功能。 系統(tǒng)界面 創(chuàng)建登錄窗口（frmLogin）在進(jìn)入應(yīng)用程序主界面之前，一般都需要登錄操作，以便確認(rèn)用戶(hù)的身份，從而保證企業(yè)數(shù)據(jù)的安全性。在本系統(tǒng)的登錄中，要求用戶(hù)從系統(tǒng)已經(jīng)創(chuàng)建的用戶(hù)中選擇一個(gè)用戶(hù)名，然后輸入相應(yīng)的密碼。程序在數(shù)據(jù)庫(kù)的Users數(shù)據(jù)表中進(jìn)行查詢(xún)，如果用戶(hù)的密碼正確，就可以使用該系統(tǒng)；如果用戶(hù)的密碼錯(cuò)誤，將提示用戶(hù)重新輸入密碼。（1） 因?yàn)橐诖翱诘拇a中使用ADO中的一些對(duì)象進(jìn)行數(shù)據(jù)庫(kù)的操作，所以必須先引用相對(duì)應(yīng)的庫(kù)。在菜單欄中一次選擇“工程 ” “引用”菜單，在“可用的引用”列表中選擇“Microsoft ActiveX Data Objects Library”項(xiàng)。這樣就可以在程序中使用ADO中的對(duì)象了。（2） 當(dāng)系統(tǒng)運(yùn)行打開(kāi)frmLogin窗口的時(shí)候，需要從數(shù)據(jù)庫(kù)Users數(shù)據(jù)表中查找當(dāng)前系統(tǒng)中所有的用戶(hù)，然后將他們添加到組合框中，主要代碼如下：Dim conn As New Dim rs As New Dim connstring As StringDim num As Integerconnstring = Provider=。Password=ecc。Persist Security Info=True。User ID=sa。amp。 Initial Catalog=PurchaseandSale。Server=(local) 39。 定義連接字符串 If 1 Then 39。如果數(shù)據(jù)庫(kù)未打開(kāi)，則打開(kāi)數(shù)據(jù)庫(kù) (connstring) End If Set rs = (select * from users) 39。執(zhí)行查詢(xún)操作，結(jié)果保存在rs記錄集中 With rs .MoveFirst Do While Not .EOF 39。 逐條讀取用戶(hù)名稱(chēng)，添加到cmbUserName組合框中 DoEvents (!用戶(hù)) .MoveNext Loop End With = 0 39。將cmbUserName組合框的默認(rèn)選項(xiàng)設(shè)置為第一條 這樣，當(dāng)程序開(kāi)始運(yùn)行，加載frmLogin窗口的時(shí)候，就會(huì)從PurchaseandSale數(shù)據(jù)庫(kù)的Users數(shù)據(jù)表中檢索所有記錄的用戶(hù)字段，然后將他們添加到組合框中。最后將組合框的第一個(gè)子項(xiàng)設(shè)置為默認(rèn)選項(xiàng)。運(yùn)行程序，系統(tǒng)開(kāi)始就進(jìn)入到登錄窗口中。 登錄窗口界面如果用戶(hù)輸入了正確的用戶(hù)名和密碼，登錄窗口消失后系統(tǒng)主窗口打開(kāi)，否則，系統(tǒng)都將有消息對(duì)話(huà)框提示。 創(chuàng)建菜單欄（frmMain）在主窗口設(shè)計(jì)好的基礎(chǔ)上，需要設(shè)計(jì)一個(gè)菜單欄，為用戶(hù)執(zhí)行各種命令和操作提供方便。 菜單的結(jié)構(gòu)如系統(tǒng)功能設(shè)計(jì)中的系統(tǒng)模塊結(jié)構(gòu)結(jié)構(gòu)圖所示。在Visual Basic ，即可對(duì)菜單欄進(jìn)行添加。按照如下表設(shè)計(jì)菜單欄中的菜單： frmMain窗口的菜單列表對(duì)象屬性屬性值說(shuō)明一級(jí)菜單“日常業(yè)務(wù)”標(biāo)題日常業(yè)務(wù)（amp。N）訪問(wèn)鍵為Alt+N名稱(chēng)RCYW菜單訪問(wèn)名稱(chēng)二級(jí)菜單“采購(gòu)單”標(biāo)題采購(gòu)單標(biāo)題為“采購(gòu)單”名稱(chēng)CGD菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+P通過(guò)快捷鍵Ctrl+P訪問(wèn)菜單二級(jí)菜單“出庫(kù)單”標(biāo)題出庫(kù)單標(biāo)題為“出庫(kù)單”名稱(chēng)CKD菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+S通過(guò)快捷鍵Ctrl+S訪問(wèn)菜單 frmMain窗口的菜單列表對(duì)象屬性屬性值說(shuō)明一級(jí)菜單“庫(kù)存管理”標(biāo)題庫(kù)存管理（amp。S）訪問(wèn)鍵為Alt+S名稱(chēng)KCGL菜單訪問(wèn)名稱(chēng)二級(jí)菜單“庫(kù)存盤(pán)點(diǎn)”標(biāo)題庫(kù)存盤(pán)點(diǎn)標(biāo)題為“庫(kù)存盤(pán)點(diǎn)”名稱(chēng)KCPD菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+K通過(guò)快捷鍵Ctrl+K訪問(wèn)菜單一級(jí)菜單“統(tǒng)計(jì)查詢(xún)”標(biāo)題統(tǒng)計(jì)查詢(xún)（amp。F）訪問(wèn)鍵為Alt+F名稱(chēng)TJCX菜單訪問(wèn)名稱(chēng)二級(jí)菜單“庫(kù)存查詢(xún)”標(biāo)題庫(kù)存查詢(xún)標(biāo)題為“庫(kù)存查詢(xún)”名稱(chēng)KCCX菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+F通過(guò)快捷鍵Ctrl+F訪問(wèn)菜單二級(jí)菜單“采購(gòu)查詢(xún)”標(biāo)題采購(gòu)查詢(xún)標(biāo)題為“采購(gòu)查詢(xún)”名稱(chēng)CGCX菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+G通過(guò)快捷鍵Ctrl+G訪問(wèn)菜單二級(jí)菜單“出庫(kù)查詢(xún)“標(biāo)題出庫(kù)查詢(xún)標(biāo)題為“出庫(kù)查詢(xún)”名稱(chēng)CKCX菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+X通過(guò)快捷鍵Ctrl+V訪問(wèn)菜單一級(jí)菜單“基礎(chǔ)信息”標(biāo)題基礎(chǔ)信息（amp。B）訪問(wèn)鍵為Alt+B名稱(chēng)JCXX菜單訪問(wèn)名稱(chēng)二級(jí)菜單“供應(yīng)商管理”標(biāo)題供應(yīng)商管理標(biāo)題為“供應(yīng)商管理”名稱(chēng)GYSGL菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+Y通過(guò)快捷鍵Ctrl+Y訪問(wèn)菜單二級(jí)菜單“裝配車(chē)間”標(biāo)題裝配車(chē)間管理標(biāo)題為“裝配車(chē)間管理”名稱(chēng)ZPCJGL菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+H通過(guò)快捷鍵Ctrl+H訪問(wèn)菜單一級(jí)菜單“系統(tǒng)設(shè)置”標(biāo)題系統(tǒng)設(shè)置（amp。O）訪問(wèn)鍵為Alt+O名稱(chēng)XTSZ菜單訪問(wèn)名稱(chēng)二級(jí)菜單“密碼設(shè)置標(biāo)題密碼設(shè)置標(biāo)題為“密碼設(shè)置”名稱(chēng)MMSZ菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+M通過(guò)快捷鍵Ctrl+M訪問(wèn)菜單 frmMain窗口的菜單列表對(duì)象屬性屬性值說(shuō)明二級(jí)菜單“關(guān)于系統(tǒng)”標(biāo)題關(guān)于系統(tǒng)標(biāo)題為“關(guān)于系統(tǒng)”名稱(chēng)GYXT菜單訪問(wèn)名稱(chēng)快捷鍵Ctrl+A通過(guò)快捷鍵Ctrl+A訪問(wèn)菜單一級(jí)菜單“退出系統(tǒng)”標(biāo)題退出系統(tǒng)（amp。X）訪問(wèn)鍵為Alt+X名稱(chēng)TCXT菜單訪問(wèn)名稱(chēng)這樣，窗口frmMain的菜單欄就已經(jīng)設(shè)計(jì)完成了。 創(chuàng)建工具欄（1）從工具箱中拖動(dòng)一個(gè)ImageList控件放置到frmMain窗口上。設(shè)置其名稱(chēng)為imlToolBar；（2），然后單擊確定；（3）切換到“按鈕”選項(xiàng)卡，將按鈕標(biāo)題設(shè)置為“庫(kù)存查詢(xún)”，關(guān)鍵字設(shè)置為“KCCX”。這樣就在工具欄上添加了一個(gè)名為“庫(kù)存查詢(xún)”的圖標(biāo)按鈕。（4）其余工具欄圖標(biāo)按鈕可依據(jù)上邊的方法設(shè)置。 創(chuàng)建狀態(tài)欄應(yīng)用程序中的狀態(tài)欄用于顯示當(dāng)前狀態(tài)下應(yīng)用程序或操作系統(tǒng)的執(zhí)行狀態(tài)。一般狀態(tài)欄顯示在窗口的最下方。在這個(gè)應(yīng)用程序中，在窗口的底部放置一個(gè)狀態(tài)欄，用于顯示系統(tǒng)名稱(chēng)、作者信息、當(dāng)前日期和當(dāng)前時(shí)間信息。 創(chuàng)建采購(gòu)單經(jīng)過(guò)前面的操作，登錄窗口和主窗口就全部設(shè)計(jì)完成了。但是主窗口中的各種功能，包括菜單欄中和工具欄中的，都是沒(méi)有事件處理代碼的空架子。當(dāng)調(diào)用這些功能的時(shí)候，不會(huì)有任何效果。從下面開(kāi)始，就按照菜單欄中的順序逐步實(shí)現(xiàn)系統(tǒng)中的各種功能。菜單欄中的第一項(xiàng)就是采購(gòu)單，這是使用頻繁的一項(xiàng)功能。每當(dāng)有商品入庫(kù)的時(shí)候，都要生成一張采購(gòu)單。采購(gòu)單中主要包括的字段有如下幾項(xiàng)：l 零件名稱(chēng)：這個(gè)字段是在PurchaseandSale的Product數(shù)據(jù)表中定義的。只有在Product表中有了一種零件的信息后，才能在入庫(kù)單中使用這種商品。如果出現(xiàn)一種零件，必須先在Product表中增加。l 數(shù)量：入庫(kù)零件的數(shù)量，這個(gè)數(shù)量必須是正整數(shù)l 進(jìn)價(jià)：每種商品的入庫(kù)都有一個(gè)進(jìn)價(jià)，這個(gè)進(jìn)價(jià)會(huì)參與庫(kù)存的結(jié)算。l 金額：入庫(kù)零件的金額是由入庫(kù)產(chǎn)品的數(shù)量和價(jià)格相乘得到的，這一項(xiàng)不需要用戶(hù)輸入。l 供應(yīng)商：這個(gè)字段是在PurchaseandSale的Supplier數(shù)據(jù)表中定義的。只有在Supplier表中有了供應(yīng)商的信息后，才能再入庫(kù)單中使用這個(gè)供應(yīng)商。如果新出現(xiàn)供應(yīng)商，必須在Supplier表中增加。l 經(jīng)手人：這個(gè)字段是在PurchaseandSale的Users數(shù)據(jù)表中定義的。只有在Users表中有了一個(gè)用戶(hù)的信息后，才能在入庫(kù)單中使用這個(gè)用戶(hù)作為經(jīng)手人。如果有新的員工加入，必須先在Users表中增加。l 日期：這個(gè)字段表示此筆交易的產(chǎn)生日期。默認(rèn)為當(dāng)前日期。l 票號(hào)：這個(gè)字段不允許用戶(hù)輸入，由系統(tǒng)根據(jù)票號(hào)的產(chǎn)生規(guī)則自動(dòng)生成。設(shè)計(jì)入庫(kù)單的操作步驟如下：1) 按照前述方法在應(yīng)用程序中新增一個(gè)Windows窗口frmCGD。2) 在窗口中添加控件，并設(shè)置相關(guān)屬性；3) 使用Adodc控件連接數(shù)據(jù)庫(kù)；至此，采購(gòu)單的界面部分設(shè)計(jì)完成，“采購(gòu)單”窗口效果圖；當(dāng)frmCGD窗口加載的時(shí)候，需要完成以下操作：l 從PURCHASEANDSALE數(shù)據(jù)庫(kù)的Product數(shù)據(jù)表中檢索所有的零件名稱(chēng)字段信息，并加入到窗口的“零件名稱(chēng)”組合框的子項(xiàng)中；l 從PURCHASEANDSALE數(shù)據(jù)庫(kù)的Users數(shù)據(jù)表中檢索所有記錄的用戶(hù)字段信息，并加入到窗口的“經(jīng)手人”組合框子項(xiàng)中；l 從PURCHASEANDSALE數(shù)據(jù)庫(kù)的Supplier數(shù)據(jù)表中檢索所有記錄的供應(yīng)商編號(hào)字段信息，并加入到窗口“供應(yīng)商”組合框的子項(xiàng)中；l 按照日期加字母“P”加三位序號(hào)的方式生成票號(hào)字段；l 取得系統(tǒng)當(dāng)前日期，填充到mebDate控件中，作為默認(rèn)的采購(gòu)日期 “采購(gòu)單”窗口效果在界面設(shè)計(jì)窗口中，雙擊frmCGD窗口，進(jìn)入窗口加載事件，輸入以下代碼：Private Sub Form_Load() On Error GoTo myerr 39。有異常跳轉(zhuǎn) = adCmdText = select 零件名稱(chēng) from Product 39。設(shè)置adoCGD的數(shù)據(jù)源為Product數(shù)據(jù)表 With .MoveFirst