学生成绩管理系统PB课程设计(共14页).doc

精选优质文档-倾情为你奉上一系统分析与设计1）系统功能分析系统功能分析阶段的任务就是确定该系统所要解决的问题及其具体要求。学生成绩管理系统需要完成的主要功能如下:1.学生信息的输入和存储,包括学生编号、学生名称、所属专业等。2.对已经输入的班级信息的修改、查询。3.学生基本信息的输入和存储、包括学号、姓名、性别、出生日期等。4.学生基本信息的查询。5.每学期初各班所开设课程的输入，包括课程名、学期、学时等。6.各班所开设课程信息的查询。7.学期末输入每个学生的考试成绩。8.查询某个学生。9.查询并打印某班某学期所有学生的各科成绩。10.查询并打印某班某学期某课成绩。2）系统功能模块分析通过上面各项功能的分析、分类、综合，按照模块化程序设计的要求，得到它的模块结构：（1）学生基本信息管理包括学生基本信息查询，学生基本信息输入。（2）课程信息管理包括课程信息查询，课程信息输入。（3）成绩信息管理包括成绩查询，成绩输入。二、数据库设计和实现1）创建数据库在PowerBuilder开发环境中打开数据库画板，使用ODB ODBC接口建立Adaptive Server Anywhere 8.0(ASA 8.0)的数据库，然后建立3个表和1个视图。分别为“课程”表、“成绩”表、“选课”表。各表之间的关系如下图1所示：图1 各表的关联关系2) 创建应用对象（1）创建新的工作空间。（2）创建应用对象，应用对象名设为“ww”。（3）打开新的对象画板.为应用对象app_xscj的Open事件编写代码如下：/ Profile liudiSQLCA.DBMS = "ODBC"SQLCA.AutoCommit = FalseSQLCA.DBParm = "ConnectString='DSN=mydb;UID=;PWD='"CONNECT;ifSQLCA.sqlcode<>0 thenmessagebox("提示","数据库连接失败!")elseopen(w_login)end if执行此应用时，首先链接数据库“ww”，成功后打开登录窗口。三、设计系统管理模块1）设计登录窗口登录窗口如图2所示：图2 登录窗口为登录窗口编写脚本。（1）定义全局变量stringgs_username,gs_password,gs_admin分别存储登录用户的姓名、密码和权限。（2）定义实例变量intli_n存储登录时用户输入密码错误的尝试次数，控制在最多3次机会。（3）登录窗口w_login的open事件脚本如下li_n=3初始化变量li_n，限制出错次数为3次。（4）确定按钮cb_1的Clicked事件脚本如下。stringls_username,ls_passwordls_username=trim(sle_1.text)ls_password=trim(sle_2.text)if ls_username="" or ls_password="" thenmessagebox("提示","用户名和密码不能为空")elseSELECT "users"."name","users"."password","users"."admin"INTO :gs_username,:gs_password,:gs_adminFROM "users"WHERE ("users"."name" = :ls_username ) AND ("users"."password" = :ls_password );ifsqlca.sqlcode=0 thenopen(w_main)close(w_login)elseli_n=li_n - 1ifli_n<>0 thenmessagebox("提示","用户名或密码错误")elsemessagebox("提示","错误超过3次,自动退出")haltend ifend ifend if(5)放弃按钮cb_2的Clicked事件脚本如下.halt四、设计学生基本信息管理模块1）设计访问学生基本信息的数据窗口设计输入学生基本信息的数据窗口创建数据窗口d_jiben_shuru，显示风格为“Freeform”，数据源类型为“Quick Select”，其布局如图15所示：图15 数据窗口d_jiben_shuru数据窗口的d_jiben_shuru生成的SQL Select语句为： SELECT "jiben"."xh", "jiben"."xm", "jiben"."xb", "jiben"."csrq", "jiben"."jtzz", "jiben"."bjbh" FROM "jiben" 设计修改学生基本信息的数据窗口创建数据窗口d_jiben_xiugai，显示风格为“Grid”，数据源类型为“Quick Select”，其布局如图16所示:图16 数据窗口d_jiben_xiugai数据窗口d_jiben_xiugai生成的SQL Seleect语句为： SELECT "jiben"."xh", "jiben"."xm", "jiben"."xb", "jiben"."csrq", "jiben"."jtzz", "jiben"."bjbh" FROM "jiben" ORDER BY "jiben"."xh" ASC 设计查询学生基本信息的数据窗口创建数据窗口d_jiben_chaxun，显示风格为“Grid”,数据源类型为“SQL Select”，其布局如图17所示：图17 数据窗口d_jiben_chaxun其中，定义3个String型的检索参数变量mxh、mxm、mbj，分别表示学号、姓名、班级，形成带检索参数的数据窗口。2）设计访问学生基本信息的窗口设计输入学生基本信息的窗口通过继承窗口输入窗口w_shuru生成输入学生基本信息窗口w_jiben_shuru,将数据控件dw_1的DataObject属性设置为d_jiben_shuru，将窗口的Title属性改为“录入学生基本信息”，如图18。图18 录入学生基本信息窗口2设计输入学生基本信息的窗口通过继承窗口输入窗口w_xiugai生成修改学生基本信息窗口w_jiben_xiugai, 将数据控件dw_1的DataObject属性设置为d_jiben_xiugai，将窗口的Title属性改为“修改学生基本信息”，如图19：图19 修改学生基本信息窗口3设计查询学生基本信息的窗口要求此窗口中能够根据学生的姓名或学号查询出学生的基本信息，能够根据班级名称查询出该班所有学生的基本信息。窗口如图20所示：图20 查询学生基本信息窗口查询按钮的Open事件脚本如下。dw_1.settransobject(sqlca)if ddplb_1.text="" or sle_1.text="" thenmessagebox("提示","查询列和查询内容不能为空!")returnend if stringstrstr=trim(sle_1.text)choose case ddplb_1.textcase "学号"dw_1.retrieve(str,"%","%")case "姓名"dw_1.retrieve("%",str,"%")case "班级名称"dw_1.retrieve("%","%",str)end choose代码中根据查询依据的不同，以不同参数方式检索。五、设计课程管理模块1）设计访问课程信息的数据窗口设计输入课程信息的数据窗口创建数据窗口d_bjkc_shuru，显示风格为“Grid”，数据源类型为“Quick Select”，其布局如图20所示：图20 数据窗口d_bjkc_shuru数据窗口d_bjkc_shuru生成的SQL Seleect语句为： SELECT "bjkc"."bjbh", "bjkc"."xq", "bjkc"."kcmc", "bjkc"."xs", "bjkc"."jsxm" FROM "bjkc" .设计查询课程信息的数据窗口创建数据窗口d_bjkc_chaxun，显示风格为“Grid”，数据源类型为“Quick Select”，其布局如图21所示。图21 数据窗口d_bjkc_chaxunn其中，定义2个 String型检索参数变量mxq、mbjmc，分别表示学期、班级，形成带检索参数的数据窗口。该数据窗口的修改属性为默认值即“不允许修改”。数据窗口d_bjkc_chaxun生成的SQL Select语句为：SELECT "bjkc"."kcmc", "bjkc"."xs", "bjkc"."jsxm", FROM "bjkc" , "banji""WHERE ("banji". "bjbh"= "bjkc". "bjbh") AND ("bjkc". "xq"=:mxq) AND("banji "." bjmc"=:mbjmc)2）设计访问课程信息的窗口设计查询班级开设课程的窗口首先创建一个窗口对象w_bjkc_chaxun，调整大小，在窗口中放置2个静态文本控件（st_1,st_2）、2个下拉列表框控件（ddlb_1,ddlb_2）、1个命令按钮（cb_1）、1个数据窗口控件（dw_1），调整各个控件的位置和大小。如图23所示：(1)窗口w_bjkc_chaxun的open事件脚本如下dw_1.settransobject(sqlca)intli_xq,li_bjmc,nstringls_xq,ls_bjmcselect count(distinct xq)into :li_xq图23 查询班级开设课程的窗口from 课程;declarexqcursor cursor forselect xq from 课程 group by xq;openxqcursor;for n=1 to li_xqfetch next xqcursor into :ls_xq;ddplb_1.additem(ls_xq)nextclosexqcursor;select count(distinct bjmc) into :li_bjmcfrom 班级;declarebjmccursor cursor forselect 班级.bjmcfrom 课程, 班级where 课程.bjbh=班级.bjbh group by 班级.bjmc;openbjmccursor;for n=1 to li_bjmcfetch next bjmccursor into :ls_bjmc;ddplb_2.additem(ls_bjmc)nextclosebjmccursor; (2)查询按钮的Clicked事件脚本如下。dw_1.retrieve(ddplb_1.text,ddplb_2.text) 六、设计成绩管理模块1）设计访问成绩信息的数据窗口设计输入成绩信息的数据窗口创建数据窗口d_xscj_shuru，显示风格为“Grid”,数据源类型为“SQL Select”，其布局如图19所示。数据来源与成绩表xscj和视图xsjb，其中，学号、学期、课程名称和成绩为成绩表xscj的列，姓名是视图xscj的列。选则Roes|Updata Properties命令，打开数据窗口的修改属性对话框，如图24所示：图24 数据窗口d_xscj_shuru选择Rows|Update Properties命令，打开数据窗口的修改属性对话框，设置数据窗口的修改属性，即只有成绩表xscj的成绩列可以在数据窗口中修改，关键字为成绩表xscj的主关键字（xh,xq,kcmc）。然后，单击工具条上的Tab Order图标，将列控件sxcj_cj的Tab Order值设为10，在单击Tab Order图标回到原设计状态。如图25:图25 数据窗口d_xscj_shuru的修改属性设计查询某班级某学期全体学生各科成绩的数据窗口创建数据窗口d_xscj_bjcx，显示风格为“Cross Tab”,数据源类型为“SQL Select”,数据来源于成绩表xscj和视图xsbj。如图26：图26 数据窗口d_xscj_grcx设计查询某班级某学期全体学生各科成绩的数据窗口创建数据窗口d_xscj_bjcx，显示风格为“Cross Tab”,数据源类型为“SQL Select”,数据来源于成绩表xscj和视图xsbj。如图27:图27 数据窗口d_xscj_bjxc在Headeer1条中添加2个计算域控件，对应的表达式分别为mbjmc和mxq,3个文本控件，其文本分别为“成绩单”、“班级”、和“学期”.数据窗口的检索参数为mxq和mbjmc，分别对应于学期和班级名称，修改属性取默认值（不允许修改）。设计查询某班级某学期全体学生各科成绩的数据窗口创建数据窗口d_xscj_kccx,显示风格为“N_Up”,拦数为2，数据源类型为“SQL Select”,数据来源于成绩表xscj和视图xsbj.如图28:图28 数据窗口d_xsch_kccx在Header条中添加2个计算域控件对应的表达式分别为mbcme,3个文本控件，其文本分别为“成绩单”、“班级”、和“课程”.数据窗口的检索参数为mxq、mbjmc、mkcme,分别对应于学期、班级名称和课程名称，修改属性取默认值（不允许修改）。2)设计访问成绩信息的窗口设计输入成绩的窗口首先创建窗口对象w_xscj_shuru，在窗口上放置1个分组框控件、3个静态文本控件、3个下拉列表框控件、3个命令按钮控件和1个数据窗口控件。如图29：图29 输入成绩的窗口各个窗口和控件的事件脚本如下。(1)窗口的open事件脚本如下。 dw_1.settransobject(sqlca)intli_xq,li_bjmc,li_kcmc,nstringls_xq,ls_bjmc,ls_kcmcselect count(distinct xq)into :li_xqfrombjkc;declarexqcursor cursor forselectxq from bjkc group by xq;openxqcursor;for n=1 to li_xqfetch next xqcursor into :ls_xq; ddlb_1.additem(ls_xq)nextclosexqcursor;/生成班级下拉列表框的列表项select count(distinct bjbh) into :li_bjmcfrombjkc;declarebjmccursor cursor forselectbanji.bjmcfrombjkc, banjiwherebjkc.bjbh=banji.bjbh group by banji.bjmc;openbjmccursor;for n=1 to li_bjmcfetch next bjmccursor into :ls_bjmc; ddlb_2.additem(ls_bjmc)nextclosebjmccursor;(2)窗口的closequery事件脚本如下。integerrtdw_1.accepttext()if dw_1.modifiedcount()=0 thenreturn 0elsert=messagebox("提示","添加修改内容未保存,确实退出吗?",question!,yesno!)ifrt=1 thenreturn 0end if end ifreturn 1(3)课程的下拉列表框的getfocus事件脚本如下。intli_kcmc,nstringls_kcmc,ls_xq,ls_bjmcls_xq=ddlb_1.textls_bjmc=ddlb_2.textif not(ls_xq=""or ls_bjmc="") thenselect count(distinct bjkc.kcmc)into :li_kcmcfrombjkc,banjiwhere(bjkc.bjbh=banji.bjbh)and (banji.bjmc=:ls_bjmc)and(bjkc.xq=:ls_xq);declarekcmccursor cursor forselectbjkc.kcmcfrombanji,bjkcwhere(bjkc.bjbh=banji.bjbh)and (banji.bjmc=:ls_bjmc)and(bjkc.xq=:ls_xq)group by bjkc.kcmc;ddlb_3.reset()openkcmccursor;for n=1 to li_kcmcfetch next kcmccursor into :ls_kcmc;ddlb_3.additem(ls_kcmc)nextclosekcmccursor;end if (4)确定按钮的clicked事件脚本如下。intli_xh,nstringls_kcmc,ls_xq,ls_bjmc,ls_xhls_xq=ddlb_1.textls_bjmc=ddlb_2.textls_kcmc=ddlb_3.textif ls_xq="" or ls_bjmc="" or ls_kcmc="" thenmessagebox("提示","选择项不能空!")elseselect count(distinct xh)into :li_xhfromxsbjwherexsbj.bjmc=:ls_bjmc;declarexhcursor cursor forselectxhfromxsbjwherexsbj.bjmc=:ls_bjmc;openxhcursor;for n=1 to li_xhfetch next xhcursorinto:ls_xh;insertinto"xscj"("xh","xq","kcmc","cj")values(:ls_xh,:ls_xq,ls_kcmc,null);nextclosexhcursor;dw_1.retrieve(ls_xq,ls_bjmc,ls_kcmc)end if设计查询学生个人成绩窗口查询学生个人成绩的窗口如图30所示。数据窗口控件连接的数据窗口对象为d_xscj_grcx.(1)查询按钮的clicked事件脚本如下dw_1.settransobject(sqlca)if sle_1.text=""or sle_2.text="" thenmessagebox("提示","班级学期和课程不能为空")else dw_1.retrieve(sle_1.text,sle_2.text) cb_2.enabled=trueend if(2)打印按钮的clicked事件脚本如下dw_1.print(true)(3)退出按钮的clicked事件脚本如下close(parent)设计查询班级成绩的窗口查询班级成绩的窗口如图31所示。数据窗口控件的dataobject属性为d_xscj_bjcx。此窗口的open 事件脚本与输入成绩窗口的open事件脚本相同。打印按钮和退出按钮的clicked事件脚本与d_xscj_grcx中的一样。(1)查询按钮的clicked事件脚本如下dw_1.settransobject(sqlca)if ddplb_1.text=""or ddplb_2.text="" thenmessagebox("提示","班级学期和课程不能为空")else dw_1.retrieve(ddplb_1.text,ddplb_2.text) cb_2.enabled=trueend if图31 查询班级成绩的窗口设计查询课程成绩的窗口查询课程成绩的窗口如图32所示。数据窗口控件的dataobject属性为d_xscj_kccx。此窗口的open事件脚本、“课程”的下拉列框的getfocus事件脚本与输入成绩窗口的对应事件脚本相同，打印按钮和退出按钮的clicked 事件脚本与查询学生个人成绩窗口中的一样。(1)查询按钮的clicked事件脚本如下dw_1.settransobject(sqlca)if ddplb_1.text=""or ddplb_2.text=""or ddplb_3.text="" thenmessagebox("提示","班级学期和课程不能为空")else dw_1.retrieve(ddplb_1.text,ddplb_2.text,ddplb_3.text) cb_2.enabled=trueend if图31 查询课程成绩的窗口七、系统的编译和发布到此为止，系统的实现工作就完成了。在第个模块的实现过程中，对其每个功能要进行仔细的测试和调试，最后对整个应有程序做系统的测试，在测试工作完成后可进作应用程序的编译和发布步骤如下。(1)创建工程对象单击工具条上的new图标，打开new对话框，在对话框中选择rpoject标签，再选择application wizard图标，单击ok按钮，开始工程的向导，露出马最后出现工程对象。(2)编译生成可执行程序单击工程画板工具条上的deploy图标，开始编译过程。编译通过后，生成可执行文件xscj.exe(3)测试分布对可执行程序做系统的测试，最后便可发布了。专心-专注-专业