【文章內(nèi)容簡(jiǎn)介】 ument.第四章 系統(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, /*配送中心部門(mén)標(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）封倉(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)建l 通過(guò)SQL Query形式構(gòu)造數(shù)據(jù)窗口對(duì)象d_stkloc_autoclose_unclose，從表:（商品基表） （倉(cāng)位類型表） （配送中心商品庫(kù)存明細(xì)表） （配送中心倉(cāng)庫(kù)表） 中選取數(shù)據(jù)，返回給數(shù)據(jù)窗口控件，作為查詢調(diào)用的結(jié)果。l 檢索參數(shù)： li_deptid number 配送中心部門(mén)標(biāo)識(shí) li_storgeid number 配送中心倉(cāng)庫(kù)標(biāo)識(shí) ls_stkcellno string 配送中心倉(cāng)位編號(hào) ld_datestart Datetime 解封起始日期 ld_dateend Datetime 解封終止日期l 確定檢索條件（即已被封倉(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)：l 取得用戶輸入的“解封起始日期”和“解封終止日期”，并轉(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。 )l 對(duì)用戶輸入的日期進(jìn)行判斷其正確性if ls_datestart = 39。1900/01/0139。 then /*起始日期不得早于1900年1月1日*/ messagebox ( 39。 提示信息 39。 , 39。 起始日期不合法 39。 ) em_1 . setfocus ( ) return 1end 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 ifl 根據(jù)用戶輸入的檢索信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，主要由調(diào)用數(shù)據(jù)窗口控件，并傳給其參數(shù)實(shí)現(xiàn)：if isnull ( ls_stkcellno ) or ls_stkcellno = 39。 39。 then ls_stkcellno = 39。 39。 li_bak = ( ll_deptid , ll_storageid , ls_stkcellno , ld_datestart , ld_dateend )else li_bak = ( ll_deptid , ll_storageid , 39。 % 39。 + ls_stkcellno + 39。 % 39。 , ld_datestart , ld_dateend )end ifl 對(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è)商品的解封，由于需要實(shí)現(xiàn)可以對(duì)單個(gè)或者多各選中商品的批處理解封，故需要在解封事件中循環(huán)調(diào)用此存儲(chǔ)過(guò)程。l 與存儲(chǔ)過(guò)程Spu_Stkloc_unclose的參數(shù)傳遞：DECLARE fengcang PROCEDURE FOR dbo . Spu_stkloc_unclose@m_DeptId = :li_deptid, /*配送中心部門(mén)標(biāo)識(shí)*/@m_StkLocId = :ll_stklocid, /*配送中心庫(kù)存標(biāo)識(shí)*/ @m_StkStatus = :li_stkstatus, /*配送中心庫(kù)存狀態(tài)*/ @m_Note = :ls_note, /*配送中心庫(kù)存說(shuō)明*/ @m_OptrId = :li_optrid , /*操作員編號(hào)*/ @m_error = :li_bak output。 /*出錯(cuò)信息*/sqlca . automit = true execute fengcang 。l 循環(huán)調(diào)用存儲(chǔ)過(guò)程：for ll_row = 1 to ll_maxrow if dw_list . isselected ( ll_row ) then /*調(diào)用存儲(chǔ)過(guò)程具體實(shí)現(xiàn)代碼*/ end if nextl 解封結(jié)果處理：if ll_rowpoint = ii_rowall then /*解封成功*/ messagebox ( 39。 提示信息 39。 , 39。 解封成功! 39。 ) st_3 . visible = false lm_menu . of_disable ( lm_menu . m_edit . m_item_1 ) ib_firstquery = false this . triggerevent ( 39。 sy_query 39。 ) return 1else if ll_rowpoint = 1 then /*解封失敗*/ messagebox ( 39。 提示信息 39。 , 39。 解封失敗! 39。 ) elseif ll_rowpoint 1 then messagebox ( 39。 提示信息 39。 , 39。 所選中的記錄沒(méi)有完全解封成功! 39。 ) ib_firstquery = false this . triggerevent ( 39。 sy_query 39。 ) end if st_3 . visible = false lm_menu . of_disable