Guardar muchos muchos Tedit
Hola gente voy explicar mi problema espero ser claro.
Estoy desarrollando un sistema Oontologico y me quede trabado en lo que se llama FICHA PERIODENTAL que funciona asi:
Tengo 96 TEdit cada 3 TEdit corresponden a la primer pieza Dentaria los tres siguientes a la siguiente pieza dentaria y asi hasta completar todas las piezas dentarias , en los TEdit se escriben Numeros.
Lo que necesito es un procedimiento que se dispare al presionar el boton guardar y que controle que si al menos uno de los 3 Edit tiene un valor crear un registro en una tabla asi:
NroDiente Valor1 Valor 2 Valor 3
18 TEdit1 TEdit2 TEdit3
36 TEdit2 TEdit2 TEdit3
48 TEdit3 TEdit3 TEdit3
Si ninguno de los 3 TEdit que se corresponden a unapieza dentaria no crtear niungun registro. Utilizo Delphi 7, Firebird 2.1 y DBX para conexion.
Quizas con esto se entienda mas:
mi problema es que debo comprobar los 3 TEdit que pertenecen al Diente y recien si alguno de los tres tiene algo
grabar un registro para ese diente por ejemplo:
Diente 18
Edit1 := 5;
Edit2 := 0;
Edit3 := 0;
Diente 36
Edit1 := 0;
Edit2 := 0;
Edit3 := 0;
En la tabla debo de guardar los tres Edit asi:
Diente Dato1 Dato2 Dato3
18 5 0 0
Para el diente 36 Ningun registro y asi con todos.
Esperando una respuesta pronto y hallan entendido y ser claro.
Saludos
Mario
|