第一中學(xué)學(xué)生管理系統(tǒng) 下載完整版：VFP課程設(shè)計(jì)樣式2.rar
2009級(jí)XX專(zhuān)業(yè)XX名 學(xué)號(hào)111
1.設(shè)計(jì)目的
完成一個(gè)小型應(yīng)用系統(tǒng)的開(kāi)發(fā)設(shè)計(jì)——第一中學(xué)學(xué)生管理系統(tǒng)。
進(jìn)一步掌握Visual FoxPro面向?qū)ο蟪绦蛟O(shè)計(jì)中關(guān)于對(duì)象、屬性、方法和事件的基本概念，熟悉常用對(duì)象的屬性設(shè)置和使用方法。在實(shí)際應(yīng)用設(shè)計(jì)中靈活運(yùn)用所學(xué)知識(shí)。
2．系統(tǒng)功能設(shè)計(jì)
本系統(tǒng)擬實(shí)現(xiàn)對(duì)第一中學(xué)學(xué)生資料、學(xué)習(xí)成績(jī)信息的添加、瀏覽、查詢(xún)與修改等管理功能；實(shí)現(xiàn)對(duì)學(xué)生信息按出生日期或按分?jǐn)?shù)進(jìn)行統(tǒng)計(jì)計(jì)算并對(duì)所獲資料進(jìn)行報(bào)表式打印。
3．運(yùn)行系統(tǒng)所需要的軟件、硬件環(huán)境
軟件環(huán)境：Windows XP操作系統(tǒng)；Visual FoxPro 6.0開(kāi)發(fā)語(yǔ)言。
硬件環(huán)境：Intel P4或更高CPU；內(nèi)存256MB以上，硬盤(pán)1GB以上。
4.系統(tǒng)總體設(shè)計(jì)
學(xué)生管理系統(tǒng)功能模塊圖，如圖1所示。 圖1 系統(tǒng)功能模塊圖
4.1資料瀏覽
實(shí)現(xiàn)對(duì)已有學(xué)生檔案資料、學(xué)生各科目成績(jī)及課程設(shè)置信息的瀏覽。
4.2資料管理
實(shí)現(xiàn)對(duì)學(xué)生檔案資料、成績(jī)資料以及課程設(shè)置資料的修改、添加，刪除等功能。
4.3資料統(tǒng)計(jì)
實(shí)現(xiàn)按照學(xué)生的特定條件進(jìn)行數(shù)據(jù)資料統(tǒng)計(jì)。
4.4資料打印
打印學(xué)生的相關(guān)資料信息。
5.詳細(xì)設(shè)計(jì)
5.1數(shù)據(jù)庫(kù)表
（1）學(xué)生檔案表（XSDN.DBF）
XSDN.DBF表結(jié)構(gòu)見(jiàn)表1，表數(shù)據(jù)見(jiàn)圖2。
表1 學(xué)生檔案（XSDN.DBF）表結(jié)構(gòu)
字段名 字段類(lèi)型 字段寬度 小數(shù)點(diǎn) 索引類(lèi)型 可否為空
學(xué)號(hào) C 10 0 普通索引 否
姓名 C 8 0 否
性別 C 2 0 否
出生日期 D 10 0 否
民族 C 10 0 否
籍貫 C 20 0 否
政治面貌 C 4 0 否
班級(jí) C 20 0 否
圖2 XSDN表
（2）學(xué)生成績(jī)表（XSCJ.DBF）
XSCJ.DBF表結(jié)構(gòu)見(jiàn)表2，表數(shù)據(jù)見(jiàn)圖3。
表2 學(xué)生成績(jī)（XSCJ.DBF）表結(jié)構(gòu)
字段名 字段類(lèi)型 字段寬度 小數(shù)點(diǎn) 索引類(lèi)型 可否為空
學(xué)號(hào) C 10 0 普通索引 否
數(shù)學(xué) N 3 1 否
英語(yǔ) N 3 1 否
信息技術(shù) N 3 1 否
圖3 XSCJ表
（3）課程設(shè)置表（KCSZ.DBF）
KCSZ.DBF表結(jié)構(gòu)見(jiàn)表3，表數(shù)據(jù)見(jiàn)圖4。
表3 課程設(shè)置（KCSZ.DBF）表結(jié)構(gòu)
字段名 字段類(lèi)型 字段寬度 小數(shù)點(diǎn) 索引類(lèi)型 可否為空
課程名稱(chēng) C 10 0 普通索引 否
任課教師 C 8 0 否
備注 M 0 否
圖4 KCSZ表
5.2表單設(shè)計(jì)
（1）主界面
學(xué)生管理系統(tǒng)主界面，如圖5所示。表單屬性及說(shuō)明見(jiàn)表4。
圖5 主界面
表4 主界面表單屬性
對(duì)象 屬性 屬性值 說(shuō)明
Form1 picture Administrator照片->風(fēng)景06 表單背景
Label1 Caption
Backcolor
Fontname
fontsize 學(xué)生檔案管理
0—透明
隸體
20
Label2 Caption 進(jìn)入系統(tǒng)
Label3 Caption 退出系統(tǒng)
相關(guān)程序代碼如下:
①Label2_click
Thisform.visible=.F.
do form D:\學(xué)生檔案.scx
②Label3_click
Thisform.release
(2)資料瀏覽設(shè)計(jì)
資料瀏覽界面，如圖6、圖7、圖8所示。
圖6 學(xué)生檔案資料
圖7 學(xué)生成績(jī)資料
圖8 課程資料
（3）檔案管理設(shè)計(jì)
表單屬性及說(shuō)明見(jiàn)表5。表單界面如圖9、圖10所示。
表5 “學(xué)生檔案”表單屬性表
對(duì)象 屬性 屬性值 說(shuō)明
Form2 picture Administrator照片->風(fēng)景06 表單背景
Commandgroup1 Buttomcount
AutoSize 8
.T.
Command1-
Command8 AutoSize
caption
FontSize .T.
下一條,上一條
9
Label1 Caption
AutoSize 學(xué)生檔案管理
.T.
圖9 學(xué)生檔案管理
程序代碼：
Form1_load: open database XS
Foum1_unload: close database
Commandgroup1_click:
use XSDN
do case
case this.value=1
if recn()<recc()
skip
endif
case this.value=2
if recn()>1
skip-1
endif
case this.value=3
go top
case this.value=4
go bottom
case this.value=5
append blank
case this.value=6
delete
pack
case this.value=7
thisform.release
endcase
thisform.refresh
圖10 學(xué)生成績(jī)管理
程序代碼：
Form1_load: open database XS
Foum1_unload: close database
Commandgroup1_click:
use XSCJ
do case
case this.value=1
if recn()<recc()
skip
endif
case this.value=2
if recn()>1
skip-1
endif
case this.value=3
go top
case this.value=4
go bottom
case this.value=5
append blank
case this.value=6
delete
pack
case this.value=7
thisform.release
endcase
thisform.refresh
(4)資料統(tǒng)計(jì)設(shè)計(jì)
表單屬性及說(shuō)明見(jiàn)表6。表單界面如圖11所示。
圖11學(xué)生情況統(tǒng)計(jì)
程序代碼：
Optiongroup1_InteractiveChange:
use XSDN
count for 性別="男" to na
count for 性別="女" to nv
count to zs
do case
case this.value=1
thisform.text1.value=str(zs,4)
case this.value=2
thisform.text2.value=str(nv,4)
case this.value=3
thisform.text3.value=str(na,4)
endcase
use
thisform.refresh
Optiongroup2_InteractiveChange:
use XSDN
count for 出生日期>ctod(thisform.text4.value) to rq1
count for 出生日期<ctod(thisform.text5.value) to rq2
count for 出生日期<ctod(thisform.text7.value).and.;
出生日期>ctod(thisform.text6.value)to rq3
do case
case this.value=1
thisform.text8.value=str(rq1,8)
case this.value=2
thisform.text8.value=str(rq2,8)
case this.value=3
thisform.text8.value=str(rq3,8)
endcase
use
thisform.refresh
Optiongroup3_InteractiveChange:
use XSCJ
count for 數(shù)學(xué)=allt(thisform.text10.value) to cj1
count for 數(shù)學(xué)<allt(thisform.text11.value) to cj2
count for 數(shù)學(xué)>allt(thisform.text12.value) to cj3
count for 數(shù)學(xué)>allt(thisform.text13.value).and.;
數(shù)學(xué)<allt(thisform.text14.value) to cj4
do case
case this.value=1
thisform.text9.value=str(cj1,4)
case this.value=2
thisform.text9.value=str(cj2,4)
case this.value=3
thisform.text9.value=str(cj3,4)
case this.value=4
thisform.text9.value=str(cj4,4)
endcase
use
thisform.refresh
表6 學(xué)生情況統(tǒng)計(jì)表單屬性表
對(duì)象 屬性 屬性值 說(shuō)明
Form1 picture Administrator照片->風(fēng)景06 表單背景
Label1 Caption
AutoSize
BackStyle
Fontname
fontsize 學(xué)生情況統(tǒng)計(jì)
.T.
0— 透明
隸體
24
Label2 Caption
AutoSize
BackStyle 按出生日期統(tǒng)計(jì)人數(shù)
.T.
0—透明
Label3 Caption
AutoSize 按數(shù)學(xué)分?jǐn)?shù)統(tǒng)計(jì)人數(shù)
.T.
Optiongroup1 BackStyle
buttomcount 0--透明
3
Option1
Option2
Option3 Caption
Caption
Caption 學(xué)生總數(shù)
女生人數(shù)
男生總數(shù)
Optiongroup2 BackStyle
Buttomcount 0--透明
3
Option1
Option2
Option3
Caption
backstyle
Caption
backstyle
Caption
backstyle 在---之前
0—透明
在---之后
0—透明
在---之間
0—透明
Optiongroup3 BackStyle
Buttomcount 0--透明
3
Option1
Option2
Option3 Caption
backstyle
Backstyle
backstyle 等于
小于
大于
在---之間
