《vf课程结束大作业(学生管理系统).docx》由会员分享，可在线阅读，更多相关《vf课程结束大作业(学生管理系统).docx（7页珍藏版）》请在三一办公上搜索。
1、学生信息管理系统一“学生信息管理系统”功能分析。 学生管理系统的主要功能是：可以，查询，添加，删除，修改，显示学生信息。学生管理系统学生表查询表单修改表单删除表单添加表单显示表单二系统结构1， 数据库结构数据库：学生信息统计表.dbc表：学生表.dbf 索引：字段名 学号 为 主索引。，表单主表单：欢迎.scx 次表单：查询.scx显示.scx修改.scx添加.scx删除.scx，主程序 Main.prg三部分程序模块化，欢迎代码： do form 查询.scx如此类推。，查询代码：a=trim(thisform.text1.value)use 学生表 go top if a= message
2、box(学号不能为空！) else loca for 学号=a if .not.eof() thisform.text2.value=学号 thisform.text3.value=姓名 thisform.text4.value=性别 thisform.text5.value=班级 else messagebox(本表查无此信息！) endif endif use ，修改代码：use 学生表aa=trim(thisform.text1.value)if aa= messagebox(学号不能为空！)elseloca for 学号=aab=trim(thisform.text2.value)c=
3、trim(thisform.text3.value)d=trim(thisform.text4.value)repl 姓名 with brepl 性别 with crepl 班级 with dmessagebox(修改数据成功！)endifuse，删除代码：use 学生表a=trim(thisform.text1.value)if a= messagebox(学号不能为空！)elselocate for 学号=a If .not.eof() dele pack messagebox(删除成功！) Else messagebox(该信息不存在！)endifendifuse，添加代码：use 学生
4、表append blanka=trim(thisform.text1.value)b=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)if a=.or.b=.or.c=.or.d= messagebox( 数据不能为空！)else replace 学号 with a replace 姓名 with b replace 性别 with c replace 班级 with d messagebox(添加数据成功！) endifuse对于 清除控件的代码：thisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text4.value=，显示代码：select 学生LPARAMETERS nRow, nCollist，主程序do sutup.prgdo form 欢迎.scxread eventsset talk offset safety offset default to d:set century onclear windowsclear alldo i:vfp主程序.prg共7页第7页
