powerbuilder10,学生成绩数据库设计报告 - 图文(3)

其余见附录

2试运行及结果分析

按照系统的设计要求，对系统进行了测试，数据基本正确，达到了系统设计的要求，查询显示结果正确，其它各项功能运行正常。

参考文献

[1]何旭洪.《Powerbuilder9.0信息管理系统开发》.人民邮电出版社 [2]郑阿奇， Powerbuilder 实用教程（第三版）.电子工业出版社

11

盐城工学院经济与管理学院

1．登录窗口

附 录 程序设计图及代码12 盐城工学院经济与管理学院

1） 全局变量设置

string ls_userid,ls_password 2） 连接数据库函数load_connect

ls_userid=trim(userid)

ls_password=trim(password) if ls_password=\ return - 1 end if

select userid into :ls_userid from lmuser where userid=:ls_userid and password=:ls_password;

return sqlca.sqlcode

3） “登录”按钮click事件 setpointer (hourglass!)

if parent.load_connect (sle_userid.text,sle_password.text) <>0 then messagebox (\连接数据库错误！\连接失败！请输入正确的用户名和密码！\+sqlca.sqlerrtext) halt else open (w_lm24_main) end if 4）“退出”按钮

close(parent)

5）窗口open事件 sqlca.dbms=\ sqlca.autocommit=false

sqlca.dbparm=\ connect using sqlca;

13

盐城工学院经济与管理学院

2．系统控制台主窗口

1）“查询子子系统”按钮 open(w_lm24_query) 2）“数据管理子系统”按钮 open(w_lm24_data) 3）“数据通道”按钮 open(w_lm24_pipe) 4）“帮助子系统”按钮 open(w_lm24_help) 5）“统计分析”按钮 open(w_lm24_statistic) 6）“密码修改”按钮 open(w_lm24_mima) 7）“退出”按钮 close(parent) 3.学生信息查询

1） 窗口open事件

dw_1.settransobject(sqlca) 2）“查询”按钮click事件 string xuehao,ls_picturename

xuehao=trim(sle_1.text)

14

盐城工学院经济与管理学院

if xuehao=\ messagebox(\没有输入学号\请输入正确的查询条件！\else dw_1.retrieve(xuehao)

ls_picturename=\实习\\pic\\\+xuehao+\ p_1.picturename=ls_picturename end if

sle_1.setfocus( ) 3）“清除”按钮的click事件 dw_1.reset( ) sle_1.text=\sle_1.setfocus( ) p_1.picturename=\4.学生选课查询

1） 窗口open事件

dw_1.settransobject(sqlca) 2） “查询”按钮的click事件 string kechen

kechen=trim(sle_1.text) if kechen=\ messagebox(\没有输入课程号\请输入正确的查询条件!\else dw_1.retrieve(kechen) end if

sle_1.setfocus( )sle_1.setfocus() 3）“清除”按钮的click事件 dw_1.reset() sle_1.text=\

15

盐城工学院经济与管理学院