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

　　

【正文】 sMeg = 零售價格 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)品價格 sMeg = sMeg 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。 amp。 Trim(txtItem(0)) amp。 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。 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è)置運行界面如 圖 所示 ： 圖 具體功能的實現(xiàn) 由于 有些功能實現(xiàn)起來比較簡單，如應收款項的收款 登記、應付款項的付款登記、產(chǎn)品盤點；或者有些模塊功能相似，如各查詢模塊 ，所以 在本文僅詳細介紹了入庫單管理、組裝單管理、銷售單管理、 轉(zhuǎn)庫單管理 和 庫存信息查詢這五 個模塊的實現(xiàn)過程。 (1)入庫單管理 產(chǎn)品 入庫需要實現(xiàn)入庫單和庫存信息的更新。在實現(xiàn)這個模塊功能的過程中需要特別注意多個數(shù)據(jù)表的數(shù)據(jù)關(guān)聯(lián) 如 ： 修改入庫單信息時，首先需要刪除入庫記錄 ，恢復庫存信息到原始狀態(tài) 然后添加新的入庫記錄，并更新庫存信息。 工作流程圖如圖 基于 C/S 模式企業(yè)進銷存管理系統(tǒng)的設(shè)計與實現(xiàn) 28 所示 否 否 否 是 否 圖 信息管理工作流程圖 產(chǎn)品進貨入庫時 設(shè)置 進貨相關(guān)的信息，如果輸入錯誤時系統(tǒng)給出相應的提示，當設(shè)置完后單擊“保存”后會顯示操作結(jié)果。具體實現(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 = 訂貨單號 Case 2 sMeg = 供應商代碼 開始 初始化并顯示已有的 進貨信息 添加 進貨單 輸入內(nèi)容驗證 有相同記錄 ？ 刪除已有記錄，加入新記錄 更新進貨和庫存信息 結(jié)束 刪除 進貨單 選擇刪除記錄 庫存中有相關(guān)信息？ 商品數(shù)量為零？ 1 Case 3 sMeg = 產(chǎn)品代碼 Case 4 sMeg = 數(shù)量 Case 5 sMeg = 訂貨單價 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 = 預付比例不能為空！ 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è)務員 Case 1 sMeg = 供應商名稱 基于 C/S 模式企業(yè)進銷存管理系統(tǒng)的設(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 = 倉庫名稱 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 = 請輸入數(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 = 預付比例請輸入數(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)存在此入庫