软件开发工具与环境(修改)

12
《信息系统开发工具》实验指导
4．在 Interactive SQL 中使用 SQL 语句 （1） 启动 Interactive SQL 开始菜单→程序→Sybase→Adaptive Server Anywhere→Interactive SQL，出现如下窗口， 并在 User 中输入 dba；Password 中输入 sql
键，选择 Properties，如下图所示：
在弹出的对话框中选择“preview”并单击“copy”按钮。然后该代码添加到应用程序的 open 事件中（方法：单击左边的 ，在弹出的 open 事件对话框中按“ctrl+v” ）最后
4) 应用程序界面设计 （1）选择控件，方法单击工具栏上的 按钮，如下图所示：
然后选择某一控件，最后在窗体上单击，控件便画在窗体上了。如图所示：
5
《信息系统开发工具》实验指导
在窗体上画出下图所示的控件。
（2）编写代码 双击确定按钮，在确定按钮的 click 事件下编写如下代码：如下图所示：
（3）另外，再新建一个窗口，命名为“w_insert_sp” ，如下图示：
（4）编写代码 ①在窗体“w_login”中，双击窗体空白，在窗体的 open 事件下编写代码： string xm DECLARE zgxm CURSOR FOR SELECT "tb_user"."用户名" FROM "tb_user" ; open zgxm; fetch zgxm into :xm;
14
密码 1234554321 123001
用户级别 1 0
《信息系统开发工具》实验指导
（5）删除供应商名称为“兴隆工作室”的记录 5．在 pb 中使用 sql 语句 （1）建立一个工作空间，命名为“sql_workspace” ，并保存在“d:\sql”目录下，然后建立 一个应用程序对象，命名为“sql_app” ，保存在“d:\sql”目录下。 （2）新建一个窗口，命名为“w_login” ，其效果如下图所示：
7
《信息系统开发工具》实验指导
3．编写代码 （1） 为应用程序对象添加代码 在应用程序的 Open 事件中输入如下代码来打开“jedxxzh_ win”窗口。 Open(jedxxzh_ win) （2） 在【转换】按钮的 clicked 事件下编写如下代码： a="叁" Long i,j,k,n String a,aa,cc,cm[10],b[10] Case "4" Cc="" a="肆" Cm[1]="分" Case "5" a="伍" Cm[2]="角" Cm[3]="元" Case "6" a="六" Cm[4]="拾" Cm[5]="佰" Case "7" a="柒" Cm[6]="千" Cm[7]="万" Case "8" Cm[8]="拾" a=" 捌" Cm[9]="佰" Case "9" Cm[10]="仟" a="玖" For i=1 to 10 Case "0" b[i]="*" a="零" Next case else k=round(real(sle_1.text),2)*100 a="*" aa=string(k) end choose k=len(aa) b[k+(-n)+1]=a For n=k to 1 step -1 next a=mid(aa,n,1) cc="" choose case a for i=10 to 1 step -1 case "1" if b[i]="*" then a="壹" continue Case "2" end if cc=cc+b[i]+cm[i] A="贰" Case "3" next sle_2.text=cc
ASA Database。如下图所示：
接着在弹出的窗口中输入如下图的信息并命名为 data（注意：在 Use Transaction Log 选项 前去掉“√” 。
9
《信息系统开发工具》实验指导
单击 ok，进入下面的窗口
10
《信息系统开发工具》实验指导
doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。
《信息系统开发工具》实验指导
实验一： 实验一：熟悉 PowerBuilder 9.0 的开发环境 实验目的：掌握 PowerBuilder 9.0 的开发环境的基本操作 实验目的： 实验要求： 实验要求：上机熟悉 pb 的环境和完成一个 简单的例子 实验内容： 实验内容：一个简单的应用程序 实验步骤： 实验步骤： 1) 启动 PowerBuilder 9.0 应用程序 步骤： 开始菜单→程序→Sybase→PowerBuilder 9.0→PowerBuilder 9.0。 启动后如图 1-1 所示：
海量手机批发公 2450.0 司 前进电脑公司 250.0
为 tb_user 添加如下记录 用户名 张前 王小小 (3)运用 select 语句查询 供应商名称中含有“公司”的记录 数量在 10 以上的商品 总金额大于 3000 元的商品 （4）用 update 语句修改总金额字段的数据（总金额=数量*进价）
3
《信息系统开发工具》实验指导
单击“Finish” ，结果如下：
3) 新建窗体 单击“file”菜单，选择“New” ，在“New”对话框中选择“PB Object” 。如下图所 示。
单击“OK” ，结果如下：
4
《信息系统开发工具》实验指导
15
《信息系统开发工具》实验指导
do while sqlca.sqlcode=0 ddlb_1.insertitem(xm, 1) fetch zgxm into :xm; loop close zgxm; ②在窗体“w_login”中，双击确定按钮，在确定按钮的 click 事件下编写代码： string yhm,psd if ddlb_1.text="" then messagebox("信息提示","请选择一个用户名") return end if if sle_1.text="" then messagebox("信息提示","请输入密码") return end if yhm=trim(ddlb_1.text) select 密码 into:psd from tb_user where 用户名=:yhm; if psd=trim(sle_1.text) then open(w_insert_sp) else messagebox("信息提示","密码不正确") return end if ③在窗体“w_login”中，双击取消按钮，在取消按钮的 click 事件下编写代码： Close(parent) ④请同学们完成窗体“w_insert_sp”的编程。功能：实现数据的添加。 （5）为应用程序编写代码 ①粘贴数据库连接代码 鼠标单击工具栏上的 （Database）按钮，在当前连接的数据库描述文件上单击鼠标右
6）运行 单击“ ”运行，就可以看到你的制作成果。 试验二： 试验二：Power Script 编程语言 实验目的： 实验目的：掌握 PowerBuilder 9.0 的 Power Script 编程语言 实验要求： 实验要求：上机熟悉 Power Script 编程语言并完成一个简单的应用程序 实验内容： 实验内容：一个简单的应用程序 试验步骤： 试验步骤： 1．建立一个工作空间，命名为“jedxxzh_workspace” ，并保存在“d:\金额大小写转换”目 录下，然后建立一个应用程序对象，命名为“jedxxzh_app” ，保存在“d:\金额大小写转 换”目录下。 2．新建一个窗口，命名为“jedxxzh_win” ，在窗口上添加 3 个静态文本框，2 个单行编辑 框和两个命令按钮、一个组合框。如下图所示：
单击保存。 2) 新建一个应用程序对象 单击“file”菜单，选择“New” ，在“New”对话框中选择“Target” 。如下图所示。
2
《信息系统开发工具》实验指导
单击 “OK” 在出现的 ， “Specify New Application and Library” 对话框中的 “application name” 中输入应用程序名（如，A_main，注意：应用程序的名称不能与工作区的名称同名） ，在 下面的“Library”采用默认的即可。如
11
《信息系统开发工具》实验指导
单击 Primary Key，进入如下窗口。
在 General 选项卡中，在商品编号前打√，然后关闭保存。出现如下窗口，说明主键创建 成功：
同理，我们在创建一个数据库表，名称为“tb_user” ，并设置主键。如下图所示
8
《信息系统开发工具》实验指导
（3） 在【退出】按钮的 clicked 事件下编写如下代码： Close(parent) 思考：怎样把大写金额转换为小写金额 试验三： 试验三：使用 SQL 语句 实验目的： 实验目的：掌握在 PowerBuilder 9.0 的开发环境中使用简单的 SQL 语句 实验要求： 实验要求：上机实现各种 SQL 语句 实验内容： 实验内容：创建数据库和编程实现一个简单的登录程序 内容 试验步骤： 试验步骤： 1 创建数据库 鼠标单击工具栏上的 （Database） 按钮， 再单击 ODB ODBC， 单击 Utilities， 双击 Create