vf课程结束大作业(学生管理系统)..docVIP

一．“学生信息管理系统”功能分析。 学生管理系统的主要功能是：可以，查询，添加，删除，修改，显示学生信息。 　　 二．系统结构 数据库结构 数据库：学生信息统计表.dbc 表：学生表.dbf 索引：字段名 学号 为 主索引。 ２，表单 　　主表单： 　　　　欢迎.scx 次表单： 　　　　查询.scx 　　　　显示.scx 　　　　修改.scx 　　　　添加.scx 　　　　删除.scx ３，主程序 　 Main.prg 三．部分程序模块化 　　１，欢迎 　　　代码： 　do form 查询.scx　　　　　　　　　　　　　　 　　　　　　　　　如此类推。 　　　 　２，查询 　　　　 　　 　 代码： 　a=trim(thisform.text1.value) use 学生表 go top if a== messagebox(学号不能为空！) 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(学号不能为空！) else loca for 学号=aa b=trim(thisform.text2.value) c=trim(thisform.text3.value) d=trim(thisform.text4.value) repl 姓名 with b repl 性别 with c repl 班级 with d messagebox(修改数据成功！) endif use 　　 ４，删除 　　 　　　　代码： use 学生表 a=trim(thisform.text1.value) if a== messagebox(学号不能为空！) else locate for 学号=a If .not.eof() dele pack messagebox(删除成功！) Else messagebox(该信息不存在！) endif endif use ５，添加 　　　 　　代码：　　　　　　　　　　　 use 学生表 append blank a=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(添加数据成功！) endif use 对于 清除　控件的代码： thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= ６，显示 代码： select 学生 LPARAMETERS nRow, nCol list ７，主程序 　do sutup.prg do form 欢迎.scx read events set talk off set safety off set default to d: set century on clear windows clear all do i:\vfp\主程序.prg 学生信息管理系统 共7页 第7页 学生管理系统 学生表 查询表单 修改表单 删除表单 添加表单 显示表单