搜索
第12章用户对象在面向对象程序设计中，有两个重要的概念：对象和类。在PowerBuilder中，系统提供了很多标准的对象和类，它们有各自的功能、表现特征、属性、事件和函数。12.1用户对象的概念用户对象只需定义一次，就能够反复多次使用，并且每修改一次，就能把修改结果反映到所有使用该用户对象的地方。在PowerBuilder中用户对象分为两类：可视用户对象（VisualUserObject）和类（非可视）用户对象（ClassUserObject）。1、可视用户对象可视用户对象是一个可视的控件或一组完成一定功能的控件。可视用户对象共分为以下三类：（1）标准可视用户对象（StandardVisual）标准可视用户对象是对PowerBuilder现有控件的扩充，它在现有控件的基本功能的基础上增加应用程序需要的功能。标准可视用户对象继承了原始控件的各种特征，包括属性、事件和函数。结束放映第一页上一页下一页最后一页12.1用户对象的概念（2）定制可视用户对象（CustomVisual）定制可视用户对象是若干标准控件或已经存在的可视用户对象的组合，它把不同的部件集成在一起，每一部分都具有其原有的属性、事件，都可在用户对象画板中编写脚本。而在使用时又作为一个整体，一旦将该对象放在窗口上之后，就不能再为其中某一组成部件的事件进行编码了。（3）外部可视用户对象（ExternalVisual）外部可视用户对象实际上就是在PowerBuilder应用程序中使用其他语言（比如C或C++）编写的控件，这些可视控件存放在DLL文件中。通常是为了完成PowerBuilder本身难以完成或不支持的功能。2、类用户对象类用户对象是对不可视组件的逻辑和功能的封装。PowerBuilder中有两种类型的类用户对象：标准类用户对象和定制类用户对象。类用户对象最主要的优点就是真正的不可视。所以它不消耗GUI资源，仅仅消耗对象和它的工作结构以及为动态创建它所需的内存。（1）标准类用户对象（StandardClass）标准类用户对象是对PowerBuilder的标准对象的继承，并且允许用户用自己的代码扩充缺省的行为以便使它们适应用户的需要。结束放映第一页上一页下一页最后一页12.1用户对象的概念（2）定制类用户对象（CustomClass）定制类用户对象并不继承PowerBuilder中的任何基本对象，只通过用户自己定义的实例变量、函数以及事件来完成特定的功能。定制类用户对象只有两个系统预定义事件：Constructor和Destructor。12.2用户对象的创建在PowerBuilder中，单击PowerBar工具条栏中的New图标，在弹出的对话框中选择PowerBuilderObject标签页，选中你要创建的用户对象的类型，单击OK按钮即可创建。12.2.1创建标准可视用户对象单击PowerBar工具条栏中的New图标，在弹出的对话框中选择PowerBuilderObject标签页中的StandardVisual项，单击OK按钮。弹出SelectStandardVisualType对话框，选择一种标准可视类型对象，单击OK按钮即可创建。下面以实例来说明标准可视用户对象的创建过程。现在要创建的标准可视用户对象是一个用来关闭窗口的按钮对象u_cb_close，步骤如下：结束放映第一页上一页下一页最后一页12.2.1创建标准可视用户对象（1）在SelectStandardVisualType对话框中选择commandbutton，单击Ok按钮，弹出UserObject画板，此画板同窗口的编辑画板类似，只是有一部分工具不可用。（2）按钮的Text属性初始设置为none，在按钮上单击鼠标右键然后选择Properties…菜单项，打开属性对话框，将按钮的Text属性改为“退出”。（3）在按钮上单击鼠标右键然后选Script菜单项，打开脚本画板。在脚本画板中单击选择事件的下拉列表框的箭头，显示出命令按钮的预定义事件。为Clicked事件输入如下脚本：//u_cb_close的click事件IntegerIsCancelIsCancel=MessageBox(“提示!”,“是否要退出?”,Question!,okcancel!)IfIsCancel=0ThenClose(Parent)EndIf（4）单击PainterBar上的Return按钮返回。再单击Save按钮将新建的用户对象存盘，用户对象名存为u_cb_close。这样一个简单的用户对象就创建完成了。结束放映第一页上一页下一页最后一页12.2.2创建定制可视用户对象编程时经常会遇到数据的录入和修改，操作都十分类似。我们可以创建一个用户对象u_dataedit，它包括一个数据窗口控件、包括插入、删除和提交按钮各一个。我们只要给它指定一个数据窗口对象，就可以进行插入、删除和更新操作。具体操作步骤如下：（1）单击PowerBar工具条栏中的New图标，在弹出的对话框中选择PowerBuilderObject标签页，选中CustomVisual项，单击OK按钮，打开UserObject画板。（2）在定制可视用户对象中放置控件的方法与在窗口中放置控件一样。单击窗口控件下拉按钮，在弹出的工具条中选择所需的控件和用户对象。在用户对象u_dataedit中放置三个按钮、一个数据窗口控件。（3）将三个按钮的Text属性分别改为“插入”、“删除”和“提交”，将Name属性分别改为cb_insert、cb_delete和cb_save。分别为它们的Clicked事件编写如下脚本：结束放映第一页上一页下一页最后一页12.2.2创建定制可视用户对象//cb_insert的Clicked事件的脚本//在当前行之前插入一条新的记录intli_row,li_cur_rowli_cur_row=dw_l.GetRow()li_row=dw_l.InsertRow(li_cur_row)dw_l.ScrollToRow(li_row)dw_l.SetFocus()//cb_delete的Clicked事件脚本Longll_cur_rowll_cur_row=dw_l.GetRow()dw_l.DeleteRow(ll_cur_row)dw_l.setfocus()结束放映第一页上一页下一页最后一页12.2.2创建定制可视用户对象//cb_save的Clicked事件脚本Stringls_errtextIfdw_l.Update()=lThenCommit;ElseLs_errtext=SQLCA.SQLErrtextRollBack;MessageBox(”存盘失败!”,ls_errtext)EndIf(4)为数据窗口dw_l的Rowfocuschanged事件输入如下脚本：//dw_l的rowfocuschanged事件//将当前行设置为选中行this.SelectRow(0,False)this.SelectRow(currentrow,true)结束放映第一页上一页下一页最后一页12.2.2创建定制可视用户对象为了更好地实现用户对象的功能，我们不但可以使用对象原有的事件，还可以自己定制一些事件。下面我们为u_dataedit添加一个定制事件ue_init。在Script编程窗口中，选u_dataedit对象和[NewEvent]事件，将弹出定制事件的对话框。在EventName下添加事件名称ue_init，设置ArgumentName为datawinname,ArgumentType为String,PassBy为Value,ReturnType为Integer，EventID为none。为新建的定制事件编写脚本。//u_dataedit的ue_init事件脚本intli_numberdw_l.DataObject=datawinnamedw_l.SetTransObject(sqlca)li_number=dw_l.Retrieve()Returnli_number在使用时只能通过Post或Trigger语句来触发此事件，使用格式为：userobjectname.[post|trigger]eventue_init(datawindowname)结束放映第一页上一页下一页最后一页12.2.3创建外部可视用户对象单击PowerBar工具条栏中的New图标，在弹出的对话框中选择PowerBuilderObject标签页中的ExternalVisual项，这将打开UserObject设计界面。其他步骤与标准可视用户对象相同。12.2.4创建标准类用户对象创建一个标准类用户对象，应在单击PowerBar工具条栏中的New图标，在弹出的对话框中选择PowerBuilderObject标签页中的StandardClass项，这将打开SelectStandardClassType对话框，如图12.6所示,用户可以选择想要扩充的类用户对象。下面我们定义一个Transaction类型的用户对象，用于管理数据库连接。通过以下方法可以定义若干个函数用于不同的数据库事务。（1）在SelectStandardClassType对话框中选择Transaction，并单击OK按钮进入UserObject画板。（2）在函数列表框中选择[Functions]，新建一个函数f_connect_anywhere用于AdaptiveServerAnywhere数据库建立连接，程序清单如下：结束放映第一页上一页下一页最后一页12.2.4创建标准类用户对象//uf_connect_anywhere函数脚本this.DBMS=”ODBC”this.DbParm=”Connectstring=”+ar_dbfileConnectUsingthis；Ifthis.SQLCODE=-1ThenMessageBox(”连接”,”不能连接到AdaptiveServerAnywhere数据库！”)EndIfReturnthis.SQLCODE这样，一个简单的标准类用户对象就定义完成了。12.2.5创建定制类用户对象创建一个定制类用户对象，应单击PowerBar工具条栏中的New图标，在弹出的对话框中选择PowerBuilderObject标签页中的CustomClass项，定制类画板与定制窗口画板或定制可视用户对象画板相似。Constructor：发生在窗口的Open事件之前或用户对象被动态地放置在窗口上时。Destructor：发生在窗口的Close事件之后或用户对象被动态地从窗口上取消时。结束放映第一页上一页下一页最后一页12.3使用用户对象创建了用户对象后，在应用程序中就可以随时使用它们了。可视用户对象在使用前需要放置到窗口或其他定制可视用户对象上，类用户对象则需要在代码中通过编写程序来使用。12.3.1使用可视用户对象通过把可视用户对象放置到窗口或其他定制可视用户对象上来使用这些对象。（1）打开要放置可视用户对象的窗口。（2）从窗口画板的控件下拉列表中选择用户对象图标，系统打开SelectObject对话框。（3）选择要使用的用户对象，单击OK，关闭对话框。（4）在窗口上要放置用户对象的地方单击，所选用户对象即出现在窗口上。在窗口或定制可视用户对象上放置了可视用户对象后，可以像使用标准控件那样为它命名、调整大小、调整位置、编写事件处理程序等。需要注意的是，在窗口画板中不能直接修改所使用的用户对象。当需要修改时，应关闭窗口画板，然后使用用户对象画板进行修改。在代码中可以使用PowerScript函数OpenUserObject()或OpenUserObjectWithParm()动态地往窗口上添加用户对象，也可以使用CloseUserObject()函数将其删除。结束放映第一页上一页下一页最后一页12.3.2使用类用户对象类用户对象没有可视成分，它们不能像可视用户对象那样放置到窗口上。使用类用户对象时，需要在代码中创建它的一个实例，步骤为：（1）说明类用户对象类型的变量，用CREATE语