《Visual FoxPro 程序设计教程 教学课件 ppt 作者 刘瑞新第4章》由会员分享，可在线阅读，更多相关《Visual FoxPro 程序设计教程 教学课件 ppt 作者 刘瑞新第4章（30页珍藏版）》请在金锄头文库上搜索。
1、第4章 顺序结构程序设计,4.1 顺序结构程序的概念 4.2 基本语句 4.3 输入与输出,4.1 顺序结构程序的概念,4.2 基本语句,4.2.1 赋值语句 赋值语句一般格式为 STORE 表达式 TO 名称列表 或 名称=表达式,4.2.2 语句的续行 用分号“;”将较长的语句分为两行或多行。 4.2.3 程序注释语句 1. 行首注释 如果要在程序中注释行信息，可以使用行首注释语句，语法格式为 NOTE 注释内容 或 * 注释内容,2. 行尾注释 如果要在命令语句的尾部加注释信息，应该使用行尾注释语句，其语法格式为 & 注释内容,4.2.4 程序暂停语句 WAIT语句用来暂停程序的执行并显
2、示提示信息，按任意键或单击鼠标后继续执行程序。其语法格式为 WAIT 提示信息 TO 内存变量 WINDOW AT 行,列 TIMEOUT n,4.2.5 程序结束语句 RELEASE语句的格式为 RELEASE THISFORM Release方法的格式为 THISFORM | THISFORMSET Release,4.3 输入与输出 4.3.1 使用标签,【例4-1】使用标签处理单行和多行的信息输出，运行时通过代码来改变输出的内容，如图4-3所示。,编写命令按钮Command1的Click事件代码： THISFORM.Label1.Caption=“运行时修改的标签内容“ THISFOR
3、M.Label2.Caption=“ 对于一个较长的或在运行时可能变化的标题，标签提供了“+; “两种属性:AutoSize和WordWrap，来改变控件尺寸以适应较长或较短的标题。“ THISFORM.Label2.AutoSize=.T.,【例4-2】交换两个变量中的数据，如图4-5所示。,编写命令按钮Command1的Click事件代码： t = THISFORM.Label2.Caption THISFORM.Label2.Caption = THISFORM.Label4.Caption THISFORM.Label4.Caption = t,【例4-3】设计艺术的标签。可以设计两种
4、形式的艺术标签：一种是投影式标签，一种是立体式标签，如图4-8所示。,设计步骤如下： 选择“新建”表单，进入表单设计器，增加一个命令按钮Command1和一个“标签”控件Label1。 修改其属性，见表4-3。,4.3.2 使用文本框 【例4-4】利用文本框输入圆的半径，计算出圆的面积，如图4-10所示。,设计步骤如下： 建立应用程序用户界面。 设置对象属性。, 编写程序代码。 编写Command1的Click事件代码： a = THISFORM.Text1.Value THISFORM.Text2.Value = ROUND(a2 * 3.14,2),4.3.3 使用编辑框 1. 编辑框 在
5、VFP中，文本框只能用来处理单行的文本数据，处理多行文本数据的工作要由“编辑框（EditBox）”控件来完成。,【例4-5】设计一个文本文件的编辑器，可以新建或打开文件，并能在编辑后保存该文件（如图4-13、图4-14所示）。,编写表单的Activate事件代码： WITH THIS.Edit1 .Top = 0 .Left = 0 .Width = THIS.Width ENDWITH SET EXACT ON THIS.Caption = “未命名“ THIS.Edit1.SetFocus,编写Command1的Click事件代码： THISFORM.Edit1.Value = “ THI
6、SFORM.Refresh THISFORM.Caption = “未命名“ THISFORM.Edit1.SetFocus THISFORM.Command2.Enabled = .T. THISFORM.Command3.Enabled = .F. THISFORM.Command4.Enabled = .T. 编写Command2的Click事件代码： cfile = GETFILE(“) nhandle = FOPEN(cfile) nend = FSEEK(nhandle,0,2) = FSEEK(nhandle,0,0) THISFORM.Edit1.Value = FREAD(n
7、handle,nend) THISFORM.Caption = cfile = FCLOSE(nhandle) THISFORM.Edit1.SetFocus THISFORM.Refresh THISFORM.Command3.Enabled = .T.,编写Command3的Click事件代码： cFile = THISFORM.Caption nhandle = FOPEN(cfile,1) = FWRITE(nhandle,THISFORM.Edit1.Value) = FCLOSE(nhandle) THISFORM.Refresh THISFORM.Edit1.SetFocus 编
8、写Command4的Click事件代码： cfile = PUTFILE(“) nhandle = FCREATE(cfile,0) cc =FWRITE(nhandle,THISFORM.Edit1.Value) = FCLOSE(nhandle) THISFORM.Edit1.SetFocus THISFORM.Refresh THISFORM.Command3.Enabled = .T.,2. 与文件操作有关的函数,4.3.4 使用焦点 焦点（Focus）就是光标，当对象具有“焦点”时才能响应用户的输入，因此也是对象接收用户鼠标单击或键盘输入的能力。在Windows环境中，在同一时间只有
9、一个窗口、表单或控件具有这种能力。具有焦点的对象通常会以突出显示标题或标题栏来表示。,4.3.5 形状与容器控件 使用形状 2. 使用容器控件,【例4-7】设计一个华氏温度和摄氏温度互相转换的程序，如图4-20所示。输入一个华氏温度可以得到相应的摄氏温度，而输入一个摄氏温度则可以得到其相应的华氏温度。 分析：摄氏温度与华氏温度的关系为： 华氏 = 摄氏 * 9 / 5 + 32 由此可得： 摄氏 =（华氏 32）* 5 / 9。 设计步骤如下：,编写程序代码。 编写表单的Activate事件代码： THIS.Container1.Text1.SetFocus 编写Command1的Click事
10、件代码： c = THISFORM.Container1.Text1.Value THISFORM.Container2.Text1.Value = c * ( 9 / 5 ) + 32 编写Command2的Click事件代码： f = THISFORM.Container2.Text1.Value THISFORM.Container1.Text1.Value = (f 32) * (5 / 9) 编写文本框Text1的事件代码： GotFocus事件代码： THIS.SelStart = 0 THIS.SelLength = LEN(THIS.Text) InteractiveChang
11、e事件代码： THISFORM.Container2.Text1.Value = “,编写（Container2中）文本框Text1的事件代码： GotFocus事件代码： THIS.SelStart = 0 THIS.SelLength = LEN(THIS.Text) InteractiveChange事件代码： THISFORM.Container1.Text1.Value = “,4.3.6 使用对话框 MESSAGEBOX函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。其语法格式为 变量名 = MESSAGEBOX(信息内容,对话框类型,对话框标题)
12、,【例4-8】在例4-4中使用信息对话框来显示计算结果，如图4-23所示。 只需修改表单界面如图4-23所示，并改写命令按钮的Click事件代码： x = thisform.Text1.Value a = “圆的面积为：“ + ALLTRIM(STR(x2 * 3.14) = MESSAGEBOX(a,0,“计算圆面积“) thisform.Text1.SelStart = 0 thisform.Text1.SelLength = len(thisform.Text1.Text) thisform.Text1.SetFocus,4.3.7 使用图像 表4-14列出了图像控件的一些主要属性。,【例4-9】在例4-8中使用图像来修饰表单，如图4-24所示。 只需在例4-8的表单界面中添加图像，并适当调整其大小及位置即可。,
