【文章內(nèi)容簡(jiǎn)介】 query 中去掉“點(diǎn)菜封倉(cāng)”復(fù)選框：主要對(duì)其數(shù)據(jù)窗口 d_stkloc_close_query 進(jìn)行修改，去掉“點(diǎn)菜封倉(cāng)”一欄。 數(shù)據(jù)庫(kù)相關(guān)設(shè)計(jì) 數(shù)據(jù)庫(kù)表封倉(cāng)部分功能的實(shí)現(xiàn)主要是編寫(xiě)存儲(chǔ)過(guò)程對(duì)數(shù)據(jù)庫(kù)中配送中心商品庫(kù)存表（Tbd_StkLoc）的進(jìn)行修改操作。表 Tbd_StkLoc 包含的各個(gè)字段：? 表示商品所屬標(biāo)識(shí)的字段：DeptId （配送中心部門標(biāo)識(shí)） ，StkLocId（配送中心14 / 41庫(kù)存標(biāo)識(shí)） ，StkRegId（配送中心進(jìn)貨登記標(biāo)識(shí)） ，StorageId（配送中心倉(cāng)庫(kù)標(biāo)識(shí)） ，StkCellId（配送中心倉(cāng)位標(biāo)識(shí)） ，ProvId（供應(yīng)商標(biāo)識(shí)） ，ArtiId（基商品標(biāo)識(shí)） ，ImpArtiId（進(jìn)貨類商品標(biāo)識(shí)）? 表示商品基本信息的字段：ArtiClassCode（商品分類碼） ，ImpInclQty（進(jìn)貨包裝基商品含量） ，ImpUnit（進(jìn)貨包裝計(jì)量單位） ，DistInclQty（配送包裝基商品含量） ，DistUnit（配送包裝計(jì)量單位）? 表示現(xiàn)存該商品信息的字段：StkQty（配送中心庫(kù)存單品數(shù)量） ，TolQty（配送中心庫(kù)存單品可配送數(shù)量） ，TaxPrice（庫(kù)存商品含稅進(jìn)價(jià)） ，UnTaxPrice （庫(kù)存商品無(wú)稅進(jìn)價(jià)） ，ITaxRate（商品進(jìn)項(xiàng)稅率） ，ImpDate（配送中心入庫(kù)日期） ，ProcDate（配送中心商品生產(chǎn)日期） ，ValidDate （配送中心商品有效日期 ） ，BatchCode（配送中心商品批號(hào)） ，GiftTypeId（贈(zèng)品類型標(biāo)識(shí)）? 表示庫(kù)內(nèi)該商品狀態(tài)的字段：AutoCloseMark （自動(dòng)封倉(cāng)允許標(biāo)志） ，CloseDate（封倉(cāng)日期） ，EmptyDate （倉(cāng)卡結(jié)零日期） ，StkStatus（配送中心庫(kù)存狀態(tài)） ，Note（ 配送中心庫(kù)存說(shuō)明 ） ，OptrId （操作員標(biāo)識(shí)）此表中的 StkStatus 為商品的庫(kù)存狀態(tài)值，其具體含義如下：0正常（可配送）1正在配送（不可出庫(kù)）2手工點(diǎn)菜封倉(cāng)（可配送）4手工配送封倉(cāng)（不可點(diǎn)菜，不可配送）8到有效期自動(dòng)封倉(cāng)（不可點(diǎn)菜，不可配送）16配送中心內(nèi)部返品封倉(cāng)（不可點(diǎn)菜，不可配送）32配送返品封倉(cāng)（不可點(diǎn)菜，不可配送）64保留庫(kù)存封倉(cāng)（不可點(diǎn)菜，不可配送）128退貨封倉(cāng)（不可點(diǎn)菜，不可配送）256與供應(yīng)商調(diào)換封倉(cāng)（不可點(diǎn)菜，不可配送）512配送中心內(nèi)部移庫(kù)過(guò)程封倉(cāng)（中間狀態(tài)）注: 由于現(xiàn)有需求中對(duì)于點(diǎn)菜封倉(cāng)不做要求，所以在用戶操作界面上將與點(diǎn)菜封倉(cāng)有關(guān)的操作取消，但是考慮到由于公司以后業(yè)務(wù)的發(fā)展或者別的需求，點(diǎn)菜封倉(cāng)可能會(huì)在以后有所要求，所以在系統(tǒng)內(nèi)部實(shí)現(xiàn)中保留與點(diǎn)菜封倉(cāng)有關(guān)的15 / 41字段及屬性，以留作做將來(lái)功能擴(kuò)展之用。 存儲(chǔ)過(guò)程存儲(chǔ)過(guò)程主要完成對(duì)表的各種操作和修改，根據(jù)需求分析的要求，增加或修改了以下存儲(chǔ)過(guò)程：Spu_StkLoc_AutoClose：實(shí)現(xiàn)過(guò)保質(zhì)期封倉(cāng)操作Spq_Stk_CloseAlarm：d_stkloc_autoclose_alarm 的數(shù)據(jù)源Spu_stkloc_unclose：實(shí)現(xiàn)了對(duì)單個(gè)商品的解封操作16 / 41第四章 系統(tǒng)開(kāi)發(fā)實(shí)現(xiàn) PowerBuilder 窗口實(shí)現(xiàn) 過(guò)保質(zhì)期自動(dòng)封倉(cāng)窗口主要實(shí)現(xiàn)1．創(chuàng)建窗口主體 w_stkloc_autoclose_alarm在 PB 中創(chuàng)建 ObjectWindoww_stkloc_autoclose_alarm,按照設(shè)計(jì)，增各個(gè)控件：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)建編寫(xiě)存儲(chǔ)過(guò)程 Spq_Stk_CloseAlarm，根據(jù)存儲(chǔ)過(guò)程的設(shè)計(jì)確定傳遞參數(shù)：@m_DeptId int, /*配送中心部門標(biāo)識(shí) */@m_StorageId int, /*配送中心倉(cāng)庫(kù)標(biāo)識(shí)*/ @m_StkCellNo varchar(20), /* 配送中心倉(cāng)位編碼 */ @m_ValidDays datetime /* 預(yù)計(jì)封倉(cāng)日 */ 在實(shí)現(xiàn)查詢功能的事件 sy_query 中調(diào)用此數(shù)據(jù)窗口控件的 retrieve 函數(shù)，并確定定此四個(gè)參數(shù)后數(shù)據(jù)窗口即調(diào)用存儲(chǔ)過(guò)程進(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．封倉(cāng)功能的實(shí)現(xiàn)（sy_autofengcang）17 / 41封倉(cāng)功能是通過(guò)事件 sy_autofengcang 實(shí)現(xiàn)的，在此事件中調(diào)用存儲(chǔ)過(guò)程 Spu_Stkloc_AutoClose，傳遞兩個(gè)參數(shù)：@m_AlarmDay int, 過(guò)保預(yù)警天數(shù)@m_CloseDate datetime = null 當(dāng)前日期該存儲(chǔ)過(guò)程實(shí)現(xiàn)對(duì)有效期在封倉(cāng)日期之前的商品進(jìn)行封倉(cāng)操作。事件在調(diào)用存儲(chǔ)過(guò)程完畢之后，再次調(diào)用查詢函數(shù)，刷新數(shù)據(jù)窗口： ( 39。 sy_query 39。 )4．關(guān)閉窗口事件（closequery）當(dāng)用戶改變了商品的自動(dòng)封倉(cāng)狀態(tài)后如果沒(mé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)閉等功能。并能對(duì)數(shù)據(jù)窗口中的選中記錄進(jìn)行到首，向前，向后，到尾操作。 過(guò)保質(zhì)期自動(dòng)封倉(cāng)解封窗口主要實(shí)現(xiàn)1．創(chuàng)建窗口主體 w_stkloc_autoclose_unclose在 PB 中創(chuàng)建 ObjectWindow w_stkloc_autoclose_unclose,按照設(shè)計(jì)，增各個(gè)控件：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)建? 通過(guò) SQL Query 形式構(gòu)造數(shù)據(jù)窗口對(duì)象 d_stkloc_autoclose_unclose，從表:（商品基表） （倉(cāng)位類型表）18 / 41 （配送中心商品庫(kù)存明細(xì)表） （配送中心倉(cāng)庫(kù)表）中選取數(shù)據(jù)，返回給數(shù)據(jù)窗口控件，作為查詢調(diào)用的結(jié)果。? 檢索參數(shù)：li_deptid number 配送中心部門標(biāo)識(shí)li_steid number 配送中心倉(cāng)庫(kù)標(biāo)識(shí)ls_stkcellno string 配送中心倉(cāng)位編號(hào)ld_datestart Datetime 解封起始日期ld_dateend Datetime 解封終止日期? 確定檢索條件（即已被封倉(cāng)，且有效期在規(guī)定的時(shí)間段內(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。 )? 對(duì)用戶輸入的日期進(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ù)用戶輸入的檢索信息對(duì)數(shù)據(jù)庫(kù)進(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? 對(duì)于窗口菜單及工具欄按鈕是否可用的設(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)：主要由存儲(chǔ)過(guò)程 Spu_Stkloc_unclose 實(shí)現(xiàn)對(duì)單個(gè)商品的解封，由于需要20 / 41實(shí)現(xiàn)可以對(duì)單個(gè)或者多各選中商品的批處理解封，故需要在解封事件中循環(huán)調(diào)用此存儲(chǔ)過(guò)程。? 與存儲(chǔ)過(guò)程 Spu_Stkloc_unclose 的參數(shù)傳遞：DECLARE fengcang PROCEDURE FOR dbo . Spu_stkloc_unclose@m_DeptId = :li_deptid, /*配送中心部門標(biāo)識(shí)*/@m_StkLocId = :ll_stklocid, /*配送中心庫(kù)存標(biāo)識(shí) */@m_StkStatus = :li_stkstatus, /*配送