学生成绩管理系统PB课程设计.doc

学生成绩管理系统程序分析 -刘新元（200708001347） -邵佳威（200708001349）一 系统分析与设计1）系统功能分析系统功能分析阶段的任务就是确定该系统所要解决的问题及其具体要求。学生成绩管理系统需要完成的主要功能如下:（1） 登录信息包括：学生，普通管理员（教师），超级管理员（系统管理员）系统根据不同的用户给予不同的功能。（2） 学生信息：包括查询，添加，删除，和学生信息排序（3） 课程信息：包括查询，添加，删除（4） 成绩信息: 包括成绩查询（按学号或者自己寻找），添加，删除，和学生成绩排序2）系统功能模块分析通过上面各项功能的分析、分类、综合，按照模块化程序设计的要求，得到它的模块结构：（1）系统设置： 它包括密码修改，添加管理员账户，退出系统。 （2）学生信息 ：包括学生基本信息查询，学生基本信息修改，学生基本信息输入。学生基本信息排序。（3）课程信息管理 包括课程信息查询修改，课程信息输入。（4）成绩信息管理 包括成绩查询，成绩修改，成绩输入。成绩排序。二、数据库设计和实现1）创建数据库在PowerBuilder开发环境中打开数据库画板，使用ODB ODBC接口建立的数据库，然后建立5个表和1个视图。分别为“c”表、“s”表、“课程”表、“SC”表、“user”表。各表之间的关系如下图1所示：图1 各表的关联关系2) 创建应用对象（1） 创建新的工作空间。（2） 创建应用对象，应用对象名设为“lx”。（3） 打开新的对象画板.为应用对象ly的Open事件编写代码和截图如下/ Profile liudiSQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = ConnectString=DSN=liudi;UID=;PWD=CONNECT;if SQLCA.sqlcode0 thenmessagebox(提示,数据库连接失败!)elseopen(w_login)end if执行此应用时，首先链接数据库“xscj”，成功后打开登录窗口。 （4）建立菜单如下所示：三、设计系统管理模块（一）登录界面：登录窗口如图2所示：有三种用户登录：1 超级管理员登录：2普通管理员登录：3学生登录界面图2 登录窗口为登录窗口编写脚本。（1）定义全局变量string user_name,user_pass,user_stype,user_sno 分别存储登录用户的姓名、密码和权限。（2）定义实例变量int dlcs 存储登录时用户输入密码错误的尝试次数，控制在最多3次机会。（3）登录窗口w_login的open事件脚本如下 dlcs 3 初始化变量li_n，限制出错次数为3次。（4）登录按钮cb_1的Clicked事件脚本如下。string ls_username,ls_password,ls_sno,ls_stypels_username=trim(sle_1.text)ls_password=trim(sle_2.text)ls_sno=trim(sle_3.text)ls_stype=trim(ddlb_1.text)if ls_stype=admin or ls_stype=administrator thenSELECT user.user_name,user.user_pass,user.user_no,user.user_stypeINTO :user_name,:user_pass,:user_sno,:user_stypeFROM userWHERE (user.user_name= :ls_username ) AND (user.user_no= :ls_sno ) and (user.user_stype= :ls_stype ) and (user.user_pass= :ls_password );elseSELECT s.user_name,s.user_pass,s.sno,s.user_stypeINTO :user_name,:user_pass,:user_sno,:user_stypeFROM sWHERE (s.user_name= :ls_username ) AND (s.sno= :ls_sno ) and (s.user_stype= :ls_stype ) and (s.user_pass= :ls_password );end if if sqlca.sqlcode=0 then open(w_main) close(w_mm) else dlcs=dlcs - 1 if dlcs0 then messagebox(提示,用户名或密码错误) else messagebox(提示,错误超过3次,自动退出) halt end ifend if (5)取消按钮cb_2的Clicked事件脚本如下.sle_1.text=sle_2.text=sle_3.text= (5)关闭按钮cb_2的Clicked事件脚本如下.close(w_mm)2) 登录后的主窗口如下：初始化主界面：2) 设计密码修改窗口创建密码修改窗口w_rpass,调整其大小,在窗口上放置3个静态文本控件(st_1,st_2,st_3)、2个命令按钮控件（cb_1,cb_2）,设计完后如图3所示：图3 密码修改窗口为密码窗口编写脚本（1）提交按钮cb_1的Clicked事件脚本如下。 string ls_passwordif trim(sle_1.text)user_pass thenmessagebox(提示,旧密码错误)elseif trim(sle_2.text)=(sle_3.text) thenls_password=trim(sle_2.text)if user_stype=admin thenUPDATE user SET user_pass = :ls_password WHERE (user.user_name = :user_name ) AND (user.user_pass = :ls_password);else UPDATE s SET s.user_pass = :ls_password WHERE (s.sno = :user_sno ) AND (s.user_pass = :ls_password);end ifIf SQLCA.SQLCode0 ThenMessageBox(连接失败, 不能打开数据库！)elseclose(parent)messagebox(提示,密码修改完成)end ifelsemessagebox(提示,两次密码不相同)end if end if（2）取消按钮cb_2的Clicked事件脚本如下。 Close(parent)1） 设计用户管理的数据窗口和窗口设计数据窗口C表数据窗口：S表数据窗口(管理员)：S表数据窗口(学生)用户数据窗口：sc表数据窗口 四、设计班级管理模块 登录时根据用户自动显示相应的数据（管理员）：查看学生基本信息时:如果不是管理员（超级管理员也不行）则不能插入，删除，和保存。 如果是管理员则出现如下对话框：为排序添加的一些主要代码：学号：dw_1.setsort(sno a)dw_1.sort()dw_1.retrieve() 性别：dw_1.setsort(sex a)dw_1.sort()dw_1.retrieve() 年龄:dw_1.setsort(sage a)dw_1.sort()dw_1.retrieve()班级：dw_1.setsort(sbj a)dw_1.sort()dw_1.retrieve() 姓名：dw_1.setsort(sname a)dw_1.sort()dw_1.retrieve() 插入：dw_1.Insertrow(0) dw_1.ScrollToRow(dw_1.RowCount()dw_1.SetFocus() 删除：dw_1.deleteRow(0) dw_1.SetFocus()保存：dw_1.Update() /保存数据if sqlca.sqlcode=0 thenMessagebox(提示!,修改成功!)elseMessagebox(警告!,修改不成功!)end if 首行：dw_1.ScrollToRow(1)dw_1.selectrow(0,false)dw_1.selectrow(dw_1.getrow(),true) 上一行：dw_1.ScrollPriorRow() dw_1.selectrow(0,false)dw_1.selectrow(dw_1.getrow(),true)下一行：dw_1.ScrollNextRow() dw_1.selectrow(0,false)dw_1.selectrow(dw_1.getrow(),true) 尾行：dw_1.ScrollToRow(dw_1.RowCount() dw_1.selectrow(0,false)dw_1.selectrow(dw_1.getrow(),true) 用户添加窗口如下所示：如果不是超级管理员就会弹出如下对话框：如果是超级管理员就可以添加用户： 课程信息同理：代码和上面的类似：成绩查询窗口：相应的代码：首先添个三 文本框（sle_1，）sle_2 ，sle_3）和DropDownListBox（ddlb_1）等。首先是初始化窗口：dw_1.settransobject(sqlca)dw_1.retrieve()if user_stypeadmin thencb_5.Enabled=falsecb_6.Enabled=falsecb_7.Enabled=falseend ifint kIf dw_1.ModifiedCount()=0 Then Message.ReturnValue=0 ReturnEnd Ifk=MessageBox(提示,数据被修改了，保存吗？,Question!,YesNoCancel!,1)If k=3 Then Message.ReturnValue=1 ReturnElseIF k=1 Then dw_1.update() End IfMessage.ReturnValue=0 查询按钮的代码如下：/取消所有过滤条件dw_1.setfilter()/精确查询模式程序choose case ddlb_1.text c