您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 质量控制/管理 > vf课程结束大作业(学生管理系统)
学生信息管理系统共7页第1页一.“学生信息管理系统”功能分析。学生管理系统的主要功能是:可以,查询,添加,删除,修改,显示学生信息。学生管理系统学生表查询表单修改表单删除表单添加表单显示表单学生信息管理系统共7页第2页二.系统结构1,数据库结构数据库:学生信息统计表.dbc表:学生表.dbf索引:字段名学号为主索引。2,表单主表单:欢迎.scx次表单:查询.scx显示.scx修改.scx添加.scx删除.scx3,主程序Main.prg三.部分程序模块化1,欢迎代码:doform查询.scx如此类推。学生信息管理系统共7页第3页2,查询代码:a=trim(thisform.text1.value)use学生表gotopifa==messagebox(学号不能为空!)elselocafor学号=aif.not.eof()thisform.text2.value=学号thisform.text3.value=姓名thisform.text4.value=性别thisform.text5.value=班级elsemessagebox(本表查无此信息!)endifendifuse3,修改学生信息管理系统共7页第4页代码:use学生表aa=trim(thisform.text1.value)ifaa==messagebox(学号不能为空!)elselocafor学号=aab=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)repl姓名withbrepl性别withcrepl班级withdmessagebox(修改数据成功!)endifuse学生信息管理系统共7页第5页4,删除代码:use学生表a=trim(thisform.text1.value)ifa==messagebox(学号不能为空!)elselocatefor学号=aIf.not.eof()delepackmessagebox(删除成功!)Elsemessagebox(该信息不存在!)endifendifuse5,添加学生信息管理系统共7页第6页代码:use学生表appendblanka=trim(thisform.text1.value)b=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)ifa==''.or.b==''.or.c==''.or.d==''messagebox(数据不能为空!)elsereplace学号withareplace姓名withbreplace性别withcreplace班级withdmessagebox(添加数据成功!)endifuse对于清除控件的代码:thisform.text1.value=''thisform.text2.value=''thisform.text3.value=''thisform.text4.value=''6,显示学生信息管理系统共7页第7页代码:select学生LPARAMETERSnRow,nCollist7,主程序dosutup.prgdoform欢迎.scxreadeventssettalkoffsetsafetyoffsetdefaulttod:setcenturyonclearwindowsclearalldoi:\vfp\主程序.prg
本文标题:vf课程结束大作业(学生管理系统)
链接地址:https://www.777doc.com/doc-1376917 .html