【正文】 tId 添加了兩個(gè)新的狀態(tài)值：14—原始價(jià)格，15—實(shí)價(jià)入庫(kù)紅沖；分別表示原始價(jià)格入庫(kù)的記錄和紅沖記錄，這也是以后查詢(xún)?cè)加涗浐图t沖記錄的標(biāo)志，并且原物流系統(tǒng)由于取不到 BussEventId=14 或 15 的記錄，因此不會(huì)對(duì)原系統(tǒng)的運(yùn)行產(chǎn)生影響。其中ddlb_owner、ddlb_supplyno 用于選擇查詢(xún)的條件；dw_list 用于向操作人員顯示在上述查詢(xún)條件下，所 retrieve 的記錄；dw_list2 用于操作人員輸入實(shí)際價(jià)格。在操作人員點(diǎn)擊“修改”后，即進(jìn)入了 Allow_Modify_Price狀態(tài)，此時(shí)可對(duì)商品的原始價(jià)格的進(jìn)行修改，修改完畢后，點(diǎn)擊“入庫(kù)”按鈕即完成了實(shí)價(jià)入庫(kù)。? 對(duì)于該界面各事件的處理實(shí)現(xiàn)：I. 查詢(xún)事件(sy_query)的實(shí)現(xiàn)(is_supplyno)(is_supplyno)在 dw_list 與 dw_list2 取值的唯一不同在于，dw_list 顯示所有送貨單號(hào)對(duì)應(yīng)的記錄包括原始記錄和紅沖記錄，而 dw_list2 只取 not in ( 14,15 ) 的記錄。26 / 44II. 修改事件(sy_giveup)的實(shí)現(xiàn)if is_state Allow_Modify_Price then return 1(1)(1, true)()(untaxprice)of_SwitchState(Modifing_Price)把焦點(diǎn)設(shè)置到 untaxprice 一列上，并通過(guò)自定義函數(shù) of_SwitchState把狀態(tài)轉(zhuǎn)換到可修改原始價(jià)格的狀態(tài)。 = trueexecute shijiahongchong。提示信息39。close shijiahongchong。對(duì)于實(shí)價(jià)入庫(kù)的存儲(chǔ)過(guò)程Spi_imp_realPriceReclaim 將在后面部分加以詳細(xì)闡述。調(diào)用(ls_PathFile, dBASE3! ,true)及完成了數(shù)據(jù)的導(dǎo)出。V. 此窗口中的關(guān)閉按鈕是從系統(tǒng)中的父類(lèi)中繼承加以實(shí)現(xiàn)。因此需要記錄原始倉(cāng)位的StkRegId 的值，以便在 Tbd_StkReg 表中，插入實(shí)價(jià)記錄后，把Tbd_StkLoc 的相應(yīng)記錄的 StkRegId 的值也更新為實(shí)價(jià)記錄所對(duì)應(yīng)的值*/ exec RetVal = Spq_sys_MaxId 182, 0, SysId output if RetVal != 1 begin rollback transaction stk_tran_realinmit transaction raiserror 90006 沒(méi)有能夠計(jì)算出一個(gè)進(jìn)貨編碼(插入負(fù)項(xiàng))! select m_ReclaimId = 6029 / 44return 1end select m_stkRegId = SysId /*調(diào)用物流系統(tǒng)的存儲(chǔ)過(guò)程，統(tǒng)一地為 StkRegId 分配值*/insert Tbd_StkReg (DeptId,StkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,TaxPrice,UnTaxPrice,RetailPrice,CostPrice,ITaxRate,ArtiQty,ValuQty,CostAmt,ImpDate,StkDate,BussEventId,BussStatus,OptrId,ImpId,CheckId,Note,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)Select ( DeptId,m_stkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,TaxPrice,UnTaxPrice,RetailPrice,CostPrice,ITaxRate,ArtiQty,ValuQty,CostAmt,ImpDate,StkDate,15,BussStatus,OptrId,ImpId,CheckId,實(shí)價(jià)入庫(kù)紅沖,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)from Tbd_StkRegwhere StkRegId = m_stkRegId_Oldif error0begin rollback transaction stk_tran_realin mit transaction30 / 44 raiserror 90001 寫(xiě)入估價(jià)負(fù)項(xiàng)失敗 select m_ReclaimId = 20 return 1end/*在 Tbd_StkReg 表中插入一條實(shí)價(jià)入庫(kù)紅沖的記錄*/ exec RetVal = Spq_sys_MaxId 182, 0, SysId output if RetVal != 1 begin rollback transaction stk_tran_realinmit transaction raiserror 90006 沒(méi)有能夠計(jì)算出一個(gè)進(jìn)貨編碼(插入實(shí)價(jià)項(xiàng))! select m_ReclaimId = 60return 1end select m_stkRegId = SysId //調(diào)用物流系統(tǒng)的存儲(chǔ)過(guò)程，統(tǒng)一地為 StkRegId 分配值insert Tbd_StkReg (DeptId,StkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,TaxPrice,UnTaxPrice,RetailPrice,CostPrice,ITaxRate,ArtiQty,ValuQty,CostAmt,ImpDate,StkDate,BussEventId,BussStatus,OptrId,ImpId,CheckId,Note,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)select (31 / 44DeptId,m_stkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,m_UnTaxPrice*(m_TaxRate*+1),m_UnTaxPrice,m_UnTaxPrice*(m_TaxRate*+1),CostPrice,ITaxRate,ArtiQty,ValuQty,m_UnTaxPrice*ValuQty,ImpDate,StkDate,10,BussStatus,OptrId,ImpId,CheckId,訂單進(jìn)貨登記,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)from Tbd_StkRegwhere StkRegId = m_stkRegId_Oldif rowcount1begin rollback transaction stk_tran_realin mit transaction raiserror 90002 寫(xiě)入實(shí)價(jià)時(shí)失敗(insert Tbd_StkReg) select m_ReclaimId = 30 return 1end/*在 Tbd_StkReg 表中插入一條實(shí)價(jià)入庫(kù)記錄*/ update Tbd_StkLocset (TaxPrice = m_UnTaxPrice*(m_TaxRate*+1), UnTaxPrice = m_UnTaxPrice, ITaxRate = m_TaxRate, StkRegId = m_stkRegId)where StkRegId = m_stkRegId_Old32 / 44if error0beginrollback transaction stk_tran_realinmit transactionraiserror 90003 進(jìn)貨登記數(shù)據(jù)有誤(update Tbd_StkLoc)select m_ReclaimId = 40return 1end/*更新 Tbd_StkLoc 中的與 Tbd_StkReg 中的原始記錄通過(guò)外鍵StkRegId 相聯(lián)系的記錄的原始進(jìn)價(jià)更新為現(xiàn)在的實(shí)際價(jià)格，并把給記錄原來(lái)與 Tbd_StkReg 中的原始記錄的聯(lián)接，轉(zhuǎn)變?yōu)榕cTbd_StkReg 中實(shí)價(jià)入庫(kù)記錄的聯(lián)接*/ update Tbd_StkReg set BussEventId = 14,Note = 原始估價(jià)入庫(kù) where StkRegId = m_stkRegId_Oldif rowcount 1beginrollback transaction stk_tran_realinmit transactionraiserror 90000 進(jìn)貨登記數(shù)據(jù)有誤(update Tbd_StkReg)select m_ReclaimId = 10return 1end/*更新 Tbd_StkReg 表的原始記錄為原始估價(jià)入庫(kù)，并設(shè)定其BussEventId = 14,表示這條記錄為原始價(jià)格記錄 */mit transaction33 / 44select m_ReclaimId = 0return 0 盤(pán)點(diǎn)部分財(cái)務(wù)模塊的設(shè)計(jì)與實(shí)現(xiàn) 盤(pán)點(diǎn)部分需求的分析津菱公司對(duì)于倉(cāng)庫(kù)將定期進(jìn)行盤(pán)點(diǎn)，盤(pán)點(diǎn)產(chǎn)生損益也將生成財(cái)務(wù)憑證。由于物流系統(tǒng)在盤(pán)點(diǎn)功能模塊中已經(jīng)實(shí)現(xiàn)了將有損益的商品信息寫(xiě)入數(shù)據(jù)庫(kù)的盤(pán)點(diǎn)損益表中，因此這部分財(cái)務(wù)處理較為簡(jiǎn)單些，只需將盤(pán)點(diǎn)損益表中的相關(guān)信息導(dǎo)出，產(chǎn)給 k3 生成會(huì)計(jì)憑證即可。36 / 44第五章 項(xiàng)目總結(jié)及展望 開(kāi)發(fā)經(jīng)驗(yàn)總結(jié)畢業(yè)設(shè)計(jì)即將結(jié)束了，整個(gè)畢業(yè)設(shè)計(jì)雖然只有短短的幾個(gè)月，但它卻不僅在學(xué)業(yè)上給了我很大的幫助，而且更多是教給了我面對(duì)問(wèn)題與困難的態(tài)度。從開(kāi)始的一竅不通，到慢慢地熟悉掌握，以及后來(lái)的熟練運(yùn)用。雖然數(shù)據(jù)庫(kù)象 SQL SERVER202ORACLE 也接觸過(guò)一段時(shí)間，但真正的對(duì)數(shù)據(jù)庫(kù)的感悟卻是來(lái)自于 pb 的 datawindow，項(xiàng)目剛開(kāi)始時(shí)，對(duì)于 datawindow 的認(rèn)識(shí)僅僅限于一個(gè)很窄的層面上。第一次接觸這么大型的軟件，才覺(jué)得以前做過(guò)的東西真的只能算是玩具了。整個(gè)項(xiàng)目最讓我感觸的是對(duì)需求分析地重新認(rèn)識(shí)，以前做過(guò)的程序也沒(méi)太多的需求分析要做，現(xiàn)在真正接觸到了這么一個(gè)龐大的系統(tǒng)，才明白如果沒(méi)一個(gè)清晰明確的需求分析是絕對(duì)不可能完成的。這也許就是項(xiàng)目真正教給我的生活態(tài)度吧。在整個(gè)開(kāi)發(fā)過(guò)程中，也是我認(rèn)識(shí)到了軟件過(guò)程管理對(duì)于開(kāi)發(fā)效率的決定作用。因此，行之有效的項(xiàng)目管理是37 / 44項(xiàng)目正常進(jìn)行的保障。由于項(xiàng)目是在物流系統(tǒng)的基礎(chǔ)上進(jìn)行的二次開(kāi)發(fā)，數(shù)據(jù)庫(kù)的許多表的設(shè)計(jì)對(duì)于財(cái)務(wù)來(lái)講，都很不適用，需要更多的優(yōu)化和重新設(shè)計(jì)。他對(duì)于項(xiàng)目一絲不茍的治學(xué)態(tài)度以及對(duì)于項(xiàng)目人員的協(xié)調(diào)與統(tǒng)籌規(guī)劃的能力，讓我深刻體會(huì)到了作為項(xiàng)目主持人所應(yīng)具備素質(zhì)。感謝和我同組的劉劉、韓曉瑋、樓波和盧子怡同學(xué)，沒(méi)有他們?cè)陧?xiàng)目中的努力與協(xié)調(diào)配合，就不可能有項(xiàng)目的順利完成。感謝軟件學(xué)院對(duì)我們做畢業(yè)設(shè)計(jì)的大力支持，為我們做畢業(yè)設(shè)計(jì)提供了很優(yōu)越的實(shí)驗(yàn)環(huán)境，為我們配備了性能優(yōu)越的計(jì)算機(jī)，保證我們的畢設(shè)順利進(jìn)行。衷心感謝所有關(guān)心我的人！39 / 44參考文獻(xiàn)[1] CLM：[2] 崔杜武、姚全珠、范艷華、黑新紅：《PowerBuilder 從基礎(chǔ)到應(yīng)用》 ，人民郵電出版社，.[3] 王鵬：《 編程員指南》 ，北京希望電子出版社，2022 年[4] 劉增進(jìn)：《PowerBuilder 數(shù)據(jù)窗口技術(shù)詳解》 ，北京電子工業(yè)出版社，2022 年[5] SYBASE 公司：SYBASE TransactSQL User’s Guide，2022 年