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 **************************************************What is the difference?
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