【文章內(nèi)容簡介】 query 中去掉“點(diǎn)菜封倉”復(fù)選框：主要對其數(shù)據(jù)窗口 d_stkloc_close_query 進(jìn)行修改，去掉“點(diǎn)菜封倉”一欄。 數(shù)據(jù)庫相關(guān)設(shè)計 數(shù)據(jù)庫表封倉部分功能的實(shí)現(xiàn)主要是編寫存儲過程對數(shù)據(jù)庫中配送中心商品庫存表（Tbd_StkLoc）的進(jìn)行修改操作。表 Tbd_StkLoc 包含的各個字段：? 表示商品所屬標(biāo)識的字段：DeptId （配送中心部門標(biāo)識） ，StkLocId（配送中心14 / 41庫存標(biāo)識） ，StkRegId（配送中心進(jìn)貨登記標(biāo)識） ，StorageId（配送中心倉庫標(biāo)識） ，StkCellId（配送中心倉位標(biāo)識） ，ProvId（供應(yīng)商標(biāo)識） ，ArtiId（基商品標(biāo)識） ，ImpArtiId（進(jìn)貨類商品標(biāo)識）? 表示商品基本信息的字段：ArtiClassCode（商品分類碼） ，ImpInclQty（進(jìn)貨包裝基商品含量） ，ImpUnit（進(jìn)貨包裝計量單位） ，DistInclQty（配送包裝基商品含量） ，DistUnit（配送包裝計量單位）? 表示現(xiàn)存該商品信息的字段：StkQty（配送中心庫存單品數(shù)量） ，TolQty（配送中心庫存單品可配送數(shù)量） ，TaxPrice（庫存商品含稅進(jìn)價） ，UnTaxPrice （庫存商品無稅進(jìn)價） ，ITaxRate（商品進(jìn)項(xiàng)稅率） ，ImpDate（配送中心入庫日期） ，ProcDate（配送中心商品生產(chǎn)日期） ，ValidDate （配送中心商品有效日期 ） ，BatchCode（配送中心商品批號） ，GiftTypeId（贈品類型標(biāo)識）? 表示庫內(nèi)該商品狀態(tài)的字段：AutoCloseMark （自動封倉允許標(biāo)志） ，CloseDate（封倉日期） ，EmptyDate （倉卡結(jié)零日期） ，StkStatus（配送中心庫存狀態(tài)） ，Note（ 配送中心庫存說明 ） ，OptrId （操作員標(biāo)識）此表中的 StkStatus 為商品的庫存狀態(tài)值，其具體含義如下：0正常（可配送）1正在配送（不可出庫）2手工點(diǎn)菜封倉（可配送）4手工配送封倉（不可點(diǎn)菜，不可配送）8到有效期自動封倉（不可點(diǎn)菜，不可配送）16配送中心內(nèi)部返品封倉（不可點(diǎn)菜，不可配送）32配送返品封倉（不可點(diǎn)菜，不可配送）64保留庫存封倉（不可點(diǎn)菜，不可配送）128退貨封倉（不可點(diǎn)菜，不可配送）256與供應(yīng)商調(diào)換封倉（不可點(diǎn)菜，不可配送）512配送中心內(nèi)部移庫過程封倉（中間狀態(tài)）注: 由于現(xiàn)有需求中對于點(diǎn)菜封倉不做要求，所以在用戶操作界面上將與點(diǎn)菜封倉有關(guān)的操作取消，但是考慮到由于公司以后業(yè)務(wù)的發(fā)展或者別的需求，點(diǎn)菜封倉可能會在以后有所要求，所以在系統(tǒng)內(nèi)部實(shí)現(xiàn)中保留與點(diǎn)菜封倉有關(guān)的15 / 41字段及屬性，以留作做將來功能擴(kuò)展之用。 存儲過程存儲過程主要完成對表的各種操作和修改，根據(jù)需求分析的要求，增加或修改了以下存儲過程：Spu_StkLoc_AutoClose：實(shí)現(xiàn)過保質(zhì)期封倉操作Spq_Stk_CloseAlarm：d_stkloc_autoclose_alarm 的數(shù)據(jù)源Spu_stkloc_unclose：實(shí)現(xiàn)了對單個商品的解封操作16 / 41第四章 系統(tǒng)開發(fā)實(shí)現(xiàn) PowerBuilder 窗口實(shí)現(xiàn) 過保質(zhì)期自動封倉窗口主要實(shí)現(xiàn)1．創(chuàng)建窗口主體 w_stkloc_autoclose_alarm在 PB 中創(chuàng)建 ObjectWindoww_stkloc_autoclose_alarm,按照設(shè)計，增各個控件：sle_2(singlelineedit), st_4(statictext), cbx_1(sy_u_cbx), dw_2(sy_u_dw), dw_1(sy_u_dw), em_1(sy_u_em), st_3(statictext), sle_1(sy_u_sle), st_2(statictext), st_1(statictext) 。2．?dāng)?shù)據(jù)窗口的構(gòu)建編寫存儲過程 Spq_Stk_CloseAlarm，根據(jù)存儲過程的設(shè)計確定傳遞參數(shù)：@m_DeptId int, /*配送中心部門標(biāo)識 */@m_StorageId int, /*配送中心倉庫標(biāo)識*/ @m_StkCellNo varchar(20), /* 配送中心倉位編碼 */ @m_ValidDays datetime /* 預(yù)計封倉日 */ 在實(shí)現(xiàn)查詢功能的事件 sy_query 中調(diào)用此數(shù)據(jù)窗口控件的 retrieve 函數(shù)，并確定定此四個參數(shù)后數(shù)據(jù)窗口即調(diào)用存儲過程進(jìn)行查詢，并將結(jié)果顯示在數(shù)據(jù)窗口控件 dw_1。參數(shù)值均從主窗口中的輸入控件取得，主要代碼如下：li_storageid = [ ( ) ]s_stkcellno = ls_stkcellno = ld_em1 = date()ld_date = datetime(ld_em1)li_bak = ( il_storeid , li_storageid , 39。%39。 + trim ( ls_stkcellno ) + 39。%39。 , ld_date )3．封倉功能的實(shí)現(xiàn)（sy_autofengcang）17 / 41封倉功能是通過事件 sy_autofengcang 實(shí)現(xiàn)的，在此事件中調(diào)用存儲過程 Spu_Stkloc_AutoClose，傳遞兩個參數(shù)：@m_AlarmDay int, 過保預(yù)警天數(shù)@m_CloseDate datetime = null 當(dāng)前日期該存儲過程實(shí)現(xiàn)對有效期在封倉日期之前的商品進(jìn)行封倉操作。事件在調(diào)用存儲過程完畢之后，再次調(diào)用查詢函數(shù)，刷新數(shù)據(jù)窗口： ( 39。 sy_query 39。 )4．關(guān)閉窗口事件（closequery）當(dāng)用戶改變了商品的自動封倉狀態(tài)后如果沒有保存就關(guān)閉窗口，則系統(tǒng)回提示用戶進(jìn)行保存：if ( 0 , primary! ) 0 thenll_result = messagebox ( 39。提示39。 , 39。數(shù)據(jù)已經(jīng)修改 ，是否保存？39。 , Question! , yesnocancel! , 3 )5．其他功能此窗口中的其他功能按鈕均從系統(tǒng)中的父類繼承，分別實(shí)現(xiàn)了復(fù)位，保存，另存，預(yù)覽，打印，關(guān)閉等功能。并能對數(shù)據(jù)窗口中的選中記錄進(jìn)行到首，向前，向后，到尾操作。 過保質(zhì)期自動封倉解封窗口主要實(shí)現(xiàn)1．創(chuàng)建窗口主體 w_stkloc_autoclose_unclose在 PB 中創(chuàng)建 ObjectWindow w_stkloc_autoclose_unclose,按照設(shè)計，增各個控件：dw_storage(dw_u_storage_query), st_1(statictext), sle_stkcell(sy_u_sle), dw_list(sy_u_dw), st_2(statictext), st_3(statictext), em_1(editmask), em_2(editmask), st_4(statictext), st_5(statictext)。2．?dāng)?shù)據(jù)窗口的構(gòu)建? 通過 SQL Query 形式構(gòu)造數(shù)據(jù)窗口對象 d_stkloc_autoclose_unclose，從表:（商品基表） （倉位類型表）18 / 41 （配送中心商品庫存明細(xì)表） （配送中心倉庫表）中選取數(shù)據(jù)，返回給數(shù)據(jù)窗口控件，作為查詢調(diào)用的結(jié)果。? 檢索參數(shù)：li_deptid number 配送中心部門標(biāo)識li_steid number 配送中心倉庫標(biāo)識ls_stkcellno string 配送中心倉位編號ld_datestart Datetime 解封起始日期ld_dateend Datetime 解封終止日期? 確定檢索條件（即已被封倉，且有效期在規(guī)定的時間段內(nèi)的商品）：Where ( amp。 8 0 ) ) AND /*按位操作取 StkStatus 為 8 的商品 */( . ValidDate = :ld_datestart and dbo . Tbd_StkLoc . ValidDate = :ld_dateend ) /*即有效期在解封其實(shí)日期與解封終止日期之間*/3．查詢事件（sy_query ）的實(shí)現(xiàn)：? 取得用戶輸入的“解封起始日期”和“解封終止日期” ，并轉(zhuǎn)化稱字符串：ld_em1 = date ( em_1 . text )ld_datestart = datetime ( ld_em1 )ls_datestart = string ( ld_datestart , 39。 yyyy/mm/dd 39。 )ld_em2 = date ( em_2 . text )ld_dateend = datetime ( ld_em2 )ls_dateend = string ( ld_dateend , 39。 yyyy/mm/dd 39。 )? 對用戶輸入的日期進(jìn)行判斷其正確性if ls_datestart = 39。1900/01/0139。 then /*起始日期不得早于1900 年 1 月 1 日*/messagebox ( 39。 提示信息 39。 , 39。 起始日期不合法 39。 )em_1 . setfocus ( ) return 119 / 41end ifif ls_dateend ls_datestart then /*終止日期不得早于起始日期 */messagebox ( 39。 提示信息 39。 , 39。 終止日期不可以比起始日期小 39。 )em_2 . setfocus ( )return 1end ifif ls_dateend 39。 2050/12/31 39。 or ls_dateend = 39。 1900/01/01 39。 then /*終止日期不得晚于 2050 年 12 月 31 日或者等于 1900 年 1 月 1 日*/messagebox ( 39。 提示信息 39。 , 39。 終止日期不合法 39。 )em_2 . setfocus ( )return 1end if? 根據(jù)用戶輸入的檢索信息對數(shù)據(jù)庫進(jìn)行檢索，主要由調(diào)用數(shù)據(jù)窗口控件，并傳給其參數(shù)實(shí)現(xiàn)：if isnull ( ls_stkcellno ) or ls_stkcellno = 39。 39。 thenls_stkcellno = 39。 39。li_bak = ( ll_deptid , ll_storageid , ls_stkcellno , ld_datestart , ld_dateend )elseli_bak = ( ll_deptid , ll_storageid , 39。 % 39。 + ls_stkcellno + 39。 % 39。 , ld_datestart , ld_dateend )end if? 對于窗口菜單及工具欄按鈕是否可用的設(shè)置：lm_menu . of_disable ( lm_menu . )lm_menu . of_disable ( . m_bottom )lm_menu . of_disable ( lm_menu . m_oper . m_previous )lm_menu . of_disable ( lm_menu . m_oper . m_top )4．解封事件（sy_jiefeng）的實(shí)現(xiàn)：主要由存儲過程 Spu_Stkloc_unclose 實(shí)現(xiàn)對單個商品的解封，由于需要20 / 41實(shí)現(xiàn)可以對單個或者多各選中商品的批處理解封，故需要在解封事件中循環(huán)調(diào)用此存儲過程。? 與存儲過程 Spu_Stkloc_unclose 的參數(shù)傳遞：DECLARE fengcang PROCEDURE FOR dbo . Spu_stkloc_unclose@m_DeptId = :li_deptid, /*配送中心部門標(biāo)識*/@m_StkLocId = :ll_stklocid, /*配送中心庫存標(biāo)識 */@m_StkStatus = :li_stkstatus, /*配送