PUBLIC otabform1 SET CLASSLIB TO f:\d\ds\comun\cls\tabclass.vcx ADDITIVE CREATE TABLE TITAS26 (ctitas c(2), titas c(40)) INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c1","DESC C1") INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c2","DESC C2") INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c3","DESC C3") GO TOP otabform1=NEWOBJECT("tabform1") otabform1.Show RETURN ************************************************** *-- Form: tabform1 (c:\form1.scx) *-- ParentClass: *-- BaseClass: form *-- Marca de hora: 02/26/03 05:11:14 PM * DEFINE CLASS tabform1 AS form DoCreate = .T. Name = "Tabform1" ADD OBJECT txtctitas AS textbox WITH ; Comment = "", ; ControlSource = "titas26.ctitas", ; Height = 23, ; Left = 213, ; MaxLength = 2, ; TabIndex = 2, ; Top = 99, ; Width = 38, ; Name = "txtCtitas" ADD OBJECT lblctitas AS label WITH ; AutoSize = .T., ; WordWrap = .T., ; BackStyle = 0, ; Caption = "Ctitas", ; Left = 173, ; Top = 99, ; Width = 32, ; TabIndex = 1, ; Name = "lblCtitas" ADD OBJECT txttitas AS textbox WITH ; Comment = "", ; ControlSource = "titas26.titas", ; Height = 23, ; Left = 211, ; MaxLength = 40, ; TabIndex = 4, ; Top = 140, ; Width = 288, ; Name = "txtTitas" ADD OBJECT lbltitas AS label WITH ; AutoSize = .T., ; WordWrap = .T., ; BackStyle = 0, ; Caption = "Titas", ; Left = 176, ; Top = 140, ; Width = 27, ; TabIndex = 3, ; Name = "lblTitas" ADD OBJECT command1 AS commandbutton WITH ; Top = 204, ; Left = 216, ; Height = 27, ; Width = 84, ; Caption = "SKIP", ; Name = "Command1" PROCEDURE txttitas.ProgrammaticChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE txttitas.InteractiveChange WAIT WINDOW "HOLA" ENDPROC PROCEDURE command1.Click SELECT TITAS26 SKIP THISFORM.Refresh() ENDPROC ENDDEFINE * *-- EndDefine: tabform1 **************************************************
Quidquid latine dictum sit, altum sonatur