通过设计学生

《通过设计学生》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、数据库原理实验报告四-1实验日期2011/12/08实验编号02012-4-1实验名称数据库应用实现实验学时2实验内容将1、2、3集成为总体环境进行数据库应用开发，通过设计学生，课程，选课，教师数据库应用实现，作为考评学生实验课程的依据。实验要求运用PB6.5的applicationpainter、windowpainter、datawindowpainter使用PowerScript，实现学生基本档案录入、成绩查询、成绩修改和删除基本应用。实验过程描述1、PB实现和数据库的SQLserver2000的链接。控制面板——管理工具—

2、—数据源（ODBC）添加SQLserver。打开PowerBuilder6.0点击DBprof出现如下的界面打开ODBC选择new建立链接点击connect链接数据，从截图可以看出连接成功1、创建窗口对象（1）选中“Window”图标，单击“OK”,出现窗口画板。（2）单击“File”菜单下“SaveAs”，出现“SaveWindow”窗口，如下图（3）输入窗口名称W_student，单击“OK”保存。注意：窗口名称最好以W_开头，以示与其他对象的区别。，在上面窗口的注释栏（Comments）可以填写针对该窗口的注释。（1）在窗口

3、画板右边的“Properties”中选择“General”，在“Title”属性中输入窗口标题，如“学生信息录入”，在“WindowsType”属性中选择“main!”。3、向窗口中填加控件向窗口中添加下列控件：(1)静态文本（statictext）控件名称文本信息（text）用途St_1学生录入用于信息录入的提示St_2学号St_3姓名St_4出生日期（2）单行编辑器（SingleLineEdit）控件名称用途Sle_id输入学号Sle_name输入姓名（3）辑掩码控件（editmask）控件名称用途mask属性maskdata

4、typemaskem_birthday输入出生日期Datamask!Yyyy/mm/dd（3）编（4）成组框(groupbox)控件名称文本信息（text）用途Gb_1性别性别成组（5）单选按钮(radiobutton)控件名称文本信息（text）用途对应成组框rb_1男选择性别信息Gb_1rb_2女Gb_1（6）命令按钮（commandbutton）控件名称文本信息（text）用途Cb_add新增增加一条记录Cb_save保存保存信息添加控件后的窗口如下图：点击Preview图标预览效果4、编写脚本//数据库连接//事务对象进行

5、属性赋值SQLCA.DBMS="ODBC"SQLCA.AutoCommit=FalseSQLCA.DBParm="Connectstring='DSN=grade'"//连接connectusingsqlca;//数据库是否正确连接的判断ifsqlca.sqlcode=-1thenmessagebox("提示","数据库连接错误!")returnendif//打开窗口w_studentopen(w_student)//（2）对窗口w_student的Open事件编程//在窗口w_student的编程窗口中选择open事件，输入以下

6、程序：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=truesle_id.setfocus()//（4）对按钮cb_save的clicked事件编程//对表中不能为空的字段进行判断，给出提示ifsle_id.text=""thenmessagebox("提示","学号不能为空!")sle_id.setf

7、ocus()returnendififsle_name.text=""thenmessagebox("提示","姓名不能为空!")sle_name.setfocus()returnendififem_birthday.text="0000.00.00"thenmessagebox("提示","出生日期不能为空!")em_birthday.setfocus()returnendif//定义变量,用于从各个控件中获取输入值stringls_id//学号变量stringls_name//姓名变量stringls_sex//性别datel

8、d_birthday//生日//变量赋值ls_id=sle_id.text//获取ID号ls_name=sle_name.text//取姓名//取性别ifrb_1.checked=truethenls_sex='1'elsels_sex='2'en