VB課程設計（論文）采購管理系統(tǒng)

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

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

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

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

5、單時間、單位、幣種、單價、數(shù)量、金額、備注、是否到貨、狀態(tài)等。具體設置如下表：字段名稱字段類型字段大小允許為空單號decimal18否貨物名稱varchar50是批號varchar50是供應商編號decimal18是收貨日期datetime是發(fā)單時間datetime是單位varchar50是幣種varchar50是單價float是數(shù)量int是金額float是備注text是是否到貨real是狀態(tài)char10是表3.2 cgdd表（三）cgyxx表cgxx表應包含以下字段：采購員編號、姓名、性別、年齡、民族、籍貫、學歷、電話、現(xiàn)地址等。具體設置如下表：字段名稱字段類型字段大小允許為空采購員編號de

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

7、etime是發(fā)單日期datetime是單位varchar53是單價varchar50是訂單數(shù)量float是報損數(shù)量float是報溢數(shù)量float是數(shù)量float是到貨日期datetime是備注text是是否到貨real是狀態(tài)varchar50是表3.4 dhb表（五）gysxx表gysxx表應包含以下字段：供應商編號、供應商名稱、簡稱、傳真、電話、e-mail、聯(lián)系人、聯(lián)系人電話、地址等。具體設置如下表：字段名稱字段類型字段大小允許為空供應商編號decimal18供應商名稱varchar50是簡稱varchar50是傳真varchar50是電話varchar50是e-mailvarchar50

8、是聯(lián)系人varchar50是聯(lián)系人電話varchar50是地址varchar50是表3.5 gysxx表（六）kcb表kcb表應包含以下字段：貨物編號、單號、貨物名稱、批號、供應商編號、收貨日期、單位、單價、數(shù)量、報損數(shù)量、報溢數(shù)量、金額、到貨日期、入庫日期、狀態(tài)、備注等。具體設置如下表：字段名稱字段類型字段大小允許為空貨物編號decimal18否單號decimal18是貨物名稱varchar50是批號varchar50是供應商編號varchar50是收貨日期datetime是單位varchar53是單價varchar50是數(shù)量float是報損數(shù)量float是報溢數(shù)量float是金額float

9、是到貨日期datetime是入庫日期datetime是狀態(tài)varchar50是備注text是表3.6 kcb表（七）thb表thb表應包含如下字段：退貨單號、單號、貨物名稱、批號、供應商名稱、收貨日期、單位、單價、數(shù)量、到貨日期、貨物備注、退貨日期、退貨原因、狀態(tài)等。具體設置如下表：字段名稱字段類型字段大小允許為空退貨單號decimal18否單號decimal18是貨物名稱varchar50是批號varchar50是供應商名稱varchar50是收貨日期datetime是單位varchar53是單價varchar50是數(shù)量float是到貨日期datetime是貨物備注text是退貨日期date

10、time是退貨原因text是狀態(tài)varchar50是表3.7 thb表（八）xxdl表xxdl表應包含以下字段：id、用戶名、口令、系統(tǒng)維護、采購管理、到貨管理、退貨管理、庫存管理、報表統(tǒng)計等。具體設置如下表：字段名稱字段類型字段大小允許為空iddecimal18否用戶名varchar50是口令varchar50是系統(tǒng)維護real是采購管理real是到貨管理real是退貨管理real是庫存管理real是報表統(tǒng)計real是表3.8 xxdl表四、窗口設計（一）主窗口主窗口包含有如下模塊：系統(tǒng)設置、采購管理、到貨管理、庫存管理、退貨管理、打印報表、關閉系統(tǒng)。具體設置如圖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, 采購管理系統(tǒng) 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, 采購管理系統(tǒng) 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(確認要退出采購管理系統(tǒng)嗎？, 33, 采購管理系統(tǒng)) 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值變?yōu)?，代表首先點擊的不是退貨菜單 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, 采購管理系統(tǒng) 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 請您注意,為了確保數(shù)據(jù)安全,在進行數(shù)據(jù)恢復的同時需要關閉應用程序,請您在恢復數(shù)據(jù)完成之后重新運行應用程序, 64, 提示信息調用數(shù)據(jù)恢復可執(zhí)行文件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值變?yōu)?，代表首先點擊的不是退貨菜單 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, 采購管理系統(tǒng) end ifend subprivate 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 sub