1、学生管理系统中信息技术的运用一系统规划说明书随着人类社会进入信息时代,计算机越来越多地活跃在社会各个领域:管理,网络,计算,控制,多媒体等。并且在某些方面成为不可缺少的工具,尤其在管理方面,管理软件的出现使大量繁琐复杂的问题变得简单易行。现今学校的规模不断扩大,学生数量急剧增加,有关学生的各种信息量也成倍增长。面对庞大的信息量,学校对学生信息管理的自动化与准确化的要求日益强烈,需要有专门的学生信息管理系统来提高学生管理工作的效率。通过这样的系统,可以做到信息的规范管理,科学统计和快速的查询,从而减少管理方面的工作量。该系统组织结构图如下(图1):学生信息管理系统班级管理课程管理学习管理成绩统计
2、系统维护档案管理班级信息查询班级信息添加课程信息查询班级信息更改学生资料更改学生资料添加学生资料查询课程信息更改课程信息添加档案查询档案汇总成绩查询成绩统计数据备份用户权限管理(图1)一、 系统说明书(一)、系统界面中有登陆系统按钮,系统使用人员可以点击进入密码验证页,如果在一分钟内用户没有点击此按钮,系统会自动跳到密码验证页。此程序的实现代码会在详细设计书中说明。(二)、密码验证作为系统最基本的安全管理步骤。用户如果不输入合法的用户名和密码,系统是不能进入的。当用户输入合法的用户名和密码时,系统管理会自动判断此用户是什么级别的用户,具有什么权限,使用户的操作具有合法性。密码验证页包括操作员姓
3、名和密码两个部分。具体的代码实现也将在详细设计书说明。下面是密码登陆页的图示(图2): (图2)当操作员的名称和密码均正确的时候,系统便会进入系统使用主菜单。主菜单共分为三个分菜单项:学生信息管理,学生成绩管理,系统管理。如图(3) 在学生信息管理中分为学生信息维护和学生信息查询两个菜单项,在学生成绩管理中含有学生成绩查询打印菜单项,在系统管理中分为:操作员管理、口令设置、权限管理、系统日志、数据备份、数据恢复、 退出系统七项。下面为本系统的使用数据流程图:二、 详细设计说明书根据系统规划和需要分析,把系统划分为学生信息管理,学生成绩查询,系统管理三个模块。本系统用到的主要有以下文件:主控程序
4、main.prg、启动界面(封面)face.scx、系统登录界面(口令验证窗口)pass.scx、,主菜单main_menu.mpr。程序的调用关系如下:主控程序main.prg中调用界面表单face.scx,封面中调用“口令验证窗口”表单pass.scx,口令正确则调用系统菜单main_menu.mpr。各菜单项调用相对应的表单。(一)、主控程序main.prg的代码实现为:CLEAR &清屏CLEAR ALL &从内存中释放所有的内存变量CLOSE ALL &关闭各种类型的文件SET ESCAPE OFF &禁止运行的程序和命令在按 Esc 键后被中断SET SAFETY OFF &指定在
5、改写已有文件时不显示对话框SET DELETE ON &使用范围子句处理记录的命令忽略标有删除标记的记录SET SYSMENU OFF &在程序执行期间废止 Visual FoxPro 主菜单栏RELEASE WINDOW 常用 &关闭常用工具栏SET CENTURY ON &年份以四位显示SET DATE TO ymd &日期格式为年、月、日SET MARK TO - &指定日期分隔字符SET HOURS TO 24 &指定为 24-小时时间格式_SCREEN.Visible=.t._SCREEN.Caption=学生管理系统 &系统窗口标题_SCREEN.Icon=.dod.ico &系统
6、标题栏图标*判断显示器当前分辨率_SCREEN.Width=SYSMETRIC(1) _SCREEN.Height=SYSMETRIC(2)*根据分辨率不同,为系统设置不同的背景图片IF SYSMETRIC(1)=1024 _SCREEN.Picture=.imgbj.jpgELSE _SCREEN.Picture=.imgbj.jpgENDIFDO FORM .face.scx &调用登录界面表单On ShutDown do OnShutdown &退出系统时调用函数onshutdown() READ EVENTS &建立事件循环 On ShutDown &释放当前的On ShutDown命
7、令*按菜单的“关闭”按钮退出时,出现的提示框FUNCTION OnShutdown() sel=MESSAGEBOX(真的要退出吗?,4+32+256,提示)IF sel=6 *SELECT 0 *USE .dbsystemLOG *GO BOTTOM *REPLACE 离开时间 WITH DATETIME() &退出系统时记录操作员退出时间 CLOSE ALL CLEAR EVENTS &退出事件循环 QUIT &结束当前 Visual FoxPro 工作期,并将控制权返回给操作系统ENDIFENDFUNC(二)、在运行主程序后,系统调用登陆界面表单(图4) (图4)主要事件代码:FORM1
8、的INIT事件代码:SET BELL ONSET BELL TO .MUSICwelcome.wav,2?CHR(7)FORM1的UNLOAD事件代码:SET BELL TO MUSICSILENT.WAV,2?CHR(7)此两项功能分别为在打开表单时调用的音乐文件和关闭表单时调用的音乐文件。Command1的mouseup事件代码:LPARAMETERS nButton, nShift, nXCoord, nYCoordrelease thisformDO FORM .mainpass.scxTimer1的timer事件代码:release thisformDO FORM .mainpass
9、.scxTimer2的timer事件代码:为了实现五角星的闪动:IF THISFORM.label5.visible thisform.label5.visible=.f. else thisform.label5.visible=.t.endifTimer3的timer事件代码:为了实现五角星的闪动:IF THISFORM.label5.visible thisform.label5.visible=.t. else thisform.label5.visible=.t.endifTimer4的timer事件代码:为了实现五角星的闪动:IF THISFORM.label5.visible t
10、hisform.label5.visible=.t else thisform.label5.visible=.t.endif同时在每个五角星的颜色也做了设置。(三)系统登陆表单设计界面用户在文本框输入操作员及口令,若正确则调用系统主界面(菜单)。允许输入三次,若三次均不正确刚自动退出系统。若用户输入的操作员姓名及口令正确,要完成下列工作:(1) 设置一个全局变量operat,用于记录登陆系统的操作员姓名,系统中有3个地方要用到操作员的姓名和代号:一是进入主界面后在标题栏显示的操作员姓名;二是操作员在系统管理模块的口令设置中更改自己的口令,系统要知道是哪个操作员;三是退出系统时系统日志中要记录
11、操作员的退出时间。(2) 在系统日志表log.dbf中增加一条记录,并同时记录此操作员的登录系统的时间。(3) 从权限表menuright.dbf中读出此操作员对应各菜单项的权限,并赋值给数组。(4) 调用菜单文件,显示系统主界面。事件代码:Form1的init事件代码:SET EXACT ON &精确比较PUBLIC ARRAY rr18 &数组用于实现菜单项权限PUBLIC i &i用于记录用户名及口令输入次数PUBLIC operat &operat用于保存操作员姓名 i=0THISFORM.Text1.Setfocus“确定”按钮(COMMAND1)CLICK事件代码:*判断密码是否正
12、确i=i+1SELECT operatorLOCATE FOR 操作员姓名=ALLTRIM(THISFORM.Text1.Value)DO CASE CASE i=3 AND FOUND() AND THISFORM.Text2.Value=operator.口令 &输入次数未超过3次且用户名正确、口令正确 operat=THISFORM.Text1.Value INSERT INTO log(操作员代号,操作员姓名,登录时间) VALUES(operator.操作员代号,operator.操作员姓名,DATETIME() _SCREEN.Caption=”学生管理系统+SPACE(40)+D
13、TOC(DATE()+SPACE(40)+操作员:+operat SELECT 权限 FROM menuright INTO ARRAY rr WHERE 操作员代号=operator.操作员代号 ORDER BY 菜单项编号 RELEASE THISFORM DO .mainmain_menu.mpr CASE i=3 AND FOUND() AND THISFORM.Text2.Value!=operator.口令 &输入次数未超过3次且用户名正确、口令不正确 MESSAGEBOX(密码错误,请重输!,警告) THISFORM.Text2.Value= THISFORM.Text2.Set
14、focus CASE i3 &输入次数超过3次 MESSAGEBOX(禁止进入系统!,警告) THISFORM.ReleaseENDCASE 退出按钮(COMMAND2)CLICK事件代码:RELEASE THISFORMCLEAR EVENTS(四)系统菜单设计1、 学生信息管理系统的菜单在应用系统中,各个了模块是通过菜单组织在一起的。通过对人事工资管理系统功能模块的设计,可以交系统划分为3大模块:学生信息管理、学生成绩查询、系统管理,具体的菜单设计见下表:学生信息管理学生成绩管理系统管理学生信息维护学生成绩查询操作员管理口令设置学生信息查询权限管理系统日志数据备份数据恢复退出系统2、 在菜
15、单设计器中实现权限设置在菜单项设计器中,通过提示选项对话框设置菜单项的跳过条件可以实现用户权限。每个操作员对每个菜单项有两种权限:0或1。“0”表示此操作员对该菜单项没有操作权,系统运行后,该菜单项为灰色。不能打开对应的表单,“1”代表该操作员对该菜单项具有操作权,系统运行后,该菜单项可用,鼠标单击菜单项能打开对应的表单。操作员对各菜单项的权限保存在表文件menuright.dbf中,在登录系统时读出该操作员对应各菜单项的权限,并赋值给一个数组RR。本系统共10个菜单项,所以定义的数组也包含10个元素。3、 学生信息维护表单包换下列功能:数据录入、修改、删除、查询、浏览、保存、打印等。本表单左
16、边是浏览窗口,便于用户浏览数据;右边是编辑窗口,主要用于输入修改数据。4、 在表单数据环境中添加表:rsb.dbf、cjb、dbf。学生人事表和成绩表的结构请打开数据库表查看。在表单数据环境的BRFOREOPENTABLES事件中添加代码:this.cursor1.exclusive=.t.5、 事件代码:FORM1的INIT事件代码:THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.T.THISFO
17、RM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.TTHISFORM.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDFIND.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.T.THISFORM.
18、TEXT1.READONLY=.T.THISFORM.TEXT2.READONLY=.T.THISFORM.OPTIONGROUP1.ENABLED=.F.THISFORM.TEXT3.READONLY=.T.THISFORM.TEXT4.READONLY=.T.THISFORM.TEXT5.READONLY=.T.THISFORM.TEXT6.READONLY=.T.THISFORM.CHECK1.READONLY=.T.THISFORM.EDIT1.READONLY=.T.THISFORM.GRID1.READONLY=.T.THISFORM.COMMAND1.visible=.T.THI
19、SFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F.FORM1的CLICK事件代码:THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F. GRID1的afterrowclochange事件代码:LPARAMETERS nColIndexthis.setall(dynamicbackcolor,IIF(This.activerowrecno(),rgb(255,255,255),rgb(0,255,0),column)select rsbthisform.refresh 此代码实现不现颜色显
20、示选中的GRID对象的行及列。“第一个“按钮的CLICK事件代码:select rsbgo topmandgroup1.cmdtop.enabled=.f.mandgroup1.cmdprev.enabled=.f.if not eof()mandgroup1.cmdnext.enabled=.t.mandgroup1.cmdbottom.enabled=.t.endifthisform.refresh“前一个“按钮的CLICK事件代码:select rsbskip -1if bof()go topmandgroup1.cmdtop.enabled=.f.mandgroup1.cmdprev.
21、enabled=.f.endifif not eof()mandgroup1.cmdnext.enabled=.t.mandgroup1.cmdbottom.enabled=.t.endifthisform.refresh“下一个“按钮的CLICK事件代码:select rsbskipif eof()go bottommandgroup1.cmdnext.enabled=.f.mandgroup1.cmdbottom.enabled=.f.endifif not bof()mandgroup1.cmdtop.enabled=.t.mandgroup1.cmdprev.enabled=.t.en
22、difthisform.refresh“最后一个“按钮的CLICK事件代码:select rsbgo bottommandgroup1.cmdnext.enabled=.f.mandgroup1.cmdbottom.enabled=.f.if not bof()mandgroup1.cmdtop.enabled=.t.mandgroup1.cmdprev.enabled=.t.endifthisform.refresh“增加“按钮的CLICK事件代码:if this.caption=增加this.caption=保存THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.
23、F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDFIND.ENABLED=.F.T
24、HISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.F.THISFORM.TEXT1.READONLY=.F.THISFORM.TEXT2.READONLY=.F.THISFORM.OPTIONGROUP1.ENABLED=.T.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.READONLY=.F.THISFORM.TEXT5.READONLY=.F.THISFORM.TEXT6.READONLY=.F.THISFORM.CHECK1.READO
25、NLY=.F.THISFORM.EDIT1.READONLY=.F.THISFORM.COMMAND1.VISIBLE=.F.SELECT RSBAPPEND BLANKGO BOTTOMTHISFORM.TEXT1.SETFOCUS()THISFORM.REFRESHELSETHIS.CAPTION=增加THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.t.THISFORM.COMMANDGROUP
26、1.CMDBOTTOM.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDFIND.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.t.THISFORM.TEXT1.READONLY
27、=.t.THISFORM.TEXT2.READONLY=.t.THISFORM.OPTIONGROUP1.ENABLED=.f.THISFORM.TEXT3.READONLY=.t.THISFORM.TEXT4.READONLY=.t.THISFORM.TEXT5.READONLY=.t.THISFORM.TEXT6.READONLY=.t.THISFORM.CHECK1.READONLY=.t.THISFORM.EDIT1.READONLY=.t.mand1.visible=.t.endif“删除“按钮的CLICK事件代码:SELECT RSBXH=RSB.学号sel=messagebox(
28、该记录学号为:+XH+chr(13)+真的要删除吗?,4+32+256,提示)if sel=6deleteendif“查找“按钮的CLICK事件代码:thisform.label11.visible=.t.thisform.text7.visible=.t.thisform.text7.value=thisform.text7.setfocus()“打印“按钮的CLICK事件代码:report form .menu1rsb_bb1.frx preview for rsb.学号=alltrim(thisform.text1.value)“退出“按钮的CLICK事件代码:select rsbpac
29、kthisform.release“TEXT7”的valid事件代码为:select rsbset filter to 学号=alltrim(thisform.text7.value) or 学生姓名=alltrim(thisform.text7.value)locate for 学号=alltrim(thisform.text7.value) or 学生姓名=alltrim(thisform.text7.value)thisform.refreshset filter to6、运行界面:(如图5)(图5)7、学生信息查询菜单的设计学生人事信息的查询是基于RSB.dbf表,菜单提供学号,姓名,
30、全体查询。分别利用不同的命令代码方式实现查询打印功能。功能是便于指导员和老师,学生用户的检索查询。各事件的代码如下:FORM1的INIT事件代码:*输入编号、姓名提示标签及文本框THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F.THISFORM.Text1.Setfocus()*输入起始日期、截止日期提示标签及文本框不可见THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THIS
31、FORM.Command4.Visible=.F.*表格数据不可修改THISFORM.Grid1.Readonly=.T.Optiongroup1的CLICK事件代码:*选定查询类别后,设置各控件是否可见DO CASE CASE THIS.Value=1 &按学号查询 THISFORM.Label2.Visible=.T. THISFORM.Text1.Visible=.T. THISFORM.Label4.Visible=.F. THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THI
32、SFORM.Command4.Visible=.F. THISFORM.Label2.Caption=请输入要查询的学号: THISFORM.Text1.Value= THISFORM.Text1.Setfocus CASE THIS.Value=2 &按姓名查询 THISFORM.Label2.Visible=.T. THISFORM.Text1.Visible=.T. THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFO
33、RM.Command4.Visible=.F. THISFORM.Label2.Caption=请输入学生姓名: THISFORM.Text1.Value= THISFORM.Text1.Setfocus() CASE THIS.Value=3 &按出生日期查询 THISFORM.Label2.Visible=.F. THISFORM.Text1.Visible=.F. THISFORM.Label4.Visible=.T. THISFORM.Label5.Visible=.T. THISFORM.Text2.Visible=.T. THISFORM.Text3.Visible=.T. THI
34、SFORM.Command4.Visible=.T. THISFORM.Text2.Setfocus CASE THIS.Value=4 &显示全体记录 THISFORM.Label2.Visible=.F. THISFORM.Text1.Visible=.F. THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFORM.Command4.Visible=.F. SET FILTER TO GO TOP THISFORM.Gr
35、id1.RefreshENDCASEGRID1的数据连接连接RSB表。一一对应该对应的数据项,COMMAND4(查询)的CLICK事件代码:*按输入的日期条件在表格中显示查询的记录SELECT rsbPUBLIC qsrq,jzrqqsrq=THISFORM.Text2.Valuejzrq=THISFORM.Text3.ValueDO CASE CASE NOT EMPTY(qsrq) AND EMPTY(jzrq) SET FILTER TO 出生日期=qsrq CASE EMPTY(qsrq) AND NOT EMPTY(jzrq) SET FILTER TO 出生日期=qsrq AND
36、出生日期=jzrq OTHERWISEMESSAGEBOX(未输入查询时间!,提示)ENDCASETHISFORM.Grid1.RefreshCOMMAND1的CLICK事件代码:REPORT FORM .menu1rsb_bb1.frx PREVIEW实现调用.menu1rsb_bb1.frx报表实现打印的功能。该表单的运行图示如下(图6)8、学生成绩查询菜单的设计首先,学生成绩查询菜单的设计与学生信息查询菜单的设计比较类似。菜单调用 的是cjcx.scx表单。各事件代码均类似于学生信息查询的事件代码。其打印预览按钮的CLICK的事件代码为:DO CASE CASE THISFORM.Opt
37、iongroup1.Option1.Value=1 SET FILTER TO 学号=ALLTRIM(THISFORM.Text1.Value) CASE THISFORM.Optiongroup1.Option2.Value=1 SET FILTER TO 学生姓名=ALLTRIM(THISFORM.Text1.Value) CASE THISFORM.Optiongroup1.Option4.Value=1ENDCASEREPORT FORM .cjb_pri.frx PREVIEW菜单运行的界面如下:(图7)(图7)9、系统菜单的设计系统菜单的设计主要分为操作员管理、口令设置、权限管理、
38、系统日志、数据备份、数据恢复、 退出系统七项。各项调用相应的表单。在操作员管理项可实现操作员的添加,删除,编辑等功能,口令设置实现口令修改的功能,权限管理实现该操作员相应的操作权限功能的设置,系统日志用来记录每个操作员的登陆动作,便于系统的安全管理,数据备份和数据恢复主要是为数据库的数据安全管理设置的。退出系统菜单功能实现退出到操作系统界面,把内存归还给操作系统。系统菜单的各项设计类似于前几项菜单的设计,代码也基本类似于学生信息管理菜单的设计,在此不再详细给出。操作员管理的菜单运行如下:(图8)此文档可自行编辑修改,如有侵权请告知删除,感谢您的支持,我们会努力把内容做得更好最新可编辑word文档