計算機銷售管理系統—免費畢業設計論文-資料下載頁

【導讀】腦公司的銷售和庫存管理問題。開發該系統包括數據庫的建立與維護以及應用。本系統的設計題目來自于鎮江國恩電腦公司。脫離手工的操作，讓公司各部門能夠更高效的運轉，資源能夠更為合理的利用。在公司編程人員及。指導老師的幫助下，我選擇了原型法，利用Powerbuilder作為開發工具，在WindowsServer2021+SQLServer2021平臺上來開發該信息系統。的模型，形成了完整的計算機銷售管理系統。

　　

【正文】 第五章 系統的實現 34 =6 =true for i=1 to li_small =[i]+ :+[i]+ids_small [i] =[i]+[i] insertitemsort(handle,itvi_small) next case 3 flag=3 is_dl=left(,2) is_xl=mid(,3,2) ( dlbh = 39。 + is_dl + 39。 and xlbh = 39。 + is_xl + 39。) li_number=() =7 =8 =false for j=1 to li_number =[j]+ :+. dlbh[j]+[j]+[j] =[j] insertitemsort(handle,itvi_number) next end choose //樹型控件的 selectionchanged 事件代碼： TreeViewItem ltvi_Item string is_dl,is_xl,is_sp,is_bh 第五章 系統的實現 35 (sqlca) (False) (newhandle, ltvi_item) (True) del_flag=(currenttreeitem!,0) choose case case 1 flag=1 dl_flag= sp_flag= () case 2 //da lei flag=2 is_bh=right(,2) (spbh LIKE 39。+is_bh+%39。) () dl_flag=is_bh =dl_flag case 3 //xiao lei flag=3 is_bh=right(,4) (spbh LIKE 39。+is_bh+%39。) () sp_flag=is_bh =sp_flag case 4 //shangpin 第五章 系統的實現 36 flag=4 is_bh=right(,8) (spbh LIKE 39。+is_bh+%39。) () =is_bh end choose 銷售管理的實現 同 樣，我只是那出其中的一個做為實例進行介紹它的操作方法和它的具體實現代碼，其它的如：銷售單，銷售收款單，銷售扣款單等由于篇幅的限制和在操作上類同的，所以在此不做介紹了。 銷售訂單的窗口外觀如下： 1)如何操作本窗口 對于銷售管理的操作，我主要介紹銷售訂單明細表的操作：在添加完銷售訂單后，單擊右上拐角的“下一行”按鈕，將會彈出如上圖所顯示上面的窗口，第五章 系統的實現 37 該窗口的主要功能是為了操作的方便，添加詳細信息的。在該窗口中，你可以通過輸入部件的編號來直接的搜索出你要添加的部件，你也可以通過選擇部件類別來首先對表 中的數據進行過濾，然后，通過點擊選中，在點擊“下一行”將選種的信息添加到銷售訂單明細表中，點擊“返回”關閉該窗口。然后，在銷售訂單明細表中添加各個部件的數量，其中，部件的金額是自動算出來的。用戶不需要輸入，在此，用戶輸入的只有部件的數量。輸入完檢查結果無誤后，點擊“提交按鈕”，將輸入的信息提交，如果你的輸入信息有錯誤，系統會提示你，你的輸入錯誤，如果提交成功系統彈出一個對話框來提示用戶“你的數據提交成功了”，否則，會提示“數據提交失敗”。如果是你的數據提交成功了，會彈出一個對你剛才填寫信息的窗口，如果你檢查 無誤，點擊“打印”，將會打印銷售訂單報表。 該功能實現的部分代碼如下： //銷售訂單單號的生成： (0) //*********************************************** //添加銷售訂單號 string is_sp long is_index //定義游標 DECLARE xsdd CURSOR FOR SELECT FROM xsdd 。 is_index=1 //打開游標 OPEN xsdd 。 //使用搜查記錄 if 0 then 第五章 系統的實現 38 messagebox(錯誤 ,提取數據錯誤！ ) else is_sp= do if is_sp then if mid(is_sp,3,6)=string(today(),yymmdd) then if long(right(is_sp,3))is_index then is_index=long(right(is_sp,3)) end if else is_index=1 end if end if FETCH xsdd INTO :is_sp。 loop while =0 end if if is_index9 then if is_index=1 then =XD+string(today(),yymmdd)+00+string(is_index+2) else =XD+string(today(),yymmdd)+00+string(is_index+1) end if else if is_index=9 and is_index99 then 第五章 系統的實現 39 =XD+string(today(),yymmdd)+0+string(is_index+1) else =XD+string(today(),yymmdd)+string(is_index+1) end if end if //關閉游標 close xsdd。 =string(today(),yyyymmdd) //數據的提交功能實現代碼： //定義的數據存儲變量 string is_dddh,is_jhrq,is_khmc,is_xdrq,is_bmmc,is_jsr,is_bz long is_ysje //變量賦質 is_dddh=trim() is_xdrq=trim() is_ysje=long(trim()) is_jsr=trim() is_bz=trim() is_jhrq=trim() is_khmc=trim() is_bmmc=trim() //向銷售訂單表中寫數據 //******************************* INSERT INTO xsdd 第五章 系統的實現 40 ( dddh, xdrq, jhrq, khmc, bmmc, jsr, ysje, bz ) VALUES ( :is_dddh, :is_xdrq, :is_jhrq, :is_khmc, :is_bmmc, :is_jsr, :is_ysje, :is_bz ) 。 //判斷是否數據提交成功 //****************************** if 0 then messagebox(失敗 ,數據提交失敗 +) end if //向銷售訂單明晰表中寫數據 () //判斷是否數據提交成功 if 0 then 第五章 系統的實現 41 messagebox(失敗 ,數據提交失敗 +) end if //————————————————————————————————— //統計數據 //統計變量 long is_shuliang,is_jine string ll_djh,ll_je,ll_sl //初始化變量 is_shuliang=0 is_jine=0 DECLARE xsdda CURSOR FOR SELECT , , FROM xsdd_mx WHERE = :is_dddh 。 open xsdda 。 if =1 then messagebox(統計錯誤 ,string()+:+) else ll_djh= DO if ll_djh then is_shuliang=is_shuliang+long(ll_sl) is_jine=is_jine+long(ll_je) end if 第五章 系統的實現 42 FETCH xsdda INTO :ll_sl,:ll_je,:ll_djh。 LOOP while =0 if =1 then messagebox(統計錯誤 ,string()+:+) end if end if close xsdda。 //————————————————————————————————— //向銷售檔案表中 寫數據 INSERT INTO xsdd_da ( dddh, xdrq, jhrq, khmc, bmmc, jsr, slhj, jehj, ysje, zdr, bz ) VALUES ( :is_dddh, :is_xdrq, :is_jhrq, :is_khmc, :is_bmmc, 第五章 系統的實現 43 :is_jsr, :is_shuliang, :is_jine, :is_ysje, :is_czy, :is_bz ) 。 //判斷是否數據提交成功 if 0 then messagebox(失敗 ,數據提交失敗 +) else messagebox(成功 ,數據提交成功！！ ) end if //對數據的刷新 (sqlca) () //打印銷售訂單 open(w_a_xd) 倉庫管理的實現 本模塊的實現我以添加入庫單做為例子進行分析，出庫單，轉庫單，盤點單，調撥單的操作和實現代碼是類似的，在此我不做介紹了。 1)入庫窗口的外觀如下： 第五章 系統的實現 44 2)如何操作本窗口 對于庫存管理的操作，我主要介紹入庫單的操作：在添加完入庫單后，單擊右上拐角的“下一行”按鈕，將會彈出如上圖所顯示上面的窗口，該窗口的主要功能是為了操作的方便，添加詳細信息的。在該窗口中，你可以通過輸入部件的編號來直接的搜索出你要添加的部件，你也可以通過選擇部件類別來首先對表中的數據進行過濾，然后，通過點擊選中，在點 擊“下一行”將選種的信息添加到入庫單明細表中，點擊“返回”關閉該窗口。然后，在入庫單明細表中添加各個部件的數量，其中，部件的金額是自動算出來的。用戶不需要輸入，在此，用戶輸入的只有部件的數量。輸入完檢查結果無誤后，點擊“提交按鈕”，將輸入的信息提交，如果你的輸入信息有錯誤，系統會提示你，你的輸入錯誤，如果提交成功系統彈出一個對話框來提示用戶“你的數據提交成功了”，否則，會提示“數據提交失敗”。 3)該功能實現的部分代碼如下： //提交按鈕的代碼： //提交入庫單 ************************************************ 第五章 系統的實現 45 string is_jcdh,is_lb,is_dydh,is_rq,is_ckbh,is_bmmc,is_jsr,i