《[PB课程设计]高校学生管理信息系统.doc》由会员分享，可在线阅读，更多相关《[PB课程设计]高校学生管理信息系统.doc（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 序号：39山东理工大学计算机学院PowerBuilder 9.0（大作业）班 级 计科0504 姓 名 张琳琳 学 号 0512208425 指导教师 孙勇 二八 年 一 月 九 日高校学生管理信息系统详细设计说明书 1. 引言：1.1. 编写目的该文档是专门为老师评卷使用。1.2. 背景在大学的学习生活中，各种各样的课程名目繁多，而每一学期，我们都要从这些课程中选出我们所需要的，如果单靠手工工作的话，这无疑是一项相当繁重的任务，不仅给学校增加了一些不必要的负担，同时，也给同学们带来了很大的不便。由此，大学生选课系统便应运而生，这也是计算机在现代生活的一个新的应用，适应了时代的潮流。1.3.
2、 定义大学生选课系统，顾名思义，就是用于大学生选修各门课程的计算机系统，它是用计算机替代手工工作的一个范例，体现了信息化时代作为时代先锋的大学在计算机应用方面的独到之处，它方便，快捷，易于操作，实用性强，效率高，既节省了成本，也方便了老师同学，是我们学校生活必备的一个简易实用软件。2. 部门信息维护 frmDepartment2.1. 功能1管理员 功能：对学生选课信息进行增加、修改、删除，查询等操作.并可以添加新的管理员2学生（普通用户）：对选课信息进行查询，并可以进行选课操作2.2. 时间 开始时间 2007. 12. 10 最后修改时间 2007. 1.10 2.3. 主界面菜单为：查询
3、学生信息，查询课程信息，录入信息，修改信息，删除，查询选课，选课系统，管理用户组，以下为系统基本框架图及界面：欢迎界面登陆界面管理员登陆学生登陆主界面主界面查找学生信息查询课程信息录入信息修改信息删除查询选课选课系统管理用户组查询课程信息选课系统修改个人信息修改密码 2.4. 输入项1 管理员帐号，管理员密码，2 ,院系,院长 3 学号,姓名,年龄,性别,系别,院系, 4 课程号,课程名,先行课,学分5 通过键盘输入数据6 涉及到的表：stulogin，Masterlogin，yuanxi，stu，course，xuanke，teacher。2.5. 输出项1. 将数据保存到数据库中2. 涉及
4、的表：stulogin。Masterlogin。yuanxi。stu。course。xuanke。teacher。2.6. 主要算法此程序大部分都是用具体代码实现，有相似的地方，我是用粘贴来实现的，所以程序中较少实用各种算法，缺点就是代码比较多，比较繁琐，优点就是在代码的各个实现地方能够确切的看出代码的思想以及具体内容，对为一个初学者，我认为这样可以使我加深对具体代码的理解，增加对代码的感知度2.7. 限制条件功能实现比较少，离实际需要的还有一段距离，而且，页面设计也不是很合理，各部分的关系处理的不是很条理。功能上，在修改学生、教师、院系信息时，需要将改动的那个选项完全删除，然后写上改后的资料
5、，否则会出现只能删去某些字，而不能添加字的现象。2.8. 尚未解决的问题功能上，在修改学生、教师、院系信息时，需要将改动的那个选项完全删除，然后写上改后的资料，否则会出现只能删去某些字，而不能添加字的现象。功能等，例如查询，都能够实现，但是数据检索算法简单，时间复杂性高，在修改系统、提升系统的性能之前，没有太大的实用价值。3. 程序设计说明open(splash)/打开欢迎界面 SQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = ConnectString=DSN=db_stu;UID=sa;PWD=00000000连接数据库conn
6、ect using sqlca;sleep(2)/等待片刻close(splash)open(w_login)/打开主界面end event*管理员登陆验证代码string aselect 密码into :afrom masterlogin /从数据库选择帐号，密码信息*以下是验证部分where 密码= :sle_2.text and帐号= :sle_1.textusing sqlca;if sqlca.sqlcode=100 thenMessageBox(Hint,密码或用户名错误！)sle_2.text=elseopen(w_mainwin)/通过验证，则打开主窗口user=sle_1.t
7、extclose(parent)end if*学生登陆验证string astring b select *into :a,:bfrom stulogin/从数据库取出帐号，密码信息，以下是验证代码where 密码= :sle_2.text and帐号= :sle_1.textusing sqlca;if sqlca.sqlcode=100 thenMessageBox(Hint,密码或用户名错误！)sle_2.text=elseopen(w_stumainwin)/通过验证，则打开主窗口user=sle_1.textclose(parent)end if*8显示选课表的内容dw_1.data
8、object=dw_xuankedw_1.SetTransObject(sqlca) dw_1.retrieve()dw_1.dataobject=dw_coursedw_1.SetTransObject(sqlca)dw_1.setsqlselect(select * from course)dw_1.retrieve()按学号查询dw_1.setfilter(xuanke_学号=+sle_1.text+)dw_1.retrieve()sle_1.text=*按课程号查询dw_1.setfilter(xuanke_课程号=+sle_2.text+)dw_1.retrieve()sle_2.t
9、ext=*保存对密码的修改string str1,str2,confirmstr1=sle_1.textstr2=sle_2.text/两个输入框if str1=str2 then/验证两次输入密码update stuloginset 密码=:str1where 帐号=:userusing sqlca;MessageBox(提示,密码修改成功,您的新密码是 +str1)sle_1.text=sle_2.text=elseMessageBox(错误,两次输入的密码不一致!)sle_1.text=sle_2.text=end if*个人信息录入string str1,str2,str3,str4,
10、str5,str6/6个文本输入框select *into :str1,:str2,:str3,:str4,:str5,:str6from stuwhere 学号 =:userusing sqlca;sle_1.text=str2sle_2.text=str3sle_3.text=str4sle_4.text=str5sle_5.text=str6*对信息修给的验证与保存/因为存在主码约束，不能轻易删除，所以只能由update更新string str1,str2,str3,str4,str5,str6,confirmstr1=sle_1.textstr2=sle_2.textstr3=sle_
11、3.textstr4=sle_4.textstr5=sle_5.textint ageage=Integer(str2)if 5age thenif age100 thenselect 系别 into :confirm from yuanxi where 系别= :sle_4.text using sqlca;if sqlca.sqlcode=100 then MessageBox(错误,系别填写错误！)/系别验证部分sle_4.text=str4elseselect 院系 into :confirm from yuanxi where 院系= :sle_5.text using sqlca;
12、 if sqlca.sqlcode=100 then MessageBox(错误,院系填写错误！)/院系验证部分sle_5.text=str5elseupdate stu set 姓名=:str1, 年龄=:str2, 性别=:str3, 系别=:str4, 院系=:str5 where 学号=:user using sqlca;MessageBox(提示信息,个人信息修改成功!)/验证成功，保存sle_1.text=sle_2.text=sle_3.text=sle_4.text=sle_5.text=end ifend if elseMessageBox(提示信息,年龄必须介于 5-100
13、 !)sle_2.text=str2 end ifelseMessageBox(提示信息,年龄必须介于 5-100 !)sle_2.text=str2end if*88删除学生信息string confirmselect 学号into :confirmfrom stuwhere 学号 = :sle_1.text/从数据库取出信息，以下是验证部分using sqlca;if sqlca.sqlcode=100 thenMessageBox(错误,不存在学号 +sle_1.text+ 对应的记录，请返回修改！)elsedelete from stu where 学号 = :sle_1.textus
14、ing sqlca;MessageBox(提示,学号 +sle_1.text+ 对应的记录删除成功!)sle_1.text=end if*输入教工信息代码string str1,str2,str3,str4,confirmselect 教工号into :confirmfrom teacherwhere 教工号=:sle_1.textusing sqlca;if sqlca.sqlcode=100 thenMessageBox(错误,不存在教工号为+str1+ 的教师,请返回修改!)elseselect * into :str1,:str2,:str3,:str4 from teacher wh
15、ere 教工号=:sle_1.text using sqlca;sle_1.text=str1sle_2.text=str2sle_3.text=str3sle_4.text=str4end if*8教工信息保存string str1,str2,str3,str4,confirmstr1=sle_1.textstr2=sle_2.textstr3=sle_3.textstr4=sle_4.textselect 教工号into :confirmfrom teacherwhere 教工号=:sle_1.textusing sqlca;if sqlca.sqlcode=100 thenMessage
16、Box(错误,不存在教工号为 +str1+ 的教师!)else update teacher set 姓名=:str2,年龄=:str3,性别=:str4 where 教工号=:str1 using sqlca;MessageBox(提示,教师信息修改成功!)sle_1.text=sle_2.text=sle_3.text=sle_4.text=end if*增加删除帐号代码string str1,confirmstr1=sle_1.textselect 帐号into :confirmfrom stuloginwhere 帐号=:sle_1.textusing sqlca;if sqlca.s
17、qlcode=0 thenMessageBox(错误,已存在帐号 +str1+ !)sle_1.text=else insert into stulogin values(:str1,:str1) using sqlca;sle_1.text=sle_2.text=dw_1.retrieve()end if*删除string str1,confirmstr1=sle_1.textselect 帐号into :confirmfrom stuloginwhere 帐号=:sle_1.textusing sqlca;if sqlca.sqlcode=100 thenMessageBox(错误,不存在
18、此帐号,返回修改!)sle_1.text=sle_2.text=elsedelete from stulogin where 帐号=:str1using sqlca;dw_1.retrieve()sle_1.text=sle_2.text=end if*确定修改密码string str1,str2,confirmstr1=sle_1.textstr2=sle_2.textselect 帐号into :confirmfrom stuloginwhere 帐号=:str1using sqlca;if sqlca.sqlcode=100 thenMessageBox(出错,未存在此帐号!)elseu
19、pdate stulogin set 密码=:str2 where 帐号=:str1using sqlca;MessageBox(提示,修改成功)sle_1.text=sle_2.text=dw_1.retrieve()end if*检索数据库string str1,str2,str3,str4,str5,str6,confirmstr1=sle_1.textstr2=sle_2.textstr3=sle_3.textstr4=sle_4.textstr5=sle_5.textstr6=sle_6.text select 学号into :confirmfrom stuwhere 学号 = :s
20、le_1.textusing sqlca;if sqlca.sqlcode=100 thenMessageBox(提示信息,数据库中未存在此记录，可以执行添加操作！)sle_1.text=str1sle_2.text=str2sle_3.text=str3sle_4.text=str4sle_5.text=str5sle_6.text=str6elseMessageBox(提示信息,数据库已存在该记录！)end if*添加学生详细信息string str1,str2,str3,str4,str5,str6,con1,con2,con3str1=sle_1.textstr2=sle_2.text
21、str3=sle_3.textstr4=sle_4.textstr5=sle_5.textstr6=sle_6.text int ageage=Integer(str3)if 5age thenif age100 thenselect 学号into :con1from stuwhere 学号 = :sle_1.textusing sqlca;if sqlca.sqlcode=0 thenMessageBox(错误,已存在学号 +str1+ 对应的记录，请返回修改！)sle_1.text=elseselect 系别 into :con1 from yuanxi where 系别= :sle_5.
22、text using sqlca;if sqlca.sqlcode=100 then MessageBox(错误,不存在系别+str5+! 请返回yuanxi表首先添加 该系别！)elseselect 院系 into :con1 from yuanxi where 院系= :sle_6.text using sqlca; if sqlca.sqlcode=100 then MessageBox(错误,不存在院系+str6+! 请返回yuanxi表首先添加该 院系！)elseinsert into stu values(:str1,:str2,:str3,:str4,:str5,:str6);MessageBox(提示信息,添加记录成功!)sle_1.text=sle_2.text=sle_3.text=sle_4.text=sle_5.text=sle_6.text=end ifend ifend if elseMessageBox(提示信息,年龄必须介于 5-100 !) end ifelseMessageBox(提示信息,年龄必须介于 5-100 !)end if15