2022年班级管理工作的数据库系统设计说明书 .pdf

《2022年班级管理工作的数据库系统设计说明书 .pdf》由会员分享，可在线阅读，更多相关《2022年班级管理工作的数据库系统设计说明书 .pdf（26页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、班级管理工作的数据库系统设计说明书一、系统需求分析本系统是用于开发一套专门用于班级管理工作的数据库系统，经过仔细研究分析，我们决定将系统分为三大部分，分别为学生人事档案管理，学生成绩查询，后台操作管理三部分。为了便于使用者对班级情况的管理，其中主要侧重点在学生人事档案管理方面。在学生人事档案管理又分为学生人事维护打印和查询打印两个分支。学生成绩菜单具有查询打印功能。系统管理分为操作员管理，密码管理，数据备份等部分。1.学生信息维护：管理学生学号、班级等，一些主要功能：数据录入、修改、删除、查询、浏览、保存、打印等。2.学生人事信息的查询：提供学号，全体查询。分别利用不同的命令代码方式实现查询打

2、印功能，功能是便于指导员和老师，学生用户的检索查询3.学生成绩查询的管理：提供学号，全体查询，与学生人事信息查询相似。几大部分紧密结合联系，共分为两个数据库，第一个数据库包括学生管理维护表和成绩查询表，第二个数据库包括系统管理表。二、系统主要功能模块学生管理系统基于Visual FoxPro 6.0中文版开发，VFP在数据库开发方面具有方面，实用，简单，直接等优点，同时其也具有一定的局限性。本系统主要面向班级指导员和班级学生开发使用，因此主要侧重于系统的使用性和方便性，同时在安全性方面，我们也十分重视。特别是操作员级别的划分等密码管理，我们都做了仔细的分析研究。1.“学生信息管理系统”的模块结

3、构图（如图1）名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 26 页 -图 1 系统模块划分2、本系统的主要容(如图 2)名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 26 页 -图 2 项目管理器名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 26 页 -三、数据库设计数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。本系统的数据库包括4 个表，即学生基本信息表，学生成绩表等。1.学生基本信息表(rsb.dbf)学生基本信息表(rsb.dbf)用于记录学号、班

4、级等信息，其逻辑结构如表 1 所示。表 1 学生基本信息表字段名称字段类型宽度小数位NULL 学号C 12 否C 8 否性别C 2 否专业C 10 贷款否L 2 备注M 4 2.学生成绩表(cjb.dbf)学生基成绩表(cjb.dbf)用于成绩的基本等信息，包括学号、课程编号、课程名称、成绩等信息，其逻辑结构如表2 所示。表 2 学生成绩表字段名称字段类型宽度小数位NULL 学号C 12 否课程名称C 8 否成绩N 4 1 否3.用户表(yonghu.dbf)用于记录系统用户的基本信息，包括用户名，密码等，其逻辑结构如表3 所示。表 3 用户表字段名称字段类型宽度小数位NULL 用户名C 8

5、否密码C 6 否名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 26 页 -四、各功能模块的具体设计根据系统规划和需要分析，把系统划分为学生信息管理，学生成绩查询，系统管理三个模块。本系统用到的主要有以下文件：主控程序 main.prg、启动界面(封面)face.scx、系统登录界面(口令验证窗口)pass.scx、，主菜单main_menu.mpr。程序的调用关系如下：主控程序main.prg 中调用界面表单face.scx，封面中调用“口令验证窗口”表单pass.scx，口令正确则调用系统菜单main_menu.mpr。各菜单项调用相对应的表单。1主控程序 main.prg

6、的代码实现为：CLEAR&清屏CLEAR ALL&从存中释放所有的存变量CLOSE ALL&关闭各种类型的文件SET ESCAPE OFF&禁止运行的程序和命令在按 Esc 键后被中断SET SAFETY OFF&指定在改写已有文件时不显示对话框SET DELETE ON&使用围子句处理记录的命令忽略标有删除标记的记录SET SYSMENU OFF&在程序执行期间废止 Visual FoxPro 主菜单栏RELEASE WINDOW 常用&关闭常用工具栏SET CENTURY ON&年份以四位显示SET DATE TO ymd&日期格式为年、月、日SET MARK TO-&指定日期分隔字符SE

7、T HOURS TO 24&指定为 24-小时时间格式_SCREEN.Visible=.t._SCREEN.Caption=05计专学生管理系统&系统窗口标题_SCREEN.Icon=.dod.ico&系统标题栏图标*判断显示器当前分辨率_SCREEN.Width=SYSMETRIC(1)_SCREEN.Height=SYSMETRIC(2)*根据分辨率不同，为系统设置不同的背景图片IF SYSMETRIC(1)=1024 _SCREEN.Picture=.imgbj.jpg 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 26 页 -ELSE _SCREEN.Picture=.

8、imgbj.jpg ENDIF DO FORM.face.scx&调用登录界面表单On ShutDown do OnShutdown&退出系统时调用函数onshutdown()READ EVENTS&建立事件循环On ShutDown&释放当前的 On ShutDown命令*按菜单的“关闭”按钮退出时，出现的提示框FUNCTION OnShutdown()sel=MESSAGEBOX(真的要退出吗?,4+32+256,提示)IF sel=6 *SELECT 0 *USE.dbsystemLOG *GO BOTTOM *REPLACE 离开时间 WITH DATETIME()&退出系统时记录操作

9、员退出时间 CLOSE ALL CLEAR EVENTS&退出事件循环 QUIT&结束当前 Visual FoxPro 工作期，并将控制权返回给操作系统ENDIF ENDFUNC 2、运行主程序后，系统调用登陆界面表单(face.scx)(图 3)名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 26 页 -图 3 系统调用界面1）将用户表添加到系统调用表单的数据环境中。2）系统调用界面中主要控件属性如表4 所示。表 4 系统调用界面表单控件属性对象名称属性名称属性值Form1 caption 05 计专学生管理系统AutoCenter.T.Timer1 Interival 100

10、0 Timer2 Interival 1000 Timer3 Interival 1000 Command1 caption 登陆系统3）主要事件代码：FORM1 的 INIT 事件代码：SET BELL ON SET BELL TO.MUSICwelcome.wav,2?CHR(7)FORM1 的 UNLOAD 事件代码：SET BELL TO MUSICSILENT.WAV,2?CHR(7)此两项功能分别为在打开表单时调用的音乐文件和关闭表单时调用的音乐名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 26 页 -文件。Command1 的 mouseup事件代码：LPARAM

11、ETERS nButton,nShift,nXCoord,nYCoord release thisform DO FORM.mainpass.scx Timer1 的 timer 事件代码：release thisform DO FORM.mainpass.scx Timer2 的 timer 事件代码：为了实现五角星的闪动：IF THISFORM.label5.visible thisform.label5.visible=.f.else thisform.label5.visible=.t.endif Timer3 的 timer 事件代码：为了实现五角星的闪动：IF THISFORM.l

12、abel5.visible thisform.label5.visible=.t.else thisform.label5.visible=.t.endif Timer4 的 timer 事件代码：为了实现五角星的闪动：IF THISFORM.label5.visible thisform.label5.visible=.t else thisform.label5.visible=.t.endif 同时在每个五角星的颜色也做了设置。3.系统登陆表单(pass.scx)界面设计名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 26 页 -密码验证作为系统最基本的安全管理步骤。用户如

13、果不输入合法的用户名和密码，系统是不能进入的。当用户输入合法的用户名和密码时，系统管理会自动判断此用户，使用户的操作具有合法性。密码验证页包括操作员和密码两个部分。具体的代码实现也将在详细设计书说明。下面是密码登陆页的图示(图 4)：用户在文本框输入操作员及口令，若正确则调用系统主界面(菜单)。允许输入三次，若三次均不正确刚自动退出系统。若用户输入的操作员及口令正确，要完成下列工作：图 4 登陆界面1）要参数设置(1)设置一个全局变量operat,用于记录登陆系统的操作员，系统中有 3 个地方要用到操作员的和代号：一是进入主界面后在标题栏显示的操作员；二是操作员在系统管理模块的口令设置中更改自

14、己的口令，系统要知道是哪个操作员；三是退出系统时系统日志中要记录操作员的退出时间。(2)在系统日志表log.dbf中增加一条记录，并同时记录此操作员的登录系统的时间。从权限表menuright.dbf中读出此操作员对应各菜单项的权限，并赋值给数组。调用菜单文件，显示系统主界面。2）登陆表单界面中主要控件属性如表5 所示。表 5 登陆表单控件属性对象名称属性名称属性值Form1 caption 口令输入窗口AutoCenter.T.Command1 caption 确定Command2 caption 退出3）事件代码：Form1的 init事件代码：名师资料总结-精品资料欢迎下载-名师精心整理

15、-第 9 页，共 26 页 -SET EXACT ON&精确比较PUBLIC ARRAY rr18&数组用于实现菜单项权限PUBLIC i&i用于记录用户名及口令输入次数PUBLIC operat&operat用于保存操作员i=0 THISFORM.Text1.Setfocus“确定”按钮(COMMAND1)CLICK事件代码：*判断密码是否正确i=i+1 SELECT operator LOCATE FOR 操作员=ALLTRIM(THISFORM.Text1.Value)DO CASE CASE i=3 AND FOUND()AND THISFORM.Text2.Value=operato

16、r.口令*输入次数未超过 3 次且用户名正确、口令正确 operat=THISFORM.Text1.Value INSERT INTO log(操作员代号,操作员,登录时间)VALUES(operator.操作;员代号,operator.操作员,DATETIME()_SCREEN.Caption=05计专学生管理系;统+SPACE(40)+DTOC(DATE()+SPACE(40)+操 作员：+operatSELECT 权限 FROM menuright INTO ARRAY rr WHERE 操作员代号;=operator.操作员代号 ORDER BY 菜单项编号 RELEASE THISF

17、ORM DO.mainmain_menu.mpr CASE i=3 AND FOUND()AND THISFORM.Text2.Value!=operator.口令*输入次数未超过 3 次且用户名正确、口令不正确 MESSAGEBOX(密码错误,请重输!,警告)THISFORM.Text2.Value=THISFORM.Text2.Setfocus CASE i3&输入次数超过 3 次 MESSAGEBOX(禁止进入系统!,警告)THISFORM.Release 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 26 页 -ENDCASE 退出按钮(COMMAND2)CLICK事

18、件代码：RELEASE THISFORM CLEAR EVENTS 4.系统主界面当操作员的名称和密码均正确的时候，系统便会进入系统主界面使用主菜单。主菜单共分为三个分菜单项：学生信息管理，学生成绩管理，系统管理。如图(5)图 5 主界面在学生信息管理中分为学生信息维护和学生信息查询两个菜单项，在学生成绩管理中含有学生成绩查询打印菜单项，在系统管理中分为：操作员管理、口令设置、权限管理、系统日志、数据备份、数据恢复、退出系统七项。5 系统菜单设计1、学生信息管理系统的菜单在应用系统中，各个了模块是通过菜单组织在一起的。通过对人事工资管理系统功能模块的设计，可以交系统划分为3 大模块：学生信息管

19、理、学生成绩查询、系统管理，具体的菜单设计见表6：表 6 系统菜单学生信息管理学生成绩管理系统管理学生信息维护学生成绩查询操作员管理名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 26 页 -口令设置学生信息查询权限管理系统日志数据备份数据恢复退出系统在菜单设计器中实现权限设置在菜单项设计器中，通过 提示选项 对话框设置菜单项的跳过条件可以实现用户权限。每个操作员对每个菜单项有两种权限：0 或 1。“0”表示此操作员对该菜单项没有操作权，系统运行后，该菜单项为灰色。不能打开对应的表单，“1”代表该操作员对该菜单项具有操作权，系统运行后，该菜单项可用，鼠标单击菜单项能打开对应的表

20、单。操作员对各菜单项的权限保存在表文件menuright.dbf中，在登录系统时读出该操作员对应各菜单项的权限，并赋值给一个数组RR。本系统共 10 个菜单项，所以定义的数组也包含10 个元素。5.学生数据维护表单(weihu.scx)学生信息维护表单(如图 6)包换下列功能：数据录入、修改、删除、查询、浏览、保存、打印等。本表单左边是浏览窗口，便于用户浏览数据；右边是编辑窗口，主要用于输入修改数据。名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 26 页 -图 6 学生数据维护界面1)在表单数据环境中添加表：rsb.dbf、cjb.dbf。学生人事表和成绩表的结构请打开数据库

21、表查看。在表单数据环境的BRFOREOPENTABLES事件中添加代码：this.cursor1.exclusive=.t.2）学生数据维护表单界面中主要控件属性如表7 所示。表 7 学生数据维护表单控件属性对象名称属性名称属性值Form1 caption 05 计专学生数据维护AutoCenter.T.Grid1 recordsourcetype 1-别名recordsource rsb Commandgroup1 buttoncount 10 value 1 3)事件代码：名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 26 页 -FORM1 的 INIT 事件代码：THI

22、SFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.T.THISFOR

23、M.COMMANDGROUP1.CMDFIND.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.T.THISFORM.TEXT1.READONLY=.T.THISFORM.TEXT2.READONLY=.T.THISFORM.OPTIONGROUP1.ENABLED=.F.THISFORM.TEXT3.READONLY=.T.THISFORM.TEXT4.READONLY=.T.THISFORM.TEXT5.READONLY=.T.THISFORM.TEX

24、T6.READONLY=.T.THISFORM.CHECK1.READONLY=.T.THISFORM.EDIT1.READONLY=.T.THISFORM.GRID1.READONLY=.T.THISFORM.COMMAND1.visible=.T.THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F.FORM1 的 CLICK事件代码：THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F.GRID1的 afterrowclochange事件代码：LPARAMETERS nColInd

25、ex this.setall(dynamicbackcolor,IIF(This.activerowrecno(),rgb(255,;255,255),;rgb(0,255,0),column)名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 26 页 -select rsb thisform.refresh 此代码实现不现颜色显示选中的GRID对象的行及列。“第一个“按钮的CLICK事件代码：select rsb go top mandgroup1.cmdtop.enabled=mandgroup1.cmdprev.enabled=.f.if not eof()mandgrou

26、p1.cmdnext.enabled=mandgroup1.cmdbottom.enabled=.t.endif thisform.refresh“前一个“按钮的CLICK事件代码：select rsb skip-1 if bof()go top mandgroup1.cmdtop.enabled=mandgroup1.cmdprev.enabled=.f.endif if not eof()mandgroup1.cmdnext.enabled=mandgroup1.cmdbottom.enabled=.t.endif thisform.refresh“下一个“按钮的CLICK事件代码：sel

27、ect rsb skip if eof()go bottom mandgroup1.cmdnext.enabled=.f.名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 26 页 -mandgroup1.cmdbottom.enabled=.f.endif if not bof()mandgroup1.cmdtop.enabled=mandgroup1.cmdprev.enabled=.t.endif thisform.refresh“最后一个“按钮的CLICK事件代码：select rsb go bottom mandgroup1.cmdnext.enabled=mandgr

28、oup1.cmdbottom.enabled=.f.if not bof()mandgroup1.cmdtop.enabled=mandgroup1.cmdprev.enabled=.t.endif thisform.refresh“增加“按钮的 CLICK事件代码：if this.caption=增加 this.caption=保存 THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.F.THISFO

29、RM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDFIND.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.F.THISFORM

30、.TEXT1.READONLY=.F.THISFORM.TEXT2.READONLY=.F.名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 26 页 -THISFORM.OPTIONGROUP1.ENABLED=.T.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.READONLY=.F.THISFORM.TEXT5.READONLY=.F.THISFORM.TEXT6.READONLY=.F.THISFORM.CHECK1.READONLY=.F.THISFORM.EDIT1.READONLY=.F.THISFORM.COMMAND1.VI

31、SIBLE=.F.SELECT RSB APPEND BLANK GO BOTTOM THISFORM.TEXT1.SETFOCUS()THISFORM.REFRESH ELSE THIS.CAPTION=增加 THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.t.THISFORM.COMMANDGROUP1.CM

32、DADD.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=.t.THISFORM.TEXT2.READONLY=.t.THISFORM.OPTIONGR

33、OUP1.ENABLED=.f.THISFORM.TEXT3.READONLY=.t.THISFORM.TEXT4.READONLY=.t.THISFORM.TEXT5.READONLY=.t.THISFORM.TEXT6.READONLY=.t.名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 26 页 -THISFORM.CHECK1.READONLY=.t.THISFORM.EDIT1.READONLY=mand1.visible=.t.endif“删除“按钮的 CLICK事件代码：SELECT RSB XH=RSB.学号sel=messagebox(该 记 录 学 号 为

34、：+XH+chr(13)+真 的 要 删 除;吗?,4+32+256,提示)if sel=6 delete endif“查找“按钮的 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 rs

35、b pack thisform.release“TEXT7”的 valid事件代码为：select rsb set filter to 学号=alltrim(thisform.text7.value)or;学生=alltrim(thisform.text7.value)locate for 学号=alltrim(thisform.text7.value)or;学生=alltrim(thisform.text7.value)thisform.refresh 名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 26 页 -set filter to 6、运行界面：(如图 7)图 7 学

36、生数据维护6.学生信息查询表单(chaxun)的设计学生人事信息的查询如图8，是基于 RSB.dbf 表，提供学号，全体查询。分别利用不同的命令代码方式实现查询打印功能。功能是便于指导员和老师，学生用户的检索查询。名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 26 页 -图 8 学生信息查询表单1）学生信息查询表单界面中主要控件属性如表8 所示。表 8 学生信息查询表单控件属性对象名称属性名称属性值Form1 caption 学生信息查询AutoCenter.T.Grid1 recordsourcetype 1-别名recordsource rsb Optiongroup1

37、buttoncount 4 value 1 Command1 caption 查询2）各事件的代码如下：FORM1 的 INIT 事件代码：*输入编号、提示标签及文本框THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F.THISFORM.Text1.Setfocus()*输入起始日期、截止日期提示标签及文本框不可见名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 26 页 -THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=

38、.F.THISFORM.Text3.Visible=.F.THISFORM.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=.

39、F.THISFORM.Text3.Visible=.F.THISFORM.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.

40、Text3.Visible=.F.THISFORM.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.名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 26 页 -THISFORM.Label5.Visible=.T.THISFOR

41、M.Text2.Visible=.T.THISFORM.Text3.Visible=.T.THISFORM.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.

42、Visible=.F.SET FILTER TO GO TOP THISFORM.Grid1.Refresh ENDCASE GRID1的数据连接连接 RSB表。一一对应该对应的数据项，COMMAND4(查询)的 CLICK事件代码：*按输入的日期条件在表格中显示查询的记录SELECT rsb PUBLIC qsrq,jzrq qsrq=THISFORM.Text2.Value jzrq=THISFORM.Text3.Value DO CASE CASE NOT EMPTY(qsrq)AND EMPTY(jzrq)SET FILTER TO 出生日期=qsrq CASE EMPTY(qsrq)

43、AND NOT EMPTY(jzrq)SET FILTER TO 出生日期=qsrq AND 出生日期=jzrq;OTHERWISE MESSAGEBOX(未输入查询时间!,提示)ENDCASE THISFORM.Grid1.Refresh 名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 26 页 -COMMAND1的 CLICK事件代码：REPORT FORM.menu1rsb_bb1.frx PREVIEW 实现调用.menu1rsb_bb1.frx报表实现打印的功能。该表单的运行图示如下(图 9)图 9 学生信息查询表单7.学生成绩查询表单(cjch.scx)设计首先，学

44、生成绩查询菜单的设计与学生信息查询菜单的设计比较类似。菜单调用的是 cjcx.scx表单。1）将 cjb.dbf添加到该表单的数据环境中。2）学生成绩查询表单界面中主要控件属性如表9 所示。表 9 学生成绩查询表单控件属性名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 26 页 -对象名称属性名称属性值Form1 caption 学生成绩查询AutoCenter.T.Grid1 recordsourcetype 1-别名recordsource cjb Optiongroup1 buttoncount 3 value 1 Command1 caption 打印预览设计界面如图

45、10，界面如下：图 10 学生成绩查询表单3)各事件代码均类似于学生信息查询的事件代码。其打印预览按钮的CLICK的事件代码为：DO CASE CASE THISFORM.Optiongroup1.Option1.Value=1 SET FILTER TO 学号=ALLTRIM(THISFORM.Text1.Value);CASE THISFORM.Optiongroup1.Option2.Value=1 名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 26 页 -SET FILTER TO 学生;=ALLTRIM(THISFORM.Text1.Value)CASE THISF

46、ORM.Optiongroup1.Option4.Value=1 ENDCASE REPORT FORM.cjb_pri.frx PREVIEW 8.系统菜单的设计系统菜单的设计主要分为操作员管理、口令设置、权限管理、系统日志、数据备份、数据恢复、退出系统七项。各项调用相应的表单。在操作员管理项可实现操作员的添加，删除，编辑等功能，口令设置实现口令修改的功能，权限管理实现该操作员相应的操作权限功能的设置，系统日志用来记录每个操作员的登陆动作，便于系统的安全管理，数据备份和数据恢复主要是为数据库的数据安全管理设置的。退出系统菜单功能实现退出到操作系统界面，把存归还给操作系统。系统菜单的各项设计类似于前几项菜单的设计，代码也基本类似于学生信息管理菜单的设计，在此不再详细给出。操作员管理的菜单运行如下：(图 11)图 11 学生成绩查询六、参考文献1周永恒 Visual FoxPro 基础教程 (第 3版)：高等教育，2006名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 26 页 -名师资料总结-精品资料欢迎下载-名师精心整理-第 26 页，共 26 页 -