kryna
31-03-2005, 23:47:06
hola a todos...
Estoy haciendo un programa que contiene 3 tablas t1, t2, t3 en las que inserto, modifico, elimino los registros de estas tablas mediante las instrucciones tabla.insert... tabla.edit...tabla.delete... y me funciona bien..
La consulta la estoy realizando mediante Tquery y tambien me funciona..
El problema viene cuando consulto un registro para luego eliminarlo o modificarlo, ya que luego que regresa la busqueda los DBedit estan como bloqueados.. y no permiten escritura.. a que se debe esto
Este es el codigo de busqueda
if editorcodigo <> nil then
qrycodigo.Close;
qrycodigo.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
Dscodigo.dataset := qrycodigo;
qrycodigo.Open;
el codigo del query es
SELECT *FROM tb1, t2, t3
WHERE (tb1.c1 = t2.c2) AND (t2.c2 = t3.c2) AND (t2.c2 = :Codigo)
El gestor es paradox
Espero me haya podido explicar
Estoy haciendo un programa que contiene 3 tablas t1, t2, t3 en las que inserto, modifico, elimino los registros de estas tablas mediante las instrucciones tabla.insert... tabla.edit...tabla.delete... y me funciona bien..
La consulta la estoy realizando mediante Tquery y tambien me funciona..
El problema viene cuando consulto un registro para luego eliminarlo o modificarlo, ya que luego que regresa la busqueda los DBedit estan como bloqueados.. y no permiten escritura.. a que se debe esto
Este es el codigo de busqueda
if editorcodigo <> nil then
qrycodigo.Close;
qrycodigo.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
Dscodigo.dataset := qrycodigo;
qrycodigo.Open;
el codigo del query es
SELECT *FROM tb1, t2, t3
WHERE (tb1.c1 = t2.c2) AND (t2.c2 = t3.c2) AND (t2.c2 = :Codigo)
El gestor es paradox
Espero me haya podido explicar