精华区文章阅读

发信人: wodeji (西西), 信区: Database
标  题: [转载] PowerBuilder 开发系列谈 (7)
发信站: 紫丁香 (Tue Sep 29 17:50:53 1998), 站内信件

【以下文字转载自 Programming 讨论区】
【原文由 two 所发表】

----DataWindow 控件的一些事件有一个动作码操纵这个事件之后的缺省
动作。在Pow-erBui lder 4.0 中我们可以使用SetAction-Code 函数, 来设置这个动
作码的值以控制在这些事件发生后的处理过程。( 在PowerBuilder 5.0 中, 由
于事件可以有返回数值, 所以采用返回一个整型数值来取代SetActionCode
函数, 比如使用return 1 取代SetActionCode(1), 但基本的使用规则两者是相同
的。)DataWindow 控件中下列事件使用动作码:

----CLICKED

----DBERROR

----ITEMCHANGED

----ITEMERROR

----PRINTPAGE

----RETRIEVEROW

----RETRIEVESTART

----UPDATESTART

---- 有效的动作码值和应当的处理过程随事件的不同而不同。

                                Clicked Event

---- 无论何时, 当用户在DataWindow 控件上点击时,CLICKED 事件被触发。如
果点击在一个有效的行上, 那么DataWindow 将自动把此行作为当前行。如
果你不想换行, 就可以使用SetActi onCode 来停止。

----0 进行换行和CLICKED 事件。( 缺省)

----1 停止处理CLICKED 事件。

---- 例如: 下面一段代码只允许用户点击在自己的用户号上。

----//Clicked Event

----//We'll assume there is an instance variable with the current user's

----//User ID:string is_user_id

----long ll_row

----string ls_user_id

----ll_row =GetClickedRow()

----//No need to continue if the user didn't click on a valid row

----if ll_row ＜1 then

----return

----end if

----ls_user_id=GetItemString(11_row,"user_id")

----//If the user_id is not the current user then disallow row change

----if ls-user-id ＜＞is-user-id then

----beep(1)

----SetActionCode(1)

----return

----end if

                              ItemChanged Event

----DataWindow ITEMCHANGED 事件可以有几种不同的操作: 接受前一字段
的新值, 因有错误而拒绝接受新值, 拒绝新值但是继续其它的处理过程。
这些值如下:

----0 接受新的数据值。( 缺省)

----1 拒绝新的数据值。( 启动ItemEr-ror 事件)

----2 拒绝新的数据值但是焦点改变。

---- 在ITEMCHANGED 事件中使用SetAction-Code 函数可以进行多字段的交叉
确认。例如, 银行系统中为确认Account Status 是否可以转为Inactive, 就需检
验Balance 字段是否为零:

----//ItemChanged Event

----Decimal (2) ld_balance //Customer Account Balance

----Long ll_currow // Current Row Number

----String ls_column_name //The name of the column that changed

----String ls_status //Customer Account Status

----ll_currow=this.GetRow()

----ls_column_name=this.GetColumnName()

----CHOOSE CASE ls_column_name

----...

----...

----CASE "STATUS"

----ls_status=this.GetText()

----//If STATUS is Inactive

----IF ls_status= "I" THEN

---- ld_balance=this.GetItemDecimal (ll_currow,"BALANCE")

----IF ld_balance ＜＞0 THEN

----//SET AN ERROR

----this.SetActionCode(1)

----RETURN

----ELSE

----//ACCERT THE VALUE

----this.SetActionCode(0) /* not required since 0 is default */

----RETURN

----END IF

----END IF

----END CHOOSE

---- 在程序中,SetActionCode 函数不一定要在最后一行, 但是由于其
他DataWindow 函数可能会重置动作码。为了避免这个问题, 一般
在SetActionCode 后面立即执行Re-turn 结束这个程序段。

---- 在ITEMCHANGED 事件中使用SetAc-tionCode 函数用途是可以给该字段一
个新值, 而不是用户输入的那样。例如: 用户将日期输入为星期日, 但是
我们希望将其改为在此之后的第一个非休息日。实现这一功能并不像
想象的那样简单:

----//ItemChanged Event

----date ldt_process //process date

----long ll_currow // Current Row Number

----string ls_column_name // The name of the column that changed

----ll_currow=this.GetRow()

----ls_column_name=this.GetColumnName()

----CHOOSE CASE ls_column_name

----...

----...

----CASE "process_date"

----ldt_process=f_get_next_bus_date(date(this.GetText()))

---- 错误 this.SetText(ldt_process)

----this.AcceptText()

----...

---- 执行上述代码, 系统将进入死循环。因为用AcceptText 函数改变日期的
同时, 也触发ITE MCHANGED 事件, 只是当前列仍在process-data 列上, 这样就
导致堆栈溢出。因此在ITEMCHANG ED 事件中不能使用Ac-ceptText 函数, 应
使用我们这里介绍的Se-tActionCode 这一函数来完成这一功能:

----CASE "process_date"

---- ldt_process=f_get_next_bus_date(date(this.GetText()))

---- 正确 this.SetItemText(ll_currow,"process_date",ldt_process)//set value i n buffer

---- this.SetActionCode(2) // reject edit control value

----RETURN

---- 在Primary!Buffer 中将process_date 的值置为ldt_process,SetActionCode(2) 摒弃用户
在edit 控件中输入的值( 星期日), 并允许改变焦点( 没有错误发生)。

                               ItemError Event

---- 在任何时候, 当一个DateWindow 列没有通过有效性检验或者这个值
在ITEM-CHANGED 事件中被拒绝时,ITEMER-ROR 事件启动。如
同ITEMCHANGED 事件一样, 它的动作码也可以设置为接受或拒绝这个字
段的新输入值。它还可以在拒绝新值时, 决定是否取消错误信息框的显
示。 ITEMERROR 事件的动作码可以是:

----0 拒绝新的数据值并且显示错误信息;( 缺省)

----1 拒绝新的数据值而不显示错误信息;

----2 接受新的数据值;

----3 拒绝新的数据值但是允许改变焦点。

---- 如果我们想要在一特定区域显示一个用户自定义的错误信息来代
替Power-Builder 本身错误信息框, 我们可以使用SetActionCode 来取消标准的
信息框。例如, 在前面例子中, 当收支差额不是0 是0 时, 我们就可以用这一
方法显示一个错误信息:

----//ItemError Event

----Long 11_Currow /* Current Row Number */

----String ls_column_name /* The name of the column that changed */

----ll_currow=this.GetRow()

----ls_column_name=this.GetColumnName

----CHOOSE CASE s_column_name

----CASE "status"

----MessageBox("Error","Account cannot be changed to Inactive"+ "Balance is no t zero.")

----this.SetActionCode(1)

----RETURN

----...

----END CHOOSE

---- 在ITEMERROR 事件中使用SetAc-tionCode, 我们就可以有选择地忽
略DataWindow 对象的一个列中输入的有效性规则。例如, 在收支差额中,
我们有下面这个有效性规则:

----Real(GetText()) ＜=10000

---- 客户收支差额不应超过10,000 元, 如果我们允许使用公司帐户的客户
可以超过10,000, 我们可以使用如下方式:

----//ItemError Event

----CHOOSE CASE ls_column_name

----CASE "balance"

----// Allow balance over ＄10,000 on Corportate accounts

----IF ld_balance not ＜=10000 AND ls_type="C"

----this.SetActionCode(2)

----RETURN

----END IF

----...

---- 我们也可以像前面ITEMCHANGED 事件那样在Prinary!Buffer 中拒绝新输
入的值并填入新值, 只是在这里将动作码置为3。

                                DBError Event

---- 在执行了dw.Retrieve,dw.Update() 函数或嵌入式SQL 语句并发生了一个数
据库错误(SQ LCode 等于-1) 时, 触发DBError 事件。许多Power-Builder 的开发商
都在为这种情况设计了标准的数据库错误信息显示。为了使PowerBuilder
不显示缺省的数据库错误信息, 我们可以使用SetActioncode。DBError 事件的
动作码值如下:

----0 显示错误信息。( 缺省)

----1 不显示错误信息。

---- 例如:

----//DBError event

----MessageBox(" 数据库错误"," 错误值"+string(this.DBErrorCode)+&

----" 错误信息为:"+this.DBErrorMessage(),StopSign!)

----//Supress PB generated DB Error Message.

----this.Set ActionCode(1)

----return

                                  PrintPage

----PRINTPAGE 事件是在执行dw.Print() 函数之后, 数据传送给打印机之前触
发。当打印一个 DataWindow 时, 你可在打印之前设置动作码来跳过一
页。PRINT-PAGE 事件的动作码如下:

----0 不跳过一页;( 缺省)

----1 跳过一页。

---- 如您打算打印时跳过一页, 你可以在中PRINTPAGE 编码如下:

----//Printpage event

----this.SetActionCode(1)

                                RetrieveRow

---- 从数据库服务器中每次接受了一行记录均启动REIRIEVEROW 事件。
在这个事件中, 你可以设置一动作码来停止检索。下面是RE-TRIEVEROW
事件的有效动作码:

----0 继续。( 缺省)

----1 停止检索。

---- 如果一个DataWindow 将命中很多行, 并且你希望在检索到一定量后停
止。你可以在RETR IEVEROW 事件中使用SetActionCode:

----//RetrieveRow event

----//Instance variable Long il_count

----...

----IF il_count++ ＞ 100 THEN

----// Maximum rows retrieved,stip retrieval

----this.SetActionCode(1)

----RETURN

----END IF

---- 当用来给被检索行计数的临时变量il_count 的值超过100 时, 检索将停
止。

---- 注意: 在RETRIEVEROW 事件中存在代码, 那么检索每一行都会触发事
件, 这将降低检索的速度。

----RetrieveStart

----RETRIEVESTART 事件在dw.Retrieve() 函数之后, 产生SQL 传送给服务器之
前触发。

---- 在一些特定场合可能需要在开始一个检索之前停止它。在RetrieveStart
事件中的动作码:

----0 继续。( 缺省)

----1 不检索。

---- 例如: 我们让一个用户输入检索标准的窗口, 在RETRIEVESTART 中判断
返回行数是否太多 , 以决定停止检索并且让用户缩小检索范围。

----//Retrieve Start event

----Int li_count /*Expected Retrieve Count */

----...

----//Get count of Rows to be retrieved

----...

----IF li_count ＞1000 THEN

----MessageBox("Stop","Please narrow your search",stop!)

----This.SetActionCode(1)

----RETURN

----END IF

----...

                                 UpdateStart

---- 这一在执行Update() 函数之后, 产生的修改SQL 语句传送给服务器之前
触发。

---- 通过设置这一动作码, 你可以阻止修改传送给服务器。UPDATESTART
事件的动作码如下:

----0 继续。( 缺省)

----1 不修改。

---- 如果你要阻止执行修改语句, 在UP-DATESTART 事件中使用下列代码:

----//UpdateStart event

----...

----this.SetActionCode(1)

----RETURN

----...

                                  综　述

---- 在很多情况下, 设置动作码是非常有用的。这里的例子, 让你对其中
几种情况有一个了解。当你对使用PowerScript 编码有了更多的经验后, 你
会发现SetActionCode 是非常有用的。



--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.97.236.132]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: whs.hit.edu.cn]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: cadcam.hit.edu.c]

Database 版 (精华区)