【文章內(nèi)容簡介】 ument.第四章 系統(tǒng)開發(fā)實現(xiàn) PowerBuilder窗口實現(xiàn) 過保質(zhì)期自動封倉窗口主要實現(xiàn) 1．創(chuàng)建窗口主體w_stkloc_autoclose_alarm在PB中創(chuàng)建ObjectWindoww_stkloc_autoclose_alarm,按照設計，增各個控件：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．數(shù)據(jù)窗口的構(gòu)建 編寫存儲過程Spq_Stk_CloseAlarm，根據(jù)存儲過程的設計確定傳遞參數(shù)： @m_DeptId int, /*配送中心部門標識*/@m_StorageId int, /*配送中心倉庫標識*/ @m_StkCellNo varchar(20), /* 配送中心倉位編碼 */ @m_ValidDays datetime /* 預計封倉日 */ 在實現(xiàn)查詢功能的事件sy_query中調(diào)用此數(shù)據(jù)窗口控件的retrieve函數(shù)，并確定定此四個參數(shù)后數(shù)據(jù)窗口即調(diào)用存儲過程進行查詢，并將結(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．封倉功能的實現(xiàn)（sy_autofengcang）封倉功能是通過事件sy_autofengcang實現(xiàn)的，在此事件中調(diào)用存儲過程Spu_Stkloc_AutoClose，傳遞兩個參數(shù)：@m_AlarmDay int, 過保預警天數(shù)@m_CloseDate datetime = null 當前日期該存儲過程實現(xiàn)對有效期在封倉日期之前的商品進行封倉操作。事件在調(diào)用存儲過程完畢之后，再次調(diào)用查詢函數(shù)，刷新數(shù)據(jù)窗口： ( 39。 sy_query 39。 ) 4．關(guān)閉窗口事件（closequery）當用戶改變了商品的自動封倉狀態(tài)后如果沒有保存就關(guān)閉窗口，則系統(tǒng)回提示用戶進行保存：if ( 0 , primary! ) 0 thenll_result = messagebox ( 39。提示39。 , 39。數(shù)據(jù)已經(jīng)修改 ，是否保存？39。 , Question! , yesnocancel! , 3 )5．其他功能此窗口中的其他功能按鈕均從系統(tǒng)中的父類繼承，分別實現(xiàn)了復位，保存，另存，預覽，打印，關(guān)閉等功能。并能對數(shù)據(jù)窗口中的選中記錄進行到首，向前，向后，到尾操作。 過保質(zhì)期自動封倉解封窗口主要實現(xiàn)1．創(chuàng)建窗口主體w_stkloc_autoclose_unclose在PB中創(chuàng)建ObjectWindow w_stkloc_autoclose_unclose,按照設計，增各個控件：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．數(shù)據(jù)窗口的構(gòu)建l 通過SQL Query形式構(gòu)造數(shù)據(jù)窗口對象d_stkloc_autoclose_unclose，從表:（商品基表） （倉位類型表） （配送中心商品庫存明細表） （配送中心倉庫表） 中選取數(shù)據(jù)，返回給數(shù)據(jù)窗口控件，作為查詢調(diào)用的結(jié)果。l 檢索參數(shù)： li_deptid number 配送中心部門標識 li_storgeid number 配送中心倉庫標識 ls_stkcellno string 配送中心倉位編號 ld_datestart Datetime 解封起始日期 ld_dateend Datetime 解封終止日期l 確定檢索條件（即已被封倉，且有效期在規(guī)定的時間段內(nèi)的商品）：Where ( amp。 8 0 ) ) AND /*按位操作取StkStatus為8的商品*/( . ValidDate = :ld_datestart and dbo . Tbd_StkLoc . ValidDate = :ld_dateend ) /*即有效期在解封其實日期與解封終止日期之間*/3．查詢事件（sy_query）的實現(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 對用戶輸入的日期進行判斷其正確性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ù)用戶輸入的檢索信息對數(shù)據(jù)庫進行檢索，主要由調(diào)用數(shù)據(jù)窗口控件，并傳給其參數(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 對于窗口菜單及工具欄按鈕是否可用的設置：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）的實現(xiàn)：主要由存儲過程Spu_Stkloc_unclose實現(xiàn)對單個商品的解封，由于需要實現(xiàn)可以對單個或者多各選中商品的批處理解封，故需要在解封事件中循環(huán)調(diào)用此存儲過程。l 與存儲過程Spu_Stkloc_unclose的參數(shù)傳遞：DECLARE fengcang PROCEDURE FOR dbo . Spu_stkloc_unclose@m_DeptId = :li_deptid, /*配送中心部門標識*/@m_StkLocId = :ll_stklocid, /*配送中心庫存標識*/ @m_StkStatus = :li_stkstatus, /*配送中心庫存狀態(tài)*/ @m_Note = :ls_note, /*配送中心庫存說明*/ @m_OptrId = :li_optrid , /*操作員編號*/ @m_error = :li_bak output。 /*出錯信息*/sqlca . automit = true execute fengcang 。l 循環(huán)調(diào)用存儲過程：for ll_row = 1 to ll_maxrow if dw_list . isselected ( ll_row ) then /*調(diào)用存儲過程具體實現(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。 所選中的記錄沒有完全解封成功! 39。 ) ib_firstquery = false this . triggerevent ( 39。 sy_query 39。 ) end if st_3 . visible = false lm_menu . of_disable