资源预览内容
第1页 / 共11页
第2页 / 共11页
第3页 / 共11页
第4页 / 共11页
第5页 / 共11页
第6页 / 共11页
第7页 / 共11页
第8页 / 共11页
第9页 / 共11页
第10页 / 共11页
亲,该文档总共11页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
本文由淡言人生贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT,或下载源文件到本机查看。 信息系统开发工具实验指导 实验一: 实验一:熟悉 PowerBuilder 9.0 的开发环境 实验目的:掌握 PowerBuilder 9.0 的开发环境的基本操作 实验目的: 实验要求: 实验要求:上机熟悉 pb 的环境和完成一个 简单的例子 实验内容: 实验内容:一个简单的应用程序 实验步骤: 实验步骤: 1) 启动 PowerBuilder 9.0 应用程序 步骤: 开始菜单程序SybasePowerBuilder 9.0PowerBuilder 9.0。 启动后如图 1-1 所示: 2) 一个具体的例子 首先在 D 盘创建文件夹,名称为: “应用程序” 。 1) 新建一个工作空间对象 单击“file”菜单,选择“New” , 1 信息系统开发工具实验指导 然后在出现的“New Workspace”对话框中选择保存路径和确定工作空间名称。如下图所 示: 单击保存。 2) 新建一个应用程序对象 单击“file”菜单,选择“New” ,在“New”对话框中选择“Target” 。如下图所示。 2 信息系统开发工具实验指导 单击 “OK” 在出现的 , “Specify New Application and Library” 对话框中的 “application name” 中输入应用程序名(如,A_main,注意:应用程序的名称不能与工作区的名称同名) ,在 下面的“Library”采用默认的即可。如 3 信息系统开发工具实验指导 单击“Finish” ,结果如下: 3) 新建窗体 单击“file”菜单,选择“New” ,在“New”对话框中选择“PB Object” 。如下图所 示。 单击“OK” ,结果如下: 4 信息系统开发工具实验指导 4) 应用程序界面设计 (1)选择控件,方法单击工具栏上的 按钮,如下图所示: 然后选择某一控件,最后在窗体上单击,控件便画在窗体上了。如图所示: 5 信息系统开发工具实验指导 在窗体上画出下图所示的控件。 (2)编写代码 双击确定按钮,在确定按钮的 click 事件下编写如下代码:如下图所示: 同理,双击重置按钮,编写如下代码 Sle_1.text=” Sle_2.text=” 6 信息系统开发工具实验指导 Sle_3.text=” 在退出按钮下编写,如下代码: Close(parent) (3)保存窗体 5)编写应用程序对象的代码 双击系统树中的 ,为应用程序编写代码,如下图所示:最后保存 6)运行 单击“ ”运行,就可以看到你的制作成果。 试验二: 试验二:Power Script 编程语言 实验目的: 实验目的:掌握 PowerBuilder 9.0 的 Power Script 编程语言 实验要求: 实验要求:上机熟悉 Power Script 编程语言并完成一个简单的应用程序 实验内容: 实验内容:一个简单的应用程序 试验步骤: 试验步骤: 1建立一个工作空间,命名为“jedxxzh_workspace” ,并保存在“d:金额大小写转换”目 录下,然后建立一个应用程序对象,命名为“jedxxzh_app” ,保存在“d:金额大小写转 换”目录下。 2新建一个窗口,命名为“jedxxzh_win” ,在窗口上添加 3 个静态文本框,2 个单行编辑 框和两个命令按钮、一个组合框。如下图所示: 7 信息系统开发工具实验指导 3编写代码 (1) 为应用程序对象添加代码 在应用程序的 Open 事件中输入如下代码来打开“jedxxzh_ win”窗口。 Open(jedxxzh_ win) (2) 在【转换】按钮的 clicked 事件下编写如下代码: a=叁 Long i,j,k,n String a,aa,cc,cm10,b10 Case 4 Cc= a=肆 Cm1=分 Case 5 a=伍 Cm2=角 Cm3=元 Case 6 a=六 Cm4=拾 Cm5=佰 Case 7 a=柒 Cm6=千 Cm7=万 Case 8 Cm8=拾 a= 捌 Cm9=佰 Case 9 Cm10=仟 a=玖 For i=1 to 10 Case 0 bi=* a=零 Next case else k=round(real(sle_1.text),2)*100 a=* aa=string(k) end choose k=len(aa) bk+(-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 bi=* then a=壹 continue Case 2 end if cc=cc+bi+cmi A=贰 Case 3 next sle_2.text=cc 8 信息系统开发工具实验指导 (3) 在【退出】按钮的 clicked 事件下编写如下代码: Close(parent) 思考:怎样把大写金额转换为小写金额 试验三: 试验三:使用 SQL 语句 实验目的: 实验目的:掌握在 PowerBuilder 9.0 的开发环境中使用简单的 SQL 语句 实验要求: 实验要求:上机实现各种 SQL 语句 实验内容: 实验内容:创建数据库和编程实现一个简单的登录程序 内容 试验步骤: 试验步骤: 1 创建数据库 鼠标单击工具栏上的 (Database) 按钮, 再单击 ODB ODBC, 单击 Utilities, 双击 Create ASA Database。如下图所示: 接着在弹出的窗口中输入如下图的信息并命名为 data(注意:在 Use Transaction Log 选项 前去掉“” 。 9 信息系统开发工具实验指导 单击 ok,进入下面的窗口 10 信息系统开发工具实验指导 在上图的 table 项,单击右键,弹出属性窗口。选择 New Table,并单击,在 columns 窗口 中输入如数据。 输入完毕后,保存,出现以下对话框,并输入以下内容。 单击 ok,数据库表就创建完毕。 2为数据库表创建主键 在 object layout 画板中,选中 sp 表,单击右键,弹出属性窗口,如下图所示。 11 信息系统开发工具实验指导 单击 Primary Key,进入如下窗口。 在 General 选项卡中,在商品编号前打,然后关闭保存。出现如下窗口,说明主键创建 成功: 同理,我们在创建一个数据库表,名称为“tb_user” ,并设置主键。如下图所示 12 信息系统开发工具实验指导 4在 Interactive SQL 中使用 SQL 语句 (1) 启动 Interactive SQL 开始菜单程序SybaseAdaptive Server AnywhereInteractive SQL,出现如下窗口, 并在 User 中输入 dba;Password 中输入 sql 单击,OK。进入 Interactive SQL,在 sp 数据库表中插入一条记录,如下图所示: 13 信息系统开发工具实验指导 (2)数据的添加(insert into 语句) 请同学们自己为 sp 数据表插入如下 5 条记录(注意,输入的内容要与数据表的结构 一致) 商品编号 商品名称 产地 供应商名称 进价 数量 总 金 额 0 0 0 0 0 2007091299 笔 记 m120 2007091383 硬盘 2007091471 优盘 2007100101 手机 2007110101 内存 本 中 国 福 Dell 亚洲公司 建 中 国 广 start 公司 东 中国 兴隆工作室 中国 中国 12000.0 5 340.0 200.0 10 10 20 10 海量手机批发公 2450.0 司 前进电脑公司 250.0 为 tb_user 添加如下记录 用户名 张前 王小小 (3)运用 select 语句查询 供应商名称中含有“公司”的记录 数量在 10 以上的商品 总金额大于 3000 元的商品 (4)用 update 语句修改总金额字段的数据(总金额=数量*进价) 14 密码 1234554321 123001 用户级别 1 0 信息系统开发工具实验指导 (5)删除供应商名称为“兴隆工作室”的记录 5在 pb 中使用 sql 语句 (1)建立一个工作空间,命名为“sql_workspace” ,并保存在“d:sql”目录下,然后建立 一个应用程序对象,命名为“sql_app” ,保存在“d:sql”目录下。 (2)新建一个窗口,命名为“w_login” ,其效果如下图所示: (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; 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)按钮,在当前连接的数据库描述文件上单击鼠标右 键,选择 Properties,如下图所示: 在弹
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号