天津理工大学 CS软件项目规范与开发报告模板

1、 计算机与通讯工程学院PAGE 2PAGE 17 计算机与通讯工程学院天津理工大学计算机与通信工程学院实验报告2013 至 2014 学年 第 二 学期实验一 C/S结构软件开发规范课程名称软件项目规范与开发学号学生姓名年级 专业计算机科学与技术教学班号实验地点主7-216实验时间 主讲教师 郝刚辅导教师 郝刚实验（一）实验名称C/S结构软件开发规范软件环境 Windows powerbulider6.5 SQL Server或My SQL硬件环境PC 实验目的： 通过实验使学生掌握C/S结构软件的开发方法及开发规范，熟悉开发工具的的安装和使用，掌握利用事件驱动的方法来编写程序，掌握利用开发工

2、具维护数据库数据，初步掌握利用开发工具来实现面向对象编程的方法。完成C/S结构软件的开发，包括以下内容： 软件的安装变量、窗口命名及方法建立应用能够连接数据库，配置ODBC能进行多表操作能够用事件驱动的方法进行面向对象的编程实验内容（应包括实验题目、实验要求、实验任务等）1、安装开发工具 2、编写C/S简单程序，及 3、事件驱动的编程方法(1)新建点击“否”，生成项目。（2）窗口新建窗口，设置窗口布局，以及安放控件。给按钮在click事件中设置响应子窗口01：open(w_01)确定：close(w_main)（3）点击“子窗口01”4、数据库建表，配置ODBC连接数据库（1）新建项目时，在下

3、面的步骤中点击“是”。（2）点击配置ODBC连接数据库点击copy，将连接数据库的内容粘贴到open事件中。5、嵌入式SQL语句操作数据方法 及 6、数据库单表的增、删、改、查（1）在窗口的open事件中写入如下语句（与数据库连接，显示数据内容）：dw_1.settransobject(sqlca)dw_1.retrieve()（2）在窗口中加入datawindow控件，并在其中加入如下表（3）在窗口中添加按钮，分别是：增加、删除、修改、保存、返回 增加： dw_1.insertrow(0) 删除： long ll_rowintegerli_return/ll_row=dw_1.getrow(

4、)if ll_row1 then returnli_return=messagebox(提示,真的编码删除这个吗？,information!,OKCancel! )if li_return=2 then returndw_1.deleterow(ll_row) 修改： dw_1.update()commit using sqlca; 保存： integerli_return/li_return=messagebox(提示,确定保存吗？,information!,OKCancel! )if li_return=1 then dw_1.update()end if 返回： close(parent

5、)7、数据库多表的增、删、改、查（1）在窗口的open事件中写入如下语句： dw_1.SetTransObject(sqlca)dw_1.retrieve()（2）在窗口中加入datawindow控件，并在其中加入如下表（3）添加新编码： integerli_return/insert into dt_qty select a.code,0 from dt_code a where a.code not in(select b.code from dt_qty b) using sqlca; /messagebox(,SQLCA.SQLCode)if SQLCA.SQLCode 0 then

6、rollback using sqlca;else commit using sqlca;end ifdw_1.retrieve()（4）修改： dw_1.update()commit using sqlca;（5）查询：“查询”按钮的click事件中：stringls_code,ls_filter=,ls_date/ls_code=trim(sle_1.text)if cbx_1.checked then ls_filter=trim(dt_input_code)=+ls_code+end ifls_date=trim(sle_2.text)if cbx_2.checked then if

7、ls_filter then ls_filter = ls_filter+ and ls_filter=ls_filter+trim(dt_input_inputdate)=+ls_date+end ifdw_1.setfilter(ls_filter)dw_1.filter()8、面向对象的编程方法继承：（1）被继承的窗口 在窗口的open事件中添加如下代码： integer ll_returnll_return = MessageBox(提示,真的关闭吗?, Exclamation!, OKCancel!, 2)IF ll_return = 1 THEN return 0 / Process OK.ELSE return 1 / Process