close all
clear all
set deleted on
set exac on
set talk off
set dohistory off
set safe off
set stat bar off
set date to YMD
SET CENTURY ON
frmsjlr = CREATEOBJECT("sjlrForm") &&FORM参数设置
frmsjlr.buffermode=2
frmsjlr.visible=.t.
frmsjlr.caption='T112表'
frmsjlr.HEIGHT=454
frmsjlr.width=633
use t112
go top
frmsjlr.addobject("LABEL1","LABEL")
frmsjlr.LABEL1.visible=.t.
frmsjlr.LABEL1.caption='代码 '
frmsjlr.LABEL1.top=6
frmsjlr.LABEL1.left=10
frmsjlr.LABEL1.width=7*12
frmsjlr.addobject("TEXTBOX1","TEXTBOX")
frmsjlr.TEXTBOX1.visible=.t.
frmsjlr.TEXTBOX1.top=3
frmsjlr.TEXTBOX1.left=95
frmsjlr.TEXTBOX1.width=9*7
frmsjlr.TEXTBOX1.value=t112.frdm
frmsjlr.TEXTBOX1.controlsource=t112.frdm
frmsjlr.Show
READ EVENTS
return
DEFINE CLASS sjlrform AS form
PROCEDURE Destroy
CLEAR EVENTS
ENDPROC
ENDDEFINE