搜索
本文由淡言人生贡献doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。《信息系统开发工具》实验指导实验一：实验一：熟悉PowerBuilder9.0的开发环境实验目的：掌握PowerBuilder9.0的开发环境的基本操作实验目的：实验要求：实验要求：上机熟悉pb的环境和完成一个简单的例子实验内容：实验内容：一个简单的应用程序实验步骤：实验步骤：1)启动PowerBuilder9.0应用程序步骤：开始菜单→程序→Sybase→PowerBuilder9.0→PowerBuilder9.0。启动后如图1-1所示：2)一个具体的例子首先在D盘创建文件夹，名称为：“应用程序”。1)新建一个工作空间对象单击“file”菜单，选择“New”，1《信息系统开发工具》实验指导然后在出现的“NewWorkspace”对话框中选择保存路径和确定工作空间名称。如下图所示：单击保存。2)新建一个应用程序对象单击“file”菜单，选择“New”，在“New”对话框中选择“Target”。如下图所示。2《信息系统开发工具》实验指导单击“OK”在出现的，“SpecifyNewApplicationandLibrary”对话框中的“applicationname”中输入应用程序名（如，A_main，注意：应用程序的名称不能与工作区的名称同名），在下面的“Library”采用默认的即可。如3《信息系统开发工具》实验指导单击“Finish”，结果如下：3)新建窗体单击“file”菜单，选择“New”，在“New”对话框中选择“PBObject”。如下图所示。单击“OK”，结果如下：4《信息系统开发工具》实验指导4)应用程序界面设计（1）选择控件，方法单击工具栏上的按钮，如下图所示：然后选择某一控件，最后在窗体上单击，控件便画在窗体上了。如图所示：5《信息系统开发工具》实验指导在窗体上画出下图所示的控件。（2）编写代码双击确定按钮，在确定按钮的click事件下编写如下代码：如下图所示：同理，双击重置按钮，编写如下代码Sle_1.text=””Sle_2.text=””6《信息系统开发工具》实验指导Sle_3.text=””在退出按钮下编写，如下代码：Close(parent)(3)保存窗体5）编写应用程序对象的代码双击系统树中的，为应用程序编写代码，如下图所示：最后保存6）运行单击“”运行，就可以看到你的制作成果。试验二：试验二：PowerScript编程语言实验目的：实验目的：掌握PowerBuilder9.0的PowerScript编程语言实验要求：实验要求：上机熟悉PowerScript编程语言并完成一个简单的应用程序实验内容：实验内容：一个简单的应用程序试验步骤：试验步骤：1．建立一个工作空间，命名为“jedxxzh_workspace”，并保存在“d:\金额大小写转换”目录下，然后建立一个应用程序对象，命名为“jedxxzh_app”，保存在“d:\金额大小写转换”目录下。2．新建一个窗口，命名为“jedxxzh_win”，在窗口上添加3个静态文本框，2个单行编辑框和两个命令按钮、一个组合框。如下图所示：7《信息系统开发工具》实验指导3．编写代码（1）为应用程序对象添加代码在应用程序的Open事件中输入如下代码来打开“jedxxzh_win”窗口。Open(jedxxzh_win)（2）在【转换】按钮的clicked事件下编写如下代码：a=叁Longi,j,k,nStringa,aa,cc,cm[10],b[10]Case4Cc=a=肆Cm[1]=分Case5a=伍Cm[2]=角Cm[3]=元Case6a=六Cm[4]=拾Cm[5]=佰Case7a=柒Cm[6]=千Cm[7]=万Case8Cm[8]=拾a=捌Cm[9]=佰Case9Cm[10]=仟a=玖Fori=1to10Case0b[i]=*a=零Nextcaseelsek=round(real(sle_1.text),2)*100a=*aa=string(k)endchoosek=len(aa)b[k+(-n)+1]=aForn=kto1step-1nexta=mid(aa,n,1)cc=choosecaseafori=10to1step-1case1ifb[i]=*thena=壹continueCase2endifcc=cc+b[i]+cm[i]A=贰Case3nextsle_2.text=cc8《信息系统开发工具》实验指导（3）在【退出】按钮的clicked事件下编写如下代码：Close(parent)思考：怎样把大写金额转换为小写金额试验三：试验三：使用SQL语句实验目的：实验目的：掌握在PowerBuilder9.0的开发环境中使用简单的SQL语句实验要求：实验要求：上机实现各种SQL语句实验内容：实验内容：创建数据库和编程实现一个简单的登录程序内容试验步骤：试验步骤：1创建数据库鼠标单击工具栏上的（Database）按钮，再单击ODBODBC，单击Utilities，双击CreateASADatabase。如下图所示：接着在弹出的窗口中输入如下图的信息并命名为data（注意：在UseTransactionLog选项前去掉“√”。9《信息系统开发工具》实验指导单击ok，进入下面的窗口10《信息系统开发工具》实验指导在上图的table项，单击右键，弹出属性窗口。选择NewTable，并单击，在columns窗口中输入如数据。输入完毕后，保存，出现以下对话框，并输入以下内容。单击ok，数据库表就创建完毕。2．为数据库表创建主键在objectlayout画板中，选中sp表，单击右键，弹出属性窗口，如下图所示。11《信息系统开发工具》实验指导单击PrimaryKey，进入如下窗口。在General选项卡中，在商品编号前打√，然后关闭保存。出现如下窗口，说明主键创建成功：同理，我们在创建一个数据库表，名称为“tb_user”，并设置主键。如下图所示12《信息系统开发工具》实验指导4．在InteractiveSQL中使用SQL语句（1）启动InteractiveSQL开始菜单→程序→Sybase→AdaptiveServerAnywhere→InteractiveSQL，出现如下窗口，并在User中输入dba；Password中输入sql单击，OK。进入InteractiveSQL，在sp数据库表中插入一条记录，如下图所示：13《信息系统开发工具》实验指导(2)数据的添加（insertinto语句）请同学们自己为sp数据表插入如下5条记录（注意，输入的内容要与数据表的结构一致）商品编号商品名称产地供应商名称进价数量总金额000002007091299笔记m1202007091383硬盘2007091471优盘2007100101手机2007110101内存本中国福Dell亚洲公司建中国广start公司东中国兴隆工作室中国中国12000.05340.0200.010102010海量手机批发公2450.0司前进电脑公司250.0为tb_user添加如下记录用户名张前王小小(3)运用select语句查询供应商名称中含有“公司”的记录数量在10以上的商品总金额大于3000元的商品（4）用update语句修改总金额字段的数据（总金额=数量*进价）14密码1234554321123001用户级别10《信息系统开发工具》实验指导（5）删除供应商名称为“兴隆工作室”的记录5．在pb中使用sql语句（1）建立一个工作空间，命名为“sql_workspace”，并保存在“d:\sql”目录下，然后建立一个应用程序对象，命名为“sql_app”，保存在“d:\sql”目录下。（2）新建一个窗口，命名为“w_login”，其效果如下图所示：（3）另外，再新建一个窗口，命名为“w_insert_sp”，如下图所示：（4）编写代码①在窗体“w_login”中，双击窗体空白，在窗体的open事件下编写代码：stringxmDECLAREzgxmCURSORFORSELECTtb_user.用户名FROMtb_user;openzgxm;fetchzgxminto:xm;15《信息系统开发工具》实验指导dowhilesqlca.sqlcode=0ddlb_1.insertitem(xm,1)fetchzgxminto:xm;loopclosezgxm;②在窗体“w_login”中，双击确定按钮，在确定按钮的click事件下编写代码：stringyhm,psdifddlb_1.text=thenmessagebox(信息提示,请选择一个用户名)returnendififsle_1.text=thenmessagebox(信息提示,请输入密码)returnendifyhm=trim(ddlb_1.text)select密码into:psdfromtb_userwhere用户名=:yhm;ifpsd=trim(sle_1.text)thenopen(w_insert_sp)elsemessagebox(信息提示,密码不正确)returnendif③在窗体“w_login”中，双击取消按钮，在取消按钮的click事件下编写代码：Close(parent)④请同学们完成窗体“w_insert_sp”的编程。功能：实现数据的添加。（5）为应用程序编写代码①粘贴数据库连接代码鼠标单击工具栏上的（Database）按钮，在当前连接的数据库描述文件上单击鼠标右键，选择Properties，如下图所示：在弹出的对话框中选择“preview”并单击“copy”按钮。然后该代码添加到应用程序的open事件中（方法：单击左边的，在弹出的open事件对话框中按“ctrl+v”）最后16《信息系统开发工具》实验指导输入“connect;open(main)等语句”，然后保存。如下图：思考：在pb中怎样实现对数据表的查询试验四：试验四：在PowerBuilder中操纵数据库实验目的：实验目的：在PowerBuilder9.0的开发环境中，掌握数据库的基本操作实验要求：实验要求：上机实现数据库的各种操作实验内容：实验内容：数据库操作和一个简单的应用程序实验步骤：验步骤：一．创建数据库及数据库表1．用PowerBuilder9.0自带的ASA数据库管理系统创建“data_base”数据库，该数据库包含以下数据库表：Sp表：字段名称和类型、宽度如下：KH表：字段名称和类型、宽度如下：DD表：字段名称和类型、宽度如下：17《信息系统开发工具》实验指导2．为各个表创建主键和外键（外键的创建见教材p197），结果如下图所示：3．为各个表添加记录（请同学自己添加）二．一个简单的应用程序（1）创建一个工作工作空间，命名为：workspace_searh，保存在并保存在“d:\search”目录下，然后建立一个应用程序对象，命名为“app_searh”，保存在“d:\search”目录下（2）创建窗体，命名为：w_searh，窗体上的控件如下所示：18《信息系统开发工具》实验指导（3）为窗体编写代码鼠标双击“查询”按钮，在“查询”按钮的click事件下编写如下代码：stringmcintn,n_msgstringc_mc,c_bh,c_tel,c_fax,c_yb,c_addmc=trim(sle_1.text)iflen(mc)=0thenmessagebox(信息提示,系统提示：请输入查询条件)sle_1.setfocus()//sle_1对象获得焦点returnendifmc=%+mc+%declares_mccursorforselect客户编号,客户名称,电话,传真,邮编,地址fromkhwhere客户名称like:mc;opens_mc;n=0dowhiletruefetchs_mcinto:c_bh,:c_mc,:c_tel,:c_fax,:c_yb,:c_add;ifsqlca.sqlcode=100then19《信