《Visual FoxPro 6.0程序设计教程 第二版 教学课件 ppt 作者 丁爱萍 第1-5章 第4章》由会员分享，可在线阅读，更多相关《Visual FoxPro 6.0程序设计教程 第二版 教学课件 ppt 作者 丁爱萍 第1-5章 第4章（76页珍藏版）》请在金锄头文库上搜索。
1、4.1 赋值及几个简单语句 4.2 数据输出 4.3 数据输入 4.4 形状与容器控件 4.5 使用对话框 4.6 图像控件 习题4,4.1.1 赋值语句 在程序中若要使用(引用)变量，必须在使用(引用)之前为变量设定一个初值。 使用赋值语句，可以将指定的值赋给内存变量或对象的某个属性，其一般格式为 STORE 表达式 TO 名称列表 或 名称=表达式,4.1 赋值及几个简单语句,说明： (1) 表达式可以是算术表达式、字符串表达式、日期表达式、关系表达式或逻辑表达式，首先计算表达式的值，将表达式的值赋给变量或对象的属性。 (2) 名称是内存变量名或属性名，名称列表是多个名称的列表，各名称之间
2、用逗号分隔。 (3) STORE可以给多个变量或属性赋值，= 只能给一个 变量或属性赋值。例如： STORE 2 + 3 TO x， y， z STORE “请输入数据” TO THISFORM.Label1.Caption ， THISFORM.Label2.Caption x = 4+5 THISFORM.Caption = “学生成绩管理软件“,(4) 如果对日期型内存变量赋值，则当表达式是日期型常量时，必须用花括号“ ”括起来并在前面加上一个符号“”；当表达式是字符串时，必须用转换函数CTOD()将其换为日期型。例如： Today = 2007/10/25 today = CTOD(“
3、10/25/2007”) (5) 如果是给内存变量赋值，则内存变量的类型由表达式的类型决定；如果是给某对象的属性赋值，则表达式的类型必须与属性的类型一致。 (6) 赋值号的左边只能是一个变量名，不能是表达式。例如，不能将z = x + y写成 x + y = z。,(7) 不要将赋值号“=”与数学中的等号混淆，x = 2应读做“将数值2赋给变量x”或是“使变量x的值为2”，可以理解为x 2。下面两个语句的作用是不同的： x = y y = x (8) 当一条语句较长时，在代码编辑窗口阅读程序时不便查看。这时，可以使用续行功能，用分号“；”将较长的语句分为两行或多行。例如： THISFORM.L
4、abel1.Caption = “计算机可以接受数据和处理数据， ”； “并可将处理完的数据以完整有效的方式提供给用户。” 注意：作为续行符的分号只能出现在行尾。,4.1.2 程序注释语句 为了提高程序的可读性，通常应在程序的适当位置加上一些备注或说明等注释内容。VFP提供了行首和行尾两种注释语句。 1. 行首注释 如果在程序开始处或程序中需对本模块或某程序段的功能或含义进行注释，则可以使用行首注释语句，其语法格式为 NOTE 注释内容 或 * 注释内容,说明： (1) 注释内容指要包括的注释文本。 (2) 程序运行时，当执行到以NOTE或*开头的行时，VFP将其作为注释语句而不考虑注释内容的
5、信息。 2. 行尾注释 如果要在命令语句的尾部对本语句中变量的含义、本语句的作用等进行说明，则应该使用行尾注释语句，其语法格式为& 注释内容 说明：不能在命令语句行续行符分号后加入&和注释。,【例4-1】注释语句使用示例。 NOTE 该程序计算圆面积 r = 10 & r 为圆半径 pi = 3.1415926 & pi为圆周率 s = pi * r 2 & 计算圆面积的值 THISFORM.Label1.Caption = s & 将结果显示在标签上,4.1.3 程序暂停语句 WAIT语句用来暂停程序的执行并显示提示信息，按任意键或单击鼠标后继续执行程序。其语法格式为 WAIT 提示信息 T
6、O内存变量 WINDOWS AT 行，列 TIMEOUT n 说明： (1) 提示信息 指定要显示的自定义信息。若省略，则显示默认的信息。,(2) TO内存变量 将按下的键以字符形式保存到变量或数组元素中。若内存变量不存在，则创建一个。若按键是“不可打印”字符或单击鼠标，则内存变量中存储空字符串。 (3) WINDOWS AT 行，列 指定显示的信息窗口在屏幕上的位置。若省略 AT 行，列 则显示在屏幕的右上角。 (4) TIMEOUT n 指定自动等待键盘或鼠标输入的秒数，必须放在语句的最后。 【例4-2】WAIT语句使用示例。 如图4.1所示，在代码窗口中输入下面的代码，运行后将显示暂停提
7、示信息。 WAIT “我累了，要休息10秒“ WINDOWS AT 20， 20 TIMEOUT 10,图4.1 WAIT语句示例,4.1.4 程序结束语句 在VFP中，要终止表单的运行可以使用RELEASE语句或Release方法。 RELEASE语句的格式为 RELEASE THISFORM Release方法的格式为 THISFORM | THISFORMSET Release RELEASE语句和Release方法直接激发Unload事件从内存中释放表单或表单集。,一个程序如果没有输出操作就没有什么实用价值。在VFP中，常用标签控件(Label)进行文本信息的输出。 1. 标签的外观
8、标签(Label)控件显示的文本信息用户不能直接修改，Label所显示的内容由标题(Caption)属性控制，该属性可以在设计时通过“属性”窗口设置，也可以在运行时用代码赋值。 在缺省情况下，标题(Caption)是Label控件中惟一的可见部分。如果把BorderStyle(边框样式)属性设置成1(可以在设计时进行)，那么Label就有了一个边框。此外，还可以通过设置Label的BackColor(背景色)、ForeColor(前景色)和FontName(字体)等属性，改变Label的外观。,4.2 数 据 输 出,【例4-3】制作立体字。 分析：首先利用标签控件在表单上画出 Label1，
9、修改其属性值后，复制该标签，然后适当调整各标签的位置和颜色，从而产生立体效果。 设计步骤如下： (1) 建立应用程序用户界面。进入表单设计器，增加一个命令按钮Command1和一个标签控件Label1。 (2) 设置对象属性。各控件的属性设置如表4-1所示。设置属性后如图4.2所示。,表4-1 属 性 设 置,图4.2 设置Label1的属性,选中Label1后，单击工具栏上的“复制”按钮 ，再单击“粘贴”按钮 ，将Label1复制一个副本Label2。将Label2的前景色(ForeColor)属性改为255，255，255(白色)，修改Left和Top属性值并适当调整两个标签的相对位置，如
10、图4.3所示。,图4.3 修改Label2的属性,(3) 编写程序代码。编写命令按钮Command1的Click事件代码，以便关闭表单退出程序： THISFORM.Release (4) 运行程序。单击常用工具栏上的“运行”按钮 运行程序，程序运行结果如图4.4所示，单击表单上的“关闭”按钮，关闭表单。,图4.4 程序运行结果,2. 使标签适应内容 对于一个较长的或在运行时可能变化的标题，Label提供了两种属性：AutoSize和WordWrap，用来改变控件尺寸以适应较长或较短的标题。为使控件能够自动调整以适应内容多少，必须将AutoSize属性设置为.T.。这样控件可水平并垂直扩充以适应
11、Caption属性的内容。为使Caption属性的内容自动换行，应将WordWrap属性设置为.T.。,【例4-4】使用标签处理多行信息输出，运行时通过代码来改变输出的内容。 设计步骤如下： (1) 建立应用程序用户界面。进入表单设计器，增加一个命令按钮Command1、两个标签Label1和Label2，如图4.5(a)所示。 (2) 设置对象属性，如表4-2所示。,表4-2 属 性 设 置,注意：在设置标签的属性时，应先将WordWrap属性设为True，然后再将AutoSize属性设为True。 设置属性后的界面如图4.5(b)所示。,图4.5 建立界面与设置属性,(3) 编写命令按钮C
12、ommand1的Click事件代码： THISFORM.Label1.Caption = “甜蜜的负担” THISFORM.Label2.Caption = “ 山青青，水蓝蓝，看日出，看云海。” + ; “博浪鼓，咚咚咚，妹妹笑得脸通红。” (4) 运行程序。单击常用工具栏上的“运行”按钮 运行程序，程序运行结果如图4.6(a)所示，单击表单上的“请点这里看变化”按钮，结果如图4.6(b)所示。,图4.6 程序运行结果,4.3.1 使用文本框 文本框(TextBox)用来进行文本数据的输入，可以用来向程序输入各种不同类型的数据，也可以用作数据的输出。 文本框中显示的文本受 Value(值)属
13、性的控制。在使用时，要注意Value属性值的数据类型，在缺省情况下，Value值为字符型数据“无”。如果需要将其转换为数值型数据，可以使用VAL()函数，例如： aVAL(THISFORM.Text1.Value) 另外，还可以在“属性”窗口中修改Value属性值为0，这时文本框的Value属性即为数值型数据。,4.3 数 据 输 入,Value属性可以用以下3种方式设置： 设计时在“属性”窗口进行。 编程时通过代码设置。 在运行时由用户输入。 在程序运行时，VFP通过文本框的Value属性来检索文本框的当前内容。 如果要用文本框显示不希望用户更改的文本，则可以把文本框的 ReadOnly(只
14、读)属性设为.T. - 真，或将文本框的Enabled(响应)属性设为.F. - 假。,【例4-5】在文本框中输入长、宽、高，求长方体的表面积并输出。 分析：设长方体的长、宽、高分别为a、b、c，表面积为s。根据数学知识有： S=2(ab+bc+ca) 设计步骤如下： (1) 建立用户界面。进入表单设计器，在表单中增加一个命令按钮Command1、两个标签Label1Label2和3个文本框Text1Text3。 (2) 设置控件属性，如表4-3所示。 设置属性后的表单如图4.7所示。,表4-3 属 性 设 置,图4.7 建立用户界面,(3) 编写Command1的Click事件代码： a =
15、 VAL(THISFORM.Text1.Value) & VAL()将字符型数据转换为数值型 b = VAL(THISFORM.Text2.Value) c = VAL(THISFORM.Text3.Value) s = 2 * (a * bb * cc * a) & 计算长方体的表面积 THISFORM.Label2.Caption = STR(s，9，3) & 将表面积的值输出到Label2上 & STR()将数值型数据转换为字符型 运行程序，结果如图4.8所示。,图4.8 求长方体的表面积,4.3.2 焦点与键序 1. 焦点 焦点(Focus)就是光标，当对象具有“焦点”时才能响应用户的输入，因此只有对象具有了焦点，该对象才具有接收用户鼠标单击或键盘输入的能力。在Windows环境中，在同一时间只有一个窗口、表单或控件具有这种能力。具有焦点的对象通常会以突出显示标题或标题栏来表示。,当文本框具有焦点时，用户输入的数据才会出现在文本框中。 仅当控件的Visible和Enabled属性被设置为真(True)时，控件才能接收焦点。某些控件不具有焦点，如标签、框架、计时器等。 当控件接收焦点时，会引发GotFocus事件；当控件失去焦点时，会引发LostFocus事件。,可以采用SetFocus方法在代码中设置焦点。例如，编写表单的Acti
