PowerBuilder数据库开发技术

PowerBuilder数据库开发技术

实验指导书

实验目录

1.实验一、PowerBuilder集成环境

2.实验二、PowerBuilder数据定义

3.实验三、PowerBuilder数据操纵

4.实验四、PowerBuilder窗口设计

5.实验五、PowerBuilder菜单设计

6.实验六、PowerBuilder数据窗口设计

7.实验七、小型数据库应用系统开发

实验一：PowerBuilder集成环境

一．实验目的

1.掌握PowerBuilder的启动与退出

2.熟悉PowerBuilder集成环境，包括菜单，工具条以及帮助

3.熟悉PowerBuilder的类库管理，并创建一个简单应用

4.熟悉窗口与菜单设计画板，添加设计和使用窗口与菜单

二.实验内容

1. PowerBuilde的启动与退出

2.熟悉PowerBuilde集成环境

3.创建一个简单的应用。

三．实验条件

1.提供一台WINDOWS XP操作系统的计算机

2.提供PowerBuilder9.0设计环境

四.实验步骤

1.启动与退出

在安装完后，可以通过WINDOWS开始菜单找出Sybase 程序组中的PowerBuilder9.0启动PowerBuilder.

启动后即出现如图所示的主窗口，可以选择菜单File/Exit 退出并关闭PowerBuilder.

2.熟悉PowerBuilder集成环境，包括菜单、工具以及帮助

画板是PowerBuilder提供的专项设计工具，PowerBuilder为窗口菜单数据窗口用户对象函数结构数据库数据管道以及应用提供画板。如WINDOWS画板是用来设计应用程序窗口界面。画板也是有多个子窗口组成，如WINDOWS画板有Layout外观子窗口，Properties 属性子窗口，Script脚本子窗口，Declare申明变量子窗口，这些子窗口可以在菜单View 中选取打开。

3.创建一个简单应用

选择File/New 出现一个新建对话框

（1）创建一个工作区Workspace ，输入工作区的名称Myspace，在Systemtree中出现建好的工作区。

（2）新建一个应用,打开Target/Application，输入应用的名称Test，选择类库文件保存的路

径，Test.pbl就是该应用的类库文件，以后设计类就存放在此文件，注意保存路径。

（3）在Systemtree中展开工作区Myspace,可看到一个应用Test，再展开可看到类库文件Tes t.pbl,再展开可看到一个应用类Test。应用类是一个应用的入口，应用类无外观，只有属性和脚本窗口，可在Open事件中编制应用开始的脚本。

由此可以看出一个工作区可以包含多个应用系统，一个应用系统可保存在多个类库文件中，一个类库文件可存放多个类。

4.创建窗口

打开File/New/PB Object/Window,在窗口外观中放置各种控件，保存窗口取名为w_test.熟悉窗口对象与各种控件对象的属性和事件。

5.创建菜单

打开File/New/PB Object/Menu,填置菜单项，保存窗口取名为m_test,熟悉菜单对象的属性和事件。

例如插入File菜单栏，File菜单栏中插入Exit菜单项，在Exit的Clicked事件中加入脚本Close（parentwindow）,用于关闭窗口。

6.运行应用

在应用类Test的Open事件中加入脚本open(w_test),打开测试窗口。在窗口w_test的Menuname属性中填入m_test (实验指导书上m_menu错误),将菜单放入此窗口，运行此应用程序，即可看到下面的界面，按File / Exit可退出界面。

实验二：数据定义

一．实验目的

1.掌握SQL模式定义语句，定义相关的表

2.掌握SQL数据查询语句

3.掌握SQL聚集函数的使用

4.掌握SQL插入、修改、删除语句的使用

5.

二．实验内容

工程项目采购数据库

设有供应商S、零件P、工程项目J、以及三者间联系（某工程使用某供应商提供的某零件个数）的关系模式SPJ。

三．实验步骤：

1、打开PowerBuilder，点击界面上的数据库图标，进入PowerBuilder的数据库界面。

2、在其树型结构中点击ODB ODBC，可以看到在其子目录下有系统自带的两个数据库EAS Demo DB V9 和EAS Demo DB V9 IM。如图2所示：

我们可以使用系统自带的数据库，在其中创建自己的表，一般情况下我们希望建立自己的数

据库。

3、为了能够在表中显示汉语我们双击Utilities / Create ASA DatabaseUser 得到上图对话框其中ID 为DBA，Password为sql，输入Database Name：工程项目采购数据库

4、数据库的连接

新数据库建立好之后要进行连接，右键点击“工程项目采购数据库”，在弹出的菜单中选择“connect”，点击后会在“工程项目采购数据库”上出现一个绿色的对号，这时数据库就成功连接了。

5、定义表

在PowerBuilder里有两种创建新表的方法，

第一种方法与创建数据库类似，在test数据库的下拉目录中有table这一项，可以右击table 选择“New Table”来创建新表。

由于本次实验我们不用这种方法，在此就不累述了。

第二种方法是本次实验要采用的，即用SQL的语言定义的功能来定义新表。在图中，在界面的下部有几个标签，选择“ISQL Session”，这时就可以在如图所示的编辑界面中编写SQL语句了。这里我以定义S（供应商）表为例写了几行代码。代码写好之后单击界面上方

的图标就可以运行了。如果运行时没有任何提示说明表创建成功，右键点击“table”选

择“Refresh”，就可以在table目录下看到我们创建的新表了（如果还是看不到就右击“工程项目采购数据库”将connect改为disconnect再改为connect,然后再点击Table即可看到所创建的表）。如果有错误，系统会给出出错信息，修改后再运行。P、J、SPJ表的创建与此相同。在创建SPJ表时注意外键的建立。

对于刚创建的s表，大家可以选择s-->Columns-->sno Edit Columns来查看s表的定义，如图6，也可以修改（有的属性是不允许修改的）。

创建S表的代码，将其贴在“ISQL Session”窗口中：

create table s

(sno char(6) primary key,

sname char(6)not null,

status smallint,

city char(6));

P、J、SPJ表的创建代码如下：create table p

(pno char(6) primary key,

pname char(8) not null,

color char(4),

weight smallint);

create table j

(jno char(6) primary key,

jname varchar(12),

city char(6)

);

create table spj

(sno char (6),

pno char(6),

jno char(6),

qty int,

primary key (sno,pno,jno),

foreign key (sno) references s(sno), foreign key (pno) references p(pno),

foreign key (jno) references j(jno));

6、向表中插入数据

以上创建的表只是说明了表的定义，表中没有数据，向表中插入数据可用如下语句（以s 表为例）：Insert into s values(‘s1’,’精益’，’20’,’天津’);

插入数据。运行方法与刚才所讲定义表的运行方法一样。

运行无误说明此数据已经插入s表，大家可以用我们所学的查询语句来查看表里的数据，例如用以下语句：

select *

from s; 就可以查看s表中的所有数据。

查询结果会在“result”里出现。

或者右击要查看的表，Edit Data / Grid…在Results窗口中也可看到表里的数据。

需要注意的是：（1）以上SQL语句中所有的标点符号都要在英文输入方式下输入，汉

语方式下会报错，所以在写入汉字后要记得切换输入法；

（2）在这个实验中SPJ表中的属性参考了其它表中的属性，我们用外关键字来表示这种关系。例如我们在定义s表时，将sno定义为char（2），那么在SPJ表的定义中，sno也要定义为char（2），两者类型一定要相同。

下面是P、J、SPJ表数据插入的代码：

p表

insert into p values('p1','螺母','红',12)

insert into p values('p2','螺钉','绿',17)

insert into p values('p3','螺丝刀','兰',14)

insert into p values('p4','螺丝刀','红',14)

insert into p values('p5','凸轮','兰',40)

insert into p values('p6','齿轮','红',30);

j表

insert into j values('j1','汽车厂','北京')

insert into j values('j2','弹簧厂','长春')

insert into j values('j3','造船厂','天津')

insert into j values('j4','机车厂','天津')

insert into j values('j5','无线电厂','唐山')

insert into j values('j6','半导体厂','常州')

insert into j values('j7','仪器厂','南京');

spj表

insert into spj values('s1','p1','j1',200)

insert into spj values('s1','p1','j3',100)

insert into spj values('s1','p1','j4',700) insert into spj values('s1','p2','j2',100) insert into spj values('s2','p3','j1',400) insert into spj values('s2','p3','j2',200) insert into spj values('s2','p3','j4',500) insert into spj values('s2','p3','j5',400) insert into spj values('s2','p5','j1',400) insert into spj values('s2','p5','j2',100) insert into spj values('s3','p1','j1',200) insert into spj values('s3','p3','j1',200) insert into spj values('s4','p5','j1',100) insert into spj values('s4','p6','j3',300) insert into spj values('s4','p6','j4',200) insert into spj values('s5','p2','j4',100) insert into spj values('s5','p3','j1',200) insert into spj values('s5','p6','j2',200) insert into spj values('s5','p6','j4',500);

实验三：数据操纵

一．实验目的

1.掌握SQL数据查询语句

2.掌握SQL聚集函数的使用

3.掌握SQL插入、修改、删除语句的使用

二．实验内容

工程项目采购数据库，在实验三的基础上完成下列操作：（１）求向工程J1 提供零件的供应商的编号

（２）求向工程J1 提供零件P１的供应商的编号

（３）求向工程J1 提供红色零件的供应商的编号

（４）求没有使用天津供应商提供的红色零件的工程号（５）统计各个供应商供应得零件总数

（６）求至少使用了３种以上零件的工程号

（７）把所有红色零件的颜色改为粉红色

（８）将向工程Ｊ１提供零件Ｐ１的供应商Ｓ１改为Ｓ２提供（９）删除全部红色零件以及相应得供应-使用记录

下面是以上各操作所要使用的语句：

(1)select sno

from spj

where jno='j1';

(2)select sno

from spj

where jno='j1' and pno='p1';

(3)select sno

from spj

where pno in

(select pno

from p

where p.pno=spj.pno

and color='红'

and jno='j1');

(4)select jno

from j

where jno not in

(select jno

from spj,s,p

where s.sno=spj.sno

and p.pno=spj.pno

and s.city='天津'

and p.color='红');

(5)select sno,sum(qty)

from spj

group by sno;

(6)select jno

from spj

group by jno

having count(pno)>3;

(7)update p

set color='粉红'

where color='红';

(8)update spj

set sno='s2'

where sno='s1' and jno='j1' and pno='p1';

(9)delete

from spj

where pno in

(select pno

from p

where color='红');

以(１)为例将代码粘贴进ISQL Session 1窗口，点击运行，在Select 1 Results 窗口中可以看到查询结果：

实验四：PowerBuilder窗口设计

一．实验目的

1.掌握窗口设计、控件编程

2.掌握程序设计基本语法

3.熟悉面向对象程序设计的基本思想和方法

4.熟悉的程序调试

二．实验内容

1.设计一个小型计算器

设计如图所示的小型计算器，要求能实现多位数的加、减、乘、除运算，要考虑小数、负数的问题。

2.程序调试面板

可在程序脚本的任何位置右击鼠标，选Insert Breakpoint 设置程序端点，选择Run/ Debug 进入程序调试面板，选Debug / Start 开始调试程序，程序运行到端点处，会暂停运行。在调试面板中可以观察内存中各种变量以及对象的属性值，必要时可以修改。

三．实验原理、方法和手段

小型计算器设计思路：将计算器的当前状态划分为：

0开始状态1接收到第一个数据

2接收到第一个数据的小数点3接收到运算符

4接收到第二个数据5接收到第二个数据的小数点

6全部状态接收到”=”后回到0状态

设置窗口级实例变量数据1、数据2、运算符、状态，在每个按钮的Clicked 事件中编制代码，根据当前状态做出相应的处理以及状态变换。

四．实验过程

界面设计完成后：

双击按钮“1”，在弹出的编辑界面中添加如下代码(23456789按钮的代码与1相同)：choose case is_zt

case '0'

is_zt='1'

st_1.text=this.text

case '1'

is_zt='1'

st_1.text=st_1.text+this.text

case '2'

is_zt='2'

st_1.text=st_1.text+this.text

case '3'

is_zt='4'

st_1.text=this.text

case '4'

is_zt='4'

st_1.text=st_1.text+this.text

case '5'

is_zt='5'

st_1.text=st_1.text+this.text

case '6'

is_zt='1'

st_1.text=this.text

end choose

双击按钮“+”，在弹出的编辑界面中添加如下代码(加减乘除代码相同)：

choose case is_zt

case '0'

case '1'

is_zt='3'

is_arg1=st_1.text

is_option=this.text case '2'

is_zt='3'

is_arg1=st_1.text

is_option=this.text case '3'

is_option=this.text case '4'

is_zt='3'

is_arg2=st_1.text

is_arg1=wf_js()

is_option=this.text case '5'

is_zt='3'

is_arg2=st_1.text

is_arg1=wf_js()

is_option=this.text case '6'

is_zt='3'

is_arg1=st_1.text

is_option=this.text end choose

双击按钮“=”，在弹出的编辑界面中添加如下代码：

choose case is_zt

case '0'

case '1'

case '2'

case '3'

case '4'

is_zt='6'

is_arg2=st_1.text

is_arg1=wf_js()

st_1.text=is_arg1

case '5'

is_zt='6'

is_arg2=st_1.text

is_arg1=wf_js()

st_1.text=is_arg1

case '6'

end choose

这里我们用到一个函数：wf_js()，这个函数是自己定义的，方法如下：

在如图弹出的下拉框中选择（functions）,然后选择（new function）

会弹出函数定义界面：

其中设置Access 为public ;Return Type 为string ;Function Name 为wf_js即可。设置完成后在其下面的编辑界面中添加如下代码：

dec ln_arg1,ln_arg2,ln_ret

string ls_ret

ln_arg1=dec(is_arg1)

ln_arg2=dec(is_arg2)

choose case is_option

case "+"

ln_ret=ln_arg1 + ln_arg2

case "-"

ln_ret=ln_arg1 - ln_arg2

case "*"

ln_ret=ln_arg1 * ln_arg2

case "/"

ln_ret=ln_arg1 / ln_arg2

end choose

ls_ret=string(ln_ret)

return ls_ret

下面需要声明以下程序中用到的变量：

在图中的下拉框中选择（Declare）,

在弹出的编辑界面中添加如下代码：string is_arg1,is_arg2,is_option,is_zt='0' 即可

按钮“0”后面所加代码如下：

choose case is_zt

case '0'