vb課程設(shè)計(jì)（論文）-采購管理系統(tǒng)

1、<p><b>　　目 錄</b></p><p><b>　　一、緒論1</b></p><p>　　二、系統(tǒng)總體設(shè)計(jì)圖1</p><p><b>　　三、數(shù)據(jù)庫設(shè)計(jì)2</b></p><p><b>　?。ㄒ唬ヽgb表2</b>&l

2、t;/p><p>　　（二）cgdd表2</p><p>　?。ㄈヽgyxx表3</p><p><b>　?。ㄋ模ヾhb表3</b></p><p>　?。ㄎ澹ゞysxx表4</p><p><b>　?。﹌cb表4</b></p><p&g

3、t;<b>　?。ㄆ撸﹖hb表5</b></p><p>　　（八）xxdl表5</p><p><b>　　四、窗口設(shè)計(jì)6</b></p><p><b>　　（一）主窗口6</b></p><p>　?。ǘ┲鞔翱诖a6</p><p>&

4、lt;b>　　附錄11</b></p><p><b>　　總結(jié)20</b></p><p><b>　　致謝21</b></p><p><b>　　參考文獻(xiàn)22</b></p><p><b>　　采購管理系統(tǒng)</b><

5、/p><p><b>　　一、緒論</b></p><p>　　隨著企業(yè)的擴(kuò)大，企業(yè)的采購管理使用傳統(tǒng)方法的弊端就尤為凸出。采購管理系統(tǒng)是制造業(yè)和裝配業(yè)于上線生產(chǎn)前，供應(yīng)廠商基本資料的收集和建立前置作業(yè)；各項(xiàng)料品及廠商交貨進(jìn)度的規(guī)劃，透過采購資料維護(hù)的功能，使ERP系統(tǒng)可不受物料需求管理系統(tǒng)的控制，并能提供應(yīng)付帳款、物料庫存等系統(tǒng)的資料來源。</p><

6、;p>　　大型的采購管理系統(tǒng)是通過采購申請、采購訂貨、進(jìn)料檢驗(yàn)、倉庫收料、采購?fù)素洝①徹洶l(fā)票處理、供應(yīng)商管理、價(jià)格及供貨信息管理、訂單管理，以及質(zhì)量檢驗(yàn)管理等功能綜合運(yùn)用的管理系統(tǒng)，對采購物流和資金流的全部過程進(jìn)行有效的雙向控制和跟蹤，實(shí)現(xiàn)完善的企業(yè)物資供應(yīng)信息管理。 </p><p>　　本系統(tǒng)僅是一個(gè)簡單的采購管理系統(tǒng)，包含六大模塊：系統(tǒng)設(shè)置模塊、采購管理模塊、到貨管理模塊、庫存管理模塊、退貨管理模塊、

7、打印模塊。模塊的具體實(shí)現(xiàn)和應(yīng)用正文中將詳細(xì)說明。</p><p><b>　　二、系統(tǒng)總體設(shè)計(jì)圖</b></p><p>　　后臺(tái)數(shù)據(jù)庫使用SQL Server 2005數(shù)據(jù)庫，以Visual Basic 6.0作為開發(fā)平臺(tái)，系統(tǒng)總體功能設(shè)計(jì)如圖2.1所示。</p><p>　　圖2.1 系統(tǒng)總體功能設(shè)計(jì)</p><p>

8、;　　系統(tǒng)設(shè)置模塊：實(shí)現(xiàn)系統(tǒng)的相關(guān)操作，比如操作員管理、操作員密碼修改、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)等。</p><p>　　采購管理模塊：實(shí)現(xiàn)采購管理的相關(guān)功能或操作，比如采購員管理、供應(yīng)商管理、采購材料管理、采購訂單管理、訂單信息查詢等。</p><p>　　到貨管理模塊：實(shí)現(xiàn)到貨信息的相關(guān)功能的管理，比如到貨信息維護(hù)、到貨信息查詢等。</p><p>　　庫存管理模塊：

9、實(shí)現(xiàn)庫存管理相關(guān)信息的操作，比如庫存信息的維護(hù)、庫存信息查詢、庫存信息統(tǒng)計(jì)等。</p><p>　　退貨管理模塊：實(shí)現(xiàn)退貨管理相關(guān)信息的操作，比如退貨信息維護(hù)，退貨信息查詢等。</p><p>　　打印模塊：實(shí)現(xiàn)打印管理相關(guān)功能的實(shí)現(xiàn)，比如打印到貨信息、打印退貨信息、打印庫存信息等。</p><p><b>　　三、數(shù)據(jù)庫設(shè)計(jì)</b></

10、p><p><b>　?。ㄒ唬ヽgb表</b></p><p>　　cgb表必須包含的以下字段：貨物編號(hào)、貨物名稱、供應(yīng)商編號(hào)、供應(yīng)商名稱、單價(jià)、單位、結(jié)算幣、采購員編號(hào)、采購員姓名、聯(lián)系人、電話、采購日期、備注等。具體設(shè)置如下表：</p><p><b>　　表3.1 cgb表</b></p><p>

11、;<b>　?。ǘヽgdd表</b></p><p>　　cgdd表必須包含以下字段：單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、發(fā)單時(shí)間、單位、幣種、單價(jià)、數(shù)量、金額、備注、是否到貨、狀態(tài)等。具體設(shè)置如下表：</p><p>　　表3.2 cgdd表</p><p><b>　?。ㄈヽgyxx表</b></p&

12、gt;<p>　　cgxx表應(yīng)包含以下字段：采購員編號(hào)、姓名、性別、年齡、民族、籍貫、學(xué)歷、電話、現(xiàn)地址等。具體設(shè)置如下表：</p><p>　　表3.3 cgyxx表</p><p><b>　?。ㄋ模ヾhb表</b></p><p>　　dhb表應(yīng)包含以下字段：到貨單號(hào)、單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、發(fā)單日期、單

13、位、單價(jià)、訂單數(shù)量、報(bào)損數(shù)量、報(bào)溢數(shù)量、數(shù)量、到貨日期、備注、是否到貨、狀態(tài)等。具體設(shè)置如下表：</p><p><b>　　表3.4 dhb表</b></p><p><b>　?。ㄎ澹ゞysxx表</b></p><p>　　gysxx表應(yīng)包含以下字段：供應(yīng)商編號(hào)、供應(yīng)商名稱、簡稱、傳真、電話、E-mail、聯(lián)系人、聯(lián)

14、系人電話、地址等。具體設(shè)置如下表：</p><p>　　表3.5 gysxx表</p><p><b>　　（六）kcb表</b></p><p>　　kcb表應(yīng)包含以下字段：貨物編號(hào)、單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、單位、單價(jià)、數(shù)量、報(bào)損數(shù)量、報(bào)溢數(shù)量、金額、到貨日期、入庫日期、狀態(tài)、備注等。具體設(shè)置如下表：</p>

15、<p><b>　　表3.6 kcb表</b></p><p><b>　?。ㄆ撸﹖hb表</b></p><p>　　thb表應(yīng)包含如下字段：退貨單號(hào)、單號(hào)、貨物名稱、批號(hào)、供應(yīng)商名稱、收貨日期、單位、單價(jià)、數(shù)量、到貨日期、貨物備注、退貨日期、退貨原因、狀態(tài)等。具體設(shè)置如下表：</p><p><b&g

16、t;　　表3.7 thb表</b></p><p><b>　　（八）xxdl表</b></p><p>　　xxdl表應(yīng)包含以下字段：Id、用戶名、口令、系統(tǒng)維護(hù)、采購管理、到貨管理、退貨管理、庫存管理、報(bào)表統(tǒng)計(jì)等。具體設(shè)置如下表：</p><p>　　表3.8 xxdl表</p><p><b>

17、;　　四、窗口設(shè)計(jì)</b></p><p><b>　?。ㄒ唬┲鞔翱?lt;/b></p><p>　　主窗口包含有如下模塊：系統(tǒng)設(shè)置、采購管理、到貨管理、庫存管理、退貨管理、打印報(bào)表、關(guān)閉系統(tǒng)。具體設(shè)置如圖4.1所示。</p><p><b>　　圖4.1 主窗口</b></p><p>&

18、lt;b>　?。ǘ┲鞔翱诖a</b></p><p>　　Dim i As Integer</p><p><b>　　Dim c</b></p><p>　　Private Sub CGCLGL_Click()</p><p>　　frm_cgclgl.Show</p><p&g

19、t;<b>　　End Sub</b></p><p>　　Private Sub CGDDGL_Click()</p><p>　　frm_cgdd.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub CGYGL_Click()</p&g

20、t;<p>　　frm_cgygl.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub CZYGL_Click()</p><p>　　frm_YHGL.Show</p><p><b>　　End Sub</b></p>

21、;<p>　　Private Sub DDXXCX_Click()</p><p>　　frm_ddxx_cx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub DHXX_Click()</p><p>　　If i = 0 Or i > 1 T

22、hen '如果i=0 代表窗體啟動(dòng)時(shí)首先點(diǎn)擊到貨菜單</p><p>　　i = i + 2 '步長為2，越過打印庫存信息和打印退貨信息而引起的錯(cuò)誤信息</p><p>　　DataEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"</p><p>

23、;　　If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then</p><p>　　DataRep_dhxx.Show</p><p><b>　　Else</b></p><p>　　DataEnvironment1.rsCom_dhxx.Close</p><p>

24、　　MsgBox "沒有到貨信息", 64, "采購管理系統(tǒng)"</p><p><b>　　End If</b></p><p>　　ElseIf i = 1 Then</p><p>　　DataEnvironment1.rsCom_dhxx.Close</p><p>　　Da

25、taEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"</p><p>　　If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then</p><p>　　DataRep_dhxx.Show</p><p><b>　　Else&

26、lt;/b></p><p>　　DataEnvironment1.rsCom_dhxx.Close</p><p>　　MsgBox "沒有到貨信息", 64, "采購管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　Els

27、e</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub DHXXCX_Click()</p><p>　　frm_dhxx_cx.Show</p><p><

28、;b>　　End Sub</b></p><p>　　Private Sub DHXXWH_Click()</p><p>　　frm_dhb.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub END_Click()</p><

29、p>　　c = MsgBox("確認(rèn)要退出采購管理系統(tǒng)嗎？", 33, "采購管理系統(tǒng)")</p><p>　　If c = vbOK Then</p><p><b>　　End</b></p><p><b>　　Else</b></p><p>&

30、lt;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Activate()</p><p>　　If Check1.Value = 1 Then</p><p>　　STSZ.Enabled = True</p

31、><p>　　ElseIf Check1.Value = 0 Then</p><p>　　STSZ.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check2.Value

32、 = 1 Then</p><p>　　CGGL.Enabled = True</p><p>　　ElseIf Check2.Value = 0 Then</p><p>　　CGGL.Enabled = False</p><p><b>　　Else</b></p><p><b>

33、;　　End If</b></p><p>　　If Check3.Value = 1 Then</p><p>　　DHGL.Enabled = True</p><p>　　ElseIf Check3.Value = 0 Then</p><p>　　DHGL.Enabled = False</p><p&

34、gt;<b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check4.Value = 1 Then</p><p>　　THGL.Enabled = True</p><p>　　ElseIf Check4.Value = 0 Then<

35、/p><p>　　THGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check5.Value = 1 Then</p><p>　　XSGL.Enabled = Tr

36、ue</p><p>　　ElseIf Check5.Value = 0 Then</p><p>　　XSGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Chec

37、k6.Value = 1 Then</p><p>　　BBTJ.Enabled = True</p><p>　　ElseIf Check6.Value = 0 Then</p><p>　　BBTJ.Enabled = False</p><p><b>　　Else</b></p><p>

38、<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Me.Left = (Screen.Width - Me.Width) / 2</p><p>　　Me.Top = (Scr

39、een.Height - Me.Height) / 2</p><p><b>　　i = 0</b></p><p><b>　　End Sub</b></p><p>　　Private Sub GYSGL_Click()</p><p>　　frm_gysgl.Show</p>

40、<p><b>　　End Sub</b></p><p>　　Private Sub KCTJ_Click()</p><p>　　frm_kctj.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub KCXX_Click()<

41、/p><p>　　If i = 0 Or i = 1 Then '如果首先點(diǎn)擊庫存菜單，那么i值變?yōu)?，代表首先點(diǎn)擊的不是退貨菜單</p><p><b>　　i = i + 1</b></p><p><b>　　Else</b></p><p><b>　　End If<

42、;/b></p><p>　　DataEnvironment1.rsCom_kcxx.Open "select * from Table_kcb"</p><p>　　If DataEnvironment1.rsCom_kcxx.RecordCount > 0 Then</p><p>　　DataRep_kcxx.Show</

43、p><p><b>　　Else</b></p><p>　　DataEnvironment1.rsCom_kcxx.Close</p><p>　　i = i + 2 '如果沒有打印的信息，i值就跳過1</p><p>　　MsgBox "沒有庫存信息", 64, "采

44、購管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub MAXG_Click()</p><p>　　frm_xgmm.Show</p><p><b>

45、;　　End Sub</b></p><p>　　Private Sub QXSZ_Click()</p><p>　　frm_czysz.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub RELOAD_Click()</p><p&

46、gt;<b>　　Unload Me</b></p><p>　　frm_czydl.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub SJBF_Click()</p><p>　　frm_sjbf.Show</p><p&

47、gt;　　frm_sjbf.Text4.Text = StatusBar1.Panels.Item(3).Text</p><p><b>　　End Sub</b></p><p>　　Private Sub SJHF_Click()</p><p>　　Dim iTask As Long</p><p>　　MsgB

48、ox "請您注意,為了確保數(shù)據(jù)安全,在進(jìn)行數(shù)據(jù)恢復(fù)的同時(shí)需要關(guān)閉應(yīng)用程序,請您在恢復(fù)數(shù)據(jù)完成之后重新運(yùn)行應(yīng)用程序", 64, "提示信息"</p><p>　　'調(diào)用數(shù)據(jù)恢復(fù)可執(zhí)行文件</p><p>　　iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)

49、</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub SYTS_Click()</p><p>　　frm_znsb.Show</p><p><b>　　End Sub<

50、/b></p><p>　　Private Sub THXX_Click()</p><p>　　If i = 0 Or i = 1 Then '如果首先點(diǎn)擊退貨菜單，那么I值變?yōu)?，代表首先點(diǎn)擊的不是退貨菜單</p><p><b>　　i = i + 1</b></p><p><b>

51、　　Else</b></p><p><b>　　End If</b></p><p>　　DataEnvironment1.rsCom_thxx.Open "select * from Table_thb"</p><p>　　If DataEnvironment1.rsCom_thxx.RecordCount

52、 > 0 Then</p><p>　　DataRep_thxx.Show</p><p><b>　　Else</b></p><p>　　DataEnvironment1.rsCom_thxx.Close</p><p>　　i = i + 2 '如果沒有打印的信息，I值就跳過

53、1</p><p>　　MsgBox "沒有退貨信息", 64, "采購管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub THXXCX_Click()&

54、lt;/p><p>　　frm_thxx_cx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub THXXWH_Click()</p><p>　　frm_thgl.Show</p><p><b>　　End Sub</b>

55、;</p><p>　　Private Sub Timer1_Timer()</p><p>　　StatusBar1.Panels.Item(2).Text = Format(Now, "yyyy年mm月dd日 hh點(diǎn)mm分ss秒")</p><p><b>　　End Sub</b></p><p&g

56、t;　　Private Sub XSXXCX_Click()</p><p>　　frm_kcxx_cx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub XSXXWH_Click()</p><p>　　frm_kcb.Show</p><p&

57、gt;<b>　　End Sub</b></p><p><b>　　附錄</b></p><p>　　采購管理系統(tǒng)的運(yùn)行時(shí)截圖如下：</p><p><b>　　總結(jié)</b></p><p>　　論文在撰寫過程中，力求將理論與實(shí)踐結(jié)合起來，在對企業(yè)物資采購理論進(jìn)行闡述的同時(shí)，

58、配合模擬系統(tǒng)從實(shí)際應(yīng)用和操作技巧上加以說明，以達(dá)到對企業(yè)物資采購管理系統(tǒng)更深層次的理解和認(rèn)識(shí)。</p><p><b>　　致謝</b></p><p>　　在老師的指導(dǎo)和我的努力下，經(jīng)過一個(gè)多月時(shí)間，終于將畢業(yè)設(shè)計(jì)完成了。通過此次畢業(yè)設(shè)計(jì)，讓我對VB以及運(yùn)用VB開發(fā)軟件的全過程有了更深一層的認(rèn)識(shí)，這要求我們要有嚴(yán)密的邏輯思維能力和良好的軟件開發(fā)能力。開發(fā)前的準(zhǔn)備工作

59、非常重要，首先應(yīng)該定義好問題，接著分析其可行性，是否確實(shí)可行，再進(jìn)行分析，設(shè)計(jì)出大體的框架，并對各模塊進(jìn)一步細(xì)化，逐一開發(fā)出軟件框架。再對軟件的各部分進(jìn)行細(xì)節(jié)開發(fā)。最后將各模塊連接起來，進(jìn)行綜合的測試，對錯(cuò)誤的進(jìn)行修改并改進(jìn)，盡所能地使設(shè)計(jì)更加完備。</p><p>　　在此次設(shè)計(jì)中，讓我更加掌握了SQL Server2005軟件。軟件的主體設(shè)計(jì)全部由Visual Basic做成的。</p><

60、;p>　　在此次設(shè)計(jì)過程中，給我印象最深的是邏輯思維性的重要性，如果事先沒有正確的規(guī)劃好，它就會(huì)給我們的課題開發(fā)帶來嚴(yán)重的麻煩。在這次設(shè)計(jì)中的結(jié)構(gòu)的合理安排給我們帶來了不小的經(jīng)驗(yàn)教訓(xùn)</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1]《新概念Visual Basic 6教程》，北京科海集團(tuán)公司出品</p><p>　

61、　[2]《Visual Basic數(shù)據(jù)庫開發(fā)實(shí)例解析》，劉志銘等編著，機(jī)械工業(yè)出版社 </p><p>　　[3]《VB6.0編程實(shí)例與技巧》，曾琦主編，國水利水電出版社 </p><p>　　[4]《VB6.0實(shí)用數(shù)據(jù)庫編程》，張龍志等編著，中國科學(xué)技術(shù)大學(xué)出版