【正文】 期的商品進(jìn)行封倉和解封操作的商品較多，所以需要對(duì)此操作實(shí)現(xiàn)批處理，即可以一次性對(duì)多個(gè)商品進(jìn)行封倉和解封。由于不能參加配送，所以稱此類封倉為“配送封倉”。只能對(duì)單個(gè)商品進(jìn)行個(gè)別的封倉。點(diǎn)菜封倉：對(duì)倉庫內(nèi)存儲(chǔ)倉位上的貨物進(jìn)行封倉，使其不能參加點(diǎn)菜配送，一次只能操作一條記錄的商品。封倉查詢：可以查詢出被任何封倉類型所封的商品記錄（包括配送封倉，保留庫存封倉，調(diào)換封倉，反品封倉，退貨封倉等）。其用例圖如圖22所示：圖22：改進(jìn)后的封倉部分用例圖自動(dòng)封倉：對(duì)所有商品按照有效期進(jìn)行查詢，并對(duì)距離有效期在一定時(shí)間之內(nèi)（默認(rèn)值為14天，可根據(jù)實(shí)際情況進(jìn)行修改）的商品進(jìn)行批處理封倉。也可以對(duì)查詢出來的商品進(jìn)行選中單個(gè)或多個(gè)商品進(jìn)行解封。根據(jù)津菱公司的實(shí)際業(yè)務(wù)情況，取消點(diǎn)菜封倉一項(xiàng)，使手動(dòng)封倉只能對(duì)商品進(jìn)行配送封倉，而不能進(jìn)行點(diǎn)菜封倉。封倉查詢：在維持原有功能的基礎(chǔ)上，在封倉查詢功能中添加自動(dòng)封倉欄，并取消點(diǎn)菜封倉相關(guān)欄目。l 軟件環(huán)境：Windows2003 Server，Powbuilder7，Sybase ，ER 津菱系統(tǒng)總體設(shè)計(jì)津菱物流管理系統(tǒng)的是專門針對(duì)公司內(nèi)部資源進(jìn)行管理，業(yè)務(wù)邏輯比較復(fù)雜，并且局限在公司局域網(wǎng)內(nèi)部使用，所以此管理系統(tǒng)在總體結(jié)構(gòu)設(shè)計(jì)上采取C/S的模式即能比較好的滿足客戶需求，采用此架構(gòu)模式能充分發(fā)揮客戶端PC的處理能力，很多工作可以在客戶端處理后再提交給服務(wù)器，減輕了服務(wù)器的負(fù)擔(dān)，因而客戶端響應(yīng)速度快。其體系架構(gòu)如圖31所示： Redhat Linux 服務(wù)器數(shù)據(jù)庫Windows操作系統(tǒng)客戶端發(fā)出SQL到服務(wù)器返回查詢結(jié)果到客戶端TCP/IP圖31:津菱物流管理系統(tǒng)體系結(jié)構(gòu) 封倉部分主要技術(shù) PowerBuilder中的DataWindow技術(shù) 縱觀PowerBuilder技術(shù)，數(shù)據(jù)窗口（DataWindow）可是說是其核心的核心，它使得數(shù)據(jù)庫的開發(fā)和應(yīng)用變得更加簡(jiǎn)單，快捷。DataWindow是一種為正在被觀察的數(shù)據(jù)保留數(shù)據(jù)信息的特有對(duì)象，因此，它為生成一個(gè)帶有高質(zhì)量的數(shù)據(jù)庫事務(wù)應(yīng)用程序提供了強(qiáng)大的處理工具。數(shù)據(jù)窗口需要數(shù)據(jù)庫和其他非數(shù)據(jù)庫的數(shù)據(jù)資源來組裝自己，它按照定義時(shí)制定的表現(xiàn)風(fēng)格顯示。數(shù)據(jù)窗口不但自身顯示數(shù)據(jù)還可以作為生成所有報(bào)表的數(shù)據(jù)源。除了數(shù)據(jù)庫之外，數(shù)據(jù)窗口還可以通過ODBC，DDE（動(dòng)態(tài)數(shù)據(jù)交換），OLE（對(duì)象嵌入與連接）等方法訪問文件中的數(shù)據(jù)。它包括數(shù)據(jù)窗口對(duì)象和數(shù)據(jù)窗口控件兩個(gè)方面。在實(shí)際應(yīng)用中，數(shù)據(jù)窗口對(duì)象通過數(shù)據(jù)窗口控件被放置在窗口中。數(shù)據(jù)窗口控件擁有自己獨(dú)立的屬性，函數(shù)和事件，擁有讀取和修改數(shù)據(jù)窗口對(duì)象屬性的函數(shù)（Describe和Modify）。數(shù)據(jù)窗口對(duì)象創(chuàng)建以后，被定義為獨(dú)立對(duì)象，而不必將它們限定到某個(gè)特殊窗口，甚至不必將它們限定到某個(gè)應(yīng)用程序中。2．?dāng)?shù)據(jù)窗口控件數(shù)據(jù)窗口對(duì)象是通過一個(gè)數(shù)據(jù)窗口控件來引用的，通過數(shù)據(jù)窗口控件將數(shù)據(jù)窗口對(duì)象放置到窗口中，并通過數(shù)據(jù)窗口控件實(shí)現(xiàn)對(duì)數(shù)據(jù)窗口對(duì)象的操縱。1) 將數(shù)據(jù)窗口控件放置到窗口上，設(shè)定其位置和大小。3) 編寫腳本代碼，處理數(shù)據(jù)窗口控件和操縱數(shù)據(jù)窗口對(duì)象。當(dāng)創(chuàng)建存儲(chǔ)過程時(shí)，系統(tǒng)會(huì)對(duì)其進(jìn)行編譯，并將執(zhí)行代碼存儲(chǔ)到數(shù)據(jù)庫中。例如，你可以將執(zhí)行過程（更新表）的權(quán)限授予其它用戶，但不授予它們直接訪問該表的權(quán)限。當(dāng)調(diào)用存儲(chǔ)過程時(shí)，數(shù)據(jù)庫會(huì)直接運(yùn)行該存儲(chǔ)過程，無需進(jìn)行編譯。3) 內(nèi)存分配在將存儲(chǔ)過程裝載到內(nèi)存中后，多個(gè)用戶可以同時(shí)調(diào)用該存儲(chǔ)過程，從而降低了應(yīng)用對(duì)Sybase的實(shí)際內(nèi)存需求。如系統(tǒng)中的大部分窗口以及按鈕都是從同一個(gè)基類繼承下來，大大減少了重復(fù)的工作量，增強(qiáng)了軟件的復(fù)用性，加快了開發(fā)進(jìn)程。預(yù)警日期顯示的為系統(tǒng)當(dāng)前日期與預(yù)警天數(shù)相加的日期。窗口對(duì)象：w_stkloc_autoclose_alarm數(shù)據(jù)窗口控件：dw_1數(shù)據(jù)窗口對(duì)象：d_stkloc_autoclose_alarm數(shù)據(jù)源存儲(chǔ)過程：Spq_Stk_CloseAlarm涉及表：Tbb_StkLoc表31：封倉窗口總體設(shè)計(jì)PB中的對(duì)象含義類型w_stkloc_autoclose_alarm主窗口sy_w_sheetsle_2預(yù)警天數(shù)錄入框singlelineeditst_4預(yù)警天數(shù)statictextcbx_1打印復(fù)選框sy_u_cbxdw_2倉庫編號(hào)數(shù)據(jù)窗口sy_u_dwdw_1數(shù)據(jù)輸出窗口sy_u_dwem_1預(yù)警日期顯示框sy_u_emst_3進(jìn)度條statictextsle_1倉位編號(hào)輸入框sy_u_slest_2倉位編號(hào)statictextst_1倉庫編號(hào)statictext此窗口可以設(shè)置解封起始日期和解封終止日期（默認(rèn)值解封起始日期為系統(tǒng)當(dāng)前日期，解封終止日期為系統(tǒng)當(dāng)前日期14天以后的日期），并在選定倉庫信息和倉位編號(hào)（可以不填）后，點(diǎn)擊查詢，可以在數(shù)據(jù)窗口中得到當(dāng)前倉庫和倉位中有效期在解封起始日期和解封終止日期之間的被自動(dòng)封倉商品。窗口對(duì)象：w_stkloc_autoclose_unclose數(shù)據(jù)窗口控件：dw_list數(shù)據(jù)窗口對(duì)象：d_stkloc_autoclose_unclose涉及存儲(chǔ)過程：Spu_stkloc_unclose涉及表：Tbb_StkLoc表32：解封窗口總體設(shè)計(jì)PB中的對(duì)象：含義類型w_stkloc_autoclose_unclose主窗口sy_w_sheetdw_storage 倉庫信息下拉框dw_u_storage_queryst_1“倉位編號(hào)”statictextsle_stkcell倉位編號(hào)輸入框sy_u_sledw_list數(shù)據(jù)輸出窗口sy_u_dwst_2進(jìn)度條外框statictextst_3進(jìn)度條statictextem_1起始日期輸入窗口editmaskem_2終止日期輸入窗口editmaskst_4解封起始日期statictextst_5解封終止日期statictext 其他窗口的修改 1．在“配送中心手工封倉”窗口w_stkloc_close中去掉“點(diǎn)菜封倉”選項(xiàng)：主要對(duì)其數(shù)據(jù)窗口控件d_stkloc_list進(jìn)行修改，使其中的“點(diǎn)菜封倉”選項(xiàng)為不可見，但是保留代碼，以留作以后的接口之用。 數(shù)據(jù)庫相關(guān)設(shè)計(jì) 數(shù)據(jù)庫表 封倉部分功能的實(shí)現(xiàn)主要是編寫存儲(chǔ)過程對(duì)數(shù)據(jù)庫中配送中心商品庫存表（Tbd_StkLoc）的進(jìn)行修改操作。 存儲(chǔ)過程主要完成對(duì)表的各種操作和修改，根據(jù)需求分析的要求，增加或修改了以下存儲(chǔ)過程：Spu_StkLoc_AutoClose：實(shí)現(xiàn)過保質(zhì)期封倉操作Spq_Stk_CloseAlarm：d_stkloc_autoclose_alarm的數(shù)據(jù)源Spu_stkloc_unclose：實(shí)現(xiàn)了對(duì)單個(gè)商品的解封操作Error! No text of specified style in document.第四章 系統(tǒng)開發(fā)實(shí)現(xiàn) PowerBuilder窗口實(shí)現(xiàn) 過保質(zhì)期自動(dò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) 。參數(shù)值均從主窗口中的輸入控件取得，主要代碼如下： li_storageid = [ ( ) ] s_stkcellno = ls_stkcellno = ld_em1 = date()ld_date = datetime(ld_em1)li_bak = ( il_storeid , li_storageid , 39。 + trim ( ls_stkcellno ) + 39。 , ld_date ) 3．封倉功能的實(shí)現(xiàn)（sy_autofengcang）封倉功能是通過事件sy_autofengcang實(shí)現(xiàn)的，在此事件中調(diào)用存儲(chǔ)過程Spu_Stkloc_AutoClose，傳遞兩個(gè)參數(shù)：m_AlarmDay int, 過保預(yù)警天數(shù)m_CloseDate datetime = null 當(dāng)前日期該存儲(chǔ)過程實(shí)現(xiàn)對(duì)有效期在封倉日期之前的商品進(jìn)行封倉操作。 sy_query 39。提示39。數(shù)據(jù)已經(jīng)修改 ，是否保存？39。并能對(duì)數(shù)據(jù)窗口中的選中記錄進(jìn)行到首，向前，向后，到尾操作。2．?dāng)?shù)據(jù)窗口的構(gòu)建l 通過SQL Query形式構(gòu)造數(shù)據(jù)窗口對(duì)象d_stkloc_autoclose_unclose，從表:（商品基表） （倉位類型表） （配送中心商品庫存明細(xì)表） （配送中心倉庫表） 中選取數(shù)據(jù)，返回給數(shù)據(jù)窗口控件，作為查詢調(diào)用的結(jié)果。 8 0 ) ) AND /*按位操作取StkStatus為8的商品*/( . ValidDate = :ld_datestart and dbo . Tbd_StkLoc . ValidDate = :ld_dateend ) /*即有效期在解封其實(shí)日期與解封終止日期之間*/3．查詢事件（sy_query）的實(shí)現(xiàn)：l 取得用戶輸入的“解封起始日期”和“解封終止日期”，并轉(zhuǎn)化稱字符串： ld_em1 = date ( em_1 . text )ld_datestart = datetime ( ld_em1 )ls_datestart = string ( ld_datestart , 39。 )ld_em2 = date ( em_2 . text )ld_dateend = datetime ( ld_em2 )ls_dateend = string ( ld_dateend , 39。 )l 對(duì)用戶輸入的日期進(jìn)行判斷其正確性if ls_datestart = 39。 then /*起始日期不得早于1900年1月1日*/ messagebox ( 39。 , 39。 ) em_1 . setfocus ( ) return 1end ifif ls_dateend ls_datestart then /*終止日期不得早于起始日期*/ messagebox ( 39。 , 39。 ) em_2 . setfocus ( ) return 1end ifif ls_dateend 39