《Visual FoxPro课程设计报告.doc》由会员分享，可在线阅读，更多相关《Visual FoxPro课程设计报告.doc（16页珍藏版）》请在三一文库上搜索。
1、太原电力高等专科学校数据库原理与应用课程设计任务书设计题目 学生学籍管理系统 所属课程： 数据库原理与应用系 别 信息工程系专 业 计算机网络专业班 级 计0919班姓 名 张荣指导教师 李雪梅 设计任务下达日期 2010年 5 月24 日设计时间2011年6月24日 至 2010年6月24日指 导 教 师 评 语成绩评定： 指导教师签字 年 月 日 数据库原理与应用课程设计报告实训任务一：1、在编辑框中输出101500之间的所有奇数，并将这些奇数之和显示在文本框中。2、求出所有小于或等于100的自然数对并显示在列表框中。（自然数对是指两个自然数的和与差都是平方数）3、创建一个浏览学生“成绩表
2、”的表单。（一）在编辑框中输出101500之间的所有奇数，并将这些奇数之和显示在文本框中。1实训任务；在编辑框中输出101500之间的所有奇数，并将这些奇数之和显示在文本框中。2实现方法对象属性属性值Label1caption101-500间的奇数有：Label2caption101-500间的奇数和为：Label3captionEdit1Command1caption输出Command2caption关闭3程序代码Command1的click事件s=0 for i=101 to 500 if i/2int(i/2) thisform.edit1.value=thisform.edit1.va
3、lue+ +str(i,3) s=s+i endi next thisform.label3.caption=str(s,6)Command2的click事件thisform.release（二）求出所有小于或等于100的自然数对并显示在列表框中。（自然数对是指两个自然数的和与差都是平方数）1实训任务；求出所有小于或等于100的自然数对并显示在列表框中。（自然数对是指两个自然数的和与差都是平方数）2实现方法对象属性属性值List1Command1caption计算Command2caption关闭3程序代码Command1的click事件he=0cha=0x=for i=100 to 1 st
4、ep-1 for j=1to i cha=i-j he=i+j if sqrt(cha)=int(sqrt(cha).and.sqrt(he)=int(sqrt(he) x=str(i,3)+ +str(j,3) thisform.list1.additem(x) endif endforendforCommand2的click事件Thisform.release （三）创建一个浏览学生“成绩表”的表单。1实训任务；创建一个浏览学生“成绩表”的表单。2实现方法对象属性属性值Label1caption学号Label2caption课程编号Label 3caption成绩Text1controls
5、ource成绩表.学号Text2controlsource成绩表.课程号Text 3controlsource成绩表.成绩Command1caption上一条Command2caption下一条Command3caption关闭3程序代码Command1的click事件if.not.bof() skip-1 thisform.refresh()endifCommand2的click事件if.not.eof() skip thisform.refresh()endifCommand3的click事件thisform.release实训任务二：1、设计一个电话计费程序，表单窗口如图8.35所示，当
6、单击“开始”则开始计时并显示开始时间，同时“开始”变为“结束”按钮，再单击“结束”，即结束通话并显示结束时间，同时“结束”变为“开始”按钮，单击“计费”则计算通话费并显示（假设每分钟通话费为0.15元）。2、为实训1第3题继续设计表单，要求再增加四个按钮：第一条、末一条、插入一条和删除一条。3、输出“九九”乘法表，如图8.36所示。4、设计一个查询表单如图8.37所示，当输入查询条件后，显示符合条件的“学生表”中的记录（可以进行模糊查询）。（一）设计一个电话计费程序，表单窗口如图8.35所示，当单击“开始”则开始计时并显示开始时间，同时“开始”变为“结束”按钮，再单击“结束”，即结束通话并显示
7、结束时间，同时“结束”变为“开始”按钮，单击“计费”则计算通话费并显示（假设每分钟通话费为0.15元）。1实训任务；设计一个电话计费程序，表单窗口如图8.35所示，当单击“开始”则开始计时并显示开始时间，同时“开始”变为“结束”按钮，再单击“结束”，即结束通话并显示结束时间，同时“结束”变为“开始”按钮，单击“计费”则计算通话费并显示（假设每分钟通话费为0.15元）。2实现方法对象属性属性值Label 1captionLabel2caption开始时间Label4caption结束时间Label6caption通话时间Label8caption应付金额Label3captionLabel5ca
8、ptionLabel7captionLabel9captionCommand1caption开始Command2caption计费3程序代码Command1的click事件publ t1,t2if this.caption=开始 thisform.label5.caption= thisform.label7.caption= thisform.label9.caption= thisform.label3.caption=time() this.caption=结束 mand2.enabled=.f. t1=seconds() else thisform.label5.caption=tim
9、e() this.caption=开始 mand2.enabled=.t. t2=seconds()endif Command2的click事件t=(t2-t1)/60m=int(t)if tm m=m+1endifthisform.label7.caption=str(m,2)thisform.label9.caption=str(0.15*m,5,2) （二）为实训1第3题继续设计表单，要求再增加四个按钮：第一条、末一条、插入一条和删除一条。1实训任务；为实训1第3题继续设计表单，要求再增加四个按钮：第一条、末一条、插入一条和删除一条。2实现方法对象属性属性值Label1caption学号
10、Label2caption课程编号Label 3caption成绩Text1controlsource成绩表.学号Text2controlsource成绩表.课程号Text 3controlsource成绩表.成绩Command1caption上一条Command2caption下一条Command3caption关闭Command4caption第一条Command5caption末条Command6caption插入一条Command7caption删除一条3程序代码Command1的click事件if.not.bof() skip-1 thisform.refresh()endifCom
11、mand2的click事件if.not.eof() skip thisform.refresh()endifCommand3的click事件thisform.releaseCommand4的click事件go topthisform.refresh()Command5的click事件go bottthisform.refresh()Command6的click事件insertCommand7的click事件delepackthisform.refresh()（三）输出“九九”乘法表， 1实训任务；输出“九九”乘法表。2实现方法对象属性属性值Edit 1height156width200Comm
12、and1caption计算Command2caption关闭3程序代码Command1的click事件thisform.edit1.value=*for a=1to 9 thisform.edit1.value=thisform.edit1.value+ +str(a,1)endforthisform.edit1.value=thisform.edit1.value+chr(13)for i=1 to 9 thisform.edit1.value=thisform.edit1.value+str(i,1)+ for j=1 to i thisform.edit1.value=thisform.
13、edit1.value+str(i*j,2)+ endfor thisform.edit1.value=thisform.edit1.value+chr(13)endforCommand2的click事件thisform.release（四）设计一个查询表单如图8.37所示，当输入查询条件后，显示符合条件的“学生表”中的记录（可以进行模糊查询）。1实训任务；设计一个查询表单如图8.37所示，当输入查询条件后，显示符合条件的“学生表”中的记录（可以进行模糊查询）。2实现方法对象 属性属性值Label1caption查询条件Label2caption请输入学号Label3caption请输入姓名T
14、ext1value=space(6)inputmaskXXXXXXText2value=space(8inputmaskXXXXXXXXOption1captionANDOption2captionORCommand1caption查询3程序代码Command1的click事件use 学生表 cxp1=thisform.optiongroup1.option1.value cxp2=thisform.optiongroup1.option2.value l1=thisform.text1.value l2=thisform.text2.value if l1=spac(6).and.l2=sp
15、ac(8) thisform.release else do case case l1=spac(6) set filt to 姓名=l2 case l2=spac(8) set filt to 学号=l1 other if cxp1=1 set filt to 姓名=l2.and.学号=l1 else set filt to 姓名=l2.or.学号=l1 endi endc coun to a if a=0 messagebox(没有你找的记录,48,没找到) else brow endiendi实训任务三：将例9-1的“颜色”菜单改为“表单颜色”、“文本颜色”两个子菜单，其中又各含两种颜色
16、，使得程序运行时可改变表单和文本的颜色。结果1实训任务；将例9-1的“颜色”菜单改为“表单颜色”、“文本颜色”两个子菜单，其中又各含两种颜色，使得程序运行时可改变表单和文本的颜色。结果2实现方法菜单名称结果菜单级文本字体子菜单菜单栏宋体命令文本字体黑体命令文本字体楷体命令文本字体隶书命令文本字体文本风格子菜单菜单栏粗体过程文本风格斜体过程文本风格下划线过程文本风格颜色子菜单菜单栏文本颜色子菜单颜色红色过程文本颜色蓝色过程文本颜色表单颜色子菜单颜色红色过程表单颜色蓝色过程表单颜色3程序代码；_VFP.activeform.label1.fontname=宋体_VFP.activeform.lab
17、el1.fontname=黑体_VFP.activeform.label1.fontname=楷体_VFP.activeform.label1.fontname=隶书l=.not._VFP.activeform.label1.fontbold set mark of bar 1 of 文本风格l _VFP.activeform.label1.fontbold=ll=.not._VFP.activeform.label1.fontitalic set mark of bar 1of 文本风格l _VFP.activeform.label1.fontitalic=ll=.not._VFP.acti
18、veform.label1.fontunderline set mark of bar 1of 文本风格l _VFP.activeform.label1.fontunderline=ldo case case bar()=1 _VFP.activeform.label1.forecolor=rgb(255,0,0) case bar()=2 _VFP.activeform.label1.forecolor=rgb(0,0,255)endc do case case bar()=1 _VFP.activeform.label1.backcolor=rgb(255,0,0) case bar()=
19、2 _VFP.activeform.label1.backcolor=rgb(0,0,255)endc Form1 的Init 事件do 菜单2.MPR with this,.t.实训4：将第11章的“学生学籍管理系统”补充完善，形成一个完整的可执行应用程序。1. 查询表单查询表单可以查询某个学生的基本情况及成绩，可以按学号、姓名查询，也可以进行模糊查询。而查询历史数据与查询某个学生基本情况一样。1） 按学号和姓名查询按学号和姓名查询可从子菜单上选择后，出现一个提示表单“请输入将要查询的学号或姓名”，当输入完毕后，系统执行查询程序，若查到，则出现表单如图所示；否则，出现对话框提示没有查到，并退
20、出表单。2）设计方法：1新建一个表单 2表单中的控件以及属性值如下表：对象属性属性值说明Commandgroup1Command1Caption首记录标题Fontsize9字体大小 Command2Caption上一个标题Fontsize9字体大小Command3Caption下一个标题Fontsize9字体大小Command4Caption尾记录标题Fontsize9字体大小Command5Caption退出标题Fontsize9字体大小3)程序代码：Form1的 Init事件n=this.valuedo case case n=1 go top case n=2 skip-1 if bof
21、() go bott endi case n=3 skip if eof() go top endif case n=4 go bott case n=5 thisform.releaseendc thisform.refreshCommandgroup1 的click事件n=this.valuedo case case n=1 go top case n=2 skip-1 if bof() go bott endi case n=3 skip if eof() go top endif case n=4 go bott case n=5 thisform.releaseendc thisform.refresh4)运行结果如图