【導(dǎo)讀】腦公司的銷售和庫(kù)存管理問(wèn)題。開發(fā)該系統(tǒng)包括數(shù)據(jù)庫(kù)的建立與維護(hù)以及應(yīng)用。本系統(tǒng)的設(shè)計(jì)題目來(lái)自于鎮(zhèn)江國(guó)恩電腦公司。脫離手工的操作，讓公司各部門能夠更高效的運(yùn)轉(zhuǎn)，資源能夠更為合理的利用。在公司編程人員及。指導(dǎo)老師的幫助下，我選擇了原型法，利用Powerbuilder作為開發(fā)工具，在WindowsServer2021+SQLServer2021平臺(tái)上來(lái)開發(fā)該信息系統(tǒng)。的模型，形成了完整的計(jì)算機(jī)銷售管理系統(tǒng)。

　　

【正文】 第五章 系統(tǒng)的實(shí)現(xiàn) 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 第五章 系統(tǒng)的實(shí)現(xiàn) 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 第五章 系統(tǒng)的實(shí)現(xiàn) 36 flag=4 is_bh=right(,8) (spbh LIKE 39。+is_bh+%39。) () =is_bh end choose 銷售管理的實(shí)現(xiàn) 同 樣，我只是那出其中的一個(gè)做為實(shí)例進(jìn)行介紹它的操作方法和它的具體實(shí)現(xiàn)代碼，其它的如：銷售單，銷售收款單，銷售扣款單等由于篇幅的限制和在操作上類同的，所以在此不做介紹了。 銷售訂單的窗口外觀如下： 1)如何操作本窗口 對(duì)于銷售管理的操作，我主要介紹銷售訂單明細(xì)表的操作：在添加完銷售訂單后，單擊右上拐角的“下一行”按鈕，將會(huì)彈出如上圖所顯示上面的窗口，第五章 系統(tǒng)的實(shí)現(xiàn) 37 該窗口的主要功能是為了操作的方便，添加詳細(xì)信息的。在該窗口中，你可以通過(guò)輸入部件的編號(hào)來(lái)直接的搜索出你要添加的部件，你也可以通過(guò)選擇部件類別來(lái)首先對(duì)表 中的數(shù)據(jù)進(jìn)行過(guò)濾，然后，通過(guò)點(diǎn)擊選中，在點(diǎn)擊“下一行”將選種的信息添加到銷售訂單明細(xì)表中，點(diǎn)擊“返回”關(guān)閉該窗口。然后，在銷售訂單明細(xì)表中添加各個(gè)部件的數(shù)量，其中，部件的金額是自動(dòng)算出來(lái)的。用戶不需要輸入，在此，用戶輸入的只有部件的數(shù)量。輸入完檢查結(jié)果無(wú)誤后，點(diǎn)擊“提交按鈕”，將輸入的信息提交，如果你的輸入信息有錯(cuò)誤，系統(tǒng)會(huì)提示你，你的輸入錯(cuò)誤，如果提交成功系統(tǒng)彈出一個(gè)對(duì)話框來(lái)提示用戶“你的數(shù)據(jù)提交成功了”，否則，會(huì)提示“數(shù)據(jù)提交失敗”。如果是你的數(shù)據(jù)提交成功了，會(huì)彈出一個(gè)對(duì)你剛才填寫信息的窗口，如果你檢查 無(wú)誤，點(diǎn)擊“打印”，將會(huì)打印銷售訂單報(bào)表。 該功能實(shí)現(xiàn)的部分代碼如下： //銷售訂單單號(hào)的生成： (0) //*********************************************** //添加銷售訂單號(hào) string is_sp long is_index //定義游標(biāo) DECLARE xsdd CURSOR FOR SELECT FROM xsdd 。 is_index=1 //打開游標(biāo) OPEN xsdd 。 //使用搜查記錄 if 0 then 第五章 系統(tǒng)的實(shí)現(xiàn) 38 messagebox(錯(cuò)誤 ,提取數(shù)據(jù)錯(cuò)誤！ ) 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 第五章 系統(tǒng)的實(shí)現(xiàn) 39 =XD+string(today(),yymmdd)+0+string(is_index+1) else =XD+string(today(),yymmdd)+string(is_index+1) end if end if //關(guān)閉游標(biāo) close xsdd。 =string(today(),yyyymmdd) //數(shù)據(jù)的提交功能實(shí)現(xiàn)代碼： //定義的數(shù)據(jù)存儲(chǔ)變量 string is_dddh,is_jhrq,is_khmc,is_xdrq,is_bmmc,is_jsr,is_bz long is_ysje //變量賦質(zhì) 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() //向銷售訂單表中寫數(shù)據(jù) //******************************* INSERT INTO xsdd 第五章 系統(tǒng)的實(shí)現(xiàn) 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 ) 。 //判斷是否數(shù)據(jù)提交成功 //****************************** if 0 then messagebox(失敗 ,數(shù)據(jù)提交失敗 +) end if //向銷售訂單明晰表中寫數(shù)據(jù) () //判斷是否數(shù)據(jù)提交成功 if 0 then 第五章 系統(tǒng)的實(shí)現(xiàn) 41 messagebox(失敗 ,數(shù)據(jù)提交失敗 +) end if //————————————————————————————————— //統(tǒng)計(jì)數(shù)據(jù) //統(tǒng)計(jì)變量 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(統(tǒng)計(jì)錯(cuò)誤 ,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 第五章 系統(tǒng)的實(shí)現(xiàn) 42 FETCH xsdda INTO :ll_sl,:ll_je,:ll_djh。 LOOP while =0 if =1 then messagebox(統(tǒng)計(jì)錯(cuò)誤 ,string()+:+) end if end if close xsdda。 //————————————————————————————————— //向銷售檔案表中 寫數(shù)據(jù) 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, 第五章 系統(tǒng)的實(shí)現(xiàn) 43 :is_jsr, :is_shuliang, :is_jine, :is_ysje, :is_czy, :is_bz ) 。 //判斷是否數(shù)據(jù)提交成功 if 0 then messagebox(失敗 ,數(shù)據(jù)提交失敗 +) else messagebox(成功 ,數(shù)據(jù)提交成功??！ ) end if //對(duì)數(shù)據(jù)的刷新 (sqlca) () //打印銷售訂單 open(w_a_xd) 倉(cāng)庫(kù)管理的實(shí)現(xiàn) 本模塊的實(shí)現(xiàn)我以添加入庫(kù)單做為例子進(jìn)行分析，出庫(kù)單，轉(zhuǎn)庫(kù)單，盤點(diǎn)單，調(diào)撥單的操作和實(shí)現(xiàn)代碼是類似的，在此我不做介紹了。 1)入庫(kù)窗口的外觀如下： 第五章 系統(tǒng)的實(shí)現(xiàn) 44 2)如何操作本窗口 對(duì)于庫(kù)存管理的操作，我主要介紹入庫(kù)單的操作：在添加完入庫(kù)單后，單擊右上拐角的“下一行”按鈕，將會(huì)彈出如上圖所顯示上面的窗口，該窗口的主要功能是為了操作的方便，添加詳細(xì)信息的。在該窗口中，你可以通過(guò)輸入部件的編號(hào)來(lái)直接的搜索出你要添加的部件，你也可以通過(guò)選擇部件類別來(lái)首先對(duì)表中的數(shù)據(jù)進(jìn)行過(guò)濾，然后，通過(guò)點(diǎn)擊選中，在點(diǎn) 擊“下一行”將選種的信息添加到入庫(kù)單明細(xì)表中，點(diǎn)擊“返回”關(guān)閉該窗口。然后，在入庫(kù)單明細(xì)表中添加各個(gè)部件的數(shù)量，其中，部件的金額是自動(dòng)算出來(lái)的。用戶不需要輸入，在此，用戶輸入的只有部件的數(shù)量。輸入完檢查結(jié)果無(wú)誤后，點(diǎn)擊“提交按鈕”，將輸入的信息提交，如果你的輸入信息有錯(cuò)誤，系統(tǒng)會(huì)提示你，你的輸入錯(cuò)誤，如果提交成功系統(tǒng)彈出一個(gè)對(duì)話框來(lái)提示用戶“你的數(shù)據(jù)提交成功了”，否則，會(huì)提示“數(shù)據(jù)提交失敗”。 3)該功能實(shí)現(xiàn)的部分代碼如下： //提交按鈕的代碼： //提交入庫(kù)單 ************************************************ 第五章 系統(tǒng)的實(shí)現(xiàn) 45 string is_jcdh,is_lb,is_dydh,is_rq,is_ckbh,is_bmmc,is_jsr,i