【導(dǎo)讀】中北大學(xué)20xx屆畢業(yè)設(shè)計說明書?；赨ML庫存管理系統(tǒng)建模與仿真

　　

【正文】 要用戶輸入。 ? 供應(yīng)商：這個字段是在 PurchaseandSale 的 Supplier 數(shù)據(jù)表中定義的。只有在 Supplier 表中有了供應(yīng)商的信息后，才能再入庫單中使用這個供應(yīng)商。如果新出現(xiàn)供應(yīng)商，必須在 Supplier 表中增加。 ? 經(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 窗口 frmCGD。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 至此，采購單的界面部分設(shè)計完成，效果圖 如 圖 “ 采購單 ” 窗口 效果圖； 當(dāng) frmCGD窗口加載的時候，需要完成以下操作： ? 從 PURCHASEANDSALE 數(shù)據(jù)庫的 Product 數(shù)據(jù)表中檢索所有的零件名稱中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 35 頁 共 57頁 字段信息，并加入到窗口的“零件名稱 ”組合框的子項中； ? 從 PURCHASEANDSALE 數(shù)據(jù)庫的 Users 數(shù)據(jù)表中檢索所有記錄的用戶字段信息，并加入到窗口的“經(jīng)手人”組合框子項中； ? 從 PURCHASEANDSALE 數(shù)據(jù)庫的 Supplier 數(shù)據(jù)表中檢索所有記錄的供應(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 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 36 頁 共 57頁 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 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 37 頁 共 57頁 .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 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 38 頁 共 57頁 運行程序，經(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ù)庫； 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 39 頁 共 57頁 至此，出庫單的界面部分設(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) 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 40 頁 共 57頁 = 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ù)表 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 41 頁 共 57頁 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)前日期的字符串形式賦值 中北大學(xué) 20xx 屆畢業(yè)設(shè)計說明書 第 42 頁 共 57頁 myerr: End Sub 運行程序，經(jīng)過登錄后進(jìn)入到系統(tǒng)主窗口，單擊菜單欄中的“出庫單”菜單項或者通過工具欄中的按鈕，可以生成出庫單。 創(chuàng)建庫存盤點窗口 菜單中的第 3 項是庫存盤點。所謂的庫存盤點就是根據(jù)采購記錄和入庫記錄算出 Product 數(shù)據(jù)表中的每種零件的庫存量。由于企業(yè)中出庫和入庫活動頻繁，而且出庫活動中要考慮到商品的實際庫存大于零，因此庫存盤點功能也是十分常用和重要的。 創(chuàng)建庫存盤點窗口的步驟如下： 1) 按照前述方法在應(yīng)用程序中新增一個 Windows 窗口 frmKCPD。 2) 在窗口中添加控件，并設(shè)置相關(guān)屬性； 3) 使用 Adodc 控件連接數(shù)據(jù)庫； 4)當(dāng)用戶單擊“庫存盤點”按鈕后，需要根據(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ù)量 ) f