VF数据库课程设计报告格式

1、VF数据库课程设计学 号 姓 名 朱小艳 专 业 英语（经济贸易） 指导教师 冀莉莉 2014年10月18日目 录1. 课程设计目的12. 实验环境13. 标签和文本框应用14. 组合框和命令按钮应用25. 命令按钮组应用36. 复选框应用57. 表格应用68. 页框应用79. 综合设计810. 总结121. 课程设计目的 通过课程设计，使学生掌握使用VFP设计编写可视化程序的基本方法与步骤，将课堂上所学的理论知识与课程设计结合起来，加强学习的效果。并为今后的学习与工作，打下坚实基础。2. 实验环境1Windows XP操作系统。2Visual FoxPro 6.0数据库语言。3. 标签和文本

2、框应用创建系统登录.scx表单。在表单中添加两个标签控件（Label1、Label2）和一个文本框控件（Text1）。当输入密码时，屏幕只显示相同个数的“*”号，若密码正确，在表单上显示“欢迎使用！”，否则显示“对不起，密码错！”。 Login表单属性设置对象属性属性值Form1caption用户登录Label1backcolor128,128,192caption请输入密码：fontbold.T.-真fontsize16fontname楷体Label1backcolor255,255,255caption无fontbold.T.-真fontsize16fontname华文楷体Text1pas

3、sWordchar*value无Backcolor0,255,0 Login代码编辑如下：if thisform.text1.value=1234thisform.label2.caption=欢迎使用!elsethisform.label2.caption=对不起,密码错!thisform.text1.value= endif Sun表单运行截图如下所示：4. 组合框和命令按钮应用设计组合框应用.scx表单，在表单中添加两个标签控件（Label1、Label2）、一个文本框控件（Text1）、一个组合框控件（Combo1）和一个命令按钮控件（Command1）。从组合框中选择学号，当单击“计

4、算总分”按钮时，计算该生选修所有课程成绩的总分，并将计算结果显示在成绩总分文本框中。 Sum表单主要属性设置 属性属性属性值Form1caption组合框应用Label1backcolor128,128,255caption学号autosize.T.-真fontsize20Label2backcolor128,128,255caption总分autoaize.T.-真fontsize20Text1backcolor0,255,255默认默认值Command1backcolor255,128,192caption计算总分fontsize20Combo1Rowsourcetype6-字段Rowso

5、urce学生表.学号controlsource学生表.学号 Sum代码编辑如下：select 成绩表.学号,sum(成绩)as 总分 into cursor cj from 成绩表,学生表;where 学生表.学号=成绩表.学号;group by 成绩表.学号locate for 学号=bo1.valuethisform.text1.value=cj.总分 Sun表单运行截图如下所示： 5. 命令按钮组应用设计命令按钮组应用.scx表单，在表单中添加四个标签控件（Label1、Label2、Label3、Label4）、四个文本框控件（Text1、Text2、Text3

6、、Text4）和一个命令按钮组控件（CommandGroup1），单击“首记录”和“末记录”按钮时分别显示第一条和最后一条记录，单击“前一个”和“后一个”按钮时分别显示当前记录的前一个和后一个记录，单击退出按钮时，退出表单。 Cmdgroup表单主要属性设置对象属性属性值Form1caption命令按钮组应用Label1caption学号label2caption姓名Label3 caption专业Label4caption出生日期Text1controlsource学生表.学号Text2controlsource学生表.姓名Text3controlsource学生表.专业Text4contr

7、olsource学生表.出生日期Commandgroup1buttoncount5Command1caption首记录Command2caption前一个Command3caption后一个Command4caption末记录Command5caption退出 Cmdgroup代码编辑如下：Command1:首记录go top mand2.enabled=.mand3.enabled=.mand4.enabled=.t.thisfo

8、rm.refreshCommand2:前一个if bof() go top else mand3.enabled=.mand4.enabled=.t.if bof() this.enabled=.f.endifendifthisform.refreshif eof()Commannd3:后一个go bottom this.enabled=.f.else mand2.enabled=.t.if eof()this.en

9、abled=.f.endifendifthisform.refreshCommand4：末记录go mand3.enabled=.mand2.enabled=.f.thisform.refreshCommand5：退出Thisform.release Cmdgroup表单运行截图如下所示： 6. 复选框应用创建一个复选框应用.scx表单。在表单中添加三个复选框控件（Check1、Check2、Check3）、一个命令按钮控件（Command1）、一个标签控件（Label1）和

10、一个文本框控件（Text1），当任意选择某一个或多个专业时，单击统计按钮，在文本框中显示统计结果。 Check表单主要属性设置 对象属性属性值Form1caption复选框应用Check1backcolor255,0,0caption土木工程fontsize11Check2backcolor128,0,128caption艺术设计fontsize11Check3backcolor0,255,255caption会计学fontsize11Command1caption统计Label1backcolor125,125,ocaption人数fontsize14Text1value0alignment

11、1-右 Check 代码编辑如下：store 0 to X,Y,ZIF THISFORM.Check1.Value=1count for 专业=土木工程 to XENDIFIF THISFORM.Check2.Value=1count for 专业=艺术设计 to YENDIFIF THISFORM.Check3.Value=1count for 专业=会计学 to ZENDIFTHISFORM.Text1.Value=X+Y+Z Check表单运行截图如下所示： 7. 表格应用创建一个表格应用.scx表单。在表单中添加两个表格控件（Grid1、Grid2），通过表格生成器完成表格项属性。要求

12、在表单中上方的表格显示学生表.dbf的数据。当在学生表中单击某个学号时，在成绩表只显示该学生的成绩信息。 table表单主要属性设置 对象属性属性值Form1caption表格应用Grid1recoresource学生表Grid2recoresource成绩表 无代码编辑具体步骤：将数据环境中“学生表”窗口的标题栏拖到表单释放，产生“grid学生表”表格。将数据环境中“成绩表”窗口的标题栏拖到表单释放，产生“grid成绩表”表格。 table表单运行截图如下所示：8. 页框应用创建一个页框应用.scx表单。在表单中添加一个页框控件（Pageframe1），页框中包含两个页面，第一个页面显示“学

13、生表”的信息，第二个页面显示“成绩表”的信息，在“学生表”中选择某个学号时，在第二个页面中自动显示其选修的课程成绩情况。 pageframe表单主要属性设置 对象属性属性值Form1caption页框应用Page1caption学生基本信息Page2caption学生成绩信息无代码编辑具体步骤：将数据环境中“学生表”窗口的标题栏拖到学生基本信息页面释放。将数据环境中“成绩表”窗口的标题栏拖到学生成绩信息页面释放。 pageframe表单运行截图如下所示：9. 综合设计创建一个学生信息查询.SCX表单，在表单中添加一个页框控件（Pageframe1），页框控件中包含两个页面，分别实现学生信息查询

14、和学生成绩查询功能。学生信息查询功能： 表格控件中的列属性要设置为不可修改，并且列标题使用汉字显示。 程序中要设计错误处理功能。例如：没有选择字段，点击“查询”按钮，则显示“请选择字段”提示；如果在文本框内没有输入数据，点击“查询”按钮，则显示“请输入学号”或“请输入学生出生日期”等提示。 可分别按学号和出生日期进行查询。学生成绩查询功能：当在组合框中选择学生姓名并单击“查询”按钮时，会在表单的表格内显示该学生所选课程的成绩，并在文本框中显示平均成绩，单击“退出”按钮将关闭表单。 综合设计表单主要属性设置 对象属性属性值Form1caption综合设计应用Image1picture自定义str

15、etch变比填充Label1caption设计者：朱小艳backcolor255,255,0fontsize11aotusizeaotusizePage1caption学生信息查询backcolor240,240,240Label2caption请选择：backcolor128,0,64aotusize.T.-真fontsize10Label3caption从：backcolor128,0,64aotusize.T.-真Label4caption到：backcolor128,0,64aotusize.T.-真Command1caption查询Command2caption退出Combo1row

16、source学号,出生日期rowsourcetype1-值 Page2caption学生成绩查询backcolor240,240,240Label1caption姓名：backcolor0,128.0aotusize.T.-真Label2caption平均成绩backcolor0,255,255aotusize.T.-真Command1caption查询Command2caption退出Combo1rowsource学生表.姓名rowsourcetype6-字段 综合设计代码编辑如下：Page1:thisform.pageframe1.page1.grid1.visible=.t.if emp

17、ty(bo1.value)messagebox(请选择类别,48,友好提示)bo1.setfocusselseif alltrim(bo1.value)=学号thisform.pageframe1.page1.grid1.recordsourcetype=4thisform.pageframe1.page1.grid1.recordsource=sele * from 学生表 where 学号=alltrim(thisfo

18、rm.pageframe1.page1.text1.value);and 学号=ctod(alltrim(thisform.pageframe1.page1.text1.value);and 出生日期=ctod(alltrim(thisform.pageframe1.page1.text2.value) into curs g3thisform.pageframe1.page1.text1.value=thisform.pageframe1.page1.text2.value=endifendifEndifPage2:thisform.pageframe1.page2.grid1.recordsourcetype=4thisform.pageframe1.page2.grid1.recordsource=select 学生表.姓名,课程表.课程名,成绩表.成绩 from 学生表,课程表,成绩表 where 学生表.学号=成绩表.学号 and 成绩表.课程号=课程表.课程号 and 学生表.姓名=alltrim(bo1.value) into cursor lsb1select avg(成绩) as avgcj from 学生表,成绩表 where 学生表.学号=成绩表.学号 and 姓名=al