Visual FoxPro 課程設(shè)計(jì)

1、 VisualFoxPro數(shù)據(jù)庫(kù)程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告時(shí)間：2012年4月6日目錄第一章系統(tǒng)總體設(shè)計(jì)TOC o 1-5 h z系統(tǒng)功能簡(jiǎn)介4系統(tǒng)功能結(jié)構(gòu)圖4 HYPERLINK l bookmark6 第二章需求分析5第三章數(shù)據(jù)庫(kù)設(shè)計(jì)學(xué)生表5課程表5成績(jī)表5第四章實(shí)驗(yàn)數(shù)據(jù)學(xué)生表數(shù)據(jù)6課程表數(shù)據(jù)6成績(jī)表數(shù)據(jù)7第五章程序設(shè)計(jì)界面系統(tǒng)主界面設(shè)計(jì)8控件屬性設(shè)置8代碼設(shè)計(jì)9主菜單設(shè)計(jì)9控件屬性設(shè)置9代碼設(shè)計(jì)9菜單設(shè)計(jì)9學(xué)生成績(jī)錄入10控件屬性設(shè)置10代碼設(shè)計(jì)10學(xué)生成績(jī)修改11控件屬性設(shè)置11代碼設(shè)計(jì)11學(xué)生成績(jī)查詢13按學(xué)號(hào)查詢表單控件屬性設(shè)置13按學(xué)號(hào)查詢表單代碼設(shè)計(jì)13按課程查詢表單控件屬性設(shè)置14

2、按課程查詢表單代碼設(shè)計(jì)14按班級(jí)號(hào)查詢表單控件屬性設(shè)置15按班級(jí)號(hào)查詢表單代碼設(shè)計(jì)15按總分查詢表單控件屬性設(shè)置16按總分查詢表單代碼設(shè)計(jì)165.6學(xué)生成績(jī)?yōu)g覽17學(xué)生成績(jī)概況表單控件屬性設(shè)置17學(xué)生成績(jī)概況表單代碼設(shè)計(jì)17080901_成績(jī)?yōu)g覽表單控件屬性設(shè)置18080901_成績(jī)?yōu)g覽表單代碼設(shè)計(jì)18080902_成績(jī)?yōu)g覽表單控件屬性設(shè)置19080902_成績(jī)?yōu)g覽表單代碼設(shè)計(jì)195.7打印報(bào)表21打印報(bào)表表單設(shè)計(jì)21打印報(bào)表文件設(shè)計(jì)21退出系統(tǒng)5.8.1退出系統(tǒng)表單控件屬性設(shè)置22退出系統(tǒng)表單代碼設(shè)計(jì)22 HYPERLINK l bookmark18 第六章課程設(shè)計(jì)總結(jié)23 HYPERLIN

3、K l bookmark20 第七章參考文獻(xiàn)23第一章系統(tǒng)總體設(shè)計(jì)系統(tǒng)功能簡(jiǎn)介錄入：錄入學(xué)號(hào)，學(xué)生姓名，課程號(hào)，課程名，成績(jī)修改：按課程號(hào)修改成績(jī)查詢：按學(xué)號(hào)查詢?cè)撏瑢W(xué)的各科成績(jī)；按課程號(hào)查詢每名同學(xué)的成績(jī)，并排序查詢結(jié)果；按班級(jí)號(hào)查詢每名同學(xué)的各科成績(jī)；按總分查詢每名同學(xué)的總成績(jī)，并排序查詢結(jié)果打印:打印成績(jī)系統(tǒng)功能結(jié)構(gòu)圖第二章需求分析業(yè)務(wù)流程：運(yùn)行主程序登錄主界面（輸入密碼）登錄主菜單成績(jī)錄入成績(jī)修改成績(jī)查詢（按學(xué)號(hào)，課程號(hào)，班級(jí)號(hào)，總分）成績(jī)?yōu)g覽（概況，080901班，080902班）打印報(bào)表退出系統(tǒng)第三章數(shù)據(jù)庫(kù)設(shè)計(jì)學(xué)生表表結(jié)構(gòu)：學(xué)生表（學(xué)號(hào)C8,姓名C8,性別C2,出生日期D,班級(jí)號(hào)C

4、8）主索引：學(xué)號(hào)；候選索引：姓名課程表表結(jié)構(gòu)：課程表（課程號(hào)C4,課程名C14,學(xué)分?jǐn)?shù)值型N3,0,任課教師C8）主索引：課程號(hào)；候選索引：課程名成績(jī)表表結(jié)構(gòu)：成績(jī)表（學(xué)號(hào)C8,課程號(hào)C4,成績(jī)N5,0,性別C2,班級(jí)號(hào)C8）普通索引：成績(jī)第四章實(shí)驗(yàn)數(shù)據(jù)學(xué)生表數(shù)據(jù)I學(xué)號(hào)I姓名I性別I出生曰期I班級(jí)號(hào)I王野卑03/14/9308090108090102李麗女07/09/9:.0809010809010305/17/9308090108090104汪慧女08/30/93：08090108090201女02X21/93，.-080902-：.；08090202女08/09/93-.；08090：08

5、090203;；吳笙0111/93080902：08090204工宇；B05/17/93080902.:；r:u:：；!、：；-；:-:i:I/!jJI課程表數(shù)據(jù)亙亙叵課程號(hào)課程名學(xué)茅任課教師高等數(shù)學(xué)E唐巖002夭學(xué)英語(yǔ),5.董葉003飆葯學(xué)孑遞華004直袖會(huì)訐劉麗二二二二二二二,亠,心曲股沁:；二.：.：.；1：.：.：二L二：.：.：二：.：:；.；：:.；.：.:,亠心皿皿，:；二二;：:.：二：.；：二：.：.：”.1：.:43成績(jī)表數(shù)據(jù)S畫(huà)成績(jī)表口回探1學(xué)號(hào)課程號(hào)成績(jī)性別班級(jí)號(hào)o8o9oios_;00192男0809010809010100289.i0S090108090101003

6、85黒0809010809010100488男_0009010809010200189，玄0809010809010200288.玄08090108090102003880809010809010200492藝:0809010809010300186奧08090108090103002900809010809010300380US09010809010300482藝0S09LH0809010400183蠱0809010809010400295.玄0809010809020400489畀.0809020809010400382.藝08090108090104004亙000901080902010

7、0187k：0809020809020100284蠱0809020809020100390査.0809020809020100485蠱0809020809020200189.玄08090208090202002790809020809020200383.玄080902UUUDUu-Uk-=i3皿:UUUDUt-fin第五章程序設(shè)計(jì)界面系統(tǒng)主界面設(shè)置學(xué)生成績(jī)管理系統(tǒng)DesignedbyYangShuHua請(qǐng)輸入口令二1確定1退出控件屬性設(shè)置(1)主表單屬性：Name:”form1”MaxButton=.F.AutoCenter=.T.Caption:主界面MinButton=.F.Closeab

8、le=.F.Height=454WindowType=0Width=633WindowState=0(2)命令按鈕屬性：Name二Commandl”Name二”Command2“Name=“Command3“Caption二“開(kāi)始“Caption二”確定“Caption二“退出Visible二.F.(3)文本框：1個(gè)，用來(lái)接收口令，其主要屬性為Name=“Text1”P(pán)asswordChar=“*”(4)標(biāo)簽：共三個(gè)，主要屬性：Name二“LablelCaption二”學(xué)生成績(jī)管理系統(tǒng)Name二“Lable2”Name二“Lable3“Caption二”DesignedbyYangShuHua

9、“Caption二“請(qǐng)輸入口令：”Visible二.F.(5)時(shí)鐘控件：共兩個(gè)，用來(lái)控制Lable2的顏色變化Name=“Timerl”Name二”Timer2”Interval=1230Interval=843代碼設(shè)計(jì)Command1的Click事件thisform.label3.visible二.T.thisform.text1.visible二.T.mand1.visible=.F.mand2.visible=.T.passw二YANGSHUHUAIFUPPER(thisform.textl.value)二passwDOform主菜單Command2的Click事件thisform.re

10、leaseELSEMessageBox(口令不對(duì)，您無(wú)權(quán)使用本系統(tǒng)!，0+16+0,設(shè)置口令)thisform.refreshENDIFCommand3的Click事件cleareventssetsysmenutodefathisform.releaseTimer1的Timer事件thisform.label2.forecolor二rgb(255,0,0)Timer2的Timer事件thisform.label2.forecolor二rgb(0,0,255)主菜單設(shè)計(jì)控件屬性設(shè)置標(biāo)簽Lable1的Caption屬性：經(jīng)濟(jì)管理學(xué)院學(xué)生成績(jī)管理系統(tǒng)代碼設(shè)計(jì)表單的Init事件：do學(xué)生成績(jī)管理.mp

11、rWITHTHis,.T.菜單設(shè)計(jì)按照系統(tǒng)功能結(jié)構(gòu)圖設(shè)計(jì)菜單在vfp系統(tǒng)主菜單的“顯示”菜單下，選擇“常規(guī)選項(xiàng)”命令，在彈出的對(duì)話框中，勾選頂層表單選項(xiàng)，將該表單設(shè)置為頂層表單。經(jīng)濟(jì)管理學(xué)院學(xué)生成績(jī)管理系統(tǒng)期頂層表單回旨=逼也l 5.3學(xué)生成績(jī)錄入學(xué)生瞬錄入ir回垂.成綺錄入班級(jí)號(hào)080901成績(jī)91添加刪除進(jìn)出5.3.1控件屬性設(shè)置標(biāo)簽：LabellCaption:學(xué)號(hào)；Label2Caption:課程號(hào)；Label3Caption：成績(jī)：Label4Caption:性別；Label5Caption:班級(jí)號(hào)；CommandlCaption：添加;Command2Caption：刪除：Comm

12、and3Caption：退出代碼設(shè)計(jì)Commandl的Click事件select成績(jī)表gobottomappendblankreplace成績(jī)表.學(xué)號(hào)withthisform.textl.valuereplace成績(jī)表.性別withthisform.text4.valuereplace成績(jī)表.課程號(hào)withthisform.text2.valuereplace成績(jī)表.班級(jí)號(hào)withthisform.text5.valuereplace成績(jī)表.成績(jī)withthisform.text3.valuethisform.refreshnA二MESSAGEBOX（你確定刪除該記錄嗎？，4+64+256,提

13、示）Command2的Click事件IFnA=6DELETEPACKENDIFCommand3的Click事件thisform.release學(xué)生成績(jī)修改成績(jī)修改90修改it出I=H回I育礬學(xué)三弍這寧改學(xué)號(hào)課程號(hào)08090101001成績(jī)控件屬性設(shè)置LabellCaption：課程號(hào);Label2Caption：成績(jī);Label3Caption：學(xué)號(hào)；Label4Caption：成績(jī)修改;Command1Caption：修改;Command2Caption：退出代碼設(shè)計(jì)Command1的Click事件select成績(jī)表locatefor學(xué)號(hào)二thisform.text2.valueand課程號(hào)

14、二thisform.text1.valuedowhilefound()replace成績(jī)withthisform.text3.valuecontinueenddoCommand2的Click事件thisform.release學(xué)生成績(jī)查詢按學(xué)號(hào)查詢表單控件屬性設(shè)置褰按學(xué)號(hào)查迄匸回I韶學(xué)號(hào)08090101盂為it出學(xué)號(hào)姓名課程號(hào)課程容成塔08090101王野002頭學(xué)英語(yǔ)8608090101王野003微觀經(jīng)濟(jì)學(xué)9008090101王野004基礎(chǔ)會(huì)計(jì)89IJLabellCaption：學(xué)號(hào);CommandlCaption：查詢;Command2Caption：退出表格：顯示查詢結(jié)果按學(xué)號(hào)查詢表單代

15、碼設(shè)計(jì)Commandl的Click事件setsafetyoffselect學(xué)生表.學(xué)號(hào),學(xué)生表.姓名,課程表.課程號(hào)，課程表.課程名,成績(jī)表.成績(jī)from學(xué)生表，課程表,成績(jī)表；where成績(jī)表.學(xué)號(hào)-學(xué)生表.學(xué)號(hào)AND成績(jī)表.課程號(hào)二課程表.課程號(hào)and成績(jī)表.學(xué)號(hào)二thisform.text1.value;intotablecxbthisform.grid1.recordsource二cxbthisform.refreshsetsafetyonCommand2的Click事件thisform.release按課程查詢表單控件屬性設(shè)置繆按瞬查聞I口|回藥Il 課程號(hào)|002席降序查詢進(jìn)出學(xué)號(hào)

16、姓名課程號(hào)課程名惑塔1李麗002夫?qū)W英語(yǔ)8908090201秦瑟002大學(xué)英語(yǔ)8908090202謝曉002大學(xué)英語(yǔ)8708090101王野002大學(xué)英語(yǔ)8608090104汪慧002丸學(xué)英語(yǔ)8608090103弓觥遠(yuǎn)002天學(xué)英語(yǔ)8508090204王娉婷002犬學(xué)英語(yǔ)8208090203吳軍002犬學(xué)英語(yǔ)751JLabellCaption：課程號(hào);OptionGroupl.optionlCaption:升序;OptionGroup.option2Caption：降序;Command1Caption:查詢；Command2Caption：退出表格控件：顯示查詢結(jié)果按課程號(hào)查詢表單代碼設(shè)計(jì)Co

17、mmandl的Click事件setsafetyoffifthisform.optiongroup1.option1.value=1select學(xué)生表.學(xué)號(hào)，學(xué)生表.姓名，課程表.課程號(hào)，課程表課程名，成績(jī)表成績(jī)from學(xué)生表，課程表，成績(jī)表；where成績(jī)表.學(xué)號(hào)二學(xué)生表.學(xué)號(hào)AND成績(jī)表.課程號(hào)=課程表.課程號(hào)and成績(jī)表.課程號(hào)二thisform.textl.value;orderby成績(jī)表.成績(jī)ascintotablecxblelseselect學(xué)生表.學(xué)號(hào)，學(xué)生表.姓名，課程表.課程號(hào)，課程表課程名，成績(jī)表成績(jī)from學(xué)生表，課程表，成績(jī)表；where成績(jī)表.學(xué)號(hào)二學(xué)生表.學(xué)號(hào)AND成

18、績(jī)表.課程號(hào)=課程表.課程號(hào)and成績(jī)表.課程號(hào)二thisform.textl.value;l orderby成績(jī)表.成績(jī)descintotablecxblendifthisform.gridl.recordsource二cxblthisform.refreshsetsafetyonCommand2的Click事件thisform.release按班級(jí)查詢表單控件屬性設(shè)置渤按瞬查詢口|回iiESj班級(jí)號(hào)（080902-更訶遙出I學(xué)號(hào)姓名課程號(hào)課程定成績(jī)08090201秦琴001高等巍學(xué)9008090201秦琴002犬學(xué)英語(yǔ)8908090201秦琴003徽觀經(jīng)濟(jì)學(xué)8208090201秦琴.004

19、基礎(chǔ)會(huì)計(jì)8508090202謝曉001高等數(shù)學(xué)8608090202謝曉002夫?qū)W英語(yǔ)8708090202謝曉003徴觀經(jīng)濟(jì)學(xué)8008090202謝曉004基礎(chǔ)合計(jì)8108090203吳軍001高等數(shù)學(xué)7908090203吳軍002光學(xué)英語(yǔ)7508090203吳軍003徽觀經(jīng)濟(jì)學(xué)8008090203吳軍004基礎(chǔ)會(huì)計(jì)8108090204王娉嫖001高等數(shù)學(xué)7508090204王娉嫖002犬學(xué)英語(yǔ)8208090204王娉婷003徴觀經(jīng)濟(jì)學(xué)8008090204王娉娉004基礎(chǔ)會(huì)計(jì)79LabellCaption：班級(jí)號(hào)；CommandlCaption：查詢；Command2Caption：退出按班級(jí)查

20、詢表單代碼設(shè)計(jì)Command1的Click事件setsafetyoffselect學(xué)生表.學(xué)號(hào)，學(xué)生表.姓名，課程表.課程號(hào)，課程表.課程名，成績(jī)表.成績(jī)from學(xué)生表，課程表，成績(jī)表；where成績(jī)表.學(xué)號(hào)-學(xué)生表.學(xué)號(hào)AND成績(jī)表.課程號(hào)二課程表.課程號(hào)and學(xué)生表.班級(jí)號(hào)二thisform.text1.value;intotablecxb2thisform.grid1.recordsource=cxb2thisform.refreshsetsafetyonCommand2的Click事件thisform.release按總分查詢表單控件屬性設(shè)置O升序降序?qū)W號(hào).姓名藏號(hào)總嚓08090102

21、李麗08090134708090103張光遠(yuǎn)08090134608090201秦琴08090234608090104汪慧08090134008090202謝曉08090233408090204王媚婷08090231608090203吳軍08090231508090101玉野080901265I*;OptionGroupl.optionlCaption:升序;OptionGroup.option2Caption:降序CommandlCaption:查詢；Command2Caption:退出；表格控件：顯示查詢結(jié)果按總分查詢表單代碼設(shè)計(jì)Command1的Click事件setsafetyoffift

22、hisform.optiongroup1.option1.value=1select成績(jī)表.學(xué)號(hào),學(xué)生表.姓名,學(xué)生表.班級(jí)號(hào),SUM（成績(jī)表成績(jī)）as總分from成績(jī)表，學(xué)生表；where成績(jī)表.學(xué)號(hào)-學(xué)生表.學(xué)號(hào)groupby成績(jī)表學(xué)號(hào)orderby總分asc;intotablecbx4elseselect成績(jī)表.學(xué)號(hào),學(xué)生表.姓名,學(xué)生表.班級(jí)號(hào),SUM（成績(jī)表成績(jī)）as總分from成績(jī)表，學(xué)生表；where成績(jī)表.學(xué)號(hào)-學(xué)生表.學(xué)號(hào)groupby成績(jī)表學(xué)號(hào)orderby總分desc;intotablecbx4 endifthisform.gridl.recordsource二cbx4t

23、hisform.refreshsetsafetyonCommand2的Click事件Thisform.release學(xué)生成績(jī)?yōu)g覽學(xué)生成績(jī)概況表單控件屬性設(shè)置獺學(xué)生趁槪況I三I亙矣全體學(xué)生成績(jī)概況全作學(xué)生84.38男生平均分女生平均分84.75半均分84.15高等數(shù)學(xué)總平均分大學(xué)英語(yǔ)總平均分84.0084.88微觀經(jīng)濟(jì)學(xué)總平均分基礎(chǔ)會(huì)計(jì)總平均分|83.63：85.00LabelCaption：全體學(xué)生成績(jī)概況，fontunderline二.T.學(xué)生成績(jī)概況代碼設(shè)計(jì)Forml的Init事件dosumcj.prgthisform.textl.value二clthisform.text2.value=

24、c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.value=c6thisform.text7.value=c7closedatapublicc1,c2,c3,c4,c5,c6,c7Sumcj.prgopendata學(xué)生成績(jī)官理系統(tǒng)use成績(jī)表againcalculateAVG（成績(jī)表.成績(jī)）toclcalculateavg（成績(jī)表.成績(jī)）for性別二男toc2calculateavg（成績(jī)表.成績(jī)）for性別二女toc3calculateavg（成績(jī)表.成績(jī)）for課程號(hào)

25、二001toc4calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二002toc5calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二003toc6calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二004toc7use080901_成績(jī)?yōu)g覽表單控件屬性設(shè)置紗809口融隕覽080901總平均分86.81高等數(shù)學(xué)總85.50平均分微觀經(jīng)濟(jì)學(xué)匸S6.75懸平均分丨口|回幻成績(jī)?yōu)g覽男生總平均分女生總平均分87.7585?881大學(xué)英語(yǔ)總平均分86.50基礎(chǔ)會(huì)計(jì)總平均分0.00Labelcaption:080901成績(jī)?yōu)g覽fontunderline=.T.080901_成績(jī)?yōu)g覽表單代碼設(shè)計(jì)For

26、m1的Init事件dosubcj.prgthisform.text1.value二c1thisform.text2.value=c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.value=c6thisform.text7.value=c7Subcj.prgclosedatapubliccl,c2,c3,c4,c5,c6,c7opendata學(xué)生成績(jī)官理系統(tǒng)use成績(jī)表againcalculateAVG（成績(jī)表.成績(jī)）for班級(jí)號(hào)-080901toc1calculateav

27、g（成績(jī)表.成績(jī)）for性別=男and班級(jí)號(hào)二080901toc2calculateavg（成績(jī)表.成績(jī)）for性別二女a(chǎn)nd班級(jí)號(hào)二080901toc3calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二001and班級(jí)號(hào)-080901toc4calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二002and班級(jí)號(hào)-080901toc5calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二003and班級(jí)號(hào)-080901toc6calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二004and班級(jí)號(hào)-090801toc7use080902_成績(jī)?yōu)g覽表單控件屬性設(shè)置百1酊窗覽一080902成

28、績(jī)?yōu)g覽總平均分81.9483.00男生平均分78.75女生平均分LabelCaption：080902_成績(jī)?yōu)g覽；fontunderline二.T.高等數(shù)學(xué)總平均分大學(xué)英語(yǔ)總平均分82.5083.25微觀經(jīng)濟(jì)學(xué)總平均分基礎(chǔ)會(huì)計(jì)總平均分80.500.00080902_成績(jī)?yōu)g覽表單代碼設(shè)計(jì)Forml的Click事件doclacj.prgthisform.textl.value二clthisform.text2.value=c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.val

29、ue=c6thisform.text7.value=c7Clacj.prgclosedatapubliccl,c2,c3,c4,c5,c6,c7opendata學(xué)生成績(jī)官理系統(tǒng)use成績(jī)表againcalculateAVG（成績(jī)表.成績(jī)）for班級(jí)號(hào)-080902toclcalculateavg（成績(jī)表.成績(jī)）for性別二男and班級(jí)號(hào)-080902toc2calculateavg（成績(jī)表.成績(jī)）for性別二女a(chǎn)nd班級(jí)號(hào)-080902toc3calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二001and班級(jí)號(hào)-080902toc4calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二00

30、2and班級(jí)號(hào)-080902toc5calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二003and班級(jí)號(hào)-080902toc6calculateavg（成績(jī)表.成績(jī)）for課程號(hào)二004and班級(jí)號(hào)-090802toc7use打印報(bào)表Commandl的Click事件setsafetyoffreportform成績(jī).frxpreviewsetsafetyonCommand2的Click事件thisform.release報(bào)表數(shù)據(jù)環(huán)境：成績(jī)表5.7.1打印報(bào)表表單設(shè)計(jì)邂打印報(bào)表I亙1回3亙IIUTgIS1I退出5.7.2打印報(bào)表報(bào)表設(shè)計(jì)86900048900180890038890001921H報(bào)表設(shè)-戰(zhàn)績(jī)笊-琳1學(xué)號(hào)課程號(hào)成猜成績(jī)表12.04.08080901010020030809010200200408090103退出系統(tǒng)您用退退出系統(tǒng)表單控件屬性設(shè)置LabellLabel2Label3Label4Label5Label6Label7歡迎您再次使用Visible二.F.退出系統(tǒng)表單代碼設(shè)計(jì)Forml的Init事