Visual FoxPro 课程设计

1、 VisualFoxPro数据库程序设计课程设计报告时间：2012年4月6日目录第一章系统总体设计TOC o 1-5 h z系统功能简介4系统功能结构图4 HYPERLINK l bookmark6 第二章需求分析5第三章数据库设计学生表5课程表5成绩表5第四章实验数据学生表数据6课程表数据6成绩表数据7第五章程序设计界面系统主界面设计8控件属性设置8代码设计9主菜单设计9控件属性设置9代码设计9菜单设计9学生成绩录入10控件属性设置10代码设计10学生成绩修改11控件属性设置11代码设计11学生成绩查询13按学号查询表单控件属性设置13按学号查询表单代码设计13按课程查询表单控件属性设置14

2、按课程查询表单代码设计14按班级号查询表单控件属性设置15按班级号查询表单代码设计15按总分查询表单控件属性设置16按总分查询表单代码设计165.6学生成绩浏览17学生成绩概况表单控件属性设置17学生成绩概况表单代码设计17080901_成绩浏览表单控件属性设置18080901_成绩浏览表单代码设计18080902_成绩浏览表单控件属性设置19080902_成绩浏览表单代码设计195.7打印报表21打印报表表单设计21打印报表文件设计21退出系统5.8.1退出系统表单控件属性设置22退出系统表单代码设计22 HYPERLINK l bookmark18 第六章课程设计总结23 HYPERLIN

3、K l bookmark20 第七章参考文献23第一章系统总体设计系统功能简介录入：录入学号，学生姓名，课程号，课程名，成绩修改：按课程号修改成绩查询：按学号查询该同学的各科成绩；按课程号查询每名同学的成绩，并排序查询结果；按班级号查询每名同学的各科成绩；按总分查询每名同学的总成绩，并排序查询结果打印:打印成绩系统功能结构图第二章需求分析业务流程：运行主程序登录主界面（输入密码）登录主菜单成绩录入成绩修改成绩查询（按学号，课程号，班级号，总分）成绩浏览（概况，080901班，080902班）打印报表退出系统第三章数据库设计学生表表结构：学生表（学号C8,姓名C8,性别C2,出生日期D,班级号C

4、8）主索引：学号；候选索引：姓名课程表表结构：课程表（课程号C4,课程名C14,学分数值型N3,0,任课教师C8）主索引：课程号；候选索引：课程名成绩表表结构：成绩表（学号C8,课程号C4,成绩N5,0,性别C2,班级号C8）普通索引：成绩第四章实验数据学生表数据I学号I姓名I性别I出生曰期I班级号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课程表数据亘亘叵课程号课程名学茅任课教师高等数学E唐岩002夭学英语,5.董叶003飆葯学孑递华004直袖会讦刘丽二二二二二二二,亠,心曲股沁:；二.：.：.；1：.：.：二L二：.：.：二：.：:；.；：:.；.：.:,亠心皿皿，:；二二;：:.：二：.；：二：.：.：”.1：.:43成绩表数据S画成绩表口回探1学号课程号成绩性别班级号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第五章程序设计界面系统主界面设置学生成绩管理系统DesignedbyYangShuHua请输入口令二1确定1退出控件属性设置(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二“开始“Caption二”确定“Caption二“退出Visible二.F.(3)文本框：1个，用来接收口令，其主要属性为Name=“Text1”PasswordChar=“*”(4)标签：共三个，主要属性：Name二“LablelCaption二”学生成绩管理系统Name二“Lable2”Name二“Lable3“Caption二”DesignedbyYangShuHua

9、“Caption二“请输入口令：”Visible二.F.(5)时钟控件：共两个，用来控制Lable2的颜色变化Name=“Timerl”Name二”Timer2”Interval=1230Interval=843代码设计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(口令不对，您无权使用本系统!，0+16+0,设置口令)thisform.refreshENDIFCommand3的Click事件cleareventssetsysmenutodefathisform.releaseTimer1的Timer事件thisform.label2.forecolor二rgb(255,0,0)Timer2的Timer事件thisform.label2.forecolor二rgb(0,0,255)主菜单设计控件属性设置标签Lable1的Caption属性：经济管理学院学生成绩管理系统代码设计表单的Init事件：do学生成绩管理.mp

11、rWITHTHis,.T.菜单设计按照系统功能结构图设计菜单在vfp系统主菜单的“显示”菜单下，选择“常规选项”命令，在弹出的对话框中，勾选顶层表单选项，将该表单设置为顶层表单。经济管理学院学生成绩管理系统期顶层表单回旨=逼也l 5.3学生成绩录入学生瞬录入ir回垂.成绮录入班级号080901成绩91添加删除進出5.3.1控件属性设置标签：LabellCaption:学号；Label2Caption:课程号；Label3Caption：成绩：Label4Caption:性别；Label5Caption:班级号；CommandlCaption：添加;Command2Caption：删除：Comm

12、and3Caption：退出代码设计Commandl的Click事件select成绩表gobottomappendblankreplace成绩表.学号withthisform.textl.valuereplace成绩表.性别withthisform.text4.valuereplace成绩表.课程号withthisform.text2.valuereplace成绩表.班级号withthisform.text5.valuereplace成绩表.成绩withthisform.text3.valuethisform.refreshnA二MESSAGEBOX（你确定删除该记录吗？，4+64+256,提

13、示）Command2的Click事件IFnA=6DELETEPACKENDIFCommand3的Click事件thisform.release学生成绩修改成绩修改90修改it出I=H回I育礬学三弍這寧改学号课程号08090101001成绩控件属性设置LabellCaption：课程号;Label2Caption：成绩;Label3Caption：学号；Label4Caption：成绩修改;Command1Caption：修改;Command2Caption：退出代码设计Command1的Click事件select成绩表locatefor学号二thisform.text2.valueand课程号

14、二thisform.text1.valuedowhilefound()replace成绩withthisform.text3.valuecontinueenddoCommand2的Click事件thisform.release学生成绩查询按学号查询表单控件属性设置褰按学号查迄匸回I韶学号08090101盂为it出学号姓名课程号课程容成塔08090101王野002头学英语8608090101王野003微观经济学9008090101王野004基础会计89IJLabellCaption：学号;CommandlCaption：查询;Command2Caption：退出表格：显示查询结果按学号查询表单代

15、码设计Commandl的Click事件setsafetyoffselect学生表.学号,学生表.姓名,课程表.课程号，课程表.课程名,成绩表.成绩from学生表，课程表,成绩表；where成绩表.学号-学生表.学号AND成绩表.课程号二课程表.课程号and成绩表.学号二thisform.text1.value;intotablecxbthisform.grid1.recordsource二cxbthisform.refreshsetsafetyonCommand2的Click事件thisform.release按课程查询表单控件属性设置繆按瞬查闻I口|回药Il 课程号|002席降序查询進出学号

16、姓名课程号课程名惑塔1李丽002夫学英语8908090201秦瑟002大学英语8908090202谢晓002大学英语8708090101王野002大学英语8608090104汪慧002丸学英语8608090103弓觥远002天学英语8508090204王娉婷002犬学英语8208090203吴军002犬学英语751JLabellCaption：课程号;OptionGroupl.optionlCaption:升序;OptionGroup.option2Caption：降序;Command1Caption:查询；Command2Caption：退出表格控件：显示查询结果按课程号查询表单代码设计Co

17、mmandl的Click事件setsafetyoffifthisform.optiongroup1.option1.value=1select学生表.学号，学生表.姓名，课程表.课程号，课程表课程名，成绩表成绩from学生表，课程表，成绩表；where成绩表.学号二学生表.学号AND成绩表.课程号=课程表.课程号and成绩表.课程号二thisform.textl.value;orderby成绩表.成绩ascintotablecxblelseselect学生表.学号，学生表.姓名，课程表.课程号，课程表课程名，成绩表成绩from学生表，课程表，成绩表；where成绩表.学号二学生表.学号AND成

18、绩表.课程号=课程表.课程号and成绩表.课程号二thisform.textl.value;l orderby成绩表.成绩descintotablecxblendifthisform.gridl.recordsource二cxblthisform.refreshsetsafetyonCommand2的Click事件thisform.release按班级查询表单控件属性设置渤按瞬查询口|回iiESj班级号（080902-更诃遥出I学号姓名课程号课程定成绩08090201秦琴001高等巍学9008090201秦琴002犬学英语8908090201秦琴003徽观经济学8208090201秦琴.004

19、基础会计8508090202谢晓001高等数学8608090202谢晓002夫学英语8708090202谢晓003徴观经济学8008090202谢晓004基础合计8108090203吴军001高等数学7908090203吴军002光学英语7508090203吴军003徽观经济学8008090203吴军004基础会计8108090204王娉嫖001高等数学7508090204王娉嫖002犬学英语8208090204王娉婷003徴观经济学8008090204王娉娉004基础会计79LabellCaption：班级号；CommandlCaption：查询；Command2Caption：退出按班级查

20、询表单代码设计Command1的Click事件setsafetyoffselect学生表.学号，学生表.姓名，课程表.课程号，课程表.课程名，成绩表.成绩from学生表，课程表，成绩表；where成绩表.学号-学生表.学号AND成绩表.课程号二课程表.课程号and学生表.班级号二thisform.text1.value;intotablecxb2thisform.grid1.recordsource=cxb2thisform.refreshsetsafetyonCommand2的Click事件thisform.release按总分查询表单控件属性设置O升序降序学号.姓名藏号总嚓08090102

21、李丽08090134708090103张光远08090134608090201秦琴08090234608090104汪慧08090134008090202谢晓08090233408090204王媚婷08090231608090203吴军08090231508090101玉野080901265I*;OptionGroupl.optionlCaption:升序;OptionGroup.option2Caption:降序CommandlCaption:查询；Command2Caption:退出；表格控件：显示查询结果按总分查询表单代码设计Command1的Click事件setsafetyoffift

22、hisform.optiongroup1.option1.value=1select成绩表.学号,学生表.姓名,学生表.班级号,SUM（成绩表成绩）as总分from成绩表，学生表；where成绩表.学号-学生表.学号groupby成绩表学号orderby总分asc;intotablecbx4elseselect成绩表.学号,学生表.姓名,学生表.班级号,SUM（成绩表成绩）as总分from成绩表，学生表；where成绩表.学号-学生表.学号groupby成绩表学号orderby总分desc;intotablecbx4 endifthisform.gridl.recordsource二cbx4t

23、hisform.refreshsetsafetyonCommand2的Click事件Thisform.release学生成绩浏览学生成绩概况表单控件属性设置獭学生趁槪况I三I亘矣全体学生成绩概况全作学生84.38男生平均分女生平均分84.75半均分84.15高等数学总平均分大学英语总平均分84.0084.88微观经济学总平均分基础会计总平均分|83.63：85.00LabelCaption：全体学生成绩概况，fontunderline二.T.学生成绩概况代码设计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学生成绩官理系统use成绩表againcalculateAVG（成绩表.成绩）toclcalculateavg（成绩表.成绩）for性别二男toc2calculateavg（成绩表.成绩）for性别二女toc3calculateavg（成绩表.成绩）for课程号

25、二001toc4calculateavg（成绩表.成绩）for课程号二002toc5calculateavg（成绩表.成绩）for课程号二003toc6calculateavg（成绩表.成绩）for课程号二004toc7use080901_成绩浏览表单控件属性设置紗809口融陨览080901总平均分86.81高等数学总85.50平均分微观经济学匸S6.75懸平均分丨口|回幻成绩浏览男生总平均分女生总平均分87.7585?881大学英语总平均分86.50基础会计总平均分0.00Labelcaption:080901成绩浏览fontunderline=.T.080901_成绩浏览表单代码设计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学生成绩官理系统use成绩表againcalculateAVG（成绩表.成绩）for班级号-080901toc1calculateav

27、g（成绩表.成绩）for性别=男and班级号二080901toc2calculateavg（成绩表.成绩）for性别二女and班级号二080901toc3calculateavg（成绩表.成绩）for课程号二001and班级号-080901toc4calculateavg（成绩表.成绩）for课程号二002and班级号-080901toc5calculateavg（成绩表.成绩）for课程号二003and班级号-080901toc6calculateavg（成绩表.成绩）for课程号二004and班级号-090801toc7use080902_成绩浏览表单控件属性设置百1酊窗览一080902成

28、绩浏览总平均分81.9483.00男生平均分78.75女生平均分LabelCaption：080902_成绩浏览；fontunderline二.T.高等数学总平均分大学英语总平均分82.5083.25微观经济学总平均分基础会计总平均分80.500.00080902_成绩浏览表单代码设计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学生成绩官理系统use成绩表againcalculateAVG（成绩表.成绩）for班级号-080902toclcalculateavg（成绩表.成绩）for性别二男and班级号-080902toc2calculateavg（成绩表.成绩）for性别二女and班级号-080902toc3calculateavg（成绩表.成绩）for课程号二001and班级号-080902toc4calculateavg（成绩表.成绩）for课程号二00

30、2and班级号-080902toc5calculateavg（成绩表.成绩）for课程号二003and班级号-080902toc6calculateavg（成绩表.成绩）for课程号二004and班级号-090802toc7use打印报表Commandl的Click事件setsafetyoffreportform成绩.frxpreviewsetsafetyonCommand2的Click事件thisform.release报表数据环境：成绩表5.7.1打印报表表单设计邂打印报表I亘1回3亘IIUTgIS1I退出5.7.2打印报表报表设计86900048900180890038890001921H报表设-战绩笊-琳1学号课程号成猜成绩表12.04.08080901010020030809010200200408090103退出系统您用退退出系统表单控件属性设置LabellLabel2Label3Label4Label5Label6Label7欢迎您再次使用Visible二.F.退出系统表单代码设计Forml的Init事