《信息系统开发工具》实验指导
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