《Visual Forpro数据库设计与应用 教学课件 ppt 作者 安晓飞 10VFP第13讲》由会员分享，可在线阅读，更多相关《Visual Forpro数据库设计与应用 教学课件 ppt 作者 安晓飞 10VFP第13讲（23页珍藏版）》请在金锄头文库上搜索。
1、第13讲,第7章 表单设计与应用,2,教学内容,第7章 表单设计与应用 7.5 基本型控件 编辑框、列表框、组合框、计时器、微调控件,第7章 表单设计与应用,3,教学重点 编辑框、列表框、组合框、计时器控件的使用 教学难点 编辑框、列表框、组合框控件的使用,第7章 表单设计与应用,4,7.5 基本型控件,编辑框控件 用来输入、编辑字符型数据 当编辑的内容大于255个字符时，只能用编辑框控件 ScrollBars属性 指定编辑框是否有滚动条 0没有滚动条 2有垂直滚动条 （默认值） SelStart属性 返回用户在编辑框的文本输入区所选定的文本的起始点位置 有效取值范围在0与编辑区中的字符总数之
2、间 设计时不可用 还适用于文本框、组合框等控件,第7章 表单设计与应用,5,7.5 基本型控件,编辑框控件 SelLength属性 返回用户在编辑框的文本输入区选定的字符的数目 若没有文本被选定，则返回0 设计时不可用 SelText属性 返回用户在编辑框的文本输入区选定的文本 若没有选定任何文本，则返回0长度字符串 若将SelText属性设置为一个新值，则该新值将替换编辑区中选定的文本，并且SelLength属性值变为0。 设计时不可用,第7章 表单设计与应用,6,7.5 基本型控件,编辑框控件 【例7.9】表单内包含1个文本框、1个编辑框、2个命令按钮，所有控件中显示的文字为20号字，当单
3、击“查找”按钮时，在编辑框中查找字符串“VFP”，如图7.50所示。单击“替换”按钮时，将文本框中内容替换编辑框中查找的内容，如图7.51所示。,第7章 表单设计与应用,7,7.5 基本型控件,编辑框控件 新建表单。添加1个编辑框，1个文本框，2个命令按钮 属性设置 编写代码,“查找”按钮的Click事件代码： n=at(“VFP“,Thisform.Edit1.Value) IF n0 Thisform.Edit1.SelStart=n-1 Thisform.Edit1.SelLength=LEN(“VFP“) ENDIF,“替换”按钮的Click事件代码： IF Thisform.Edit
4、1.SelText=“VFP“ Thisform.Edit1.SelText=Thisform.Text1.Value ENDIF,第7章 表单设计与应用,8,7.5 基本型控件,复选框控件 复选框（CheckBox）用于标记逻辑真（.T.）和逻辑假（.F.）两值状态 Caption属性 用来设置复选框旁边显示的文字信息 Value属性 指定复选框的当前状态。该属性值有三种情况： 为0或.F.：默认值，表示复选框未被中 为1或.T.：表示复选框被选定 为2或.NULL.：不确定（只在代码中有效） ControlSource属性 指定与复选框建立联系的数据源,第7章 表单设计与应用,9,7.5
5、基本型控件,复选框控件 【例7.10】新建一个如图7.52所示的表单名和文件名均为myform的表单，表单中有两个命令按钮，标题分别为“生成表”、“退出”，两个复选框，标题分别为“专业”、“入学成绩”。单击“生成表“按钮，程序功能是根据表单运行时复选框选定的字段内容生成新表，如果两个复选框都被选中，生成的自由表名为two.dbf，two.dbf表中包含“学生”表中的学号、姓名、专业、入学成绩；如果只选中“专业”复选框，生成的自由表名为one1.dbf，该表包含“学生”表中的学号、姓名、专业，如果只选中“入学成绩”复选框，生成的自由表名为one2.dbf，该表包含“学生”表中的学号、姓名、入学成
6、绩。“退出”按钮关闭并释放表单。,第7章 表单设计与应用,10,7.5 基本型控件,复选框控件 （1）新建表单，添加2个复选框，2个命令按钮 （2）属性设置 （3）编写代码,“生成表”按钮的Click事件代码： IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=1 SELECT 学号,姓名,专业,入学成绩 FROM 学生 INTO TABLE TWO ENDIF IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=0 SELECT 学号,姓名,专业 FROM 学生 INTO TABLE
7、 ONE1 ENDIF IF ThisForm.Check1.Value=0 And ThisForm.Check2.Value=1 SELECT 学号,姓名,入学成绩 FROM 学生 INTO TABLE ONE2 ENDIF,“退出”按钮的Click事件代码： Thisform.Release,第7章 表单设计与应用,11,7.5 基本型控件,列表框控件 列表框（ListBox）控件包含一个选项列表，用户可以从列表中选择各个选项 RowSourceType属性 指定列表框中列表项的数据源类型 RowSource属性 指定列表框中列表项的数据源,第7章 表单设计与应用,12,7.5 基本型控
8、件,列表框控件 List属性 用字符串数组List来存取列表框控件中的各个数据项 设计时不可用 读取列表框中第4行第2列的数据项“徐建军”并在文本框显示： Thisform.Text1.Value=Thisform.List1.List (4,2) 将列表框中“王平”的性别设置成“男”： Thisform.List1.List(1,3)=“男“ ListCount属性 统计列表框中列表项的数目 Val=Thisform.List1.ListCount 则变量val值为8,第7章 表单设计与应用,13,7.5 基本型控件,列表框控件 ColumnCount属性 指定列表框的列数 Value属性
9、该属性为只读，返回列表框选中的列表项 该属性可以是字符型，也可以是数值型: 如果是字符型，返回的是被选中条目本身内容 如果是数值型，则返回选中条目在列表框中的次序号 ControlSource属性 用户通过该属性指定一个字段或变量用来保存用户从列表框中选择的结果 Selected属性 指定列表框内某个列表项是否处于选定状态。逻辑型数组,第7章 表单设计与应用,14,7.5 基本型控件,列表框控件 MultiSelect属性 指定用户能否在列表框内进行多重选择，以及如何进行多重选择,【例7.11】在Form1表单中，添加1个列表框，名称为List1，高度为120，设置列表框的相关属性，使得当单击
10、列表框中的学号后，在文本框中显示该学生的相关信息，如图所示。,第7章 表单设计与应用,15,7.5 基本型控件,操作步骤如下： 新建表单，添加1个列表框，4个标签，4个文本框。 属性设置。 编写代码： “列表框”的Click事件代码： ThisForm.Refresh,第7章 表单设计与应用,16,7.5 基本型控件,组合框控件 组合框（ComboBox）控件结合了列表框和文本框控件的特点 列表框的属性大部分也适用于组合框 Style属性：决定组合框样式 0：下拉组合框。用户既可以从列表中选择内容，也可以在编辑区输入内容。 2：下拉列表框。用户只能从列表中选择内容。,第7章 表单设计与应用,1
11、7,7.5 基本型控件,组合框控件 【例7.12】新建表单one，添加1个组合框（Combo1），将其设置为下拉列表框，设置组合框的相关属性，使其显示的条目为“外语”、“物理”、“计算机”，向表单中添加两个命令按钮，其标题分别为“统计”、“退出”，为表单的“统计”按钮编写一条SQL命令，执行该命令时，将统计“学生表”所有专业与组合框中指定的内容相同的学生信息全部显示出来，单击“退出”按钮关闭并释放表单。 属性设置如下：,“统计”按钮的Click事件代码： SELECT * FROM 学生 WHERE 专业=ThisForm.Combo1.Value,第7章 表单设计与应用,18,7.5 基本型
12、控件,组合框控件 【例7.13】设计一个选课录入表单，表单运行时，在左侧的列表框中选择学生的学号，然后在右侧的下拉组合框中选择课程号，最后单击“增加选课记录”按钮，将所选内容插入到“选课”表中。 部分控件属性设置如下：,“增加选课记录”按钮的Click事件代码： xh=ThisForm.List1.Value kch=ThisForm.Combo1.Value LOCATE FOR 学号=xh AND 课程号=kch IF NOT FOUND() INSERT INTO 选课(学号,课程号) VALUES(xh,kch) ENDIF,第7章 表单设计与应用,19,7.5 基本型控件,计时器控件
13、 计时器（Timer）控件可以每隔一定的时间间隔自动触发一次Timer事件 Interval属性 指定调用计时器Timer事件的时间间隔，以毫秒为单位 Enabled属性 指定计时器控件能否响应Timer事件 计时器控件常用事件 Timer事件：每隔Interval属性所设置的时间间隔自动触发一次该事件,第7章 表单设计与应用,20,7.5 基本型控件,计时器控件 【例7.14】设计一个显示系统时间的表单。单击（Command1）“显示”按钮，标签（Label）显示当前系统时间，单击（Command2）“停止”按钮，时钟无效。标签和命令按钮控件要求黑体20号字。,操作步骤如下： （1）新建表单
14、。添加控件，必须添加1个计时器控件。 （2）属性设置： 计时器控件Timer1的Interval属性设置为1000，Enabled属性设置为.F. （3）编写代码。 “显示”按钮的Click事件代码： Thisform.Timer1.Enabled=.T. “停止”按钮的Click事件代码: Thisform.Timer1.Enabled=.F. 计时器控件Timer事件代码： Thisform.Label1.Caption=TIME(),第7章 表单设计与应用,21,7.5 基本型控件,微调控件 微调（Spinner）控件可以数值或整数数据进行调整 Increment属性 指定在单击微调控件
15、向上或向下箭头键时增加或减少的值 KeyBoardHighValue属性和KeyBoardLowValue属性 设定在使用键盘输入时的最高和最小限制值 SpinnerHighValue属性和SpinnerLowValue属性 设定在使用上下按钮微调时的最高和最低限制值 Value属性 设定或返回微调控件的当前值,第7章 表单设计与应用,22,7.5 基本型控件,微调控件 【7.15】利用微调按钮调整文本框中的背景色，如图所示，更改红、绿、蓝色微调按钮的数值后，单击“确定”按钮，文本框根据改变后的三原色值显示相应的颜色。,1.新建表单，添加3个标签、3个微调按钮、 1个文本框、1个命令 2.微调控件的属性设置如下：,3.“确定”按钮的Click事件代码： Text1.BackColor=; RGB(ThisForm.Spinner1.Value,ThisfFrm.Spinner2.Value,ThisForm.Spinner3.Value),第7章 表单设计与应用,23,课外作业 实训教材：第7章 P163(12-18) P164P168 上机实验 本次课实验在第15讲完成,
