El Poder De Lo Simple

Eliminar

For1 load
PUBLIC vcodigo, vnombre, vapellido, vcelular, vfacebook, vtwitter
STORE 0 TO vnombre, vapellido
vcodigo=SPACE(6)
vnombre=SPACE(35)
vapellido=SPACE(25)
vcelular=SPACE(10)vfacebook=SPACE(40)
vtwitter=SPACE(15)
OPEN DATABASE directorio.dbc
SELECT 1
USE dirtel.dbf


Text_codigo interactive change
vcodigo=alltrim(this.value)

Text_codigo gotfocusthis.backColor=RGB(255,255,0)

Text_codigo lostfocus
this.BackColor=RGB(255, 255, 255)

Text_nombre interactive change
vnombre=alltrim(this.value)

Text_nombre gotfocusthis.backColor=RGB(255,255,0)

Text_nombre lostfocus.
this.BackColor=RGB(255, 255, 255)

Text_apellido interactive change
vapellido=alltrim(this.value)

Text_apellido gotfocus
this.backColor=RGB(255,255,0)Text_apellido lostfocus
this.BackColor=RGB(255, 255, 255)

Text_celular interactive change
vcelular=alltrim(this.value)

Text_celular gotfocus
this.backColor=RGB(255,255,0)Text_celular lostfocus
this.BackColor=RGB(255, 255, 255)

Text_facebook interactive change
vfacebook=alltrim(this.value)

Text_facebook gotfocus
this.backColor=RGB(255,255,0)
Text_facebooklostfocus
this.BackColor=RGB(255, 255, 255)

Text_twitter interactive change
vtwitter=alltrim(this.value)

Text_twitter lostfocus
this.BackColor=RGB(255, 255, 255)

Text_twitter gotfocusthis.backColor=RGB(255,255,0)

command1 click
thisform.text_codigo.Enabled=.t.
thisform.text_nombre.Enabled=.t.
thisform.text_apellido.Enabled=.t.
thisform.text_celular.Enabled=.t.thisform.text_facebook.Enabled=.t.
thisform.text_twitter.Enabled=.t.
thisform.command2.Enabled=.t.
thisform.text_codigo.value=" "
thisform.text_nombre.value=" "
thisform.text_apellido.value=" "thisform.text_celular.value=" "
thisform.text_facebook.value=" "
thisform.text_twitter.value=" "
thisform.text_codigo.SetFocus

command2 click
SELECT 1
GO TOP
LOCATE FOR dir_codigo=vcodigo
IF !...