循序渐进学习Power Builder 6.0(2-6)

2.6 建立应用程序

到目前为止，本程序中用到的对象都定义好了，但程序还不能运行，因为我们还没有为程序编写代码，这种代码在PowerBuilder中被称为脚本，PowerBuilder是一种基于面向对象的事件驱动机制开发工具，所以脚本也是针对对象的事件来编写，接下来就为应用程序编写脚本。

PowerBuilder应用程序的特点是从应用对象开始执行程序，所以我们首先要做的是为应用对象的打开事件编写代码，单击POWERBAR工具条上的APPLICATION画板按钮打开应用对象，然后单击PAINTERBAR工具条上的SCRIPT画板按钮，系统弹出SCRIPT对话框用来为应用对象编写脚本，从SELECT EVENT下拉列表框中选择OPEN事件，然后在工作区中输入如下脚本（图2-35）：

SQLCA.DBMS=PROFILESTRING("PB.INI","DATABASE","DBMS","")

SQLCA.DBPRAM=PROFILESTRING("PB.INI","DATABSE","DBPRAM","")

OPEN（TELEPHONE-WINDOW1）

图2-35

解释这段脚本前要先介绍事务对象的概念，这里的SQLCA就是一个系统自动提供的缺省事物对象变量，SQLCA是一个全局变量，可以用在所有的窗口对象中。事物对象的作用是为联结数据库提供有关的信息，以便可以从数据库中获取需要的数据。这段脚本所做的工作是在应用对象启动后首先从POWERBUIDER中存放与数据库有关信息的文件PB.INI中取得需要的值放入事物对象变量中，然后打开TELEPHONE-WINDOW1窗口，以便用户从登录窗口输入正确的密码后可以进入到个人通讯录管理系统。这里就为应用对象编写这三行代码。

单击POWERBAR工具条上的WINDOW画板按钮，选择打开TELEPHONE-WINDOW1，我们开始为它编写脚本，右键单击窗口上的OK按钮，首先在菜单中选择PROPERTIES菜单项来修改OK控件的一个属性，在弹出的对话框中有一个DEFAULT复选框，我们选中它（图2-36），这样在以后程序运行的时候按回车键的效果和单击OK控件就一样了，单击OK关闭对话框，然后再次右键单击窗口上的OK按钮，在菜单中选择SCRIPT菜单项开始为这个命令按钮的单击事件编写脚本，观察窗口的标题确定目前选择的是命令按钮的CLICK事件后在工作区中输入以下的脚本：

if upper(trim(sle_1.text))="mypassword" then

open (telephone_window2)

close(telephone_window1)

else

sle_1.setfocus()

end if

这段脚本所做的工作是当用户在打开的登录窗口中单击OK按钮的时候判断单行编辑框中的字符串在去掉前后的空格符和整个转换成大写字符后是否为字符串“MYPASSWORD”，如果是的就打开我们在前面定义的第二个，也就是用来对个人通讯录数据库进行操作的窗口，然后再关闭登录窗口， 如果输入的字符串与设定的字符串“MYPASSWORD”不符的话就表示用户不能对通讯录数据库进行访问，就把输入焦点切换到编辑框让用户重新输入正确的口令，这里我们把口令设成了“MYPASSWORD”，在实际应用中你可以换成一个自己的口令，这样可以保证自己的数据库的安全性。

图2-36

接下来我们为第二个建立的窗口，也就是真正对数据库进行操作的窗口编写脚本，这里的脚本是真正完成对数据库中数据的修改。首先要为窗口的打开事件编写脚本，也就是在窗口打开后需要干什么事。用类似打开第一个窗口的方法打开第二个窗口，用鼠标右击窗口中的空白区域，在弹出的菜单中选中SCRIPT菜单项，系统弹出一个用来为窗口本身所有可能的事件编写脚本的窗口，选中窗口的打开事件后在窗口的工作区中输入如下脚本：

CONNECT；

DW-1.SETTRANSOBJECT（SQLCA）

DW-1.RETRIEVE（）

DW-2.SETTRANSOBJECT（SQLCA）

脚本的第一条语句的意思是用刚才介绍的系统缺省的事物对象SQLCA联结数据库。第二行脚本的意思是告诉数据窗口控件DW-1中的数据窗口对象利用事物对象SQLCA来取得数据库的有关信息。而第三条语句的意思是让数据窗口控件中的数据窗口对象，要利用创建该数据窗口对象时的SELECT语句来获得数据显示在相应的数据窗口控件中。第四行语句的作用和第二行语句的作用是类似的，是告诉数据窗口控件DW-2所联结的数据窗口对象从系统缺省的事物对象SQLCA中获取有关数据库的信息。这样我们就为对数据库进行操作的窗口的打开事件编好了脚本，要指出的是可以发现这里的脚本都是做一些窗口被打开后必须做的事情，即初始化工作。