其余见附录
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
盐城工学院经济与管理学院