Visual FoxPro课程设计报告

太原电力高等专科学校数据库原理与应用课程设计任务书设计题目学生学籍管理系统所属课程：数据库原理与应用系别信息工程系专业计算机网络专业班级计0919班姓名张荣指导教师李雪梅设计任务下达日期2010年5月24日设计时间2011年6月24日至2010年6月24日指导教师评语成绩评定：指导教师签字年月日数据库原理与应用课程设计报告实训任务一：1、在编辑框中输出101~500之间的所有奇数，并将这些奇数之和显示在文本框中。2、求出所有小于或等于100的自然数对并显示在列表框中。（自然数对是指两个自然数的和与差都是平方数）3、创建一个浏览学生“成绩表”的表单。（一）在编辑框中输出101~500之间的所有奇数，并将这些奇数之和显示在文本框中。1．实训任务；在编辑框中输出101~500之间的所有奇数，并将这些奇数之和显示在文本框中。2．实现方法对象属性属性值Label1caption101-500间的奇数有：Label2caption101-500间的奇数和为：Label3captionEdit1Command1caption输出Command2caption关闭3．程序代码Command1的click事件s=0fori=101to500ifi/2int(i/2)thisform.edit1.value=thisform.edit1.value++str(i,3)s=s+iendinextthisform.label3.caption=str(s,6)Command2的click事件thisform.release（二）求出所有小于或等于100的自然数对并显示在列表框中。（自然数对是指两个自然数的和与差都是平方数）1．实训任务；求出所有小于或等于100的自然数对并显示在列表框中。（自然数对是指两个自然数的和与差都是平方数）2．实现方法对象属性属性值List1Command1caption计算Command2caption关闭3．程序代码Command1的click事件he=0cha=0x=fori=100to1step-1forj=1toicha=i-jhe=i+jifsqrt(cha)=int(sqrt(cha)).and.sqrt(he)=int(sqrt(he))x=str(i,3)++str(j,3)thisform.list1.additem(x)endifendforendforCommand2的click事件Thisform.release（三）创建一个浏览学生“成绩表”的表单。1．实训任务；创建一个浏览学生“成绩表”的表单。2．实现方法对象属性属性值Label1caption学号Label2caption课程编号Label3caption成绩Text1controlsource成绩表.学号Text2controlsource成绩表.课程号Text3controlsource成绩表.成绩Command1caption上一条Command2caption下一条Command3caption关闭3．程序代码Command1的click事件if.not.bof()skip-1thisform.refresh()endifCommand2的click事件if.not.eof()skipthisform.refresh()endifCommand3的click事件thisform.release实训任务二：1、设计一个电话计费程序，表单窗口如图8.35所示，当单击“开始”则开始计时并显示开始时间，同时“开始”变为“结束”按钮，再单击“结束”，即结束通话并显示结束时间，同时“结束”变为“开始”按钮，单击“计费”则计算通话费并显示（假设每分钟通话费为0.15元）。2、为实训1第3题继续设计表单，要求再增加四个按钮：第一条、末一条、插入一条和删除一条。3、输出“九九”乘法表，如图8.36所示。4、设计一个查询表单如图8.37所示，当输入查询条件后，显示符合条件的“学生表”中的记录（可以进行模糊查询）。（一）设计一个电话计费程序，表单窗口如图8.35所示，当单击“开始”则开始计时并显示开始时间，同时“开始”变为“结束”按钮，再单击“结束”，即结束通话并显示结束时间，同时“结束”变为“开始”按钮，单击“计费”则计算通话费并显示（假设每分钟通话费为0.15元）。1．实训任务；设计一个电话计费程序，表单窗口如图8.35所示，当单击“开始”则开始计时并显示开始时间，同时“开始”变为“结束”按钮，再单击“结束”，即结束通话并显示结束时间，同时“结束”变为“开始”按钮，单击“计费”则计算通话费并显示（假设每分钟通话费为0.15元）。2．实现方法对象属性属性值Label1captionLabel2caption开始时间Label4caption结束时间Label6caption通话时间Label8caption应付金额Label3captionLabel5captionLabel7captionLabel9captionCommand1caption开始Command2caption计费3．程序代码Command1的click事件publt1,t2ifthis.caption=开始thisform.label5.caption=''thisform.label7.caption=''thisform.label9.caption=''thisform.label3.caption=time()this.caption=结束thisform.command2.enabled=.f.t1=seconds()elsethisform.label5.caption=time()this.caption=开始thisform.command2.enabled=.t.t2=seconds()endifCommand2的click事件t=(t2-t1)/60m=int(t)iftmm=m+1endifthisform.label7.caption=str(m,2)thisform.label9.caption=str(0.15*m,5,2)（二）为实训1第3题继续设计表单，要求再增加四个按钮：第一条、末一条、插入一条和删除一条。1．实训任务；为实训1第3题继续设计表单，要求再增加四个按钮：第一条、末一条、插入一条和删除一条。2．实现方法对象属性属性值Label1caption学号Label2caption课程编号Label3caption成绩Text1controlsource成绩表.学号Text2controlsource成绩表.课程号Text3controlsource成绩表.成绩Command1caption上一条Command2caption下一条Command3caption关闭Command4caption第一条Command5caption末条Command6caption插入一条Command7caption删除一条3．程序代码Command1的click事件if.not.bof()skip-1thisform.refresh()endifCommand2的click事件if.not.eof()skipthisform.refresh()endifCommand3的click事件thisform.releaseCommand4的click事件gotopthisform.refresh()Command5的click事件gobottthisform.refresh()Command6的click事件insertCommand7的click事件delepackthisform.refresh()（三）输出“九九”乘法表，1．实训任务；输出“九九”乘法表。2．实现方法对象属性属性值Edit1height156width200Command1caption计算Command2caption关闭3．程序代码Command1的click事件thisform.edit1.value=*fora=1to9thisform.edit1.value=thisform.edit1.value++str(a,1)endforthisform.edit1.value=thisform.edit1.value+chr(13)fori=1to9thisform.edit1.value=thisform.edit1.value+str(i,1)+forj=1toithisform.edit1.value=thisform.edit1.value+str(i*j,2)+endforthisform.edit1.value=thisform.edit1.value+chr(13)endforCommand2的click事件thisform.release（四）设计一个查询表单如图8.37所示，当输入查询条件后，显示符合条件的“学生表”中的记录（可以进行模糊查询）。1．实训任务；设计一个查询表单如图8.37所示，当输入查询条件后，显示符合条件的“学生表”中的记录（可以进行模糊查询）。2．实现方法对象属性属性值Label1caption查询条件Label2caption请输入学号Label3caption请输入姓名Text1value=space(6)inputmaskXXXXXXText2value=space(8inputmaskXXXXXXXXOption1captionANDOption2captionORCommand1caption查询3．程序代码Command1的click事件use学生表cxp1=thisform.optiongroup1.option1.valuecxp2=thisform.optiongroup1.option2.valuel1=thisform.text1.valuel2=thisform.text2.valueifl1=spac(6).and.l2=spac(8)thisform.releaseelsedocasecasel1=spac(6)setfiltto姓名=l2casel2=spac(8)setfiltto学号=l1otherifcxp1=1setfiltto姓名=l2.and.学号=l1elsesetfiltto姓名=l2.or.学号=l1endiendccountoaifa=0messagebox('没有你找的记录',48,'没找到')elsebrowendiendi实训任务三：将例9-1的“颜色”菜单改为“表单颜色”、“文本颜色”两个子菜单，其中又各含两种颜色，使得程序运行时可改变表单和文本的颜色。结果1．实训任务；将例9-1的“颜色”菜单改为“表单颜色”、“文本颜色”两个子菜单，其中又各含两种颜色，使得程序运行时可改变表单和文本的颜色。结果2．实现方法菜单名称结果菜单级文本字体子菜单菜单栏宋体命令文本字体黑体命令文本字体楷体命令文本字体隶书命令文本字体文本风格子菜单菜单栏粗体过程文本风格斜体过程文本风格下划线过程文本风格颜色子菜单菜单栏文本颜色子菜单颜色红色过程文本颜色蓝色过程文本颜色表单颜色子菜单颜色红色过程表单颜色蓝色过程表单颜色3．程序代码；_VFP.activeform.label1.fontname='宋体'_VFP.activeform.label1.fontname='黑体'_VFP.activeform.label1.fontname='楷体'_VFP.activeform.label1.fontname='隶书'l=.not._VFP.activeform.label1.fontboldsetmarkofbar1of'文本风格'l_VFP.activeform.label1.fontbold=ll=.not._VFP.activeform.label1.fontitalicsetmarkofbar1of'文本风格'l_VFP.activeform.label1.fontitalic=ll=.not.