【導(dǎo)讀】存和應(yīng)收/應(yīng)付款等各項(xiàng)業(yè)務(wù)。因此進(jìn)行計(jì)算機(jī)進(jìn)銷存管理系統(tǒng)的建設(shè)是企業(yè)的一項(xiàng)重。在分析階段，用戶的需求采用數(shù)據(jù)流圖和數(shù)據(jù)字典來描述；在設(shè)計(jì)階段，模塊化程序采用了結(jié)構(gòu)圖和流程圖來描述。在實(shí)現(xiàn)階段，采用VB和SQLServer2020數(shù)。據(jù)庫(kù)管理系統(tǒng)，成功開發(fā)出基于C/S模式的企業(yè)進(jìn)銷存管理系統(tǒng)應(yīng)用程序。本系統(tǒng)界面友好方便，易于使用；實(shí)時(shí)共享，具有個(gè)性化特征，合法用戶可以共。印報(bào)表，完全滿足了用戶的實(shí)際需要。有相應(yīng)的機(jī)構(gòu)，以管理各個(gè)環(huán)節(jié)的業(yè)務(wù)。一般采用分公司或代理制，通過分公司或代理把產(chǎn)品推向最終用戶。完成協(xié)議的情況確定其享受的優(yōu)惠，以次鼓勵(lì)分公司或代理商的銷售積極性。銷售情況是公司“進(jìn)、銷、存”系統(tǒng)中（如果公司已經(jīng)有單機(jī)或局域網(wǎng)的?！斑M(jìn)、銷、存”系統(tǒng)）。存放，缺少一致性、易于丟失、不易重復(fù)使用。力是每一個(gè)公司總裁日思夜想的問題。以往由于通信手段尤其是網(wǎng)絡(luò)技術(shù)的限制，公司。商務(wù)管理信息系統(tǒng)）。

　　

【正文】 sMeg = 零售價(jià)格 Case 6 sMeg = 生產(chǎn)廠家 Case 7 sMeg = 設(shè)置日期 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount = 3 To 5 If Not IsNumeric(Trim(txtItem(intCount))) Then sMeg = 產(chǎn)品價(jià)格 sMeg = sMeg 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。 amp。 Trim(txtItem(0)) amp。 39。 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。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = execute wz_setup 39。 For intCount = 0 To 2 txtSQL = txtSQL amp。 Trim(txtItem(intCount)) amp。 39。,39。 Next intCount txtSQL = txtSQL amp。 Trim(Combo1(1)) amp。 39。,39。 For intCount = 3 To 7 txtSQL = txtSQL amp。 Trim(txtItem(intCount)) amp。 39。,39。 Next intCount txtSQL = txtSQL amp。 Trim(txtItem(8)) amp。 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)起來比較簡(jiǎn)單，如應(yīng)收款項(xiàng)的收款 登記、應(yīng)付款項(xiàng)的付款登記、產(chǎn)品盤點(diǎn)；或者有些模塊功能相似，如各查詢模塊 ，所以 在本文僅詳細(xì)介紹了入庫(kù)單管理、組裝單管理、銷售單管理、 轉(zhuǎn)庫(kù)單管理 和 庫(kù)存信息查詢這五 個(gè)模塊的實(shí)現(xiàn)過程。 (1)入庫(kù)單管理 產(chǎn)品 入庫(kù)需要實(shí)現(xiàn)入庫(kù)單和庫(kù)存信息的更新。在實(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ù)存信息。 工作流程圖如圖 基于 C/S 模式企業(yè)進(jìn)銷存管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 所示 否 否 否 是 否 圖 信息管理工作流程圖 產(chǎn)品進(jìn)貨入庫(kù)時(shí) 設(shè)置 進(jìn)貨相關(guān)的信息，如果輸入錯(cuò)誤時(shí)系統(tǒng)給出相應(yīng)的提示，當(dāng)設(shè)置完后單擊“保存”后會(huì)顯示操作結(jié)果。具體實(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 1 sMeg = 訂貨單號(hào) Case 2 sMeg = 供應(yīng)商代碼 開始 初始化并顯示已有的 進(jìn)貨信息 添加 進(jìn)貨單 輸入內(nèi)容驗(yàn)證 有相同記錄 ？ 刪除已有記錄，加入新記錄 更新進(jìn)貨和庫(kù)存信息 結(jié)束 刪除 進(jìn)貨單 選擇刪除記錄 庫(kù)存中有相關(guān)信息？ 商品數(shù)量為零？ 1 Case 3 sMeg = 產(chǎn)品代碼 Case 4 sMeg = 數(shù)量 Case 5 sMeg = 訂貨單價(jià) Case 6 sMeg = 折扣比例 Case 7 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。 ) = Then sMeg = 預(yù)付比例不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(8).SetFocus Exit Sub End If End If For intCount = 0 To 2 If Trim(Combo1(intCount) 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, 警告 Combo1(intCount).SetFocus Exit Sub End If Next intCount For intCount = 4 To 5 If Trim(Combo1(intCount) amp。 ) = Then Select Case intCount Case 4 sMeg = 倉(cāng)庫(kù)名稱 Case 5 sMeg = 支付方式 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Combo1(intCount).SetFocus Exit Sub End If Next intCount For intCount = 4 To 7 If Not IsNumeric(Trim(txtItem(intCount))) Then sMeg = 請(qǐng)輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If txtItem(8).Visible = True Then 1 If Not IsNumeric(Trim(txtItem(8))) Then sMeg = 預(yù)付比例請(qǐng)輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(8).SetFocus Exit Sub End If End If 39。添加判斷是否有相同的 ID 記錄 If gintINHmode = 1 Then txtSQL = select * from inh where inh_no =39。 amp。 Trim(txtItem(1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此入庫(kù)