综合练习学生管理系统说明书（1）4个表学生信息表:学生成绩表：口令表:日志表（２)4个报表(打印按钮)学生信息表；学生成绩表；口令表;日志表(3）１个菜单数据查询数据浏览系统维护系统管理信息表维护口令设置成绩表维护帐户管理系统日志数据备份数据恢复退出系统数据库系统的具体情况：欢迎界面表单要求：“欢迎使用”计时器控件“学生管理系统”标签“进入系统”按钮和“退出系统”按钮点击“退出系统”按钮--－--－--－返回到Wiｎdows界面点击“进入系统”按钮进入系统登陆表单要求:“学生管理系统登陆”,“请输入用户”和“请输入密码”3个标签２个文本框“确认”和“退出”两个按钮当输入帐户和密码正确时,点击“确认“按钮,进入主菜单如果输入密码错误时,显示当输入三次以后,显示点击确定后，显示点击“是”后，退出系统，返回Ｗｉndｏws界面。
数据查询菜单点击该菜单后，显示页面要求：“数据查询”、“数据查询”、“查询方式”、“输入查询值”标签“确定”、“退出”按钮１个文本框1个编辑框２个选项按钮组在“学生信息表”“学生成绩表”“按学号查询”“按姓名查询”四个选择2项后,在文本框中输入查询值,点击“确定”按钮后,在文本框中显示查询结果; 点击“退出”按钮,返回主菜单数据浏览菜单点击该菜单后，显示页面要求：“学生数据浏览”、“今日的日期是”、“当前时间是”标签1个页框（包含2个页面)“退出”按钮２个标签1个timｅr控件（显示系统时间）当点击“退出”按钮后，返回到主菜单。
在“学生成绩表”页面中在这个页面中，包含：“学号”、“姓名”、“数据库”、“高等数学”、“英语”、“总分”标签以及对应文本框“首记录”、“上一条”、“下一条”、“尾记录”4个按钮点击按钮时候,显示相应的学生成绩表中的记录。
在“学生信息表”页面中在这个页面中，包含一个表格。
系统维护菜单(1)子菜单：成绩表维护表单要求:1个表格（显示学生成绩表)“学号”、“姓名”、“数据库”、“高等数学”、“英语”、“总分”标签以及对应文本框1个组合按钮（“首记录”，“上一个”,“下一个”,“尾记录”，“添加”,“编辑”,“删除”,“打印”，“退出”)当点击“首记录”,“上一个”,“下一个”,“尾记录”按钮时,在文本框中显示相应的记录;当点击“添加”按钮后,显示可以输入记录,点击“保存”按钮后,返回界面。
当点击“编辑”按钮后,显示可以修改已经存在的记录,并点击“保存”返回。
当点击“删除”按钮后，显示选择“是”后,对删除的记录作删除标记,当点击“退出”按钮后，删除作标记的记录。
当点击“打印”按钮后,显示（报表）当点击“退出”按钮后，返回主菜单,同时删除已经做删除标记的记录。
(2)子菜单:信息表维护表单（和成绩表维护表单相同)系统管理菜单(1）口令设置表单要求:“修改密码”、“输入原密码”、“输出新密码”、“重输新密码”标签３个文本框“确定”、“退出”按钮当点击“确定”按钮后改变当前用户的密码，点击“退出”按钮返回主菜单（2)帐户管理表单要求:１个表格(帐户表）“姓名”、“密码”标签和文本框一个命令按钮组(和前面相同)（3)系统日志表单点击“打印”按钮后，打印日志报表点击“清除”按钮后,清除日志记录点击“退出”按钮后,返回主菜单（4)系统备份表单要求:“请选择备份目录”“请选择备份目标目录”标签以及文本框“开始备份”和“退出”按钮2个“…”选择路径按钮ActiveX控件中的进度条控件ProgressBar通过路径的选择把一个文件复制到另一个路径下面后,点击“开始备份”按钮,使用进度条控件显示过程,当复制成功后,弹出“复制完成对话框”,点击“确定”按钮后返回该表单。
点击“退出”按钮，返回主表单(5）数据恢复表单要求: “选择需要恢复数据目录”“选择恢复数据的目标目录”标签和文本框“开始恢复”“退出”按钮，以及２个“…”选择路径按钮ＡｃtｉｖeX控件中的进度条控件PrｏgressBａr(6)退出系统选择“否”返回主菜单选择“是”退出到Windowｓ制作过程,代码：进入系统中写入:ＤＯFＯＲM学生管理系统登陆.scx thisform.ｒelease退出系统中写入：ask=meｓsagebox("确定要退出系统吗？",4+32＋256,"学生管理系统") iｆasｋ=６ｃｌose ａllquitelsｅeｎdif数据环境中加入新口令表(存密码和账号的）FOＲM１.ＩNＩＴ中写入：Puｂlic errｏrｎumber,PsErrornumbｅr=０退出中写入ask=messagebox("确定要退出吗?＂，4+32+２56,"学生管理系统")if asｋ=6thｉｓform.rｅｌｅaseeｌｓeｅｎｄiｆ确定中写入：use新口令表a=Thiｓform.text1.ｖaluｅb=Thisｆorｍ.text2.ｖａlueｉｆa=＝""n=messageｂox("请输入用户名",4+３2,"学生管理系统登陆＂)ｄo cａｓecａse ｎ＝6thiｓｆorm.ｔｅxt1.vaｌｕｅ＝""thisform.tｅｘt１．setｆocusｃａｓe n=7ｔｈｉｓforｍ.relｅaｓeendｃａseelｓeif b＝=""n＝mｅｓsagｅbｏx("请输入密码",４+32，＂学生管理系统登陆")do casecase n＝６ｔhisｆorm.text2.vａluｅ＝＂"thisｆorm.text２.setfoｃuｓcaｓe ｎ=7ｔｈiｓforｍ.relｅaseｅｎdｃａseｅndｉfeｎdifｌocａtｅfor alltrim(新口令表．Id）==aｌlｔｒim(ａ）ｉｆfounｄ()ｉf aｌｌtrｉm(新口令表.Pｓ)==aｌltrim（b）do 学生管理系统．ｍpｒthisfｏrm.releaseelsemｅssagebox("密码错误,请重新输入",６4，"学生管理系统登陆") errｏrｎumber=eｒrｏｒnumbeｒ+1endiｆelsemesｓagebox（＂用户"+a+"不存在！",６4,"学生管理系统登陆")erｒorｎｕmbｅｒ=errornuｍber+1endifif errorｎumber=3ＭＥＳSＡGEBOX("您已经输入3次错误,请按确定退出＂,64,"学生管理系统") ask=mｅssａgeｂｏx("确定要退出吗？",４+3２+256,"学生管理系统")if ａsｋ=6cｌoｓｅaｌlｑuitｅlseenｄｉfenｄif数据查询中代码:确定中写入：no=alltrｉm（ｔhisfoｒm.Tｅxt1．value)iｆthｉｓform.opｔioｎgｒoｕｐ１.vａlue=1if thisform.ｏptｉｏｎgrouｐ2．valuｅ=1if empty(ｎo）meｓsageboｘ("对不起,学号不能为空。
",16,"错误")ｔhisfｏrｍ.Text１.seｔfｏｃｕsreturnendiｆｓelecｔ学生信息表ｌoｃａte for ａlltrim(学生信息表．学号）=ｎoif noｔｆound(）mesｓagebox("没有找到你输入的学号。
",1６,＂错误")ｔhｉsｆｏrm．Tｅxt1.seｔfocusrｅturnendifthiｓfoｒm.Ｅdit1.ｖaｌuｅ=＂学号"+" "＋学号ｔhｉsfｏｒm.Eｄiｔ2．valｕe="姓名"+" "+学生信息表.姓名thｉsform.Edit3.vａlue="性别＂+" "+学生信息表．性别thisform．Eｄit4.ｖalue="出生年月"＋" "＋ｄｔｏc(学生信息表.出生年月)thisｆorm.edit5.value＝"家庭住址"+""+学生信息表.家庭住址ｔhisform.Ｅdｉt６.ｖａlue="备注"+" "+学生信息表.备注retｕrｎendiｆselect学生信息表lｏｃatｅfor alltrim(学生信息表.姓名)=noif ｎｏt ｆound()ｍeｓsagｅboｘ（"没有找到您输入的姓名！"，16，"错误")thisｆoｒm．Tｅｘt1.setｆocusrｅtuｒnｅndｉｆthisform.Ｅdit1.valｕe=＂学号＂＋＂"+学号thiｓfｏrｍ.Ediｔ２．value＝"姓名"+" ＂＋学生信息表.姓名thisfoｒm.Edit3．valuｅ="性别"+" "+学生信息表.性别thiｓform.Edit4.ｖalｕｅ="出生年月"＋" "+dtoc(学生信息表.出生年月) tｈｉsform．ｅdｉt５.vａluｅ="家庭住址"+＂"+学生信息表.家庭住址thｉsfｏrm．Ediｔ6.ｖalue="备注"+" "+学生信息表.备注ｅｌseif thisform.ｏptｉｏngroｕp2．value=１ｉf emｐtｙ(no)messagｅbox（"对不起,学号不能为空！",１6,"错误")tｈｉsfｏrｍ．Ｔext１.sｅtfoｃｕsreｔuｒnendifseleｃt 学生成绩表lｏcate foｒalｌtrｉm(学生信息表.学号)=noｉf not foｕnｄ（)meｓsagebox("没有找到你输入的学号！",1６,"错误")thiｓｆorm.Ｔeｘt1.sｅtfｏcｕsrｅturnendｉfｔhisｆoｒm.Edｉt1.valuｅ="学号"＋" "＋学生成绩表.学号ｔhisfoｒｍ.Eｄit2．value=＂姓名"+" "+学生成绩表.性名thｉsｆorm.Ｅdit3.valｕe＝＂数据库"+＂＂+str(学生成绩表.数据库)thisｆｏrｍ.Ediｔ4.vａlue="高等数学＂+" "+str(学生成绩表.高等数学)tｈisform.eｄｉt５.value＝"英语"+" "＋stｒ（学生成绩表.英语）ｔｈiｓfｏrm.Edｉt6．vaｌｕe=＂总分"＋" "＋ｓtr(学生成绩表.总分) elseif empｔy(no）mｅssaｇebox("对不起,姓名不能为空!",16,"错误")ｔhisfｏrm.Texｔ１．sｅｔfｏcusrｅｔurｎendifselecｔ学生成绩表loｃate for alltrim(学生成绩表.性名）=nｏif not fouｎd()ｍｅssagebox("没有找到您输入的姓名!＂,16,"错误＂)tｈｉsforｍ.Teｘｔ1．setｆoｃusrｅｔurnｅｎdifthiｓform.Ｅdit1.valuｅ="学号"+" "+学生成绩表.学号ｔhisfｏｒm.Edit2.ｖaｌｕe=＂姓名"＋＂"+学生成绩表.性名ｔhisfoｒm.Edｉt3．vaｌue="数据库＂＋" "+str(学生成绩表.数据库)ｔhisform.Ediｔ４．ｖalｕe="高等数学"＋""+ｓtr(学生成绩表.高等数学) thisfｏrm.edit５.valuｅ="英语"+" "+stｒ（学生成绩表.英语)thiｓform.Edｉt６.value="总分"+＂＂+str(学生成绩表．总分）ｅndifendif退出中写入:ｔhisfｏｒm.rｅｌease数据浏览中代码:首记录：ｇo topThｉｓforｍ．refresh上一条：skip -1Go ｔopIｆｂof(）Tｈｉｓｆorm.rｅfresｈ下一条：Ｓkip 1If eof()Ｇo topＴhｉsｆoｒm.ｒefreｓｈ尾记录：Go boｔtomThiｓfｏｒm.ｒｅfreｓｈ计时器中ＴIMＥＲ1.TＩMER中写入: bｅl５.cａｐtiｏn=dtｏｃ(date(）) Tｈｉsfｏrm．lａbeｌ6.ｃaption=tiｍｅ(）退出中写入：Thiｓfｏrm.ｒelｅasｅ数据环境中加入学生成绩表和学生信息表学生信息表维护代码：首记录,上一个,下一个，尾记录同上添加中写入：append bｌａnkＴhｉsｆｏrｍ,refresh编辑中定入：thiｓform.txｔ学号.setfoｃus（)保存:ｍｅsｓaｇebox(“已存入”，4８，“警告”)Thisform.refresh删除中写入:delete fｒｏｍ学生信息表ｗheｒｅ学号=thisform．ｔｘt学号.ｖａlue Thisfoｒm．grid1．recoｒdsourｃe＝””PacｋＴｈisｆorm．gｒid１.reｃｏｒdｓource=”学生信息表”Tｈisｆｏrm.rｅfreｓｈ打印中写入：listｔo pｒinter promｐt数据环境中加入学生信息表学生成绩表维护同上的代码，数据环境中加入学生成绩表学生账户管理中浏览学生密码的代码也同上,数据环境中加入口令表口令表设置用于改密码,代码如下:确定中写入:ＬＯCAL jjjj=0ｆoｒｉ=1to 3s="text"＋ａlltrim(ｓtｒ（ｉ）)d＝"ｌaｂｅl"＋ａlｌtrim（str(i))ｉf empty(ｔｈｉsｆoｒm.&s..ｖalue)ｍessagｅboｘ(ｔhｉsform.&d.．caｐｔion+"不能为空",64,＂系统提示"）ｔhisform．＆s..setｆocusEＬSEIF s="teｘt3＂jj=１ENＤIFENＤIFENDFORIF jj=１seｌeｃt 新口令表GO toplｏｃate ｆｏr alltrim(tｈｉsfoｒm.text1.valｕe)=alltｒｉｍ(新口令表.id）if fｏund()if allｔｒiｍ(thisform.text2.valuｅ)=alｌtｒim（新口令表.ｐs)aｎd aｌｌtrim(thiｓfoｒｍ.ｔeｘｔ3.valuｅ）=alltrim(tｈiｓfｏｒm.tｅxｔ4.valｕｅ)rｅplace 新口令表.ps with ＡＬLTRIＭ(thisform.teｘｔ3.Valｕe)MＥＳSAＧEＢＯＸ("密码修改成功＂，6４,"系统提示"）tｈisform.text1.Ｖalue=""tｈisfoｒm．tｅｘt2.V alue=""thｉsform.teｘt3.Valｕｅ＝"＂ｔｈiｓform.ｔext4.value＝""thisform.texｔ1.SetＦｏcｕｓELSＥMESSAGＥBＯX("密码不正确或两次输入密码不一致,请重新输入",48，＂系统提示") ｔhiｓform．text2．Value=""tｈisfｏｒｍ．teｘt３.Vaｌuｅ=""thisｆoｒm．text2.ＳｅtFｏｃusＥNＤＩFＥLＳEMESSＡGEBOX（"用户名"+ALLTＲＩM（thisfoｒm.text1．Valｕｅ)+＂不存在,请确认重新输入",４8，"系统提示")thisfｏrm.tｅｘt１.seｔfocusｔhisfｏｒm.tｅxｔ1.SelStart=0ｔhisｆorm．text１．SelLｅngth=ＬEＮ(ALLTRＩＭ(tｈisｆorm.teｘt1.Vａlｕｅ))tｈisform．text２.Valuｅ="＂tｈiｓfｏrm.text3.Ｖalue＝＂＂ENDIＦENDIF退出中写入：thｉsform.releaｓe数据环境中加入口令表系统日志表单中代码：清除按钮:y=meｓsagebox("您真的要删除吗？＂,4+32,"警告＂)if ｙ=６delｅte from 日志表thｉsｆorm.griｄ1.rｅcorｄsource="＂packthｉsｆｏrm.rｅｆreｓｈenｄif打印中代码同上退出中：tｈisform.ｒeleａｓe一个菜单中：打开菜单设计器,将数据查询，数据浏览的结果一项改为命令，选项中分别写入:Do ｆｏrｍ表单数据查询／表单学生数据浏览（要执行的表单名）系统维护和系统管理中，点编辑在信息表维护和成绩表维护中将结果选项改为命令,选项一项中写入:ｄo form 在执行的表单名然后运行菜单，保存即可。