VF学生管理系统设计方案过程和代码

综合练习同学管理系统说明书（1）４个表同学信息表:字段字段名类型宽度小数位索引排序Nuｌlｓ１学号C8升序否2姓名C6否３性别C2否4诞生年月D8否5家庭住址Ｃ２0否６备注M10否同学成果表：字段字段名类型宽度小数位索引排序Nulls1学号C８

升序

否２姓名C６

否3数据库N51

否4高等数学N5１

否5英语N５１

否６总分B5１升序

否口令表:字段字段名类型宽度小数位索引排序Nuｌls1ＩdＣ8

升序

否2PsC12

否日志表字段字段名类型宽度小数位索引排序Nｕｌｌs1学号C1０

否２登陆时间Ｄ8

否３离开时间D8

否（2）4个报表(打印按钮）同学信息表；同学成果表；口令表；日志表(３)1个菜单数据查询数据扫瞄系统维护系统管理信息表维护口令设置成果表维护帐户管理系统日志数据备份数据恢复退出系统数据库系统的简略情况：欢迎界面表单要求：“欢迎使用”计时器控件“同学管理系统"标签“进入系统”按钮和“退出系统”按钮点击“退出系统”按钮－－--——－-—返回到Windows界面点击“进入系统”按钮进入系统登陆表单要求：“同学管理系统登陆",“请输入用户”和“请输入密码"3个标签2个文本框“确认"和“退出"两个按钮当输入帐户和密码正确时，点击“确认“按钮，进入主菜单如果输入密码错误时,显示当输入三次以后，显示点击确定后，显示点击“是”后，退出系统，返回Wiｎdowｓ界面.数据查询菜单点击该菜单后，显示页面要求：“数据查询"、“数据查询”、“查询方式”、“输入查询值"标签“确定”、“退出"按钮1个文本框1个编辑框2个选项按钮组在“同学信息表”“同学成果表"“按学号查询”“按姓名查询"四个选择２项后,在文本框中输入查询值，点击“确定"按钮后，在文本框中显示查询结果;点击“退出”按钮,返回主菜单数据扫瞄菜单点击该菜单后，显示页面要求:“同学数据扫瞄”、“今日的日期是”、“当前时间是”标签1个页框（包含２个页面）“退出”按钮2个标签１个timer控件（显示系统时间）当点击“退出”按钮后，返回到主菜单.在“同学成果表”页面中在这个页面中，包含：“学号”、“姓名”、“数据库”、“高等数学"、“英语"、“总分”标签以及对应文本框“首记录”、“上一条”、“下一条”、“尾记录”４个按钮点击按钮时候，显示相应的同学成果表中的记录。在“同学信息表”页面中在这个页面中，包含一个表格。系统维护菜单（1)子菜单：成果表维护表单要求：１个表格(显示同学成果表）“学号”、“姓名”、“数据库”、“高等数学”、“英语"、“总分”标签以及对应文本框1个组合按钮(“首记录”，“上一个”，“下一个”，“尾记录"，“添加”，“编辑”,“删除”，“打印"，“退出”)当点击“首记录"，“上一个"，“下一个”，“尾记录”按钮时，在文本框中显示相应的记录；当点击“添加”按钮后，显示可以输入记录,点击“保存"按钮后，返回界面。当点击“编辑”按钮后，显示可以修改已经存在的记录，并点击“保存”返回.当点击“删除”按钮后，显示选择“是”后，对删除的记录作删除标记，当点击“退出”按钮后，删除作标记的记录。当点击“打印”按钮后，显示（报表)当点击“退出"按钮后，返回主菜单，同时删除已经做删除标记的记录.(2）子菜单:信息表维护表单（和成果表维护表单相同)系统管理菜单（1）口令设置表单要求：“修改密码”、“输入原密码"、“输出新密码”、“重输新密码”标签３个文本框“确定”、“退出”按钮当点击“确定”按钮后转变当前用户的密码,点击“退出"按钮返回主菜单（２）帐户管理表单要求：1个表格(帐户表）“姓名"、“密码”标签和文本框一个命令按钮组（和前面相同）(3）系统日志表单点击“打印”按钮后，打印日志报表点击“清除"按钮后，清除日志记录点击“退出”按钮后，返回主菜单（4)系统备份表单要求:“请选择备份名目”“请选择备份目标名目"标签以及文本框“开头备份"和“退出”按钮2个“…”选择路径按钮AｃｔｉvｅX控件中的进度条控件PｒｏgｒessBaｒ通过路径的选择把一个文件复制到另一个路径下面后，点击“开头备份”按钮，使用进度条控件显示过程，当复制成功后,弹出“复制完成对话框”,点击“确定”按钮后返回该表单.点击“退出”按钮,返回主表单（5)数据恢复表单要求：“选择需要恢复数据名目"“选择恢复数据的目标名目”标签和文本框“开头恢复"“退出”按钮,以及２个“…”选择路径按钮ActｉveX控件中的进度条控件ＰｒogｒessBar(6）退出系统选择“否”返回主菜单选择“是"退出到Wiｎｄows制作过程,代码:进入系统中写入：DＯFORＭ同学管理系统登陆.ｓｃxｔｈｉsfｏrm。reｌeａsｅ退出系统中写入：asｋ=messagｅbox（＂确定要退出系统吗？”，4+３2+２56,＂同学管理系统＂)ifａsｋ=6clｏseallqｕiｔeｌseendiｆ数据环境中加入新口令表（存密码和账号的）FORM1.INIＴ中写入：Publiｃｅrｒorｎuｍber,PｓＥrrornuｍｂer=0退出中写入ask=mesｓagebox（＂确定要退出吗?”,4+32+２56，"同学管理系统”）ifasｋ=6ｔhｉsform。ｒeleasｅeｌseｅnｄif确定中写入：uｓe新口令表a＝Thisforｍ．teｘt１．valｕeb＝Thisform.ｔext２.ｖaluｅiｆa＝＝"＂n=mesｓageboｘ(＂请输入用户名”，４+32,"同学管理系统登陆”）ｄocaseｃasen＝6ｔhｉsform．ｔexｔ1．valuｅ="”tｈiｓform。text１。setｆocuｓcasen＝7thiｓforｍ。ｒｅlｅaseenｄｃaｓeelｓeiｆｂ==＂”ｎ=ｍessageｂox（"请输入密码＂，4+3２,"同学管理系统登陆＂)ｄocaｓecaｓen＝6tｈisform．ｔeｘt２.vａlｕｅ="”thｉsｆorｍ。ｔeｘｔ2.ｓｅtfocuｓcasen=７ｔｈiｓforｍ。relｅａｓeｅｎdcaseendiｆendifｌｏcａｔeforalｌtｒim(新口令表.Iｄ）＝＝aｌltrim（a)iffｏuｎd（)iｆalltrim（新口令表.Ｐｓ)=＝ａllｔrｉm（ｂ）do同学管理系统．mprthｉsｆｏrｍ。ｒeleａseeｌsemessagｅbｏｘ（"密码错误，请重新输入",6４，”同学管理系统登陆＂)ｅｒrｏｒnｕmｂeｒ＝eｒrornuｍｂer＋１ｅndｉｆelｓemeｓsagebox（＂用户＂＋a＋”不存在！＂,6４，＂同学管理系统登陆")errornumbeｒ＝erroｒｎｕmber+1endififerｒｏrｎuｍbeｒ=3MEＳSＡGEBOX（＂您已经输入3次错误，请按确定退出",64，＂同学管理系统"）ａsk＝ｍessａgeｂoｘ(＂确定要退出吗?＂，4+３2＋256，＂同学管理系统"）ifask=６cｌoｓｅalｌqｕiteｌseendｉfｅnｄif数据查询中代码：确定中写入:ｎｏ＝alltriｍ(thiｓfｏrm.Teｘt1．vａｌuｅ)ifthｉsfｏｒm．optｉｏnｇrouｐ1。ｖaｌue=1ifｔｈisｆoｒm。optiongrouｐ2。vａlｕe＝1ｉfｅmｐty（no）ｍeｓsagebｏx(＂对不起，学号不能为空."，1６，"错误＂)ｔhisforｍ.Text1.ｓetfoｃｕｓreｔｕrnendifseleｃｔ同学信息表ｌoｃａtｅforalｌｔrｉm（同学信息表。学号）＝noifnoｔｆｏunｄ（)mesｓagebｏx("没有找到你输入的学号。”，1６，＂错误”）ｔhisforｍ.Ｔeｘt1。sｅtfｏcusｒｅtｕrｎendifｔｈiｓｆｏrｍ.Edｉｔ1。vaｌue=＂学号＂+""＋学号thiｓｆｏrm.Ediｔ2。vａｌue＝"姓名＂+"”+同学信息表.姓名thｉsform。Ｅｄit３。valｕｅ=＂性别”+"＂+同学信息表.性别thｉｓfoｒｍ．Ｅdit4．value=＂诞生年月”+＂＂＋dtoc(同学信息表.诞生年月）tｈｉsｆorm．ｅdit５.value＝"家庭住址＂＋"”+同学信息表．家庭住址ｔhiｓfoｒm.Ｅdiｔ６．ｖaluｅ＝”备注”+＂"＋同学信息表．备注rｅtｕrｎeｎｄifselecｔ同学信息表lｏcateforalltrim(同学信息表。姓名)＝ｎoｉfｎotfounｄ（）ｍeｓsａgebox("没有找到您输入的姓名!＂，１6，"错误”)ｔhｉsｆｏｒm．Ｔeｘt1。sｅtｆocｕsretuｒnｅndifｔｈiｓfoｒm.Eｄit1．ｖａluｅ=”学号＂＋＂"+学号thisform.Ｅdｉｔ2。vaｌue="姓名”+""+同学信息表。姓名tｈiｓｆｏｒm．Edit3．value=＂性别"+””＋同学信息表．性别ｔｈｉｓｆoｒｍ．Eｄit4。vaｌuｅ=”诞生年月"+””+dtoｃ（同学信息表。诞生年月)thisfｏｒｍ。ediｔ5.vａlｕｅ＝”家庭住址"+＂＂＋同学信息表。家庭住址ｔhisfｏｒm．Edit６。vaｌue=＂备注”+＂”+同学信息表.备注elsｅifthisform．ｏptｉongroｕp２。vaｌue=１ifemｐｔｙ（ｎo）ｍessagｅbｏx(＂对不起,学号不能为空！”，１6,”错误＂)ｔｈisfｏrm.Ｔeｘｔ１.seｔfocｕsｒeturnendifselｅct同学成果表loｃatｅfｏｒalltrｉm（同学信息表。学号)＝noifｎotfｏｕnｄ()ｍｅssaｇebox（"没有找到你输入的学号!",1６,＂错误＂)thｉｓｆｏrm．Ｔeｘt1.setｆoｃｕsretｕrnｅｎｄifthｉｓfｏｒｍ．Ｅｄiｔ１.vaｌue＝＂学号”+”"+同学成果表。学号ｔhisｆｏｒm.Edｉt２.value=＂姓名＂+””＋同学成果表．性名tｈisｆｏrm．Eｄit３.vaｌuｅ＝”数据库”+""＋stｒ（同学成果表.数据库）tｈｉsforｍ.Edit４.ｖalｕe=＂高等数学”+＂”+ｓｔr（同学成果表。高等数学）thｉsform.edit5.value=＂英语"+＂＂＋ｓｔｒ（同学成果表.英语）tｈisfｏrｍ.Edｉt6。vaｌuｅ="总分"＋”＂+stｒ（同学成果表．总分）eｌsｅｉfｅmｐｔy(ｎｏ）ｍｅssagebox(”对不起,姓名不能为空！",１６，＂错误＂)ｔhisform.Tｅｘt１．ｓｅｔfocusreｔｕrnendifｓｅlｅcｔ同学成果表locａｔefｏralｌtriｍ（同学成果表.性名）＝ｎoifnｏtfouｎd（)meｓsagｅｂｏｘ（”没有找到您输入的姓名!"，16，＂错误"）thisform．Tｅxt１.sｅtfocuｓrｅｔuｒnenｄifｔｈiｓｆoｒｍ。Ｅdｉt１。valｕe＝”学号＂＋＂"+同学成果表.学号ｔｈisｆorｍ.Ｅdｉｔ２.ｖａlue="姓名＂+＂"＋同学成果表.性名thiｓfｏrm.Edｉt3．vaｌuｅ＝”数据库＂+""＋str（同学成果表。数据库)thisfｏrm。Eｄｉｔ4.value＝＂高等数学”＋””＋str(同学成果表.高等数学）thｉｓｆorm。ｅdit5．vａluｅ＝＂英语”+＂＂+stｒ（同学成果表.英语)thｉsfｏｒｍ.Ｅｄiｔ6。vaｌue="总分"+""+str(同学成果表．总分)enｄifendｉｆ退出中写入:thisｆorｍ.reｌease数据扫瞄中代码:首记录：ｇoｔopＴhisfｏrm。ｒeｆｒeｓｈ上一条：ｓkip－１GoｔopIｆboｆ()Tｈｉsform．reｆｒｅｓh下一条:Skip1Ｉｆeof(）ＧｏtｏpThisｆｏｒm.rｅfresh尾记录:GobｏttomＴhｉsｆorm.ｒefrｅsｈ计时器中TIMER1．ＴIＭER中写入：Tｈisform。ｌabeｌ5。caption＝dtｏc（ｄate（））Ｔhｉsfｏrm。labeｌ6．caption=time()退出中写入：Ｔhisfoｒm．ｒelease数据环境中加入同学成果表和同学信息表同学信息表维护代码：首记录,上一个，下一个，尾记录同上添加中写入：ａpｐｅndblａnkThisform,rｅｆｒｅｓｈ编辑中定入：ｔｈｉｓｆorm．tｘt学号。setｆocuｓ（）保存：mesｓagebｏｘ(“已存入”，48，“警告"）Thｉsfｏｒｍ.rｅfresh删除中写入：deletefrｏｍ同学信息表wherｅ学号=thiｓfoｒm.tｘt学号．vａｌuｅＴhｉsfｏrｍ。griｄ1.rｅcorｄsｏurｃe＝””ＰacｋＴhisform.griｄ1．rｅcｏrdsouｒce=”同学信息表”Tｈｉｓfoｒｍ。refresh打印中写入：liｓttopｒiｎｔerpｒｏｍpｔ数据环境中加入同学信息表同学成果表维护同上的代码，数据环境中加入同学成果表同学账户管理中扫瞄同学密码的代码也同上，数据环境中加入口令表口令表设置用于改密码,代码如下：确定中写入：LＯＣＡLjｊjj＝０fori＝１tｏ３s="ｔext”＋aｌlｔrim(stｒ（i））d=＂lａbｅl”＋ａlltｒiｍ(ｓtr（ｉ)）ifempty(tｈisfoｒm.＆ｓ。。vaｌｕe）ｍesｓａｇeｂｏx（ｔｈｉsｆorｍ。＆d。。cａpｔiｏn+”不能为空”,64，＂系统提示"）ｔｈisform．＆s。。sｅｔｆoｃusELSＥIFs=”text3"ｊj=1ＥNDIＦENＤＩFENDＦＯＲＩFｊｊ=１selecｔ新口令表GOｔｏpｌoｃateforａlltｒｉm(ｔhiｓform.ｔext1。vａlｕe）=alｌtrim(新口令表．ｉｄ）ifｆound（）ifalltｒｉｍ（ｔｈisforｍ.text2。vａｌuｅ)=allｔrim（新口令表。ps）andａllｔrim(ｔｈiｓｆorm.ｔext3.valｕe）=ａｌltrim（thiｓform．tｅxｔ4．value)reｐlaｃe新口令表.pswitｈＡLLＴＲIM（ｔhｉsｆorｍ.text3。Vａｌue)ＭESSAGEBＯX（”密码修改成功”，6４，”系统提示")tｈiｓｆorｍ．ｔexｔ1．Value=""thｉsｆoｒｍ．texｔ2．Vａlｕe＝＂”ｔhisｆｏｒm．texｔ3。Ｖａｌｕe=＂＂ｔhisform.ｔｅｘt4。value=＂”tｈiｓforｍ。text1.SｅtＦｏcｕsELＳＥMESSAGEBＯX（"密码不正确或两次输入密码不全都,请重新输入",４8，＂系统提示＂）ｔｈｉsｆorｍ．ｔｅｘt２．Ｖalｕｅ=＂＂thisfｏｒm．ｔexｔ3.Valuｅ＝”"ｔｈisform.text2.SetＦocuｓENDIFEＬSＥＭESSＡGEＢOX("用户名"+AＬLTRＩM（thiｓforｍ.tｅｘt1.Vaｌue)+”不存在，请确认重新输入",48,”系统提示＂)ｔ