Visual Forpro数据库设计与应用 教学课件 作者 安晓飞10VFP第13讲

LOGO第13讲教学内容第7章 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 单 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 与应用7.5基本型控件编辑框、列表框、组合框、计时器、微调控件教学重点 编辑框、列表框、组合框、计时器控件的使用教学难点编辑框、列表框、组合框控件的使用7.5基本型控件 编辑框控件 用来输入、编辑字符型数据 当编辑的内容大于255个字符时，只能用编辑框控件 ScrollBars属性 指定编辑框是否有滚动条 0——没有滚动条 2——有垂直滚动条（默认值） SelStart属性 返回用户在编辑框的文本输入区所选定的文本的起始点位置 有效取值范围在0与编辑区中的字符总数之间 设计时不可用 还适用于文本框、组合框等控件7.5基本型控件 编辑框控件 SelLength属性 返回用户在编辑框的文本输入区选定的字符的数目 若没有文本被选定，则返回0 设计时不可用 SelText属性 返回用户在编辑框的文本输入区选定的文本 若没有选定任何文本，则返回0长度字符串 若将SelText属性设置为一个新值，则该新值将替换编辑区中选定的文本，并且SelLength属性值变为0。 设计时不可用7.5基本型控件 编辑框控件 【例7.9】表单内包含1个文本框、1个编辑框、2个命令按钮，所有控件中显示的文字为20号字，当单击“查找”按钮时，在编辑框中查找字符串“VFP”，如图7.50所示。单击“替换”按钮时，将文本框中内容替换编辑框中查找的内容，如图7.51所示。7.5基本型控件 编辑框控件 新建表单。添加1个编辑框，1个文本框，2个命令按钮 属性设置 编写代码“查找”按钮的Click事件代码：n=at("VFP",Thisform.Edit1.Value)IFn<>0Thisform.Edit1.SelStart=n-1Thisform.Edit1.SelLength=LEN("VFP")ENDIF“替换”按钮的Click事件代码：IFThisform.Edit1.SelText="VFP"Thisform.Edit1.SelText=Thisform.Text1.ValueENDIF7.5基本型控件 复选框控件 复选框（CheckBox）用于标记逻辑真（.T.）和逻辑假（.F.）两值状态 Caption属性 用来设置复选框旁边显示的文字信息 Value属性 指定复选框的当前状态。该属性值有三种情况： ①为0或.F.：默认值，表示复选框未被中 ②为1或.T.：表示复选框被选定 ③为2或.NULL.：不确定（只在代码中有效） ControlSource属性 指定与复选框建立联系的数据源7.5基本型控件 复选框控件 【例7.10】新建一个如图7.52所示的表单名和文件名均为myform的表单，表单中有两个命令按钮，标题分别为“生成表”、“退出”，两个复选框，标题分别为“专业”、“入学成绩”。单击“生成表“按钮，程序功能是根据表单运行时复选框选定的字段内容生成新表，如果两个复选框都被选中，生成的自由表名为two.dbf，two.dbf表中包含“学生”表中的学号、姓名、专业、入学成绩；如果只选中“专业”复选框，生成的自由表名为one1.dbf，该表包含“学生”表中的学号、姓名、专业，如果只选中“入学成绩”复选框，生成的自由表名为one2.dbf，该表包含“学生”表中的学号、姓名、入学成绩。“退出”按钮关闭并释放表单。7.5基本型控件 复选框控件 （1）新建表单，添加2个复选框，2个命令按钮 （2）属性设置 （3）编写代码“生成表”按钮的Click事件代码：IFThisForm.Check1.Value=1AndThisForm.Check2.Value=1SELECT学号,姓名,专业,入学成绩FROM学生INTOTABLETWOENDIFIFThisForm.Check1.Value=1AndThisForm.Check2.Value=0SELECT学号,姓名,专业FROM学生INTOTABLEONE1ENDIFIFThisForm.Check1.Value=0AndThisForm.Check2.Value=1SELECT学号,姓名,入学成绩FROM学生INTOTABLEONE2ENDIF“退出”按钮的Click事件代码：Thisform.Release7.5基本型控件 列表框控件 列表框（ListBox）控件包含一个选项列表，用户可以从列表中选择各个选项 RowSourceType属性 指定列表框中列表项的数据源类型 RowSource属性 指定列表框中列表项的数据源7.5基本型控件 列表框控件 List属性 用字符串数组List来存取列表框控件中的各个数据项 设计时不可用 读取列表框中第4行第2列的数据项“徐建军”并在文本框显示： Thisform.Text1.Value=Thisform.List1.List(4,2) 将列表框中“王平”的性别设置成“男”： Thisform.List1.List(1,3)="男" ListCount属性 统计列表框中列表项的数目 Val=Thisform.List1.ListCount 则变量val值为87.5基本型控件 列表框控件 ColumnCount属性 指定列表框的列数 Value属性 该属性为只读，返回列表框选中的列表项 该属性可以是字符型，也可以是数值型: 如果是字符型，返回的是被选中条目本身内容 如果是数值型，则返回选中条目在列表框中的次序号 ControlSource属性 用户通过该属性指定一个字段或变量用来保存用户从列表框中选择的结果 Selected属性 指定列表框内某个列表项是否处于选定状态。逻辑型数组7.5基本型控件 列表框控件 MultiSelect属性 指定用户能否在列表框内进行多重选择，以及如何进行多重选择【例7.11】在Form1表单中，添加1个列表框，名称为List1，高度为120，设置列表框的相关属性，使得当单击列表框中的学号后，在文本框中显示该学生的相关信息，如图所示。7.5基本型控件 操作步骤如下： 新建表单，添加1个列表框，4个标签，4个文本框。 属性设置。 编写代码： “列表框”的Click事件代码：ThisForm.Refresh7.5基本型控件 组合框控件 组合框（ComboBox）控件结合了列表框和文本框控件的特点 列表框的属性大部分也适用于组合框 Style属性：决定组合框样式 0：下拉组合框。用户既可以从列表中选择内容，也可以在编辑区输入内容。 2：下拉列表框。用户只能从列表中选择内容。7.5基本型控件 组合框控件 【例7.12】新建表单one，添加1个组合框（Combo1），将其设置为下拉列表框，设置组合框的相关属性，使其显示的条目为“外语”、“物理”、“计算机”，向表单中添加两个命令按钮，其标题分别为“统计”、“退出”，为表单的“统计”按钮编写一条SQL命令，执行该命令时，将统计“学生表”所有专业与组合框中指定的内容相同的学生信息全部显示出来，单击“退出”按钮关闭并释放表单。 属性设置如下：“统计”按钮的Click事件代码：SELECT*FROM学生WHERE专业=ThisForm.Combo1.Value7.5基本型控件 组合框控件 【例7.13】设计一个选课录入表单，表单运行时，在左侧的列表框中选择学生的学号，然后在右侧的下拉组合框中选择课程号，最后单击“增加选课记录”按钮，将所选内容插入到“选课”表中。 部分控件属性设置如下：“增加选课记录”按钮的Click事件代码：xh=ThisForm.List1.Valuekch=ThisForm.Combo1.ValueLOCATEFOR学号=xhAND课程号=kchIFNOTFOUND()INSERTINTO选课(学号,课程号)VALUES(xh,kch)ENDIF7.5基本型控件 计时器控件 计时器（Timer）控件可以每隔一定的时间间隔自动触发一次Timer事件 Interval属性 指定调用计时器Timer事件的时间间隔，以毫秒为单位 Enabled属性 指定计时器控件能否响应Timer事件 计时器控件常用事件 Timer事件：每隔Interval属性所设置的时间间隔自动触发一次该事件7.5基本型控件 计时器控件 【例7.14】设计一个显示系统时间的表单。单击（Command1）“显示”按钮，标签（Label）显示当前系统时间，单击（Command2）“停止”按钮，时钟无效。标签和命令按钮控件 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 黑体20号字。操作步骤如下：（1）新建表单。添加控件，必须添加1个计时器控件。（2）属性设置：计时器控件Timer1的Interval属性设置为1000，Enabled属性设置为.F.（3）编写代码。“显示”按钮的Click事件代码：Thisform.Timer1.Enabled=.T.“停止”按钮的Click事件代码:Thisform.Timer1.Enabled=.F.计时器控件Timer事件代码：Thisform.Label1.Caption=TIME()7.5基本型控件 微调控件 微调（Spinner）控件可以数值或整数数据进行调整 Increment属性 指定在单击微调控件向上或向下箭头键时增加或减少的值 KeyBoardHighValue属性和KeyBoardLowValue属性 设定在使用键盘输入时的最高和最小限制值 SpinnerHighValue属性和SpinnerLowValue属性 设定在使用上下按钮微调时的最高和最低限制值 Value属性 设定或返回微调控件的当前值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章P163(12--18)P164—P168上机实验本次课实验在第15讲完成