【正文】 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 4)用戶選擇了一個查詢標(biāo)準(zhǔn)，并且在輸入查詢的關(guān)鍵字之后，單擊“查詢”按鈕“就可以以模糊查詢的方式查詢 Product 數(shù)據(jù)表了。 . . 在這個窗口中，提供一個下拉列表，用戶可以從中選擇一種查 詢依據(jù)，然后在文本框中輸入要查詢的關(guān)鍵字，單擊 “ 查詢 ” 就可以在 Product 數(shù)據(jù)表中進行模糊查詢。刷新庫存 myerr: 這樣，庫存盤點功能就全部實現(xiàn)了。打開數(shù)據(jù)庫 (connstring) End If (strUpdate) 39。Initial Catalog=PurchaseandSale。 Info=True。Password=ecc。 _ 商品名稱 = ) (select sum(數(shù)量 ) from sale where amp。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 4)當(dāng)用戶單擊“庫存盤點”按鈕后，需要根據(jù) Purchase 數(shù)據(jù)表和 Sale 數(shù)據(jù)表中更新 Product 數(shù)據(jù)表中各中零件的庫存字段指。由于企業(yè)中出庫和入庫活動頻繁，而且出庫活動中要考慮到商品的實際庫存大于零，因此庫存盤點功能也是十分常用和重要的 。 創(chuàng)建庫存盤點窗口 菜單中的第 3 項是庫存盤點。 001 End If End With = $ 39。如果還沒有記錄則序號開始為 001 = $ amp。 S amp。設(shè)置 adoxsd 的數(shù)據(jù)源為 Sale 數(shù)據(jù)表 With If .RecordCount 0 Then 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Customer 數(shù)據(jù)表 . . With .MoveFirst Do While Not .EOF 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Users 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Product 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。 當(dāng) frmCKD 窗口加載的時候，需要完成以下操作： ? 從 PurchaseandSale 數(shù)據(jù)庫的 Product 數(shù)據(jù)表中檢索所有的零件名稱字段信息，并加入到窗口的“零件名稱 ”組合框的子項中； ? 從 PurchaseandSale 數(shù)據(jù)庫的 Users 數(shù) 據(jù)表中檢索所有記錄的用戶字段信息，并加入到窗口的“經(jīng)手人”組合框子項中； ? 從 PPurchaseandSale 數(shù)據(jù)庫的 Customer 數(shù)據(jù)表中檢索所有記錄的供應(yīng)商編號字段信息，并加入到窗口“裝配車間”組合框的子項中； ? 按照日期加字母“ S”加三位序號的方式生成票號字段； ? 取得系統(tǒng)當(dāng)前日期，填充到 mebDate 控件中，作為默認的采購日期 圖 “ 出庫單 ” 窗口效 在界面設(shè)計窗口中，雙擊 frmCKD 窗口，進入窗口加載事件，輸入以下代碼： Private Sub Form_Load() On Error GoTo myerr 39。 設(shè)計出庫單的操作步驟如下： 1) 按照前述方法在應(yīng)用程序中新增一個 Windows 窗口 frmCKD。默認為當(dāng)前日期。如果有新的員工加入，必須先在 Users 表中增加。 ? 經(jīng)手人：這個字段是在 PurchaseandSale 的 Users 數(shù)據(jù)表中定義的。只有在 Customer 表中有了車間的信息后，才能再出庫單中使用這個車間。 ? 金額：出庫零件的金額是由出 庫產(chǎn)品的數(shù)量和價格相乘得到的，這一項不需 要用戶輸入。如果出現(xiàn)一種零件，必須先在 Product 表中增加。 出庫單中主要包括的字段有如下幾項： ? 零件名稱：這個字段是在 PurchaseandSale 的 Product 數(shù)據(jù)表中定義的。 創(chuàng)建出庫單 菜單欄中的第二個選項是出庫單。 001 End If End With = $ 39。如果還沒有記錄則序號開始為 001 = $ amp。 P amp。設(shè)置 adoCGD 的數(shù)據(jù)源為 Purchase 數(shù)據(jù)表 With If .RecordCount 0 Then 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Supplier 數(shù)據(jù)表 With . . .MoveFirst Do While Not .EOF 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Users 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Product 數(shù) 據(jù)表 With .MoveFirst Do While Not .EOF 39。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 至此，采購單的界面部分設(shè)計完成，效果圖 如 圖 “ 采購單 ” 窗口 效果圖； 當(dāng) frmCGD 窗口加載的時候，需要完成以下操作： ? 從 PURCHASEANDSALE 數(shù)據(jù)庫的 Product 數(shù)據(jù)表中檢索所有的零件名稱. . 字段信息，并加入到窗口的“零件名稱 ”組合框的子項中； ? 從 PURCHASEANDSALE 數(shù)據(jù)庫的 Users 數(shù)據(jù)表中檢索所有記錄的用戶字段信息，并加入到窗口的“經(jīng)手人”組合框子項中； ? 從 PURCHASEANDSALE 數(shù)據(jù)庫的 Supplier 數(shù)據(jù)表中檢索所有記錄的供應(yīng)商編號字段信息，并加入到窗口“供應(yīng)商”組合框的子項中； ? 按照日期加字母“ P”加三位序號的方式生成票號字段； ? 取得系統(tǒng)當(dāng)前日期 ，填充到 mebDate 控件中，作為默認的采購日期 圖 “ 采購單 ” 窗口效果 在界面設(shè)計窗口中，雙擊 frmCGD 窗口，進入窗口加載事件，輸入以下代碼： Private Sub Form_Load() On Error GoTo myerr 39。 ? 票號：這個字段不允許用戶輸入，由系統(tǒng)根據(jù)票號的產(chǎn)生規(guī)則自動生成。 ? 日期：這個字段表示此筆交易的產(chǎn)生日期。 只有在Users 表中有了一個用戶的信息后，才能在入庫單中使用這個用戶作為經(jīng)手人。如果新出現(xiàn)供應(yīng)商，必須在 Supplier 表中增加。 ? 供應(yīng)商：這個字段是在 PurchaseandSale 的 Supplier 數(shù)據(jù)表中定義的。 ? 數(shù)量：入庫零件的數(shù)量，這個數(shù)量必須是正整數(shù) ? 進價：每種商品的入庫都有一個進價，這個進價會參與庫存的結(jié)算。只有在 Product 表中有了一種零件的信息后，才能 在入庫單中使用這種商品。每當(dāng)有商品入庫的時候，都要生成一張采購單。 對象 屬性 屬性值 說明 二級菜單“關(guān)于系統(tǒng)” 標(biāo)題 關(guān)于系統(tǒng) 標(biāo)題為“關(guān)于系統(tǒng)” 名稱 GYXT 菜單訪問名稱 快捷鍵 Ctrl+A 通過快捷鍵 Ctrl+A 訪問菜單 一級菜單“退出系統(tǒng)” 標(biāo)題 退出系統(tǒng)（ amp。當(dāng)調(diào)用這些功能的時候，不會有任何效果。 創(chuàng)建采購單 經(jīng)過 前面的操作，登錄窗口和主窗口就全部設(shè)計完成了。一般狀態(tài)欄顯示在窗口的最下方。 （ 4）其余工具欄圖標(biāo)按鈕可依據(jù)上邊的方法設(shè)置。設(shè)置其名稱為 imlToolBar； （ 2）在插入圖片選項卡下插 入圖片查詢 .BMP，然后單擊確定； （ 3） 切換到 “ 按鈕 ” 選項卡 ，將按鈕標(biāo)題設(shè)置為 “ 庫存查詢 ” ，關(guān)鍵字設(shè)置為 “ KCCX” ，圖像設(shè)置為查詢 .BMP 對應(yīng)的序號。O） 訪問鍵為 Alt+O 名稱 XTSZ 菜單訪問名稱 二級菜單“密碼設(shè)置 標(biāo)題 密碼設(shè)置 標(biāo)題為“密碼設(shè)置” 名稱 MMSZ 菜單訪問名稱 快捷鍵 Ctrl+M 通過快捷鍵 Ctrl+M 訪問菜單 . . 續(xù) 表 frmMain 窗口的菜單列表 這樣，窗口 frmMain的菜單欄就已經(jīng)設(shè)計完成了。F） 訪問鍵為 Alt+F 名稱 TJCX 菜單訪問名稱 二級菜單“庫存查詢” 標(biāo)題 庫存查詢 標(biāo)題為“庫存查詢” 名稱 KCCX 菜單訪問名稱 快捷鍵 Ctrl+F 通過快捷鍵 Ctrl+F 訪問 菜單 二級菜單“采購查詢” 標(biāo)題 采購查詢 標(biāo)題為“采購查詢” 名稱 CGCX 菜單訪問名稱 快捷鍵 Ctrl+G 通過快捷鍵 Ctrl+G 訪問菜單 二級菜單“出庫查詢“ 標(biāo)題 出庫查詢 標(biāo)題為“出庫查詢” 名稱 CKCX 菜單訪問名稱 快捷鍵 Ctrl+X 通過快捷鍵 Ctrl+V 訪問菜單 一級菜單“基礎(chǔ)信息” 標(biāo)題 基礎(chǔ)信息（ amp。N） 訪問鍵為 Alt+N 名稱 RCYW 菜單訪問名稱 二級菜單“采購單” 標(biāo)題 采購單 標(biāo)題為“采購單” 名稱 CGD 菜單訪問名稱 快捷鍵 Ctrl+P 通過快捷鍵 Ctrl+P 訪問菜單 二級菜單“出庫單” 標(biāo)題 出庫單 標(biāo)題為“出庫單” 名稱 CKD 菜單訪問名稱 快捷鍵 Ctrl+S 通過快捷鍵 Ctrl+S 訪問菜單 . . 續(xù) 表 frmMain 窗口的菜單列表 對象 屬性 屬性值 說明 一級菜單“庫存管理” 標(biāo)題 庫存管理（ amp。在Visual Basic 開發(fā)環(huán)境中單擊工具欄中的菜單編輯器，即可對菜單欄進行添加。 創(chuàng)建菜單欄 （ frmMain） 在主窗口設(shè)計好的基礎(chǔ)上，需要設(shè)計一個菜單欄，為用戶執(zhí)行各種命令和操作提供方便。 運行程序，系統(tǒng)開始就進入 到登錄窗口中，運行效果類似于 所示。將 cmbUserName 組合框的默認選項設(shè)置為第一條 這樣，當(dāng)程序開始運行，加載 frmLogin 窗口的時候，就會從 PurchaseandSale. . 數(shù)據(jù)庫的 Users 數(shù)據(jù)表中檢索所有記錄的用戶字段，然后將他們添加到組合框中。執(zhí)行查詢操作，結(jié)果保存在 rs 記錄集中 With rs .MoveFirst Do While Not .EOF 39。 定義連接字符串 If 1 Then 39。 Initial Catalog=PurchaseandSale。User ID=sa。Password=ecc。這樣就可以在程序中使用 ADO 中的對象了。 （ 1） 因為要在窗口的代碼中使用 ADO 中的一些對 象進行數(shù)據(jù)庫的操作，所以必須先引用相對應(yīng)的庫。 在本系統(tǒng)的登錄中，要求用戶從系統(tǒng)已經(jīng)創(chuàng)建的用戶中選擇一個用戶名，然后輸入相應(yīng)的密碼。 系統(tǒng)需要實現(xiàn)的界面如圖 所示，在這個窗 口中，單擊不同的菜單或者工具欄中的按鈕，可以打開不同的窗口以完成各種對應(yīng)的功能。為了防止用戶的誤 錯左，退出系統(tǒng)前需要用戶確認退出的操作。為了用戶使用本系統(tǒng)的方便，該模塊中還提供了計算機系統(tǒng)信息的顯示功能。 ? 密碼設(shè)置：系統(tǒng)設(shè)置中的一個模塊，主要用于為系統(tǒng)中現(xiàn)有的用戶提供密碼更改功能。某時刻運行界面如圖 所示： 圖 供應(yīng)商管理界面 . . ? 裝配車間管理：基礎(chǔ)信息維護中的一個模塊，主要用于對裝配車間信息進行查詢和維護。 庫存查詢的初始界面如圖 所示： . . 圖 庫存查詢 界面 ? 供應(yīng)商管理：基礎(chǔ)信息維護中的一個模塊，主要用于對供應(yīng)商信息進行查詢和維護。 ? 出庫查詢：統(tǒng)計查詢功能中的一個模塊，提供了對出庫記錄的多種字段的復(fù)合式查詢功能。計算庫存時需要檢索每一種商品的采購記錄，匯總得到此種商品總的采購數(shù)量，然后 檢索這種商品的出庫記錄，匯總得到此種商品總的出庫數(shù)量，最后用總的采購數(shù)量和總的出庫數(shù)量相減即可。為了管理的方便和規(guī)范，每筆采購單對應(yīng)一個唯一的采購單票號。 ? 采購單：日常業(yè)務(wù)中需要頻繁的使用的功能，主要是對每筆采購入庫業(yè)務(wù)進行記錄， 自動生成對應(yīng)的采購憑證。銷售單中的商品名稱、客戶和經(jīng)手人字段分別對應(yīng) Product 數(shù)據(jù)表、 Customer 數(shù)據(jù)表和 Users 數(shù)據(jù)表中的相關(guān)字段，所以這里需要檢驗用戶輸入的合法性。 這些關(guān)系可以在 SQL Serve 中用關(guān)系圖工具設(shè)計和查看，結(jié)果如圖 所示： 圖 各數(shù)據(jù)表之間的關(guān)系 系統(tǒng)的功能設(shè)計 庫存管理系統(tǒng)充分發(fā)揮信息技術(shù)的有事，通過集中式的信息數(shù)據(jù)庫，將企業(yè).