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

一．“学生信息管理系统”功能分析。
学生管理系统的主要功能是：可以，查询，添加，删除，修改，显示学生信息。
学生管理系统
学生表
查询表单
修改表单
删除表单
添加表单
显示表单　

二．系统结构

1， 数据库结构
数据库：学生信息统计表.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