1、目 錄一、緒論1二、系統總體設計圖1三、數據庫設計2（一）cgb表2（二）cgdd表2（三）cgyxx表3（四）dhb表3（五）gysxx表4（六）kcb表4（七）thb表5（八）xxdl表5四、窗口設計6（一）主窗口6（二）主窗口代碼6附錄11總結20致謝21參考文獻22采購管理系統一、緒論隨著企業的擴大，企業的采購管理使用傳統方法的弊端就尤為凸出。采購管理系統是制造業和裝配業于上線生產前，供應廠商基本資料的收集和建立前置作業；各項料品及廠商交貨進度的規劃，透過采購資料維護的功能，使ERP系統可不受物料需求管理系統的控制，并能提供應付帳款、物料庫存等系統的資料來源。大型的采購管理系統是通過采

2、購申請、采購訂貨、進料檢驗、倉庫收料、采購退貨、購貨發票處理、供應商管理、價格及供貨信息管理、訂單管理，以及質量檢驗管理等功能綜合運用的管理系統，對采購物流和資金流的全部過程進行有效的雙向控制和跟蹤，實現完善的企業物資供應信息管理。 本系統僅是一個簡單的采購管理系統，包含六大模塊：系統設置模塊、采購管理模塊、到貨管理模塊、庫存管理模塊、退貨管理模塊、打印模塊。模塊的具體實現和應用正文中將詳細說明。二、系統總體設計圖后臺數據庫使用SQL Server 2005數據庫，以Visual Basic 6.0作為開發平臺，系統總體功能設計如圖2.1所示。圖2.1 系統總體功能設計1 系統設置模塊：實現系

3、統的相關操作，比如操作員管理、操作員密碼修改、數據備份、數據恢復等。2 采購管理模塊：實現采購管理的相關功能或操作，比如采購員管理、供應商管理、采購材料管理、采購訂單管理、訂單信息查詢等。3 到貨管理模塊：實現到貨信息的相關功能的管理，比如到貨信息維護、到貨信息查詢等。4 庫存管理模塊：實現庫存管理相關信息的操作，比如庫存信息的維護、庫存信息查詢、庫存信息統計等。5 退貨管理模塊：實現退貨管理相關信息的操作，比如退貨信息維護，退貨信息查詢等。6 打印模塊：實現打印管理相關功能的實現，比如打印到貨信息、打印退貨信息、打印庫存信息等。三、數據庫設計（一）cgb表cgb表必須包含的以下字段：貨物編號

4、、貨物名稱、供應商編號、供應商名稱、單價、單位、結算幣、采購員編號、采購員姓名、聯系人、電話、采購日期、備注等。具體設置如下表：字段名稱字段類型字段大小允許為空貨物編號Decimal18否貨物名稱varchar50是供應商編號Decimal18是供應商名稱varchar50是單價float是單位varchar50是結算幣varchar50是采購員編號decimal18是采購員姓名varchar50是聯系人varchar50是電話varchar50是采購日期datetime是備注text是表3.1 cgb表（二）cgdd表cgdd表必須包含以下字段：單號、貨物名稱、批號、供應商編號、收貨日期、發

5、單時間、單位、幣種、單價、數量、金額、備注、是否到貨、狀態等。具體設置如下表：字段名稱字段類型字段大小允許為空單號Decimal18否貨物名稱Varchar50是批號Varchar50是供應商編號Decimal18是收貨日期Datetime是發單時間Datetime是單位Varchar50是幣種Varchar50是單價Float是數量Int是金額Float是備注Text是是否到貨Real是狀態Char10是表3.2 cgdd表（三）cgyxx表cgxx表應包含以下字段：采購員編號、姓名、性別、年齡、民族、籍貫、學歷、電話、現地址等。具體設置如下表：字段名稱字段類型字段大小允許為空采購員編號De

6、cimal18否姓名Varchar50是性別Varchar50是年齡Int是民族Varchar50是籍貫Varchar50是學歷Varchar50是電話Varchar50是現地址varchar50是表3.3 cgyxx表（四）dhb表dhb表應包含以下字段：到貨單號、單號、貨物名稱、批號、供應商編號、收貨日期、發單日期、單位、單價、訂單數量、報損數量、報溢數量、數量、到貨日期、備注、是否到貨、狀態等。具體設置如下表：字段名稱字段類型字段大小允許為空到貨單號Decimal18否單號Decimal18是貨物名稱Varchar50是批號Varchar50是供應商編號Varchar50是收貨日期Dat

7、etime是發單日期Datetime是單位Varchar53是單價Varchar50是訂單數量Float是報損數量Float是報溢數量Float是數量Float是到貨日期Datetime是備注Text是是否到貨Real是狀態varchar50是表3.4 dhb表（五）gysxx表gysxx表應包含以下字段：供應商編號、供應商名稱、簡稱、傳真、電話、E-mail、聯系人、聯系人電話、地址等。具體設置如下表：字段名稱字段類型字段大小允許為空供應商編號Decimal18供應商名稱varchar50是簡稱varchar50是傳真varchar50是電話varchar50是E-mailvarchar50

8、是聯系人varchar50是聯系人電話varchar50是地址varchar50是表3.5 gysxx表（六）kcb表kcb表應包含以下字段：貨物編號、單號、貨物名稱、批號、供應商編號、收貨日期、單位、單價、數量、報損數量、報溢數量、金額、到貨日期、入庫日期、狀態、備注等。具體設置如下表：字段名稱字段類型字段大小允許為空貨物編號Decimal18否單號Decimal18是貨物名稱varchar50是批號varchar50是供應商編號Varchar50是收貨日期Datetime是單位Varchar53是單價Varchar50是數量Float是報損數量Float是報溢數量Float是金額Float

9、是到貨日期Datetime是入庫日期Datetime是狀態Varchar50是備注text是表3.6 kcb表（七）thb表thb表應包含如下字段：退貨單號、單號、貨物名稱、批號、供應商名稱、收貨日期、單位、單價、數量、到貨日期、貨物備注、退貨日期、退貨原因、狀態等。具體設置如下表：字段名稱字段類型字段大小允許為空退貨單號Decimal18否單號Decimal18是貨物名稱Varchar50是批號Varchar50是供應商名稱Varchar50是收貨日期Datetime是單位Varchar53是單價Varchar50是數量Float是到貨日期Datetime是貨物備注Text是退貨日期Date

10、time是退貨原因text是狀態varchar50是表3.7 thb表（八）xxdl表xxdl表應包含以下字段：Id、用戶名、口令、系統維護、采購管理、到貨管理、退貨管理、庫存管理、報表統計等。具體設置如下表：字段名稱字段類型字段大小允許為空IdDecimal18否用戶名Varchar50是口令Varchar50是系統維護real是采購管理real是到貨管理real是退貨管理real是庫存管理real是報表統計real是表3.8 xxdl表四、窗口設計（一）主窗口主窗口包含有如下模塊：系統設置、采購管理、到貨管理、庫存管理、退貨管理、打印報表、關閉系統。具體設置如圖4.1所示。圖4.1 主窗口

11、（二）主窗口代碼Dim i As IntegerDim cPrivate Sub CGCLGL_Click()frm_cgclgl.ShowEnd SubPrivate Sub CGDDGL_Click()frm_cgdd.ShowEnd SubPrivate Sub CGYGL_Click()frm_cgygl.ShowEnd SubPrivate Sub CZYGL_Click()frm_YHGL.ShowEnd SubPrivate Sub DDXXCX_Click()frm_ddxx_cx.ShowEnd SubPrivate Sub DHXX_Click()If i = 0 Or i

12、 1 Then 如果i=0 代表窗體啟動時首先點擊到貨菜單i = i + 2 步長為2，越過打印庫存信息和打印退貨信息而引起的錯誤信息 DataEnvironment1.rsCom_dhxx.Open select * from Table_dhb If DataEnvironment1.rsCom_dhxx.RecordCount 0 Then DataRep_dhxx.Show Else DataEnvironment1.rsCom_dhxx.Close MsgBox 沒有到貨信息, 64, 采購管理系統 End IfElseIf i = 1 Then DataEnvironment1.r

13、sCom_dhxx.Close DataEnvironment1.rsCom_dhxx.Open select * from Table_dhb If DataEnvironment1.rsCom_dhxx.RecordCount 0 Then DataRep_dhxx.Show Else DataEnvironment1.rsCom_dhxx.Close MsgBox 沒有到貨信息, 64, 采購管理系統 End IfElseEnd IfEnd SubPrivate Sub DHXXCX_Click()frm_dhxx_cx.ShowEnd SubPrivate Sub DHXXWH_Cli

14、ck()frm_dhb.ShowEnd SubPrivate Sub END_Click() c = MsgBox(確認要退出采購管理系統嗎？, 33, 采購管理系統) If c = vbOK Then End Else End IfEnd SubPrivate Sub Form_Activate()If Check1.Value = 1 ThenSTSZ.Enabled = TrueElseIf Check1.Value = 0 ThenSTSZ.Enabled = FalseElseEnd IfIf Check2.Value = 1 ThenCGGL.Enabled = TrueElseI

15、f Check2.Value = 0 ThenCGGL.Enabled = FalseElseEnd IfIf Check3.Value = 1 ThenDHGL.Enabled = TrueElseIf Check3.Value = 0 ThenDHGL.Enabled = FalseElseEnd IfIf Check4.Value = 1 ThenTHGL.Enabled = TrueElseIf Check4.Value = 0 ThenTHGL.Enabled = FalseElseEnd IfIf Check5.Value = 1 ThenXSGL.Enabled = TrueEl

16、seIf Check5.Value = 0 ThenXSGL.Enabled = FalseElseEnd IfIf Check6.Value = 1 ThenBBTJ.Enabled = TrueElseIf Check6.Value = 0 ThenBBTJ.Enabled = FalseElseEnd IfEnd SubPrivate Sub Form_Load()Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2i = 0End SubPrivate Sub GYSGL_Clic

17、k()frm_gysgl.ShowEnd SubPrivate Sub KCTJ_Click()frm_kctj.ShowEnd SubPrivate Sub KCXX_Click() If i = 0 Or i = 1 Then 如果首先點擊庫存菜單，那么i值變為1，代表首先點擊的不是退貨菜單 i = i + 1 Else End If DataEnvironment1.rsCom_kcxx.Open select * from Table_kcb If DataEnvironment1.rsCom_kcxx.RecordCount 0 Then DataRep_kcxx.Show Else

18、 DataEnvironment1.rsCom_kcxx.Close i = i + 2 如果沒有打印的信息，i值就跳過1 MsgBox 沒有庫存信息, 64, 采購管理系統 End IfEnd SubPrivate Sub MAXG_Click()frm_xgmm.ShowEnd SubPrivate Sub QXSZ_Click()frm_czysz.ShowEnd SubPrivate Sub RELOAD_Click()Unload Mefrm_czydl.ShowEnd SubPrivate Sub SJBF_Click()frm_sjbf.Showfrm_sjbf.Text4.Te

19、xt = StatusBar1.Panels.Item(3).TextEnd SubPrivate Sub SJHF_Click()Dim iTask As LongMsgBox 請您注意,為了確保數據安全,在進行數據恢復的同時需要關閉應用程序,請您在恢復數據完成之后重新運行應用程序, 64, 提示信息調用數據恢復可執行文件iTask = Shell(App.Path & Restore.exe, vbNormalFocus)EndEnd SubPrivate Sub SYTS_Click()frm_znsb.ShowEnd SubPrivate Sub THXX_Click() If i =

20、 0 Or i = 1 Then 如果首先點擊退貨菜單，那么I值變為1，代表首先點擊的不是退貨菜單 i = i + 1 Else End If DataEnvironment1.rsCom_thxx.Open select * from Table_thb If DataEnvironment1.rsCom_thxx.RecordCount 0 Then DataRep_thxx.Show Else DataEnvironment1.rsCom_thxx.Close i = i + 2 如果沒有打印的信息，I值就跳過1 MsgBox 沒有退貨信息, 64, 采購管理系統 End IfEnd S

21、ubPrivate Sub THXXCX_Click()frm_thxx_cx.ShowEnd SubPrivate Sub THXXWH_Click()frm_thgl.ShowEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels.Item(2).Text = Format(Now, yyyy年mm月dd日 hh點mm分ss秒)End SubPrivate Sub XSXXCX_Click()frm_kcxx_cx.ShowEnd SubPrivate Sub XSXXWH_Click()frm_kcb.ShowEnd Sub附錄采購管理系統的

22、運行時截圖如下：總結論文在撰寫過程中，力求將理論與實踐結合起來，在對企業物資采購理論進行闡述的同時，配合模擬系統從實際應用和操作技巧上加以說明，以達到對企業物資采購管理系統更深層次的理解和認識。致謝在老師的指導和我的努力下，經過一個多月時間，終于將畢業設計完成了。通過此次畢業設計，讓我對VB以及運用VB開發軟件的全過程有了更深一層的認識，這要求我們要有嚴密的邏輯思維能力和良好的軟件開發能力。開發前的準備工作非常重要，首先應該定義好問題，接著分析其可行性，是否確實可行，再進行分析，設計出大體的框架，并對各模塊進一步細化，逐一開發出軟件框架。再對軟件的各部分進行細節開發。最后將各模塊連接起來，進行

23、綜合的測試，對錯誤的進行修改并改進，盡所能地使設計更加完備。在此次設計中，讓我更加掌握了SQL Server2005軟件。軟件的主體設計全部由Visual Basic做成的。在此次設計過程中，給我印象最深的是邏輯思維性的重要性，如果事先沒有正確的規劃好，它就會給我們的課題開發帶來嚴重的麻煩。在這次設計中的結構的合理安排給我們帶來了不小的經驗教訓參考文獻1新概念Visual Basic 6教程，北京科海集團公司出品2Visual Basic數據庫開發實例解析，劉志銘等編著，機械工業出版社 3VB6.0編程實例與技巧，曾琦主編，國水利水電出版社 4VB6.0實用數據庫編程，張龍志等編著，中國科學技術大學出版社 5VB6.0多媒體開發實例，清漢計算機工作室編著，機械工業出版社 tgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN