visualfoxpro企业会计电算化实例

**************************************************************
**               浏览复选框子程序.prg                       **
**************************************************************         
frmtest=CREATEOBJECT('GridForm')                 && 从类定义中创建对象
frmtest.SHOW                                     && 显示表单 方法
READ EVENTS                                      && 激活事件
RETURN                                           && 返回调用程序

DEFINE CLASS grdproducts AS GRID                 && 类定义 隔栅
	LEFT=40                                      && 距离左边界 属性
	TOP=30                                       && 距离顶 属性
	WIDTH=695                                    && 宽 属性
	HEIGHT=370                                   && 高 属性
	VISIBLE=.T.                                  && 可视 属性
	ROWHEIGHT=18                                 && 表格控制中行的高度
	COLUMNCOUNT=2                                && 列的个数
	column1.CONTROLSOURCE='校验框'               && 列1的字段名
	column2.CONTROLSOURCE='明细名称'             && 列2的字段名
	column1.SPARSE=.F.                           && 只影响活动单元格 属性
	PROCEDURE INIT                               && 初始化过程
		THIS.column2.WIDTH=375                   && 列1宽
		THIS.column1.WIDTH=38                    && 列2宽
		THIS.column1.header1.CAPTION='校验框'     && 列1标题
		THIS.column2.header1.CAPTION='明细名称'   && 列2标题
		THIS.column1.ADDOBJECT('CHECK1','CHECKBOX')  && 运行时在容器中添加对象：复选框
		THIS.column1.CURRENTCONTROL='CHECK1'     && 显示和接受活动单元数据的控件名
		THIS.column1.check1.VISIBLE=.T.          && 列2复选框可见
		THIS.column1.check1.CAPTION=''           && 列2标题空
	ENDPROC                                      && 
ENDDEFINE                                        && 隔栅类定义结束

DEFINE CLASS cmd AS COMMANDBUTTON                && 命令按钮类定义
	LEFT=400                                     && 距离左边界 属性
	TOP=410                                      && 距离顶 属性
	WIDTH=80                                     && 宽 属性
	HEIGHT=30                                    && 高 属性
	VISIBLE=.T.                                  && 可视 属性
	CAPTION='确认'                               && 标题 
	FONTSIZE=20                                  && 字体大小
	FORECOLOR=RGB(255,0,255)                     && 前景颜色，洋红 
	PROCEDURE CLICK                              && 点击过程
		CLEAR EVENTS                             && 停止事件处理
	ENDPROC                                      && 
ENDDEFINE                                        && 命令按钮类定义结束

DEFINE CLASS gridform AS FORM                    && 表单类定义
	WIDTH=790                                    && 宽 属性
	HEIGHT=550                                   && 高 属性
	BACKCOLOR=RGB(0,255,0)                     && 背景颜色，黄
	CAPTION='网格 根据明细名称选择复选框'        && 标题
	ADD OBJECT grid1 AS grdproducts              && 增加隔山对象
	ADD OBJECT cmd1 AS cmd                       && 增加命令按钮对象
	PROCEDURE DESTROY                            && 失去焦点过程
		CLEAR EVENTS                             && 取消事件
	ENDPROC                                      && 
ENDDEFINE                                        && 表单类定义结束