第8章 面向对象编程及表单设计.pptVIP

第3章 CGI概念和PHP程序设计基础 80- 第8章 面向对象编程及表单设计 8.1 基本概念 Visual FoxPro不仅支持传统的过程式编程技术，还支持面向对象编程技术，并在程序语言方面作了强有力的扩充。过程式编程在设计程序时，必须考虑程序代码的全部流程，而面向对象编程在设计程序时，考虑的则是如何创建对象以及创建什么样的对象。面向对象编程是对过程式编程思想的变革，它引入了许多新的概念，提出了比过程式编程语言更高级的面向对象编程的语言，这些概念和语言使得开发应用程序变得更容易，耗时更少、效率更高。 WITH语句 WITH 对象名 .属性=属性值 .属性=属性值 ENDWITH 3、文本框控件 1）含义:主要用于数据表中某些字段的输入、输出，以 及从窗口中给内存变量赋值等操作。 2）主要属性: Name属性：设置文本框控件的名称。 Value：文本框中编辑的数据的值 Fontname、fontsize、fontbold:字体、大小、粗体等 Passwordchar：文本框中显示指定的字符，而不是真 正输入的内容 ReadOnly：文本框中的数据是否为只读 Tabindex：控件的Tab键次序 TabStop： 能否用Tab键将焦点移到该控件上 ControlSource：主要设置文本框中所编辑的数据与哪个变量或数据表中的哪个字段相对应。 Inputmask属性：指定文本框中输入或显示的数据的格式。 如：inputmask=9999表示文本框中内容为数字，参见表8.14 3）文本框的主要方法： SetFocus: 为文本框控件设置焦点。 4) 文本框的基本事件 事件名称 事件发生的时机 Click 单击控件时发生 Init 创建控件时发生 GotFocus 控件获得焦点时发生 InteractiveChange 使用键盘或鼠标更改了控件的值时发生 KeyPress 在控件上按下并释放任意一个键时发生 LostFocus 控件失去焦点时发生 MouseDown 在控件上按下鼠标键时发生 MouseUp 在控件上按下鼠标键再释放鼠标键时发生 Valid 控件失去焦点前(将要失去焦点时)发生 5）messagebox()的使用 是一个消息框，用于和用户之间完成交互操作的信息框函数。 格式: MESSAGEBOX（“提示信息”，按钮参数，“消息框标题” ） 函数MESSAGEBOX()的第二个参数：参数1+参数2+参数3 参数1：0：只有“确定”按钮 1：确定和取消按钮 2：终止、重试和忽略按钮 3：是、否和取消按钮 4：是和否按钮 5：重试和取消按钮 参数2：16：“停止(stop)”图标 32：“问号(?)”图标 48：“感叹号！”图标 64：“信息(i)”图标 参数3：0：缺省值为第一个按钮 256：缺省值为第二个按钮 512：缺省值为第三个按钮 如：messagebox(“确认退出吗？”,1+32+256, “messagebox函数的应用”) 函数返回值： 1：确定； 2：取消； 3：终止； 4：重试； 5：忽略 6：是； 7：否； 【例】设计一个用文本框输入密码的演示程序。表单的运行界面如图所示。 编写Command1命令按钮的Click事件代码： IF ThisForm.Text1.Value=123 = Messagebox(密码正确!, 48 , 提示信息) ELSE ThisForm.Text1.Setfocus = Messagebox(对不起，密码错误! , 48 , 提示信息) ENDIF 编写Command2命令按钮的Click事件代码： ThisForm.Text1.Value= ThisForm.Text1.SetFocus ThisForm.Refresh 编写Command3命令按钮的Click事件代码： ThisForm.Release 【例】设计一个按学号查询学生信息的表单。当运行表单时，显示如下图1界面，当输入学号正确将显示另一界面图2。 如果没查询到则显示图3。 图1 图3 输入学号正确时显示的界面 图2 LOCATE FOR 学号 = ALLTRIM(This.value) IF FOUND() thisform.refresh thisform.container1.Visible= .T. ELSE = ME