《學(xué)生管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《學(xué)生管理系統(tǒng)（10頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、一．“學(xué)生信息管理系統(tǒng)”功能分析。
學(xué)生管理系統(tǒng)旳重要功能是：可以，查詢，添加，刪除，修改，顯示學(xué)生信息。
學(xué)生管理系統(tǒng)
學(xué)生表
查詢表單
修改表單
刪除表單
添加表單
顯示表單
二．系統(tǒng)構(gòu)造
1， 數(shù)據(jù)庫構(gòu)造
數(shù)據(jù)庫：學(xué)生信息登記表.dbc
表：學(xué)生表.dbf
索引：字段名 學(xué)號(hào) 為 主索引。
２，表單
主表單：
歡迎.scx
次表單：
查詢.scx
顯示.scx
修改.scx
添加.scx
刪除.scx
３，主程序
2、Main.prg
三．部分程序模塊化
?。?，歡迎
代碼： do form 查詢.scx
如此類推。
?。?，查詢
代碼：
a=trim(thisform.text1.value)
use 學(xué)生表
go top
if a==""
messagebox("學(xué)號(hào)不能為空！")
else
loca for 學(xué)號(hào)=a
if .not.eof()
thisform.text2.value=學(xué)號(hào)
thisform.te
3、xt3.value=姓名
thisform.text4.value=性別
thisform.text5.value=班級(jí)
else
messagebox("本表查無此信息！")
endif
endif
use
３，修改
代碼：
use 學(xué)生表
aa=trim(thisform.text1.value)
if aa==""
messagebox("學(xué)號(hào)不能為空！")
else
loca for 學(xué)號(hào)=aa
b=trim(thisform.text2.value)
c=t
4、rim(thisform.text3.value)
d=trim(thisform.text4.value)
repl 姓名 with b
repl 性別 with c
repl 班級(jí) with d
messagebox("修改數(shù)據(jù)成功！")
endif
use
４，刪除
代碼：
use 學(xué)生表
a=trim(thisform.text1.value)
if a==""
messagebox("學(xué)號(hào)不能為空！")
else
locate for 學(xué)號(hào)=a
If .not.eof()
d
5、ele
pack
messagebox("刪除成功！")
Else
messagebox("該信息不存在！")
endif
endif
use
５，添加
代碼：
use 學(xué)生表
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=='
6、'.or.c==''.or.d==''
messagebox(" 數(shù)據(jù)不能為空！")
else
replace 學(xué)號(hào) with a
replace 姓名 with b
replace 性別 with c
replace 班級(jí) with d
messagebox("添加數(shù)據(jù)成功！")
endif
use
對(duì)于 清除 控件旳代碼：
thisform.text1.value=''
thisform.text2.value=''
thisform.text3.value=''
thisform.text4.value=''
６，顯示
代碼：
select 學(xué)生
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
學(xué)生管理系統(tǒng)
