1、 目錄TOC o 1-2 u 1.引言 PAGEREF _Toc22738 1 需求分析 PAGEREF _Toc4879 1可行性分析 PAGEREF _Toc26811 12. 系統分析 PAGEREF _Toc5884 2 業務流程分析 PAGEREF _Toc2335 2 數據流程分析3 數據字典43. 系統設計 PAGEREF _Toc30135 5 系統總體結構 PAGEREF _Toc30848 5 數據結構與數據庫設計 PAGEREF _Toc26455 5 代碼設計 PAGEREF _Toc9325 7 輸入輸出設計 PAGEREF _Toc17101 7系統的安全設計 PA

2、GEREF _Toc20343 84. 系統實施 PAGEREF _Toc30734 9 系統實施 PAGEREF _Toc16567 9系統運行管理制度 PAGEREF _Toc21728 325. 結束語 PAGEREF _Toc28072 33 參考文獻461.引言 需求分析隨著電子產品創新性技術的迅速發展、人民生活水平的提高，電腦已成為人們追求娛樂不可或缺的生活用品。而對于銷售這些產品的終端，無論是規模型的商場還是小的商店，都要求它們的采購業務能順利、高效地進行。博宏電腦公司近年來的銷售量激增，但是采購業務成為了它獲取高效益的掣肘。該公司無論是高層領導還是員工，都希望能開發一個采購管理

3、系統，對采購業務進行管理。 在該公司中，產品的采購管理是一項日常性的工作。電腦產品因其更新換代迅速，如果做不到使產品的采購量以及采購時間適應需求的變化，那么很容易造成商品積壓或脫銷，不僅影響商品的銷售業績，也會增加庫存費以及采購環節不必要的支出，最終影響公司的效益。另外，該公司的商品種類非常繁多，采購量大且頻繁，依靠傳統的手工處理記錄是很難對采購環節進行及時、正確地處理。所以開發并應用采購管理系統成為適應時代發展，使管理現代化的重要措施。采購管理系統體現了當今先進的企業管理思想，對提高企業的管理水平有著重要的意義。采購管理系統能夠保證計劃的準確性和采購的合理性，降低商品的運營成本，讓利于消費者

4、，提升該公司的競爭力。可行性分析 可行性分析的任務是明確開發該采購管理系統的必要性和可行性。該公司的采購環節出現了制約商場發展的現象，利用計算機技術解決采購業務數據的處理迫在眉睫，公司的領導支持開發采購管理系統，管理人員、員工積極響應。因此開發采購管理系統的必要性與可行性是存在的。具體表現為：1）管理上的可行性：公司內部的采購環節的滯后讓管理人員的日常管理工作難以順利地進行，領導層也注意到當前落后的采購管理手段對商品的銷售利潤影響很大，公司上下都對采購管理系統的開發有很大的熱情，迫切需要對其采購管理進行改革，開發采購管理系統的時機已成熟。2）技術上的可行性：由于該公司的辦公室、采購部門、庫存部

5、門、銷售部門和財務部門等都使用了電腦辦公，公司員工的素質較高，員工的技術水平達到了采購管理系統所要求的水平。目前可視化開發技術及工具（如visual basic）和數據庫技術（如access）很成熟，并且該采購管理系統在公司現有的硬軟件資源基礎上可以實施，因此技術上是可行的。3）經濟上的可行性：該系統所需的硬件設備，如服務器、PC機、打印機以及網絡配件等的市場價格不高，且目前主流的配置就能滿足該系統的功能要求，設備費用的支出很小。該公司對于此次開發MIS的經濟效益和費用支出進行了比較評價，回收期短。該公司經濟效益好，現金流正常，為此次項目開發提供了充足的經費。由于該系統規模小，僅在公司內部運行

6、，日常的維護量不大，所以運行費用低。但是由于采用了采購管理系統，減少了采購環節的人員作業，提高了工作效率，進而降低了商品的成本，這些費用的節省遠大于該采購管理系統的開發和運行費用。2. 系統分析 業務流程分析 圖為采購管理系統業務流程圖：描述了系統內各單位、人員之間業務關系、作業順序和管理業務流向的圖表。供應商付款單供應商付款單退款單退款單采購訂單采購訂單財務部采購員財務部采購員退貨單采購開單退貨單采購開單收貨單倉庫管理員收貨單倉庫管理員 圖 采購管理業務流程圖 數據流程分析根據數據流程圖畫出的業務流程圖如圖和圖所示：數據流程圖能全面地描述信息系統邏輯模型供應商提貨單供應商采購處理采購處理 采

7、購訂單 圖 采購管理的頂層數據流程圖財務賬簿財務賬簿財務 部 財務 部 退貨單數據 訂 單 數 據采購訂單審核處理采購部供應商采購訂單審核處理采購部供應商 采購訂單 訂單數據 入 出 庫 庫 單 單銷售部 銷售部收退貨處理庫存處理 銷售報表 出、入庫數據收退貨處理庫存處理庫存臺賬庫存臺賬圖 采購管理系統的第二層數據流程圖 數據字典1）數據項的定義（以采購訂單的單據編號為例） 數據項編號：I02-01 數據項名稱：單據編號 別名：單據編號 簡述：區別采購訂單唯一性的代碼 類型與長度：字符型，長度為11 取值范圍：“001”“999” 2）數據結構的定義（以采購訂單為例） 數據結構編號：DS02-

8、01 數據結構名稱：采購訂單 簡述：采購部門所填采購訂單信息 數據結構組成：DS02-02 + DS02-03 + DS02-043）數據流的定義（以采購訂單為例） 數據流編號：D02-02 數據流名稱：合格的采購訂單 簡述：經審核批準的采購訂單 數據流來源：采購訂單審核處理模塊 數據流去向：采購部門 數據項組成：單據編號+錄單日期+商品編號+商品名稱+型號+規格+單位+數量+單價+合計金額+供應商+到貨日期+聯系人+電話+業務員+摘要 數據流量：約30張/日 高峰流量：約50張/日 4）處理邏輯的定義（以采購訂單審核為例） 處理邏輯編號：P02-01 處理邏輯名稱：采購訂單審核處理 簡述：審

9、核采購訂單是否合格并給予批準或不批準 輸入的數據流：采購訂單 審核處理描述：審核采購部門送來的采購訂單填寫格式是否符合要求，單據上的信息是否符合采購計劃，是否真實等。不合格的單據返回采購部門，合格的單據登記采購訂單臺賬。輸出的數據流：合格的采購訂單，未批采購訂單 處理頻率：約30次/日5）數據存儲的定義（以采購訂單數據存儲為例） 數據存儲編號：F02-01 數據存儲名稱：采購訂單臺賬 簡述：存放采購訂單信息 數據存儲組成：單據編號+錄單日期+商品編號+商品名稱+型號+規格+單位+數量+單價+合計金額+預付賬戶+預付金額+供應商+到貨日期+聯系人+電話+業務員+摘要 關鍵字：單據編號 相關聯的處

10、理：P02-01 6）外部實體的定義（以供應商為例） 外部實體編號：S02-01 外部實體名稱：供應商 簡述：提供商品的供應商 輸入的數據流：D02-02 輸出的數據流：D02-013. 系統設計 系統總體結構 新系統的功能設計是以業務流程圖和數據流程圖為依據的。對該采購管理系統劃分為系統設置、資料管理、采購訂單、訂單收貨、采購開單、采購付款、采購退貨、產品銷售等功能模塊。根據以上分析，該采購管理系統功能劃分圖如圖所示：采購管理系統采購管理系統系統設置系統設置采購管理采購管理產品銷售采購退貨采購付款采購開單訂單收貨采購訂單修改密碼權限管理添加用戶產品銷售采購退貨采購付款采購開單訂單收貨采購訂單

11、修改密碼權限管理添加用戶 圖 采購管理系統功能結構圖 數據結構與數據庫設計ER模型：概念模型的最常用的表示方法是實體-聯系方法。商品名稱商品名稱型號商品編號型號商品編號訂單號訂單號規格采購訂單規格采購訂單日期供應商名稱交給日期供應商名稱交給聯系人編號聯系人編號供應商供應商電話電話名稱名稱日期交貨日期交貨商品數量商品數量商品名稱倉庫商品名稱倉庫訂單號訂單號數量采購開單數量采購開單單價商品名稱單價商品名稱商品編號商品編號 圖 采購管理系統E-R模型圖 數據表的設計：這是根據數據流程圖設計的數據表主鍵列名數據類型長度允許空*供應商代碼char3*供應商名稱文本4*產品代碼char6*產品名稱文本4圖

12、 產品銷售表主鍵列名數據類型長度允許空*商品編號char6*商品名稱文本4*型號文本8*規格文本9*單位文本15*數量varchar15*單價char4*合計金額varchar19*單據編號varchar3*供應商文本4*入庫日期datatime8*聯系人文本3*電話char11*業務員文本3*摘要文本9表 商品庫存表 代碼設計 代碼設計部分主要是采購訂單號的設計。博宏公司的主要合作伙伴為其設計固定的編碼。采購訂單號是由供應商名和產品類別構成的。表為采購訂單編號表 ：供應商代碼*供應商名稱產品代碼產品名稱001A經銷商N-01聯想電腦002B經銷商N-02戴爾電腦003C經銷商N-03索尼電腦

13、004D經銷商N-04華碩電腦005E經銷商N-05宏基電腦006F經銷商N-06三星電腦007G經銷商N-07惠普電腦 表 采購訂單編號表 輸入輸出設計輸出設計：輸出設備：打印機、顯示器 輸出報告：輸出設計書資料代碼XS-01輸出名稱銷售報表份數1報送庫存部門項目號項目名稱位數及編輯備注1商品編號X(4)2商品名稱X(6)3型號X(6)4銷售數量X(3) 表 輸出設計書輸入設計： 對輸入信息進行校驗在登陸界面： 用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒用戶不存在，請從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒用戶不存在，請從新輸入！在

14、產品銷售中：商品編號不能為空，否則會彈出對話框提醒Sorry,未找到你所查詢的數據，請查證后再試單據號規格數量錄單日期單位單價商品編號到貨日期合計金額商品名稱業務員預付賬戶型號聯系人預付金額供應商電話摘要 表 產品銷售單錄入屏幕系統的安全設計信息系統安全設計主要解決以下幾個問題：止帶寬資源濫用防止無關網絡行為影響工作效率管控外發信息，降低泄密風險掌握組織動態、優化員工管理為網絡管理與優化提供決策依據，防止病毒木馬等網絡風險低成本且有效推行信息管理制度等4. 系統實施 系統實施一、登錄界面當輸入的賬號為：xiaolin密碼為：xiaolin 時，焦點會自動落在確定上面，此時點擊確定或按回車鍵即可

15、以登入系統。若錯誤，則會彈出對話框提醒“此用戶不存在,請重新輸入！”并且它的輸入密碼為“*”，是在屬性欄中的passwordchar設置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒此用戶不存在，請從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒此用戶不在，請從新輸入！圖4-1 登陸窗口它的具體代碼為：Dim TIM As Integer 定義一個整型變量Dim myval As String 定義一個字符串變量Private Sub Form_Load() 連接access數據庫 = Provider= Source= & & 采購管理

16、系統.mdb;Persist Security Info=False = select * from 用戶 End SubPrivate Sub Command1_Click()Static itimes As Integer = 驗證用戶名及密碼 = select * from 用戶 where 用戶名= + + If 0 Then 如果記錄數大于零 驗證密碼 If = 密碼) Then Load Form2 Unload Me Else If 密碼) Then MsgBox 密碼錯誤,請重新輸入！, vbCritical, 系統提示 itimes = itimes + 1 = End If

17、 End If Else MsgBox 用戶不存在,請重新輸入！, vbCritical, 系統提示 itimes = itimes + 1 = = End If If itimes = 3 Then 錯誤3次，退出系統 MyMsg = MsgBox(輸入錯誤,請向管理員查詢！, vbCritical, 系統提示) If MyMsg = vbOK Then End End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) I

18、f KeyCode = vbKeyReturn Then Command1_Click 按回車鍵進入End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 按回車鍵，text2獲得焦點End Sub二、主界面主界面是登陸后最基礎的一個界面，內容包括采購訂單，訂單收獲，采購開單，采購付款，采購退貨，產品銷售。圖4-2 主界面它的具體代碼為：Private Sub Command1_Click() = FalseEnd SubPrivate Sub 供應

19、商資料_Click() = FalseEnd SubPrivate Sub 庫存查詢_Click() = FalseEnd SubPrivate Sub 權限管理_Click() = FalseEnd SubPrivate Sub 添加用戶_Click() = FalseEnd SubPrivate Sub 退出系統_Click()EndEnd SubPrivate Sub 修改密碼_Click() = FalseEnd Sub三添加用戶圖4-3 添加用戶它的具體代碼為：Private Sub Form_Load() 自動識別數據庫路徑 = Provider= Source= & & 采購管理

20、系統.mdb;Persist Security Info=False = select * from 權限設置 = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 用戶End SubPrivate Sub Form_Activate() text1獲得焦點End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As I

21、nteger) If KeyCode = vbKeyReturn Then 回車text2獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text3獲得焦點End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車Command1獲得焦點End SubPrivate Sub Comma

22、nd1_Click() Dim yhm 保存用戶名及密碼 If Then = select * from 用戶 where 用戶名= + + If = 用戶名) Then MsgBox 已添加該用戶，請重新添加, , 系統提示 = : = : = ElseIf And And = Then Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False select * from 用戶, adocon, adOpenKeyset, adLockOptimistic (用戶名) = (密碼) = Provider= Source= & &

23、 采購管理系統.mdb;Persist Security Info=False select * from 權限設置, adocon, adOpenKeyset, adLockOptimistic (用戶名) = (密碼) = = : = : = MsgBox 添加用戶成功！, , 系統提示 ElseIf = Then MsgBox 請輸入確認密碼, , 系統提示 ElseIf Then MsgBox 兩次輸入的密碼不相同, , 系統提示 = = End If Else MsgBox 請輸入用戶名！, , 系統提示 End IfEnd SubPrivate Sub Command2_Click

24、() = : = : = End SubPrivate Sub Command3_Click() Unload Me = TrueEnd Sub四密碼設置 本功能允許使用者對密碼進行修改，取保系統的安全與方便。如果你是系統的用戶，輸入用戶名可對自己的密碼進行修改。圖4-4 密碼設置它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 權限設置 End SubPrivate Sub Command1_Click() If = Or

25、 = Or = Then MsgBox 輸入不能為空!, 48, 提示信息 Else = select * from 權限設置 where 用戶名= + + If 0 Then If = 密碼) Then Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False Set adoRs = (update 權限設置 set 密碼= + + where 用戶名= + + ) Dim rs1 As New select * from 用戶 where 用戶名= + + , StrCnn, adOpenKeyset, adLockPessi

26、mistic If 0 Then (密碼) = End If MsgBox 密碼修改成功,退出密碼設置!, , 系統提示 = True Unload Me Else MsgBox 原密碼錯誤,請重新輸入原密碼!, , 系統提示 End If Else MsgBox 該用戶不存在,請重新輸入, , 系統提示 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Command2_Click() = True Unload Me End SubPrivate Sub Form_A

27、ctivate() 回車text1獲得焦點End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text2獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text3獲得焦點End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Sh

28、ift As Integer) If KeyCode = 13 Then Command1_ClickEnd Sub五權限管理： 圖詳細的陳述了權限設置的內容，包括系統設置，資料管理，采購管理，庫存管理和退貨管理。圖4-5 權限管理它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 權限設置 = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = sel

29、ect * from 權限設置 Set = Adodc2End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Datalist1_Click() = select * from 權限設置 where 用戶名= & & If 0 Then For i = 0 To 11 If = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0 Next i Else = 0 End IfEnd SubPrivate Sub Command1_Click() 全

30、選For i = 0 To 11 Check1(i).Value = 1Next iEnd SubPrivate Sub Command2_Click() 全不選 For i = 0 To 11 Check1(i).Value = 0 Next iEnd SubPrivate Sub Command3_Click() 為用戶設置權限 If Then = select * from 權限設置 where 用戶名= + + If 0 Then For i = 0 To 11 If Check1(i).Value = 1 Then = -1 Else = 0 Next i End If MsgBox

31、 權限設置成功!, , 系統提示 End IfEnd SubPrivate Sub Command4_Click() Unload Me = True End SubPrivate Sub Command5_Click() 刪除用戶 On Error Resume Next A = MsgBox(確認刪除該用戶, 4, 系統提示) If A = vbYes Then Dim rs2 As New select * from 用戶 where 用戶名 = + + , StrCnn, adOpenKeyset, adLockPessimistic If 0 Then End If Unload M

32、e End IfEnd Sub六采購訂單企業向供應商訂貨物時，開據采購訂單，以便供應商及時供貨。在界面內填入相應的商品信息，點擊添加則會將所輸入的訂單信息保存到采購訂單中中。如果輸入有誤，且已保存，可以應用刪除功能，將錯誤信息刪除。訂單號不能為空，否則會彈出對話框提醒請輸入完整信息！在單價和數量中輸入數字，金額項目會自動顯示為兩者乘積結果。 圖4-6 采購商品信息的錄入它的具體代碼為：Private Sub Form_Load() 連接access數據庫 = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = selec

33、t * from 采購訂單 = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 供應商資料 供應商名稱) DTPicker1 = Date DTPicker2 = Date = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 付款明細賬 End SubPrivate Sub Command1_Click() If = Or = Then MsgBox 請輸入單據編號和商品編號, , 系

34、統提示 Else If = 單據編號) Or = 商品編號) Then MsgBox 單據編號和商品編號不能重復添加，請重新輸入, , 系統提示 = = = = = = = = = = = = = = = = Else 單據編號) = Trim 錄單日期) = Trim 供應商) = Trim 到貨日期) = Trim 聯系人) = Trim 電話) = Trim 業務員) = Trim 摘要) = Trim 商品編號) = Trim 商品名稱) = Trim 型號) = Trim 規格) = Trim 單位) = Trim 數量) = Trim 單價) = Trim 合計金額) = Trim

35、 預付賬戶) = Trim 預付金額) = Trim 單據編號) = Trim 商品編號) = Trim 商品名稱) = Trim 合計金額) = Trim 已預付款) = Trim 應付款) = Trim - Trim = = = = = = = = = = = = = = = = End If End IfEnd SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd SubPrivate Sub Text12

36、_Change() = Val * ValEnd Sub七訂單收貨訂單收貨：是“采購訂單”上的貨到貨后入庫，完成交易。對采購訂單表中商品的訂單號進行查找。在表中可查詢訂貨商品的詳細信息，如單價、數量、商品是否入庫等，如果沒有入庫，則可應用入庫功能，對商品進行入庫處理。圖為訂單收貨圖，包括單據編號，錄單日期，供應商，到貨日期，聯系人，電話，業務員，商品編號，商品名稱，型號，規格，單位，數量，單價。輸入單據編號就可以查找到提到的相關的所有信息。圖4-7 訂單收貨它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購管理系統.mdb;Pe

37、rsist Security Info=False = select * from 采購訂單 where 是否已入庫=0 order by 單據編號 Set = Adodc1 = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 庫存商品 End SubPrivate Sub Command4_Click() 查找訂單 = select * from 采購訂單 where 采購訂單.單據編號 = & & End SubPrivate Sub Command1_Click() 入庫 商品編號)

38、 = 商品編號) 商品名稱) = 商品名稱) 型號) = 型號) 規格) = 規格) 單位) = 單位) 數量) = 數量) 單價) = 單價) 合計金額) = 合計金額) 單據編號) = 單據編號) 入庫日期) = 到貨日期) 供應商) = 供應商) 聯系人) = 聯系人) 電話) = 電話) 業務員) = 業務員) 摘要) = 摘要) 是否已入庫) = -1 Set = Adodc1 = End SubPrivate Sub Command2_Click() = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub八采購開單采

39、購開單是企業向供應商訂貨時，開據入庫訂單，以便了解收貨情況并預先安排存放貨物的倉庫。填入相關商品信息，將相關商品信息保存到庫存臺賬中，對于倉庫中已有的商品，數量上會在原有的基礎上增加。 圖為采購開單圖，包括單據編號，錄單日期，供應商，到貨日期，聯系人，電話，業務員，商品編號，商品名稱，型號，規格，單位，數量，單價。還包括摘要合計金額，付款賬戶，付款金額。輸入入庫日期就會彈出在此時間段入庫的商品的信息。 圖4-8 采購開單具體代碼為：Private Sub Form_Load() 連接access數據庫 = Provider= Source= & & 采購管理系統.mdb;Persist Sec

40、urity Info=False = select * from 庫存商品 = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 付款明細賬 DTPicker2 = DateEnd SubPrivate Sub Command1_Click() 單據編號) = Trim 入庫日期) = Trim 供應商) = Trim 聯系人) = Trim 電話) = Trim 業務員) = Trim 摘要) = Trim 商品編號) = Trim 商品名稱) = Trim 型號) = Trim 規格)

41、= Trim 單位) = Trim 數量) = Trim 單價) = Trim 合計金額) = Trim 追加付款賬戶) = Trim 追加付款) = Trim 應付款) = Trim - Trim End SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub九采購付款若付款給供應商，支付金額自動登賬入庫，完成入庫交易。輸入訂單號對要付款的訂單進行查詢，如果訂單號存在且其“是否付款”屬性為否，則確認付款，

42、并將信息保存到倉庫庫存臺賬中完成付款交易。圖為采購付款，包括單據編號，商品編號，商品名稱，合計金額，已預付款，追加付款金額，追加付款賬戶。 圖4-9 采購付款具體代碼如下：Private Sub Form_Load() = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 采購訂單 where 是否已核銷=0 order by 單據編號 Set = Adodc1 = = = = = = Provider= Source= & & 采購管理系統.mdb;Persist Security Inf

43、o=False = select * from 付款明細賬 where 是否已核銷=0 order by 單據編號 End SubPrivate Sub Command1_Click() 單據編號) = Trim 商品編號) = Trim 商品名稱) = Trim 合計金額) = Trim 已預付款) = Trim 追加付款賬戶) = Trim 追加付款) = Trim 是否已核銷) = -1 應付款) = 0 是否已核銷) = -1 End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub十采購退貨采購退貨是對銷售中不滿意的商品向供

44、應商要求退貨。輸入需要退貨的商品的相關信息即可進行退貨處理，庫存臺賬中的商品數量會相應減少。采購部門也可對退貨產品進行查詢。 圖為采購退貨，包括商品編號，商品名稱，商品數量，型號，供應商和聯系方式。圖4-10 采購退貨具體代碼如下：Private Sub Command1_Click()Unload Me = TrueEnd SubPrivate Sub Command2_Click() = select * from 采購退貨 where 采購退貨.商品編號 = & & If Then MsgBox SORRY,未找到你所查詢的數據，請查證后再試, , 確定ElseText2 = 商品名稱)

45、Text3 = 商品數量)Text4 = 型號)Text5 = 供應商)Text6 = 聯系方式)End IfEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Or = Or = Then MsgBox 請輸入完整信息, , 系統提示 Else 商品編號) = Trim 商品名稱) = Trim 商品數量) = Trim 型號) = Trim 供應商) = Trim 聯系方式) = Trim = = = = = = MsgBox 商品已添加成功, , 系統提示 End IfEnd SubPrivate Sub Command4_Cl

46、ick() = = = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 采購退貨 End Sub十一. 產品銷售 本功能可以將銷售的產品信息輸入到管理系統中，生成銷售報表。也可對已銷售的商品信息進行查詢、刪除處理。 圖4-11產品銷售具體代碼如下：Private Sub Command1_Click() = select * from 產品銷售 where 產品銷售.商品編號 = & & If Then MsgB

47、ox SORRY,未找到你所查詢的數據，請查證后再試, , 確定ElseText2 = 商品名稱)Text3 = 型號)Text4 = 銷售數量)End IfEnd SubPrivate Sub Command2_Click()Unload Me = TrueEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Then MsgBox 請輸入完整信息, , 系統提示 Else 商品編號) = Trim 商品名稱) = Trim 型號) = Trim 銷售數量) = Trim = = = = MsgBox 商品已添加成功, , 系統提示

48、End IfEnd SubPrivate Sub Command4_Click() MsgBox 商品已刪除, , 系統提示End SubPrivate Sub Command5_Click() = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采購管理系統.mdb;Persist Security Info=False = select * from 產品銷售 End Sub系統運行管理制度企業銷售采購管理信息系統運行管理制度第一條為做好銷售采購管理信息系統運行管理工作，制定本制度。第二條本制度適用于采購管理所涉及的所有部門和人員。第三條本系統主要負責采購管理、銷售管理、庫存管理和財務管理等。第四條系統所有相關的部門都必須按照系