欢迎来到天天文库
浏览记录
ID:50679349
大小:331.00 KB
页数:7页
时间:2020-03-13
《vf课程结束大作业学生管理系统.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、学生信息管理系统一.“学生信息管理系统”功能分析。学生管理系统的主要功能是:可以,查询,添加,删除,修改,显示学生信息。学生管理系统学生表查询表单修改表单删除表单添加表单显示表单 共7页第7页学生信息管理系统二.系统结构1,数据库结构数据库:学生信息统计表.dbc表:学生表.dbf索引:字段名学号为主索引。2,表单 主表单: 欢迎.scx次表单: 查询.scx 显示.scx 修改.scx 添加.scx 删除.scx3,主程序 Main.prg三.部分程序模块化 1,欢迎 代码: doform查询.scx
2、 如此类推。 共7页第7页学生信息管理系统 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页第7页学生信息管理系统
3、 代码: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页第7页学生信息管理系统4,删除 代码:use学生表a=trim(thisform.text1.v
4、alue)ifa==""messagebox("学号不能为空!")elselocatefor学号=aIf.not.eof()delepackmessagebox("删除成功!")Elsemessagebox("该信息不存在!")endifendifuse5,添加共7页第7页学生信息管理系统 代码: use学生表appendblanka=trim(thisform.text1.value)b=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)
5、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,n
6、Collist7,主程序 dosutup.prgdoform欢迎.scxreadeventssettalkoffsetsafetyoffsetdefaulttod:setcenturyonclearwindowsclearalldoi:vfp主程序.prg共7页第7页
此文档下载收益归作者所有