【正文】 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此入庫單編號的。 Trim(txtItem(1)) amp。添加判斷是否有相同的 ID 記錄 If gintINHmode = 1 Then txtSQL = select * from inh where inh_no =39。 ) = Then Select Case intCount Case 4 sMeg = 倉庫名稱 Case 5 sMeg = 支付方式 End Select sMeg = sMeg amp。 ) = Then Select Case intCount Case 0 sMeg = 業(yè)務(wù)員 Case 1 sMeg = 供應(yīng)商名稱 基于 C/S 模式企業(yè)進銷存管理系統(tǒng)的設(shè)計與實現(xiàn) 30 Case 2 sMeg = 產(chǎn)品名稱 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。具體實現(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。在實現(xiàn)這個模塊功能的過程中需要特別注意多個數(shù)據(jù)表的數(shù)據(jù)關(guān)聯(lián) 如 ： 修改入庫單信息時，首先需要刪除入庫記錄 ，恢復(fù)庫存信息到原始狀態(tài) 然后添加新的入庫記錄，并更新庫存信息。 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è)置運行界面如 圖 所示 ： 圖 具體功能的實現(xiàn) 由于 有些功能實現(xiàn)起來比較簡單，如應(yīng)收款項的收款 登記、應(yīng)付款項的付款登記、產(chǎn)品盤點；或者有些模塊功能相似，如各查詢模塊 ，所以 在本文僅詳細介紹了入庫單管理、組裝單管理、銷售單管理、 轉(zhuǎn)庫單管理 和 庫存信息查詢這五 個模塊的實現(xiàn)過程。 Trim(txtItem(8)) amp。,39。 Trim(txtItem(intCount)) amp。,39。 Trim(Combo1(1)) amp。,39。 Trim(txtItem(intCount)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = execute wz_setup 39。 Trim(txtItem(0)) amp。 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。 Trim(txtItem(0)) amp。 請輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub 基于 C/S 模式企業(yè)進銷存管理系統(tǒng)的設(shè)計與實現(xiàn) 26 End If Next intCount If gintWZSmode = 1 Then txtSQL = select * from dm_wz where dm =39。 ) = 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)品信息設(shè)置完單擊 “ 保存 ” 后系統(tǒng)提示用戶設(shè)置成功。下面給出產(chǎn)品信息管理 的工作流程如圖 所示 否 否 圖 開始 初始化已有的產(chǎn)品信息 新增產(chǎn)品 刪除 產(chǎn)品 信息 修改 產(chǎn)品 信息 產(chǎn)品信息 產(chǎn)品名稱 刪除要求 修改 要求 更新產(chǎn)品信息 結(jié)束 基于 C/S 模式企業(yè)進銷存管理系統(tǒng)的設(shè)計與實現(xiàn) 24 圖 用戶設(shè)置產(chǎn)品信息時，輸入所有的與產(chǎn)品相關(guān)的信息。經(jīng)過對企業(yè)進銷存流程的分析，現(xiàn)做出本系統(tǒng)的數(shù)據(jù)流程圖如下圖 進銷存管理系統(tǒng)設(shè)計 系統(tǒng)除了要實現(xiàn)某些具體的功能，對系統(tǒng)進行初始化設(shè)置更是所有功能實現(xiàn)的基礎(chǔ)。 進銷存管理系統(tǒng)主要數(shù)據(jù)表 ： 表 表 dh進貨訂單表 列名 數(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_date datetime Not Null 入庫日期 ywman char Null 業(yè)務(wù)員 inh_no char Null 入庫單編號 gfdm char Null 供應(yīng)商編碼 ckdm char Null 倉庫編號 wzdm char Null 產(chǎn)品編號 sl numeric Null 數(shù)量 in_danj numeric Null 單價 i_zk numeric Null 折扣 i_zke numeric Null 總金額 jsfk char Null 是否即時付款 jz char Null 是否記帳 yf numeric Null 預(yù)付比例 bz char Null 備注信息 bzl char Null 入庫方式 (采購、生產(chǎn)等 ) 表 表 xsdh 銷售訂單表 列名 數(shù)據(jù)類型 可否為空 說明 out_date datetime Not Null 銷售訂貨日期 ywman char Null 業(yè)務(wù)員 xsdh_no char Null 銷售訂貨單編號 khdm char Null 客戶編號 wzdm char Null 商品編號 sl numeric Null 數(shù)量 out_danj numeric Null 銷售訂貨單價 基于 C/S 模式企業(yè)進銷存管理系統(tǒng)的設(shè)計與實現(xiàn) 20 o_zk numeric Null 折扣 o_zke numeric Null 總金額 bz char Null 備注信息 表 表 outh 銷售單表 列名 數(shù)據(jù)類型 可否為空 說明 out_date datetime Not Null 銷售日期 ywman char Null 業(yè)務(wù)員 outh_no char Null 銷售單編號 khdm char Null 客戶編號 ckdm char Null 倉庫編號 wzdm char Null 產(chǎn)品編號 sl numeric Null 數(shù)量 out_danj numeric Null 單價 o_zk numeric Null 折扣 o_zke numeric Null 總金額 jsfk char Null 是否即時付款 jz char Null 是否記帳 yf numeric Null 預(yù)付比例 bz char Null 備 注信息 bzl char Null 出庫方式（銷售、組裝等） 表 表 kucun庫存表 列名 數(shù)據(jù)類型 可否為空 說明 update_date datetime Not Null 更新日期 kucun_no char Null 庫存編號 ckdm char Null 倉庫編號 wzdm char Null 產(chǎn)品編號 sl numeric Null 數(shù)量 total_je numeric Null 總金額 1