excl.prg

来自「品质量管理系统 版本1.00 产品质量管理系统（简称JSMIS0）是基于Wi」· PRG 代码 · 共 38 行

*-------- 调用EXCL代码程序 -----------
frmMyForm = CREATEOBJECT('form')                  && 创建表单
frmMyForm.CLOSABLE=.F.                            && 禁止关闭控制框
frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && 添加命令按钮
frmMyForm.AddObject("oleObject","oleExcelObject") && 添加OLE对象
frmMyForm.cmdCommand1.Visible=.T.                 && 显示命令按钮
frmMyForm.oleObject.Visible=.T.                   && 显示OLE对象
frmMyForm.oleObject.SIZABLE=.F.
frmMyForm.oleObject.Height = 190                  && OLE 高度
frmMyForm.oleObject.Width  = 800                  && OLE 宽度
frmMyForm.oleObject.LEFT = 25                     && OLE 
frmMyForm.oleObject.TOP  = 15                     && OLE 
frmMyForm.Show                                    && 显示表单
frmMyForm.BORDERSTYLE=2                           && 固定边框
*frmMyForm.WINDOWTYPE=1                            && 模式1
frmMyForm.MAXBUTTON=.F.                           && 禁止最大化控制框
frmMyForm.MINBUTTON=.F.                           && 禁止最小化控制框
frmMyForm.HEIGHT=300                              && 表单高度
frmMyForm.WIDTH=558                               && 表单宽度
frmMyForm.AUTOCENTER=.T.                          && 表单居中显示
frmMyForm.oleObject.DoVerb(-1)                    && -1 编辑
READ EVENTS                                       && 触发事件驱动

DEFINE CLASS oleExcelObject as OLEControl
	OleClass ="Excel.Sheet"                       && 服务器名
	DocumentFile = "C:\MY DOCUMENTS\BOOK2.XLS"
ENDDEFINE

DEFINE CLASS cmdMyCmdBtn AS CommandButton         && 创建命令按钮
	Caption = '\<R返回'                           && 标题
	Cancel = .T.                                  && <ESC>取消
	Left = 225                                    && 位置：列
    Top = 272                                     && 位置：行
	Height = 25                                   && 高度
	PROCEDURE Click
		CLEAR EVENTS                              && 停止事件驱动
ENDDEFINE