第7章表单设计20100618.pptVIP

一、表单的建立  1、表单向导 例1：使用表单向导创建一个能维护rsb.dbf表的表单 。 例2：用一对多表单向导创建一个BMDM和RSB的维护表单。 2、表单设计器 （1）快速表单  （2）数据环境 （3）其他;二、表单的保存、运行和修改;（一）针对表单的操作 1、设置属性 （1）利用属性窗口 常用属性有caption 、backcolor、picture、autocenter、icon （2）利用代码设置属性 格式： 对象.属性=属性值 如：Thisform.Caption=教师管理系统 Thisform.BackColor=RGB(255,255,129);用代码设置颜色需要引用RGB函数。 语法：RGB(redvalue, greenvalue,bluevalue) 功能：返回一种颜色。 标准色的RGB参数： 黑 RGB(0，0，0) 白 RGB(255，255，255) 红 RGB(255，0，0) 绿 RGB(0，255，0) 蓝 RGB(0，0，255);2、表单常用事件 Init: 创建对象时 click: 单击鼠标时 Dblclick: 双击鼠标时 Keypress: 按下并释放键盘时 3、表单常用方法 方法的调用格式： 对象.方法 Release方法 Refresh方法;例：用表单设计器建立一个表单，并进行以下设置。;表单控件工具栏 ; 常用来完成一些任务，把实现相应功能的代码放在命令按钮的click事件中。;例：设计表单，用户可以通过单击“下一条”、上一条“”浏览rsb.dbf表。要求： （1）如果浏览到文件尾，使“下一条”按钮不可用（呈现灰色），并显示如图所示提示信息“已到最后一条记录！”。否则刷新表单，并设置“上一条”按钮可用。 （2）如果浏览到文件头，使“上一条”按钮不可用，并显示提示信息“已到第一条记录！”。否则刷新表单，并设置“下一条”按钮可用。 （3）单击“退出”按钮时从内存中释放本表单。 请编写“下一条”、“上一条”和“退出”按钮的单击事件代码。;skip if eof() =messagebox(已到最后一条记录) this.enabled=.f. skip -1 else thisform.refresh mand2.enabled=.t. endif;skip -1 if bof() =messagebox(已到第一条记录) this.enabled=.f. else thisform.refresh mand1.enabled=.t. endif ;标签控件一般用于显示文本。 常用属性有： BackStyle：决定标签是否透明。 AutoSize：决定是否将大小调整到恰好容纳文本。 Caption：定义标签显示的文本。 FontSize：定义标签文本字的大小。FontName：定义标签文本的字体。如设置该属性的值为：楷体。 ForeColor：定义标签文本字的颜色。 Wordwrap:显示在标签中的文本是否可换行。; 例:在表单中添加一个标签控件，并设置标签控件的下列属性值： Caption属性值为：欢迎各位读者！ FontSize：24 ForeColor：0,0,255 AutoSize：.T. 再在表单中添加两个命令按钮： 第一个命令按钮实现的功能为改变颜色； 第二个命令按钮实现的功能为改变大小。;第一个命令按钮Click事件的代码为： IF Thisform.Label1.Caption= 改变颜色 Thisform.Label1.ForeColor=RGB(0,0,255) Thisform.Label1.Caption=恢复颜色 ELSE Thisform.Label1.ForeColor=RGB(255,0,0) Thisform.Label1.Caption=改变颜色 ENDIF;第二个命令按钮Click事件的代码为： IF Thisform.Label1.Caption= 改变大小 Thisform.Label1.Fontsize=18 Thisform.Label1.Caption =恢复大小 ELSE Thisform.Label1.Fontsize=48 Thisform.Label1.Caption=改变大小 ENDIF;3、文本框控件;;例:设