Programacion

Codigo para buscar por:

Enlazar
DO FORM c:\marifoxpro\formularios\fmcursos.scx

Combo Click

IF THISFORM.COMbo1.Value="NUMERO DE RECORD" THEN
SELECT PACIENTES
SET ORDER TO NUMRECORD
GO TOPTHISFORM.Refresh
ELSE
IF THISFORM.COMbo1.Value="NOMBRE" THEN
SELECT PACIENTES
SET ORDER TO NOMPAC
GO TOP
THISFORM.Refresh
ENDIF
ENDIF

Combo Init

with this
.AddItem("- Elegir -").Value="- Elegir -"
ENDWITH


Text de al lado

Interachange

SELECT PACIENTES

SET ORDER TO NOMPAC && NOMPAC
IF THISFORM.COMBO1.Value="NOMBRE"
SET KEY TO ALLTRIM(THIS.VALUE)
GO TOPTHISFORM.Refresh
ENDIF

SET ORDER TO NUMRECORD
IF THISFORM.COMBO1.Value="NUMERO DE RECORD"
SET KEY TO ALLTRIM(THIS.VALUE)
GO TOP
THISFORM.Refresh
ENDIF
Salir
THISFORM.Release

Guardar
SELECTpacientes
SET ORDER TO numrecord
APPEND BLANK
REPLACE numrecord WITH THISFORM.TEXT1.Value
REPLACE nompac WITH THISFORM.TEXT2.Value
REPLACE DIRpac WITH THISFORM.TEXT3.Value
REPLACE TELpac WITHTHISFORM.TEXT4.Value
REPLACE e_mail WITH THISFORM.TEXT5.Value
REPLACE fecnac WITH THISFORM.TEXT6.Value
REPLACE sexo WITH THISFORM.combo1.Value
REPLACE sangre WITH THISFORM.TEXT7.Value
REPLACEcobertura WITH THISFORM.TEXT8.Value
REPLACE notas WITH THISFORM.edit1.Value

THISFORM.TEXT1.Value=""
THISFORM.TEXT2.Value=""
THISFORM.TEXT3.Value=""
THISFORM.TEXT4.Value=""
THISFORM.TEXT5.Value=""THISFORM.TEXT6.Value=""
THISFORM.combo1.Value=""
THISFORM.TEXT7.Value=""
THISFORM.TEXT8.Value=""
THISFORM.edit1.Value=""

THISFORM.Release


Buscar prof especifico


Boton buscar

SELECT* FROM PROFESORES;
WHERE (NOMBRE+TELEFONO+CEDULA+MOVIL) LIKE "'%"+ALLTRIM(THIS.Parent.TEXT1.VALUE)+"%'";
INTO CURSOR CDATOS


IF _TALLY=0 && NO HAY DATOS
thisform.grdBusca.RecordSource=" "ELSE
thisform.grdBusca.RecordSource="CDatos"
ENDIF

thisform.Refresh()

-------------------------------------------------------------------

GRID1 DBLCLICK
COLUMN1
TEXT1...