Header 对 象

Header 对 象 - 图1为表格控件的列创建标头

语 法Header 说 明

Header 对 象 - 图2Header 对 象 - 图3Header 对 象 - 图4表格中的列包含有标头 标头在列的最上面显示列标题 并且可以响应事件

Header 对 象 - 图5Header 对 象 - 图6有关创建表格的 标头的 详细内容 请参阅 Microsoft Visual FoxPro 6.0 中文版程序员

Header 对 象 - 图7Header 对 象 - 图8Header 对 象 - 图9指南 Header 对 象 - 图10 的第十章 使用控件

属 性

A lignment

Application

BackColor
BaseClass

Caption

Class
ClassLibrary

Comment

FontBold
FontCondense

FontExtend

FontItalic
FontName

FontOutline

FontShadow
FontSize

FontStrikeThru

FontUnderline
ForeColor

Name

Parent
ParentClass

Tag
事 件
Click

DblClick

M iddleClick Event
M ouseDown M ouseWheel

M ouse Move RightClick

M ouseUp
方 法
AddProperty

ReadExpression

ReadMethod

Refresh

W riteExpression

ResetToDefault W riteMethod

SaveAsClass
示 例

Header 对 象 - 图11下列 示例 使用 Header 对象以及 Caption 属性更改表格中第一个标头的标题

Header 对 象 - 图12Header 对 象 - 图13Header 对 象 - 图14Header 对 象 - 图15Header 对 象 - 图16Header 对 象 - 图17将一个表格控件放在表单上 打开 Header 对 象 - 图18 Header 对 象 - 图19 Header 对 象 - 图20 Header 对 象 - 图21 Header 对 象 - 图22 Header 对 象 - 图23 Header 对 象 - 图24 Header 对 象 - 图25 表 并在表格中显示表中的内容 使用了 Caption 属性为 CUST_ID 字段指定不同的标头标题 (Customer ID) 将一个命令按钮放在表单上 以关闭该表单

Header 对 象 - 图26Header 对 象 - 图27Header 对 象 - 图28Header 对 象 - 图29Header 对 象 - 图30Header 对 象 - 图31Header 对 象 - 图32使用了 SetAll 方法 以及 DynamicBackColor 属性 以指定记录的背景颜色 在表格中 如果一个记录的编号是偶数 则该记录的 DynamicBackColor 属性为白色 否则DynamicBackColor 为绿色

CLOSE ALL && 关闭表和数据库

OPEN DATABASE (HOME(2) + 'data\testdata')

USE customer IN 0 && 打开 Customer 表

frmMyForm = CREATEOBJECT('form') && 创建一个表单

frmMyForm.Closable = .f. && 禁止 window 弹出菜单

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && 增加命令按钮

frmMyForm.AddObject('grdGrid1','Grid') && 增加表格控件

frmMyForm.grdGrid1.Left = 25 && 调整表格位置

frmMyForm.grdGrid1.SetAll("DynamicBackColor", ; "IIF(MOD(RECNO Header 对 象 - 图33 Header 对 象 - 图34 , 2)=0, RGB(255,255,255) ;

, RGB(0,255,0))", "Column") && 将白和绿的记录调换

Header 对 象 - 图35Header 对 象 - 图36Header 对 象 - 图37Header 对 象 - 图38Header 对 象 - 图39frmMyForm.grdGrid1.Visible = .T. && 显示表格控件frmMyForm.cmdCommand1.Visible =.T. && 显示 "Quit" 命令按钮frmMyForm.grdGrid1.Column1. .Caption = 'Customer ID'

frmMyForm.SHOW && 显示表单

READ EVENT && 启动事件程序

DEFINE CLASS cmdMyCmdBtn AS CommandButton && 创建命令按钮

Caption = '\<Quit' && 给命令按钮增加标题Cancel = .T. && 默认取消命令按钮 (Esc 键 ) Left = 125 && 命令按钮列

Top = 210 && 命令按钮行

Height = 25 && 命令按钮高

PROCEDURE Click

Header 对 象 - 图40CLEAR EVENT && 终止 2 事件程序 关闭表单

CLOSE ALL && 关闭表和数据库

ENDDEFINE

请 参 阅

Column 对 象 , CREATE FORM, CREATE CLASS, DEFINE CLASS, Grid 控 件