vf实验表单设计.docx

1、vf实验表单设计实验报告课程名称： 数据库技术 实验类别：综合性 设计性 其他 实验项目： 表单设计 专业班级： 工程管理0901 姓 名： 李金坤 学 号： 090501015 实验室号：文科楼126 实验组号： 实验时间： 2011 批阅时间： 指导教师： 成 绩： 沈阳工业大学实验报告（适用经、管、文、法专业）专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 实验项目：表单设计一、 实验目的和要求1.掌握命令“表单向导”设计表单的操作。 2.掌握利用“表单向导”设计一对多表单的操作。3.掌握利用“表单设计器”设计表单的方法。4.掌握表单控件属性的设置。5.掌握表单

2、控件事件、方法的定义。6.掌握类的设计及对象的调用方法。二、 实验方法在VF环境下，进入表单设计器，设计自己想要的表单。三、 设备或条件电脑、VF软件四、 实验内容成果见附件一五、 收获或体会通过本次试验掌握了表单设计的方法，了解了关于控件的一些知识。掌握了在Visual FoxPro环境下表单的建立、修改。运行，以及向表单中添加控件，设置表单控件的属性、事件和方法等内容。六、 实验准备报告 见附件二附件一: 沈阳工业大学实验报告专业班级： 工程管理0901 学号： 090501015 姓名：李金坤 实验项目：表单设计实验内容或作品名称：1用菜单方式创建表单。 操作步骤如下： （1）在“文件”

3、菜单中，选择“新建”命令，打开“新建”对话框。 （2）在“新建”对话框中，选择“表单”选项，然后单击“新建”按钮，进入“表单设计器”窗口。 （3） 在显示菜单中选择“表单控件工具栏”命令，打开表单控件工具栏，可以为表单添加控件。 （4）在 “窗口”菜单中选择“属性”命令，打开“属性”窗口，在此可以定义表单及表单控件的属性。 （5） 在“显示”菜单中选择“代码”命令，打开代码编辑窗口，可以定义表单及表单控件的事件、方法代码。 （6） 在“文件”菜单中选择“保存”命令，打开“保存”对话框，输入表单文件名，表单创建完成。 （7）运行表单。在命令窗口中输入：Do，运行表单；或单击！按钮，运行表单。 2

4、.设计一个模拟抽取幸运者的表单，单击“滚动抽取”按钮能使各文本框内的记录内容不停地快速滚动显示，单击“停止”按钮即可停止滚动，此时在文本框中显示的记录为幸运者。设计步骤如下： （1）启动窗体设计器窗口，创建一个新表单。 （2）打开数据环境设计器，将“学生”表添加到数据环境中。 （3）在表单中添加5个标签、5个文本框、2个按钮、1个计时器。 （4）设置标签属性。 设置标签Label1：Caption=“学生”，BackStyle=0-透明；FontName=宋体；FontSize=12;Top=24,Left=24,Width=36。 设置标签Label2：Caption=“姓名”，BackSt

5、yle=0-透明；FontName=宋体；FontSize=12;Top=24,Left=103,Width=50。 设置标签Label3：Caption=“性别”，BackStyle=0-透明；FontName=宋体；FontSize=12;Top=24,Left=171,Width=40。 设置标签Label4：Caption=“出生日期”，BackStyle=0-透明；FontName=宋体；FontSize=12;Top=24,Left=226,Width=64。 设置标签Label5：Caption=“班级”，BackStyle=0-透明；FontName=宋体；FontSize=1

6、2;Top=24,Left=342,Width=40。 （5）设置文本框属性。 设置文本框Text1:Height=25;Left=12;Top=48;Width=60。附件一: 沈阳工业大学实验报告 设置文本框Text2:Height=25;Left=78;Top=48;Width=83。 设置文本框Text3:Height=25;Left=168;Top=48;Width=43。 设置文本框Text4:Height=25;Left=218;Top=48;Width=88。 设置文本框Text5:Height=25;Left=312;Top=48;Width=109。 （6）“滚动抽取”按钮

7、单击事件的程序代码如下：thisform.timer1.Enabled=.t.this.Enabled=.f.Tmand2.Enabled=.t. （7）“停止”按钮单击事件的程序代码如下： thisform.timer1.Enabled=.t.this.Enabled=.f.Tmand1.Enabled=.t. （8）计时器控件的Timer事件代码如下： SKIPIF EOF( ) GO topENDIFthisform.Refresh （9）保存表单。单击“保存”按钮，弹出“保存”对话框，输入表单文件名“抽取幸运者”，单击“保存”按钮。 （10）运行程序。 在命令窗口输入：Do抽取幸运者

8、单击“滚动抽取”按钮 3.关于圆的计算问题。在表单中输入一个半径，通过单选按钮选择计算公式，如计算圆面积或计算圆周长，然后单击“开始计算按钮，计算结束后显示采用的公式和计算结果。 设计步骤如下： （1）进入窗体设计器。添加3个标签，1个文本框，1个单选按钮组，1个按钮。 （2）设置标签属性。 设置标签Label1：Caption=请输入圆的半径：” ；BackStyle=0-透明；FontName=宋体；FontSize=11；Top=24;Left=58;Width=109。 设置标签Label2：Caption=；BackStyle=0-透明；FontName=宋体；FontSize=11

9、；Top=172;Left=52;Width=268。 设置标签Label3：Caption=；BackStyle=0-透明；FontName=宋体；FontSize=11；Top=213;Left=52;Width=268。 （3）设置文本框属性。 设置文本框Text1:FontName=宋体； FontSize=9Height=25;Left=202;Top=17;Width=97。（适用经、管、文、法专业）专业班级： 工程管理0901 学号 090501015 姓名：李金坤 实验项目：表单设计附件一: 沈阳工业大学实验报告专业班级：工程管理0901 学号 090501015 姓名：李金坤

10、 实验项目：表单设计 （4）设置单选按钮组属性。 设置单选按钮组Optiongroup1:ButtonCount=2;Height=37;Left=94;Top=60; Width=205 设置单选按钮Option1:Caption=“圆的面积” ；Height=16；Left=9；Top=12 Width=75. 设置单选按钮Option2：Caption=“圆的周长” ；Height=16；Left=113；Top=12 Width=75. （5）设置命令按钮属性。 设置命令按钮Command1：Caption=“开始计算” ；Height=25；Left=118；Top=120；Widt

11、h=145. （6）“开始计算”按钮单击事件的程序代码如下：x=VAL(thisform.text1.Value)IF x=0 or x0 MESSAGEBOX(“输入的数据无效”,0+48,信息提示)ELSE IF thisform.optiongroup1.value2 MESSAGEBOX(没有正确的选择计算项目,0+48,信息提示) ENDIF IF thisform.optiongroup1.value=1 m=x*x*3.14159 thisform.label2.caption=圆面积的计算公式为：*R*R Thisform.label3.caption=计算结果为： +STR(

12、m,10,2)ENDIFIF thisform.optiongrouo1.value=2M=2*x*3.14159thisform.label2.caption=圆周长的计算公式为：2*Rthisform.label3.caption=计算结果为：+STR(m,10,2) ENDIF ENDIF thisform.text1.SetFocus （7）保存表单。单击“保存”按钮，弹出“保存”对话框，输入表单文件名“关于圆的计算”，单击“保存”按钮。 （8）运行。在命令窗口中输入：Do关于圆的计算，输入半径：2.3，然后单击“开始计算”按钮。4.用表单向导为数据表“教师情况表.DBF”创建单表表单

13、，新表单的文件名为“教师情况.SCX”。附件一: 沈阳工业大学实验报告 操作步骤如下： （1）在Visual ForPro 系统主菜单中选择“文件”菜单中的“新建”命令，弹出“新建”对话框，在“新建”对话框中选择“表单”单选按钮，然后单击“向导”按钮，弹出“向导选择”对话框。 （2）在“向导选择”对话框中有两个选项，“表单向导”针对一个表创建表单；“一对多表单向导”针对两个表创建表单。本例为单个表创建数据编辑表单，因此选择“表单向导”选项。单击“确定”按钮后，弹出“表单向导”步骤1对话框，为表单选择字段。 （3）在步骤1选择字段时，如果选择表中的全部字段，单击按钮，将所有字段从“可用字段”编辑

14、框移到“选定字段”编辑框，然后单击“下一步”按钮，进入“表单向导”步骤2对话框，选择表单样式。 （4）选择表单样式时，在窗口左上角的预览区显示选择的比例，然后选择按钮类型，选择好后单击“下一步”按钮，进入“表单向导”步骤3对话框。 （5）选择表中记录的排序次序，单击“职工号”升序排序，然后单击“下一步”按钮，进入“表单向导”步骤4对话框。 （6）选择生成的表单保存方式，单击“完成”按钮，弹出“另存为”对话框，在“另存为”对话框中输入保存的表单文件名“教师情况.SCX,此时完成表单的设计。 （7）在命令窗口中输入：Do教师情况，运行表单；或单击！ 按钮，运行表单。5.利用一对多表单向导创建表单，

15、并使用系统预定义类，完成学生选课数据编辑功能是表单设计。操作步骤如下： （1）在“向导选择”对话框中，选择“一对多表单向导”选项，单击“确定”按钮后，进入“一对多表单向导”步骤1对话框，选择生成表单包含的父表及字段。 （2）单击“下一步”按钮，进入“一对多表单向导”步骤2对话框，选择生成表单中包含的子表及字段。 （3）单击“下一步”按钮，进入“一对多表单向导”步骤3对话框，为父表和子表建立一对多的关系。 （4）选择生成表单中字段对象的显示样式，与前面的单个表单创建方式相同。 （5）选择表中记录的排序次序，按学号升序排序。与前面的单个表单创建方式相同。专业班级：工程管理0901 学号： 0905

16、01015 姓名：李金坤 （6）选择生成的表单保存方式。单击“完成”按钮，输入保存的表单文件名XS-CJ.scx. （7）运行该表单。在命令窗口输入：Do XJ-CJ，运行表单；或单击！ 按钮，运行表单。 6.OLE控件表单设计。根据用户输入的某学校教学年度、学生人数和计算机配置台数数据，绘制柱形图、条形图、饼形图数据统计图形。 操作步骤如下： （1）创建两个表。 表1的名称为：Tb.dbf,用来存放用户输入的数据，其结构如下： 字段名 类型 长度 说明 Year C 4 教学年度Snum C 4 学生人数Cnum C 4 计算机台数 该表有4条记录，可输入4个年度的数据。 表2的名称为：my

17、graph.dbf,用来存放绘制图形的OLE对象，其结构如下： 字段名 类型 长度 说明 Olegraph G 4 Ole对象 该表只有一条记录。 （2）设计一个表单，在表单的数据环境中添加上面两个表。 （3）为表单添加控件。该表单包含一个表格（Grid1),1个OLE绑定控件（Oleboundcontrol），1个命令按钮（Command1），1个选项组按钮（Ootiongroup1），4个标签（Label1Label4），2个形状（Shape1,Shape2）。 （4）为表单控件设置属性。 表格（Grid1）的属性设置如下： RecordSource:设置为Tb”。 RecordSourc

18、eType：设置为“0-表”。 Columncount：设置为3. Column1.Header1.Caption:设置为“年度”。 Column2.Header1.Caption:设置为“学生人数”。 Column3.Header1.Caption:设置为“计算机台数”。 OLE绑定控件（Oleboundcontrol1）的属性设置如下： RecordSource：设置为mygraph.olegraph。 命令按钮（Command1）是属性设置如下：附件一: 沈阳工业大学实验报告专业班级：工程管理0901 学号： 090501015 姓名：李金坤 附件一: 沈阳工业大学实验报告专业班级：工程

19、管理0901 学号： 090501015 姓名：李金坤 Command1.Caption：设置为“重置例图”。 选项组按钮（Optiongroup1）的属性设置如下： Optiongroup1.BottonCount：设置为3. Optiongroup1.Option1.Caption：设置为“柱形图”。 Optiongroup1.Option2.Caption：设置为“条形图”。 Optiongroup1.Option3.Caption：设置为“饼形图”。 标签（Label1-Label4）的属性设置如下： Label1.Caption：设置为“学生人数与计算机数量统计”。 Label1.F

20、ontName：设置为“仿宋-GB2312”。 Label1.FontSize：设置为14。 Label1.FontBold：设置为.T.。 Label2.Caption：设置为“注意”。 Label2.ForeColor：设置为“255,0,0”。 Label3.Caption：设置为“修改数据后，单击”。 Label4.Caption：设置为“重置例图按钮！”。 形状（Shape1,Shape2）是属性设置如下： Shape1.BackStyle：设置为“0-透明”。 Shape1.BorderColor：设置为“128,128,128”。 Shape2.BackStyle：设置为“0-透

21、明”。 Shape2.BorderColor：“255,255,255”。 （5）为表单控件添加程序代码。 命令按钮（Command1）的单击（Click）事件程序代码如下： #DEFINE CRLF CHR(13)+CHR(10) #DEFINE TAB CHR(9) SELECT TB GO TOP CGDATA=年份+TAB+学生人数+TAB+计算机台数+CRLF DO WHILE .NOT.EOF() CGDATA=CGDATA+YEAR+TAB+SNUM+TAB+CNUM+CRLF SKIP ENDDO SELECT MYGRAPH GO TOP APPEND GENERAL OLE

22、GRAPH CLASS MSGRAPH.CHART DATA CGDATA实验项目：表单设计附件一: 沈阳工业大学实验报告专业班级：工程管理0901 学号： 090501015 姓名：李金坤 THISFORM.OPTIONGROUP1.OPTION1.Value=.T.THISFORM.OPTIONGROUP1.OPTION2.Value=.f.THISFORM.OPTIONGROUP1.OPTION3.Value=.f. 选项组按钮（Optiongroup1）的单击（Click）事件程序代码如下： #DEFINE BARTYPE-4099 #DEFINE COLTYPE-4100 #DEFI

23、NE PIETYPE-4102 DO CASE CASE THIS.Value=1 THISFORM.Oleboundcontrol1.AUTOFORMAT(COLTYPE,4) CASE THIS.Value=2 THISFORM.Oleboundcontrol1.AUTOFORMAT(BARTYPE,4) CASE THIS.Value=3 THISFORM.Oleboundcontrol1.AUTOFORMAT(PIETYPE,7) ENDCASE （6）保存表单。单击“保存”按钮，弹出“保存”对话框，输入表单文件名“OLE控件示例scx”，单击“保存”按钮。 （7）运行表单。在命令窗口

24、中输入：Do OLE控件示例，运行表单；或单击！按钮，运行表单。 7.设计一个表单，表单内的标签控件可以不停地左右移动，当左移到左边界时变为向右移动，当右移到右边界时变为向左移动，如此反复。 操作步骤如下： （1）进入表单设计器，新建一个表单。 （2）向表单中添加一个标签，两个计时器。 （3）设置控件属性。 表单Form1：Caption=左右移动字幕. 标签 Label1：Caption=欢迎使用本系统;BackStyle=0-透明；FontName=仿宋_GB2132;FontSize=18;Top=48;Left=83;Width=193。 计时器Timer1：Name=timer1,I

25、nterval=200 计时器Timer2：Name=timer2,Interval=200 (4)为表单控件添加程序代码。 表单Form1的Init事件代码： PUBLIC zy,yy Zy=1 Yy=0 附件一: 沈阳工业大学实验报告专业班级： 工程管理0901 学号：090501015 姓名： 李金坤 计时器Timer1的Timer事件代码： IF thisform.label1.left!=0.and.zy=1 thisform.label1.left=thisform.label1.left+10 IF thisform.label1.left+thisform.label1.wid

26、th=375 thisform.timer1.Enabled=.F. thisform.timer2.Enabled=.T. zy=0 yy=1 endif ENDIF 计时器Timer2的Timer事件代码： IF thisform.label1.left!=0.and.zy=1 thisform.label1.left=thisform.label1.left-10 IF thisform.label1.left=1 thisform.timer1.Enabled=.T. thisform.timer2.Enabled=.F. zy=1 yy=0 endif ENDIF (5)保存表单。单

27、击“保存”按钮，弹出“保存”对话框，输入表单文件名“左右移动scx”，单击“保存”按钮。 （6）运行表单。在命令窗口中输入：Do左右移动，运行表单；或单击！按钮，运行表单。 8.设计一个表单，浏览“教学管理”数据库中的数据表。 表单文件名为Myform.scx,表单标题为“浏览教学管理数据”。表单含有一个表格控件，用于显示用户查询信息；一个按钮选项组，含有学生、课程、教师3个选项按钮；两个命令按钮，标题分别为“浏览”和“退出”。在表单运行时，选择单选按钮后，单击“浏览”按钮，在表格中显示相应表的记录，单击“退出”按钮，退出表单。 操作步骤如下： （1）进入表单设计器，新建一个表单。 （2）向表

28、单中添加一个表格，一个按钮选项组，两个命令按钮。 （3）设置控件属性。附件一: 沈阳工业大学实验报告专业班级：工程管理0901 学号： 090501015 姓名：李金坤 表单Form1的Caption设置为“浏览教学管理数据”。 表格控件Grid1的RecordSourceType属性设置为“4-SQL说明”。 选项组OptionGroup1.Option1的标题属性Caption设置为“学生”。 选项组OptionGroup1.Option2的标题属性Caption设置为“课程”。 选项组OptionGroup1.Option3的标题属性Caption设置为“教师”。 命令按钮Command

29、1的标题属性Caption设置为“浏览”。 命令按钮Command2的标题属性Caption设置为“退出”。 （4）为表单控件添加程序代码。 命令按钮Command1的Click事件代码： do case case thisform.optiongroup1.value=1 thisform,grid1.recordsource=; select * form 学生into cursor tenp case thisform.optiongroup1.value=2 thisform.grid1.recordsource=; select * form 课程 into cursor temp

30、case thisform.optiongroup1.value=3 thisform.grid1.recordsource=; select * form 教师 into cursor temp endcase 命令按钮Command2的Click事件代码： Thisform.Release (5)运行表单。在命令窗口中输入：Do Myform，运行表单；或单击！按钮，运行表单。附件二: 沈阳工业大学实验准备报告专业班级： 工程管理0901 学号： 090501015 姓名：李金坤 实验准备完成情况： 1.复习命令按钮、文本框、编辑框、复选框等控件的功能。 2.复习常用控件的属性和事件。 3.复习命令按钮组、编辑框、选项按钮组生成器的用法。 4.准备图片文件。登陆窗口表单需要一张图片作为背景，教师情况表需要一张照片。 5.本实验用到“教学.dbc”数据库。实验项目：表单设计