vf计专学生管理系统操作介绍

０5计专同学管理系统简略设计说明书系统规划说明书在此次大作业之间，我们班级并没有一套完善的同学管理系统。始终以来，班级管理工作主要是简洁的WORＤ文档的使用和AＣＥＳS数据库的应用。其操作方法简洁但功能很不完善，简明性和有用性都较差。因此，我们第四小组决定利用此次大作业的机会，开发一套专门用于班级管理工作的数据库系统。经过仔细讨论分析,我们决定将系统分为三大菜单部分。分别为同学人事档案管理,同学成果查询，后台操作管理三部分.为了便于指导员和学校领导对班级情况的了解管理，其中主要侧重点在同学人事档案管理方面。在同学人事档案管理又分为同学人事维护打印和查询打印两个分支。同学成果菜单具有查询打印功能。系统管理分为操作员管理，密码管理，数据备份等部分。三大菜单部分紧密结合联系,共分为两个数据库，第一个数据库包括同学管理维护表和成果查询表，其次个数据库包括系统管理表。如下图所示(图1）(图１）系统说明书05计专同学管理系统基于FOＸPRO６。0中文版开发。FOＸPRＯ在数据库开发方面具有方面，有用，简洁，直接等优点。同时其也具有肯定的局限性。本系统主要面对班级指导员和班级同学开发使用,因此主要侧重于系统的使用性和便利性。同时在平安性方面，我们也十分重视.格外是操作员级别的划分等密码管理,ｈttp：//ｗww．580０．cc我们都做了仔细的分析讨论。（一)、系统界面的设计，我们主要是本着有用简便的原则设计制作。在系统界面被打开时，会播放一段欢迎曲,界面包括本系统的系统名称,设计人员和所在小组。下面是系统的首界面（图2）：(图2）系统界面中有登陆系统按钮，系统使用人员可以点击进入密码验证页，如果在一分钟内用户没有点击此按钮,系统会自动跳到密码验证页。此程序的实现代码会在简略设计书中说明。（二)、密码验证作为系统最基本的平安管理步骤.用户如果不输入合法的用户名和密码，系统是不能进入的。当用户输入合法的用户名和密码时，系统管理会自动推断此用户是什么级别的用户，具有什么权限,使用户的操作具有合法性。密码验证页包括操作员姓名和密码两个部分。简略的代码实现也将在简略设计书说明。下面是密码登陆页的图示（图3）:

（图３)当操作员的名称和密码均正确的时候，系统便会进入系统使用主菜单.主菜单共分为三个分菜单项：同学信息管理，同学成果管理，系统管理.如图（4）在同学信息管理中分为同学信息维护和同学信息查询两个菜单项，在同学成果管理中含有同学成果查询打印菜单项,ｈtｔp：／／v。1１58４。ｃom在系统管理中分为:操作员管理、口令设置、权限管理、系统日志、数据备份、数据恢复、退出系统七项。下面为本系统的使用数据流程图：简略设计说明书依据系统规划和需要分析,把系统划分为同学信息管理，同学成果查询,系统管理三个模块。本系统用到的主要有以下文件：主控程序mａｉn．prｇ、启动界面(封面）faｃe．scｘ、系统登录界面（口令验证窗口)paｓs。sｃx、,主菜单ｍａin_ｍenｕ.ｍpｒ.程序的调用关系如下:主控程序ｍaiｎ．ｐrg中调用界面表单facｅ．ｓｃx，封面中调用“口令验证窗口”表单ｐass.sｃｘ,口令正确则调用系统菜单ｍain_menu.mpｒ。各菜单项调用相对应的表单。(一）、主控程序ｍaｉn.pｒg的代码实现为：ＣLEAＲ&＆清屏CLＥARALL＆＆从内存中释放全部的内存变量CLＯSEＡLL＆&关闭各种类型的文件SETESＣＡPＥOFF&＆禁止运行的程序和命令在按Esc键后被中断ＳETSAＦEＴYＯFF&＆指定在改写已有文件时不显示对话框SETＤEＬETEON＆&使用范围子句处理记录的命令忽视标有删除标记的记录SETSYＳMＥNUOFF&＆在程序执行期间废止VｉｓuaｌFoxＰro主菜单栏ＲＥLEＡSＥWＩNDOW＂常用”&&关闭常用工具栏SETCENTＵRYON＆&年份以四位显示SEＴＤATETＯｙmd&&日期格式为年、月、日SEＴMARKTＯ”-"&＆指定日期分隔字符SＥTHOUＲSＴO２4＆&指定为２４-小时时间格式_SＣＲEＥN.Vｉsibｌe＝.t．_SCＲEEN.Capｔioｎ＝＂05计专同学管理系统＂&&系统窗口标题_SCREEN．Ｉcｏn=＂．\dｏd。ｉco＂&&系统标题栏图标*推断显示器当前分辨率_SCＲＥEN．Wｉｄｔh=SYSMEＴＲIＣ（1)＿SＣRＥＥN．Ｈeighｔ=ＳＹSMEＴＲIC（2）＊依据分辨率不同，httｐ：//wｗw。5800。ｃc为系统设置不同的背景图片IＦＳＹSMＥＴＲＩＣ(１）>=１024_SCREEN。Picｔｕｒe＝"。\ｉmg\ｂj.jｐｇ”EＬSE＿SCＲEEN．Ｐicture=”。\imｇ\bj。jpｇ"ＥNＤＩＦＤOＦＯRM.\ｆaｃｅ.ｓｃx&＆调用登录界面表单ＯnＳhｕtDoｗndoOｎＳｈutdｏwｎ&&退出系统时调用函数ｏｎshuｔｄowｎ（)READEVENTS&＆建立大事循环OnShｕtDｏwn＆＆释放当前的OnＳhuｔDowｎ命令＊按菜单的“关闭"按钮退出时,消灭的提示框FUNＣTIOＮOｎShuｔdown（)sel=ＭESＳAGEBOＸ（"真的要退出吗?”,４＋３２＋256,”提示＂）ＩＦｓｅｌ＝６＊SELEＣT０＊USE.＼dｂsｙｓteｍ\LOG*GOＢOTTOＭ*ＲEPLＡＣE离开时间WＩTＨDAＴEＴＩME(）＆＆退出系统时记录操作员退出时间ＣLOＳEＡＬＬCＬEAREVENTＳ＆＆退出大事循环QUＩＴ&＆结束当前ViｓualFoｘＰrｏ工作期，并将掌握权返回给操作系统EＮDIFＥNDFＵNC（二)、在运行主程序后，系统调用登陆界面表单(图4)主要大事代码：FORM１的INIT大事代码：ＳETBＥLＬONＳＥＴBEＬLTO'.\ＭＵＳＩＣ\wｅlcｏｍｅ。wａｖ＇，2??CHR（7）ＦＯRＭ1的ＵNLOAD大事代码：SETBＥLLTO＇＼ＭUSIC＼SILEＮＴ．WAV',2？?ＣHＲ(7）此两项功能分别为在打开表单时调用的音乐文件和关闭表单时调用的音乐文件。Comｍanｄ1的mousｅｕp大事代码:ＬPARAMEＴERＳnＢｕtｔｏn，nShift,ｎＸＣoｏrd，nYCoｏrdｒeleaｓethisｆｏｒmhttp：//ｗwｗ.５８00。cc。DOＦORM．\mａin\pass.ｓcxＴiｍer1的timｅr大事代码：releａｓｅtｈｉｓformＤOFＯRM。\main\paｓs。ｓcxＴiｍer2的tｉmeｒ大事代码：为了实现五角星的闪动：IFTHＩSFOＲM.lａbeｌ５。ｖｉsｉbｌethｉｓforｍ.labｅl5.ｖisibｌe=.f．eｌｓethisfｏｒｍ.lａbel５。vｉsiblｅ=．ｔ。endｉfTiｍer3的ｔimeｒ大事代码：为了实现五角星的闪动：IＦＴHＩSＦORＭ。lａbｅl５.ｖiｓiｂlethisform.label5.visible=.t.ｅｌsｅthiｓｆorm。labｅｌ5。ｖｉsｉble=.t.endifTｉmer4的ｔimｅr大事代码：hｔtp：／/ｗｗw.５8０0.cc。为了实现五角星的闪动:IFＴHISFOＲM.label５.ｖisｉblｅtｈｉsforｍ.lａbeｌ5。vｉsiｂｌe=。ｔeｌｓetｈisfｏrm。ｌａｂｅl５.visibｌe＝．t．endiｆ同时在每个五角星的颜色也做了设置。（三）系统登陆表单设计界面用户在文本框输入操作员及口令，若正确则调用系统主界面(菜单）。允许输入三次，若三次均不正确刚自动退出系统。若用户输入的操作员姓名及口令正确,要完成下列工作：设置一个全局变量ｏperat,用于记录登陆系统的操作员姓名，系统中有３个地方要用到操作员的姓名和代号:一是进入主界面后在标题栏显示的操作员姓名；二是操作员在系统管理模块的口令设置中更改自己的口令，系统要知道是哪个操作员;三是退出系统时系统日志中要记录操作员的退出时间。在系统日志表log．dｂｆ中增加一条记录,并同时记录此操作员的登录系统的时间。从权限表menuｒigｈt。ｄｂf中读出此操作员对应各菜单项的权限，并赋值给数组。调用菜单文件，显示系统主界面。大事代码：Form１的iniｔ大事代码：SEＴＥXＡCTON＆＆精确比较PUBLICAＲRAYｒr[18］&＆数组用于实现菜单项权限PUBLIＣi＆＆i用于记录用户名及口令输入次数PUBＬICopｅｒａt&&ｏpｅｒat用于保存操作员姓名i=0THISＦORＭ.Teｘt1．Seｔｆocｕs“确定”按钮（COMＭAＮD1)CLICK大事代码：＊推断密码是否正确i=i＋1SELEＣTopeｒatorＬＯＣＡＴEFOR操作员姓名=ALＬTＲIM（ＴHISFＯＲＭ。Ｔeｘｔ1.Value）DＯＣＡＳＥCASEi〈=３ＡNＤFＯUND(）ANDTHＩＳFOＲＭ．Ｔeｘt２．Valｕｅ＝opeｒａtor。口令＆&输入次数未超过3次且用户名正确、口令正确ｏperaｔ=THISFORM。Ｔｅxｔ1.VａｌueＩNSERTＩNTＯlｏg(操作员代号,操作员姓名，登录时间）ＶＡLUES(ｏpeｒaｔｏr。操作员代号,ｏperａtor。操作员姓名，DＡTＥTIＭE())_SCREEN。Cａpｔｉoｎ="05计专同学管理系统＂+SPAＣＥ(４０)+ＤＴＯＣ（DATＥ(）)+ＳPＡCＥ(４０）+＂操作员:”＋oｐｅｒaｔSELEＣT权限FＲOMｍeｎuｒightINTOARRAYｒｒWHＥＲE操作员代号＝operator.操作员代号ORＤERBY菜单项编号RＥLEASETHＩＳFＯＲＭDＯ．\maｉｎ\ｍaiｎ＿mｅｎu.mprCASEi<=3ＡＮDＦOUND（）ＡNDTHISFORＭ。Ｔeｘt２。Ｖａlue!=operａtｏr．口令＆＆输入次数未超过３次且用户名正确、口令不正确ＭESＳＡＧEBOX（"密码错误，请重输!”，＂警告")TＨＩSＦORＭ.Text2。Ｖａｌue="＂THIＳＦOＲM。Ｔext２。SetfocusCＡSＥi＜＝3ANDNOTFOUＮD（)&&输入次数未超过3次且用户名不正确ＭESSAGEBＯＸ（"操作员姓名错误,请重输！","警告＂）THIＳFORM．Tｅｘt1.Value=”＂TＨISＦＯRM.Text2.Vａｌｕe=”＂THISFＯRM。Ｔext１。SetfｏｃuｓCASEi＞3&＆输入次数超过3次ＭEＳSAGＥBＯＸ(”禁止进入系统！","警告”）THＩSFＯRM.RｅｌeａｓeENDＣＡSＥ退出按钮（COMMAND2）ＣLIＣＫ大事代码：ＲＥLEASEＴHISFOＲＭCＬＥＡREVENTS（四）系统菜单设计hｔtｐ://ｗｗw．５80０.cc。同学信息管理系统的菜单在应用系统中，各个了模块是通过菜单组织在一起的。通过对人事工资管理系统功能模块的设计,可以交系统划分为3大模块:同学信息管理、同学成果查询、系统管理,简略的菜单设计见下表：同学信息管理同学成果管理系统管理同学信息维护同学成果查询操作员管理口令设置同学信息查询权限管理系统日志数据备份数据恢复退出系统在菜单设计器中实现权限设置在菜单项设计器中,通过［提示选项］对话框设置菜单项的跳过条件可以实现用户权限。每个操作员对每个菜单项有两种权限：０或1.“０"表示此操作员对该菜单项没有操作权，系统运行后，该菜单项为灰色。不能打开对应的表单，“１”代表该操作员对该菜单项具有操作权，系统运行后,该菜单项可用，鼠标单击菜单项能打开对应的表单.操作员对各菜单项的权限保存在表文件ｍenuｒigｈt.dbf中，在登录系统时读出该操作员对应各菜单项的权限，并赋值给一个数组ＲR。本系统共１0个菜单项，所以定义的数组也包含10个元素。同学信息维护表单包换下列功能：数据录入、修改、删除、查询、扫瞄、保存、打印等。本表单左边是扫瞄窗口,便于用户扫瞄数据；右边是编辑窗口,主要用于输入修改数据.在表单数据环境中添加表:ｒsb.ｄbｆ、cjb、dbｆ。同学人事表和成果表的结构请打开数据库表查看。在表单数据环境的BＲＦORＥOPENＴAＢＬES大事中添加代码:ｔhiｓ。curｓor1.eｘclusivｅ＝.t。大事代码：ＦORM１的INIT大事代码:THISFORＭ.COMMAＮＤGＲOUP1.CMＤTＯP．ENＡBLＥＤ＝。F。ＴHISＦOＲM.ＣOMMANDGＲOＵP１.CＭDＰRＥV。ENABLＥD=。Ｆ。THISFORM.COＭMAＮDGRＯUP1．ＣMDNＥXT.EＮABLED=。Ｔ.THIＳＦＯＲM。CＯＭＭANDGROＵP1.CMDＢOTＴOＭ.ENABLＥD=．T．THＩSＦORＭ.COMMＡNDGRＯＵP1。CＭＤADＤ.ＥNＡBLED＝．Ｔ。TＨIＳＦＯRＭ．ＣOMMANDGＲOUＰ1。CMDEDIT.ＥNＡBLＥD=.Ｔ.THISFＯRＭ。ＣOMＭＡNDＧROUP1。ＣMDＤELETE.ENABＬＥＤ=.Ｔ.THＩSFORM.ＣOMMANDＧＲOＵP1。CMＤFIND.ENABLＥＤ=.T.TＨIＳFＯRM。COMMANDＧROUP１.ＣMDPRIＮT。ＥNABＬED＝．Ｔ.TＨＩSＦORM。COMＭAＮDＧROUP１.CＭＤEXIT．EＮＡBLＥＤ=。Ｔ．THIＳFORＭ．TEXＴ1.REAＤOＮLＹ=．T.TＨＩSＦＯRM。ＴＥXＴ2。ＲＥAＤOＮＬＹ=．T。ＴHIＳFORM。ＯPTＩOＮGＲOUP1.ＥNABＬED=．F.ＴHISＦOＲＭ。ＴEXT3。REＡDONＬY=.T.THISFOＲM.TEＸT4.RＥADONLY=。T。THＩSFOＲM．ＴEXT5。REＡＤONLＹ=。T。ＴＨIＳＦＯRＭ。TEXT６.RＥＡＤONLＹ=.Ｔ。THＩＳＦＯRM.ＣHEＣK1.READONLY=．Ｔ．TＨIＳFＯRＭ.EDIT1.REAＤONLY=。T.THＩSＦＯRM.GRID1．ＲEAＤOＮＬY=.T.THIＳＦORM．COＭＭAＮD1。viｓible=.Ｔ。ＴHISFORM．ＬＡBＥL11。vｉsible＝。F.TＨＩSFＯRM。TＥＸT７。ｖisibｌe=．F．FOＲM1的ＣLICK大事代码:TＨIＳFOＲM。LABEL11.visｉble=.Ｆ．THISFＯRM．ＴＥXT7。vｉsible=.F.ＧＲＩD1的aｆｔｅｒｒowclocｈaｎge大事代码:LPARAＭETＥRSnCoｌＩｎdexｔhis．sｅtall（”dｙｎaｍｉｃｂａｃkcｏlｏr”，"ＩＩF（Ｔhis。ａｃtｉｖerｏw<＞ｒecno(），rgb（25５，２５５,２５5),ｒgb（0,255,0））＂,"ｃｏlumn”)hｔｔp：／/HＹPERLINK”htｔp:／／wｗw.1１5８４。com"v．1１５８4。cｏｍselｅctrsｂthiｓfｏrｍ.refrｅsh此代码实现不现颜色显示选中的GRＩD对象的行及列。“第一个“按钮的ＣＬICK大事代码:HＹＰEＲLINK"hｔtp：／／ｗww．1１5８4．cｏm”wwｗ．1１58４。ｃoｍｓｅleｃtｒsbｇｏtopthｉsfｏrm．cｏｍmａnｄgｒｏｕp1．cmdtoｐ．ｅｎableｄ=。ｆ.thisforｍ。comｍanｄｇrｏｕp1.cmdｐｒeｖ．ｅnaｂｌed＝．f.ifｎoｔeoｆ（)thｉｓｆorｍ。cｏｍｍａndgrｏuｐ1.cmdneｘt．enaｂlｅd=.ｔ．ｔhisｆorｍ．ｃoｍmａndｇrouｐ1．cmdｂｏttom．eｎabｌed＝。t．endifthisforｍ.refreｓh“前一个“按钮的CLICＫ大事代码：sｅleｃｔrsｂskｉｐ—１iｆbof()gotｏptｈisform．commanｄgrouｐ1．cmｄtop.enabled=.ｆ。thisfｏrm.ｃoｍmandgrｏup１．cｍdpreｖ．eｎablｅd＝．f．endｉfｉfｎoteoｆ（）thｉsfｏrｍ．comｍaｎdgｒoup１．cmdnext.enablｅd＝.t．tｈisfoｒｍ.cｏｍｍandｇrｏuｐ１。cmｄbｏtｔom．enaｂled＝.t．eｎｄiｆtｈｉsform。rｅfｒesh“下一个“按钮的CＬICK大事代码:selectrsbskiｐifeｏf（)goｂｏtｔｏｍthiｓform．cｏmmａnｄgｒoup1．cmdnext.enabｌed=．f.thisfｏrm．ｃommaｎdgｒoｕp1．cｍdbottom．enabled=．f。eｎｄififnｏtbof(）tｈisforｍ.ｃommａｎｄｇrｏｕp1.cmdtop。eｎａblｅd=.t.thｉｓmanｄgroｕｐ1.cmdpreｖ.enaｂlｅd=.t．eｎdｉfthｉsform。reｆresh“最后一个“按钮的CLＩCK大事代码：ｓelectrsｂgｏｂｏtｔomtｈisfoｒm．ｃomｍandgroup1。cmｄｎｅxt．enabled=。f。ｔｈmaｎdgrｏuｐ1．cmdbotｔｏm。enabｌｅd＝。f。iｆnｏtｂof（)thiｓfｏrm.ｃommaｎｄgroup1.cmdtop。enabled＝。t．thｉｓfｏｒm.cｏｍｍａnｄgrouｐ1.cmｄprev．eｎａｂｌｅd＝．ｔ。ｅｎdｉｆtｈisform.refresh“增加“按钮的ＣLIＣＫ大事代码:ｉfthｉs．cａｐtｉon="增加”tｈis。captiｏn=＂保存＂THISFORM.COMMANDGROＵＰ1。CMDTOP．ENABLＥD=。F．THISFOＲＭ.COＭＭANDＧＲＯUP1。CＭＤＰＲEV。EＮＡBLＥＤ＝。F．TＨISＦＯRM．ＣOＭMANＤGＲOＵP1.CMDNEXT.EＮABＬED＝。Ｆ.THＩＳＦORＭ。COMＭANDGROUＰ1。CMDBOTＴOM。ＥNＡＢLＥD=。F.TＨISFORM.COMMＡNＤGROUＰ1。ＣMDADＤ.EＮAＢLED=.T.TＨＩSFＯRＭ.ＣＯMMANDＧROＵP１．CMDEＤIT.ＥNABLED=．F。ＴHISFORM。COMＭANＤＧＲＯUP1.ＣＭDDＥLＥＴＥ。ＥNABLＥD=．F.ＴHISＦＯＲM.ＣOMMAＮＤGＲOUP１.CMＤＦIＮD.ENAＢLＥＤ=．F．ＴHISＦORM．CＯMMANＤＧRＯUＰ1.CMDPRＩNT．ENABLＥＤ＝。F．THISFOＲM.CＯMＭAＮDＧROUP1。ＣMDＥＸIT.ENABLＥD＝．Ｆ．TＨISFOＲＭ。TＥＸT1.ＲＥADＯＮLY=。F．TＨＩSFＯRM．TEＸT2。READOＮLＹ＝．Ｆ.ＴHＩSＦOＲＭ。ＯPTIOＮGROUP１.EＮAＢＬED=.T．THISFOＲM．TEXT3。READONLY=.F.THIＳFORM．ＴＥXT４．READOＮLＹ＝．F。THIＳFORＭ。TEXT5．REAＤONLY=．F。THＩＳFORM．TＥXT６。READONＬY=。F。ＴＨISFＯＲM.ＣＨECK1。REAＤONLＹ=.F。THISＦORM．EDIT1.READONLY=．F．THISFORＭ.CＯMMＡND１.VＩSＩＢＬＥ=.Ｆ。SＥLＥCTＲSBHYPERLINK”hｔtｐ：//wwｗ．1158４.ｃom＂ｗww．115８４．coｍＡＰPＥＮＤBLＡNKGＯBOTTＯMTHIＳＦOＲM。TＥXT1．SＥＴＦOCUＳ(）ＴＨIＳFＯＲM.REFRESHELSETHＩS．CAＰＴIOＮ=”增加”THISFORＭ．COMＭANDGROＵP1．CＭDTOP。ＥＮＡBLEＤ＝.ｔ．THISＦORＭ.COMMAＮDGROUP1．ＣＭDPＲEＶ．ＥNABＬＥD=。t。ＴHＩSFＯRＭ.ＣOMMANDGRＯUP1．CMDＮEＸT.ＥＮＡBLＥＤ=。t．TＨIＳFORM．CＯＭMＡNＤGROUP1.CMＤBＯTTOＭ．ENＡBＬＥD=．t．ＴHIＳFＯRM.COＭMＡＮＤGRＯUP1.ＣMＤＡDD.ENABＬＥＤ＝.t．ＴHIＳFＯＲM．COＭMＡNDＧＲOUP１.ＣMDＥＤIT。ENAＢLＥＤ=。t.ＴＨIＳFOＲM。COMMANDＧＲOＵＰ1。ＣMDDＥLEＴE．ENABＬED=。t。THISFＯRM.ＣOMMＡＮDＧＲOUP1。CＭDFＩＮD．ENAＢLEＤ=。t．TＨISFORM.ＣＯMMANDGRＯUP1.ＣMDPRINT．ENAＢＬED＝。t.TＨIＳＦORＭ。CＯＭMANDGRＯＵP１.ＣMＤEXＩT．ENABLＥD=.t。ＴＨＩSFORＭ。ＴEXT1.RＥADOＮＬＹ=。t。THIＳＦＯＲM.TEＸT２.RＥADONＬY＝。ｔ.TＨＩSＦORM.ＯPTIＯNGROUＰ1.ENABLＥD＝.f．THISFORM.TEＸＴ３．REAＤONＬY＝。t.THIＳＦORM.TＥＸT4。ＲＥＡＤOＮLY=.t。ＴHISFORＭ.TEＸT5。ＲEＡDOＮLＹ＝。t．THISFORM。TEXT6．REＡＤＯNLＹ=.t.THISFORM．CＨＥCＫ１。READONLY=。t．THIＳＦORＭ．ＥＤIＴ1。RＥADOＮLY＝。t。ｔhisfｏrm。ｃomｍａｎd1．ｖiｓｉbｌｅ=．ｔ.endif“删除“按钮的CLICK大事代码:SEＬECTRSＢXH＝ＲSＢ.学号sｅl＝ｍeｓsaｇｅbox("该记录学号为：＂＋XH+cｈr（13）+"真的要删除吗？"，４+32+2５6,"提示”）ｉfsｅl=6deｌeｔeendiｆ“查找“按钮的ＣLICK大事代码:thｉsform.ｌａbｅl1１．vｉsiblｅ=．t．thisfoｒm。text7．visｉbｌe＝．ｔ。tｈｉｓｆoｒｍ。ｔext7.valｕｅ=＂＂tｈisｆｏrm。ｔexｔ7。ｓeｔfｏcus（）“打印“按钮的ＣLIＣＫ大事代码：reｐｏrtｆoｒｍ.\ｍeｎｕ１\rｓb_bb1．fｒｘprｅviｅwｆorrsb.学号=ａlltrｉｍ(thｉsｆorm．teｘt1.valuｅ）“退出“按钮的CLICK大事代码：selectrｓｂｐacｋthisform．ｒｅlｅaｓｅ“ＴEXＴ7”的valiｄ大事代码为：selectrｓbseｔｆilterto学号＝ａlltｒim（ｔhｉｓfoｒm.text7。valuｅ)oｒ同学姓名=ａｌltｒｉm（tｈisfｏｒｍ．ｔexｔ７.vaｌue）locateｆor学号＝alltrｉｍ(thｉsform．ｔext7。ｖａlue）or同学姓名=allｔrｉm（thiｓform．ｔeｘｔ7.ｖａluｅ)ｔｈｉsform。refｒeｓhｓeｔｆilterto6、运行界面：（如图5）(图5）7、同学信息查询菜单的设计同学人事信息的查询是基于RSB.ｄｂf表，菜单供应学号,姓名,全体查询。分别利用不同的命令代码方式实现查询打印功能.功能是便于指导员和老师，同学用户的检索查询。各大事的代码如下:FOＲＭ1的INIT大事代码：＊输入编号、姓名提示标签及文本框THISFORＭ。Label2.Ｖisiｂｌe＝.F．TＨISFＯRM。Ｔｅxt1。Visible=.F。TＨＩSFOＲM．Tｅxt1。Setfoｃuｓ(）＊输入起始日期、截止日期提示标签及文本框不行见ＴHIＳＦＯＲM。Ｌabel4．Vｉsibｌｅ＝.Ｆ.TＨＩSFORＭ。Ｌabｅl５。Ｖｉsible＝．Ｆ。TＨＩＳFOＲＭ。Ｔeｘt2。Viｓｉｂle＝.F。TＨIＳＦORM.Teｘt３。Vｉsｉble=．F．TＨISFOＲＭ。Cｏmｍanｄ4.Vｉｓiｂle=。F．＊表格数据不行修改THＩSFOＲＭ．Ｇｒid1。Ｒeadｏnｌy＝.T．Opｔiongｒoｕp1的CLＩCK大事代码:*选定查询类别后,设置各控件是否可见DOＣＡＳＥＣAＳETHIS．Ｖalue=１＆＆按学号查询TＨＩSFORM．Label２。Ｖｉsibｌｅ=.T.THIＳＦＯＲＭ．Tｅｘt1.Visible=.T。ＴHISFORM．Lａｂeｌ4.Viｓible＝．Ｆ。ＴHＩSＦＯＲＭ。Lａbeｌ5。Ｖisｉｂlｅ=．Ｆ。 TＨIＳFORM.Text２。Ｖｉsible=.F.ﻩTＨＩSFＯRＭ．Text3。Ｖisible=．F。 TＨIＳFORM。Commａnd4．Visｉble＝．F。TＨISＦＯRM。Ｌabel２.Cａptｉoｎ＝"请输入要查询的学号:"THISFＯRＭ．Text1。Vａlｕe＝"＂THISFＯRM.Tｅxｔ1．ＳｅtｆoｃｕsCASEＴHIS.Ｖaｌue＝2&&按姓名查询THISFＯＲM。Laｂel２.Viｓiｂｌｅ=。Ｔ．TＨISＦORM.Text１．Vｉsｉblｅ=．T.TＨＩＳFＯRM.Ｌａbｅl4．Vｉsible=.Ｆ． THＩSFORM.Lａbel５。Vｉｓible=.F. THISFＯＲM.Teｘt2．Vｉsiｂle=.F.ﻩTＨIＳFＯRM．Texｔ3．Visｉble＝。F。ﻩTHISFORＭ。Command４。Ｖiｓiblｅ=.Ｆ．THＩSFＯRM.Lａｂel２。Cａｐｔioｎ=”请输入同学姓名：＂ＴHISＦORM.Ｔｅxt1．Ｖaluｅ="＂ＴHＩＳＦＯRM．Tｅxｔ１．Ｓetfoｃuｓ（)CASETHIS。Vａlue＝３＆＆按诞生日期查询THISＦORＭ．Lａbel2。Vｉsible=。F．ＴＨISFＯRＭ．Ｔext1。Vｉsibｌe=．F.THISFORＭ.Lａbｅl4.Visiｂle=。T.ＴＨISFORＭ.Labeｌ5.Vｉsible=。T。THISＦＯRM．Teｘt2。Vｉsiｂle＝。T．THISFＯRM.Text3。Visible=．T。THISFORM.Coｍｍanｄ４.Vｉsｉbｌe=．T．THISFORM。Text2。SetfoｃusCASETHＩS.Value=４&&显示全体记录THＩSFOＲM.Ｌａbel2．Vｉｓible＝．F．THISFOＲM。Ｔｅxｔ１。Visibｌe=。F.ＴHＩSFＯＲM.Lａbｅl4.Ｖisｉｂle=.Ｆ． THIＳＦORM。Laｂｅl5.Visｉbｌe=．Ｆ.ﻩTHISFＯRM．Ｔｅxt2．Ｖiｓｉｂle=。F．ﻩＴHIＳFOＲM。Ｔext３。Visｉble=。Ｆ。ﻩＴHISＦＯRM.Coｍｍanｄ４．Visiblｅ＝.F.SＥTFIＬＴERTOＧOTOPＴHISFORＭ.Grｉｄ1.RefｒesｈEＮDCAＳＥGRID1的数据连接连接RSB表.一一对应该对应的数据项，CＯMMAND４（查询)的ＣＬICK大事代码:＊按输入的日期条件在表格中显示查询的记录SＥＬＥCTｒsbＰUＢLIＣqsrｑ，jzｒqｑsrｑ=TＨISFＯRM.Tｅxt2．Valueｊzｒq=TＨISＦORM.Text３．ValuｅDOCAＳEＣAＳENOTEＭＰTY（qsrq