【正文】 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計與實(shí)現(xiàn) 10 進(jìn)貨訂單信息 =訂貨日期 +編號 +業(yè)務(wù)員 +供應(yīng)商編號 +產(chǎn)品編號 +數(shù)量 +單價 +折扣比例 +總金額 +備注信息 入庫單信息 =入庫日期 +編號 +業(yè)務(wù)員 +供應(yīng)商編號 +產(chǎn)品編號 +數(shù)量 +單價 +折扣比例 +總金額 +是否即時付款 +是否記帳 +預(yù)付比例 +備注信息 配料單信息 =配料單編號 +設(shè)置日期 +產(chǎn)品編號 +產(chǎn)品名稱 +產(chǎn)品計量單位 +配料編號 +配料名稱 +配料計量單位 +配料數(shù)量 +配料單價 +配料總金額 +業(yè)務(wù)員編號 +備注信息 生產(chǎn)計劃信息 =計劃編號 +計劃制定人 +計劃制定時間 +產(chǎn)品編號 +產(chǎn)品名稱 +計量單位 +生產(chǎn)數(shù)量 +單價 +總金額 +計劃起始 時間 +計劃結(jié)束時間 +備注信息 銷售出貨單信息 =銷售日期 +編號 +業(yè)務(wù)員 +客戶編號 +產(chǎn)品編號 +數(shù)量 +單價 +折扣比例 +總金額 +是否即時付款 +是否記帳 +預(yù)付 比例 +備注信息 庫存信息 =更新日期 +編號 +倉庫編號 +產(chǎn)品編號 +數(shù)量 +單價 +總金額 +備注信息 轉(zhuǎn)倉信息 =轉(zhuǎn)倉日期 +編號 +業(yè)務(wù)員 +轉(zhuǎn)出倉庫編號 +轉(zhuǎn)入倉庫編號 +產(chǎn)品編號 +數(shù)量 +總金額 +備注信息 數(shù)據(jù)處理 表 用戶登錄 加工名稱 用戶登錄 輸入： 用戶名 用戶名、密碼 處理： 對用戶進(jìn)行判斷，如果 登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng) ，否則將停止程序的執(zhí)行。然后將相關(guān)信息添加到數(shù)據(jù)庫中。存取數(shù)據(jù)安全，因?yàn)?C/S 模式的平臺一般采用適于局域網(wǎng)、安全性好的局域網(wǎng)絡(luò)協(xié)議，如 Netbeui 協(xié)議，安全性有保證。 而 B/S 模式是三層的結(jié)構(gòu)。 C/S 結(jié)構(gòu)是一種典型的二層結(jié)構(gòu)，按照各自實(shí)現(xiàn)功能的不同，將應(yīng)用程序分為兩大部分：一部分是用于處理數(shù)據(jù)庫，另一部分是用于處理應(yīng)用程序、請求服務(wù)，客戶部分負(fù)責(zé)執(zhí)行前臺功能，如管理用戶接口、數(shù)據(jù)處理和報告請求等。 圖 /服務(wù)器結(jié)構(gòu)圖 建設(shè)原則 為了 開發(fā)一個實(shí)用性強(qiáng)，安全性高，符合客戶要求的系統(tǒng)，必須遵照好的原則去開發(fā)系統(tǒng)，開發(fā)工作必須按照以下建設(shè)原則： (1)規(guī)范、統(tǒng)一各類所需的管理信息，遵循國家標(biāo)準(zhǔn)。如果將來應(yīng)用需求發(fā)生變化時，應(yīng)保證系統(tǒng)的可修改性和可擴(kuò)充性。 (4)系統(tǒng)的安全性和可靠性。 功能設(shè)計 總體設(shè)計采用結(jié)構(gòu)化設(shè)計方法（ SD），結(jié)構(gòu)化設(shè)計方法設(shè)計是基于 模 塊化、自頂向下細(xì)化的設(shè)計原則的設(shè)計方法，在具體的設(shè)計中，根據(jù)基本 的模塊化設(shè)計原則 — “高內(nèi)聚低耦合”，將需求分析中所產(chǎn)生的數(shù)據(jù)流圖轉(zhuǎn)換為模塊結(jié)構(gòu)圖。 系統(tǒng)管理員可以添加新用戶并記錄其相關(guān)信息。一般進(jìn)貨分兩步：第一步到供應(yīng)商簽訂訂貨單，達(dá)成進(jìn)貨意向；第二步產(chǎn)品到貨并入庫，完成產(chǎn)品入庫單、庫存信息更新。銷售一般分為兩步：第一步，客戶訂貨并獲得銷售的意向，同時為生產(chǎn)、進(jìn)貨信息提供需求；第二步。盤點(diǎn)產(chǎn)品通過指定倉庫或者產(chǎn)品名稱來完成。數(shù)據(jù)必須準(zhǔn)確，可信，可用，完整，規(guī)范，及安全可靠。企業(yè)的經(jīng)濟(jì)狀況、經(jīng)營狀況以及考慮到企業(yè)今后的發(fā)展來確定。在本系統(tǒng)的數(shù)據(jù)庫設(shè)計中運(yùn)用了規(guī)范化理論，因?yàn)檫^于追求數(shù)據(jù)的精簡就會增加操作的復(fù)雜程度。經(jīng)過對企業(yè)進(jìn)銷存流程的分析，現(xiàn)做出本系統(tǒng)的數(shù)據(jù)流程圖如下圖 進(jìn)銷存管理系統(tǒng)設(shè)計 系統(tǒng)除了要實(shí)現(xiàn)某些具體的功能，對系統(tǒng)進(jìn)行初始化設(shè)置更是所有功能實(shí)現(xiàn)的基礎(chǔ)。 產(chǎn)品信息設(shè)置完單擊 “ 保存 ” 后系統(tǒng)提示用戶設(shè)置成功。 請輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計與實(shí)現(xiàn) 26 End If Next intCount If gintWZSmode = 1 Then txtSQL = select * from dm_wz where dm =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此產(chǎn)品編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If txtSQL = delete from dm_wz where dm =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = execute wz_setup 39。,39。,39。,39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If gintWZSmode = 1 Then MsgBox 添加記錄成功！ , vbOKOnly + vbExclamation, 添加記錄 For intCount = 0 To 8 txtItem(intCount) = Next intCount txtItem(7) = Format(Now, yyyymmdd) mblChange = False Unload frmWZSetup 1 = select * from dm_wz ElseIf gintWZSmode = 2 Then Unload Me Unload frmWZSetup = select * from dm_wz End If End Sub Private Sub Combo1_Change(Index As Integer) mblChange = True End Sub 產(chǎn)品信息 管理 模塊產(chǎn)品信息設(shè)置運(yùn)行界面如 圖 所示 ： 圖 具體功能的實(shí)現(xiàn) 由于 有些功能實(shí)現(xiàn)起來比較簡單，如應(yīng)收款項(xiàng)的收款 登記、應(yīng)付款項(xiàng)的付款登記、產(chǎn)品盤點(diǎn)；或者有些模塊功能相似，如各查詢模塊 ，所以 在本文僅詳細(xì)介紹了入庫單管理、組裝單管理、銷售單管理、 轉(zhuǎn)庫單管理 和 庫存信息查詢這五 個模塊的實(shí)現(xiàn)過程。具體實(shí)現(xiàn)方法如下： Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String Dim mrce As For intCount = 1 To 7 If Trim(txtItem(intCount) amp。 ) = Then Select Case intCount Case 0 sMeg = 業(yè)務(wù)員 Case 1 sMeg = 供應(yīng)商名稱 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計與實(shí)現(xiàn) 30 Case 2 sMeg = 產(chǎn)品名稱 End Select sMeg = sMeg amp。添加判斷是否有相同的 ID 記錄 If gintINHmode = 1 Then txtSQL = select * from inh where inh_no =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此入庫單編號的。 Trim(txtItem(1)) amp。 ) = Then Select Case intCount Case 4 sMeg = 倉庫名稱 Case 5 sMeg = 支付方式 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If txtItem(8).Visible = True Then If Trim(txtItem(8) amp。在實(shí)現(xiàn)這個模塊功能的過程中需要特別注意多個數(shù)據(jù)表的數(shù)據(jù)關(guān)聯(lián) 如 ： 修改入庫單信息時，首先需要刪除入庫記錄 ，恢復(fù)庫存信息到原始狀態(tài) 然后添加新的入庫記錄，并更新庫存信息。 Trim(txtItem(8)) amp。 Trim(txtItem(intCount)) amp。 Trim(Combo1(1)) amp。 Trim(txtItem(intCount)) amp。 Trim(txtItem(0)) amp。 Trim(txtItem(0)) amp。 ) = Then Select Case intCount Case 0 sMeg = 款號 Case 1 sMeg = 名稱 Case 2 sMeg = 單位 Case 3 sMeg = 入庫價格 Case 4 sMeg = 分銷價格 Case 5 sMeg = 零售價格 Case 6 sMeg = 生產(chǎn)廠家 Case 7 sMeg = 設(shè)置日期 End Select sMeg = sMeg amp。下面給出產(chǎn)品信息管理 的工作流程如圖 所示 否 否 圖 開始 初始化已有的產(chǎn)品信息 新增產(chǎn)品 刪除 產(chǎn)品 信息 修改 產(chǎn)品 信息 產(chǎn)品信息 產(chǎn)品名稱 刪除要求 修改 要求 更新產(chǎn)品信息 結(jié)束 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計與實(shí)現(xiàn) 24 圖 用戶設(shè)置產(chǎn)品信息時，輸入所有的與產(chǎn)品相關(guān)的信息。 進(jìn)銷存管理系統(tǒng)主要數(shù)據(jù)表 ： 表 表 dh進(jìn)貨訂單表 列名 數(shù)據(jù)類型 可否為空 說明 in_date datetime Not Null 訂貨日期 ywman char Null 業(yè)務(wù)員 dh_no char Null 訂貨單編號 gfdm char Null 供應(yīng)商編號 wzdm char Null 產(chǎn)品編號 sl numeric Null 數(shù)量 in_danj numeric Null 訂貨單價 客戶 對應(yīng) 銷售出貨單 銷售 產(chǎn)品 擺 放 庫存記錄 屬于 倉庫 生產(chǎn) 生產(chǎn)計劃 配料單 入庫 采購 入庫單 采購訂單 對應(yīng) 供貨商 業(yè)務(wù)員 轉(zhuǎn)庫 轉(zhuǎn)庫信息 1 i_zk numeric Null 折扣 i_zke numeric Null 總金額 bz char Null 備注信息 表 表 inh 入庫單表 列名 數(shù)據(jù)類型 可否為空 說明 in_da