【正文】 所有記錄的供應(yīng)商編號字段信息，并加入到窗口“供應(yīng)商”組合框的子項中； ? 按照日期加字母“ P”加三位序號的方式生成票號字段； ? 取得系統(tǒng)當(dāng)前日期 ，填充到 mebDate 控件中，作為默認(rèn)的采購日期 圖 “ 采購單 ” 窗口效果 在界面設(shè)計窗口中，雙擊 frmCGD 窗口，進(jìn)入窗口加載事件，輸入以下代碼： Private Sub Form_Load() On Error GoTo myerr 39。有異常跳轉(zhuǎn) = adCmdText = select 零件名稱 from Product . . 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Product 數(shù) 據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開始逐條添加到 Combo1 的子項中 DoEvents (!零件名稱 ) .MoveNext Loop End With = select 用戶 from Users 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Users 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開始逐條添加到 Combo2 的子項中 DoEvents (!用戶 ) .MoveNext Loop End With = select 供應(yīng)商簡稱 from supplier 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Supplier 數(shù)據(jù)表 With . . .MoveFirst Do While Not .EOF 39。從第一條開始逐條添加到 Combo3 的子項中 DoEvents (!供應(yīng)商簡稱 ) .MoveNext Loop End With = select 票號 from purchase order by 票號 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Purchase 數(shù)據(jù)表 With If .RecordCount 0 Then 39。如果已有記錄則在原來的序號上遞增 .MoveLast If !票號 Then Dim lsph As String lsph = Right(Trim(!票號 ), 3) + 1 = $ amp。 P amp。 Format(lsph, 000) End If Else 39。如果還沒有記錄則序號開始為 001 = $ amp。 P amp。 001 End If End With = $ 39。系統(tǒng)當(dāng)前日期的字符串形式賦值 myerr: End Sub . . 運(yùn)行程序，經(jīng)過登錄后進(jìn)入到系統(tǒng)主窗口，單擊菜單欄中的“采購單”菜單項或者通過工具欄中的按鈕，可以生成采購單。 創(chuàng)建出庫單 菜單欄中的第二個選項是出庫單。當(dāng)每次有產(chǎn)品出庫的時候，都要生成一張出庫單。 出庫單中主要包括的字段有如下幾項： ? 零件名稱：這個字段是在 PurchaseandSale 的 Product 數(shù)據(jù)表中定義的。只有在 Product 表中有了一種零件的信息 ，且?guī)齑鏀?shù)量大于零時 ，才能 在出庫單中使用這種商品。如果出現(xiàn)一種零件，必須先在 Product 表中增加。 ? 數(shù)量：出 庫零件的數(shù)量，這個數(shù)量必須是正整數(shù) ? 進(jìn)價：每種商品的出 庫都有一個進(jìn)價，這個進(jìn)價會參與庫存的結(jié)算。 ? 金額：出庫零件的金額是由出 庫產(chǎn)品的數(shù)量和價格相乘得到的，這一項不需 要用戶輸入。 ? 裝配車間 ：這個字段是在 PurchaseandSale 的 Customer 數(shù)據(jù)表中定義的。只有在 Customer 表中有了車間的信息后，才能再出庫單中使用這個車間。如果新出現(xiàn)車間 ，必須在 Customer 表中增加。 ? 經(jīng)手人：這個字段是在 PurchaseandSale 的 Users 數(shù)據(jù)表中定義的。只有在Users 表中有了一個用戶的信息后，才能在出 庫單中使用這個用戶作為經(jīng)手人。如果有新的員工加入，必須先在 Users 表中增加。 ? 日期：這個字段表示此筆交易的產(chǎn)生日期。默認(rèn)為當(dāng)前日期。 ? 票號：這個字段不允許用戶輸 入，由系統(tǒng)根據(jù)票號的產(chǎn)生規(guī)則自動生成。 設(shè)計出庫單的操作步驟如下： 1) 按照前述方法在應(yīng)用程序中新增一個 Windows 窗口 frmCKD。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； . . 至此，出庫單的界面部分設(shè)計完成，效果圖如 圖 “ 出庫單 ” 窗口效果圖 。 當(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 控件中，作為默認(rèn)的采購日期 圖 “ 出庫單 ” 窗口效 在界面設(shè)計窗口中，雙擊 frmCKD 窗口，進(jìn)入窗口加載事件，輸入以下代碼： Private Sub Form_Load() On Error GoTo myerr 39。有異常跳轉(zhuǎn) . . = adCmdText = select 零件名稱 from Product where 庫存 0 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Product 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條 開始逐條添加到 Combo1 的子項中 DoEvents (!零件名稱 ) .MoveNext Loop End With = select 用戶 from Users 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Users 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開始逐條添加到 Combo2 的子項中 DoEvents (!用戶 ) .MoveNext Loop End With = select 車間簡稱 from Customer 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Customer 數(shù)據(jù)表 . . With .MoveFirst Do While Not .EOF 39。從第一條開始逐條添加到 Combo3 的子項中 DoEvents (!車間簡稱 ) .MoveNext Loop End With = select 票號 from Sale order by 票號 39。設(shè)置 adoxsd 的數(shù)據(jù)源為 Sale 數(shù)據(jù)表 With If .RecordCount 0 Then 39。如果已有記錄則在原來的序號上遞增 .MoveLast If !票號 Then Dim lsph As String lsph = Right(Trim(!票號 ), 3) + 1 = $ amp。 S amp。 Format(lsph, 000) End If Else 39。如果還沒有記錄則序號開始為 001 = $ amp。 S amp。 001 End If End With = $ 39。系統(tǒng)當(dāng)前日期的字符串形式賦值 . . myerr: End Sub 運(yùn)行程序，經(jīng)過登錄后進(jìn)入到系統(tǒng)主窗口，單擊菜單欄中的“出庫單”菜單項或者通過工具欄中的按鈕，可以生成出庫單。 創(chuàng)建庫存盤點(diǎn)窗口 菜單中的第 3 項是庫存盤點(diǎn)。所謂的庫存盤點(diǎn)就是根據(jù)采購記錄和入庫記錄算出 Product 數(shù)據(jù)表中的每種零件的庫存量。由于企業(yè)中出庫和入庫活動頻繁，而且出庫活動中要考慮到商品的實際庫存大于零，因此庫存盤點(diǎn)功能也是十分常用和重要的 。 創(chuàng)建庫存盤點(diǎn)窗口的步驟如下： 1) 按照前述方法在應(yīng)用程序中新增一個 Windows 窗口 frmKCPD。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 4)當(dāng)用戶單擊“庫存盤點(diǎn)”按鈕后，需要根據(jù) Purchase 數(shù)據(jù)表和 Sale 數(shù)據(jù)表中更新 Product 數(shù)據(jù)表中各中零件的庫存字段指。雙擊 Command1 控件，在其單擊事件中輸入如下代碼： On Error GoTo myerr Dim conn As New Dim rs As New Dim strUpdate As String Dim connstring As String strUpdate = update product set 庫存 = (select sum(數(shù)量 ) from purchase where amp。 _ 商品名稱 = ) (select sum(數(shù)量 ) from sale where amp。 _ 商品名稱 = ) . . connstring = Provider=。Password=ecc。Persist Security _ amp。 Info=True。User ID=sa。Initial Catalog=PurchaseandSale。Server=(local) If 1 Then 39。打開數(shù)據(jù)庫 (connstring) End If (strUpdate) 39。執(zhí)行庫存盤點(diǎn)操作 39。刷新庫存 myerr: 這樣，庫存盤點(diǎn)功能就全部實現(xiàn)了。運(yùn)行程序，登錄后進(jìn)入到系統(tǒng)主窗口，單擊菜單欄中的庫存盤點(diǎn)，效果如圖 所示： 圖 庫存盤點(diǎn)運(yùn)行效果圖 創(chuàng)建庫存查詢窗口 菜單欄中的庫存查詢主要是查詢每一種庫存零件的信息。 . . 在這個窗口中，提供一個下拉列表，用戶可以從中選擇一種查 詢依據(jù)，然后在文本框中輸入要查詢的關(guān)鍵字，單擊 “ 查詢 ” 就可以在 Product 數(shù)據(jù)表中進(jìn)行模糊查詢。 創(chuàng)建庫存查詢窗口的步驟如下： 1) 按照前述方法在應(yīng)用程序中新增一個 Windows 窗口 frmLJGL。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 4)用戶選擇了一個查詢標(biāo)準(zhǔn)，并且在輸入查詢的關(guān)鍵字之后，單擊“查詢”按鈕“就可以以模糊查詢的方式查詢 Product 數(shù)據(jù)表了。雙擊 Command1 控件，輸入如下代碼： Private Sub Command1_Click() On Error GoTo myerr = adCmdText = se