>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > > > ************************************************** >*-- Form: form1 (c:\mmviscollect\test.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 01/28/05 01:48:07 PM >* >DEFINE CLASS form1 AS form > > > Top = 17 > Left = 16 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT text1 AS textbox WITH ; > StrictDateEntry = 0, ; > Format = "KD", ; > Height = 23, ; > Left = 36, ; > Top = 48, ; > Width = 160, ; > Name = "Text1" > > > PROCEDURE Load > SET NOTIFY ON > ENDPROC > > > PROCEDURE text1.Init > this.Value = DTOT({}) > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** >>
PUBLIC oform1 >> >>oform1=NEWOBJECT("form1") >>oform1.Show >>RETURN >> >> >>DEFINE CLASS form1 AS form >> >> >> Caption = "Form1" >> Name = "Form1" >> >> >> ADD OBJECT text1 AS textbox WITH ; >> ControlSource = "temp.dt1", ; >> Height = 23, ; >> Left = 70, ; >> Top = 43, ; >> Width = 194, ; >> Name = "Text1" >> >> >> PROCEDURE Load >> SET strictdate to 0 >> CREATE TABLE temp (dt1 t) >> INSERT INTO temp VALUES (DATETIME()) >> ENDPROC >> >> >>ENDDEFINE