数据库原理实验报告四-1.docVIP

数据库原理实验报告四-1 实验日期2013/12/17 实验编号02012-4-1 实验名称 数据库应用实现 实验学时 2 实验内容 将1、2、3集成为总体环境进行数据库应用开发，通过设计学生，课程，选课，教师数据库应用实现，作为考评学生实验课程的依据。 实验要求 运用PB6.5的application painter、window painter、data window painter 使用Power Script，实现学生基本档案录入、成绩查询、成绩修改和删除基本应用。 实 验 过 程 描 述 PB实现和数据库的SQL server2000的链接。 控制面板——管理工具——数据源（ODBC） 添加SQL server。打开PowerBuilder6.0点击DB prof出现如下的界面 点击connect链接数据，从截图可以看出连接成功 创建窗口对象 选中“Window”图标，单击“OK”,出现窗口画板。 单击“File”菜单下“Save As”，出现“Save Window”窗口，如下图 输入窗口名称W_student，单击“OK”保存。 注意：窗口名称最好以W_开头，以示与其他对象的区别。，在上面窗口的注释栏（Comments）可以填写针对该窗口的注释。 在窗口画板右边的“Properties”中选择“General”，在“Title”属性中输入窗口标题，如“学生信息录入”，在“Windows Type”属性中选择“main!”。 3、向窗口中填加控件 向窗口中添加下列控件： (1)静态文本（statictext） 控件名称 文本信息（text） 用途 St_1 学生录入 用于信息录入的提示 St_2 学号 St_3 姓名 St_4 出生日期 （2）单行编辑器（SingleLineEdit） 控件名称 用途 Sle_id 输入学号 Sle_name 输入姓名  （3）辑掩码控件（editmask） 控件名称 用途 mask属性 maskdatatype mask em_birthday 输入出生日期 Datamask! Yyyy/mm/dd （3）编 （4）成组框(groupbox) 控件名称 文本信息（text） 用途 Gb_1 性别 性别成组 （5）单选按钮(radiobutton) 控件名称 文本信息（text） 用途 对应成组框 rb_1 男 选择性别信息 Gb_1 rb_2 女 Gb_1 （6）命令按钮（commandbutton） 控件名称 文本信息（text） 用途 Cb_add 新增 增加一条记录 Cb_save 保存 保存信息 添加控件后的窗口如下图： 点击Preview图标预览效 编写脚本 //数据库连接 //事务对象进行属性赋值 SQLCA.DBMS = ODBC SQLCA.AutoCommit = False SQLCA.DBParm = Connectstring=DSN=grade //连接 connect using sqlca; //数据库是否正确连接的判断 if sqlca.sqlcode= -1 then messagebox(提示,数据库连接错误!) return end if //打开窗口w_student open(w_student) //（2） 对窗口w_student的Open事件编程 // 在窗口w_student的编程窗口中选择open事件，输入以下程序： setnull(sle_id) setnull(sle_name) rb_1.checked=true //（3） 对按钮cb_add的clicked事件编程 setnull(sle_id) setnull(sle_name) em_birthday.text= rb_1.checked=true sle_id.setfocus() //（4） 对按钮cb_save的clicked事件编程 //对表中不能为空的字段进行判断，给出提示 if sle_id.text= then messagebox(提示,学号不能为空!) sle_id.setfocus() return end if if sle_name.text= then messagebox(提示,姓名不能为空!) sle_name.setfocus() return end if if em_birthday.text=0000.00.00 then messagebox(提示,出生日期不能为空!) em_birthday.setfocus() return end if //定义变量,用于从各个控