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