Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Validando:que me hace falta? (https://www.clubdelphi.com/foros/showthread.php?t=46335)

Elite237 29-07-2007 04:29:55

Validando:que me hace falta?
 
Hola de nuevo a todos.

Una pregunta (otra vez de validación) como le hago o que codigo debo introducir para que no me deje escribir por asi decirlo el mismo nivel de trabajo. Les mando el codigo que introduci:

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if Depto.Locate('clave',Edit1.Text[]) then
begin
mensaje:= Application.MessageBox('La clave ya existe');
end;
else
begin
Depto.Insert;
Depto.FieldValues['clave']:=Edit1.Text;
Depto.FieldValues['nombre']:=Edit2.Text;
Depto.FieldValues['descripcion']:=Edit3.Text;
Depto.FieldValues['jefe']:=Edit4.Text;
Depto.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
mensaje:=Application.MessageBox('Los datos se guardaron con éxito!','Mensaje de Confirmación');
end;
end;

Elite237 29-07-2007 04:32:19

Este es el error que me manda
 
Por cierto el error que me manda es este:

[Error] Unit7.pas(59): Expression expected but ']' found
[Error] Unit7.pas(61): Not enough actual parameters
[Error] Unit7.pas(63): ';' not allowed before 'ELSE'
[Fatal Error] Project1.dpr(36): Could not compile used unit 'Unit7.pas'

Caral 29-07-2007 04:37:24

Hola Elite237
Y no te parecen demasiados errores para un solo paso?:D ;)
Que es lo que necesitas hacer, explicalo un poco mas.
Recuerda indicar que componentes y base de datos usas.:)
Saludos

eduarcol 29-07-2007 04:46:29

Tengo que volverte a insistir lee la guia de estilo y utiliza las etiquetas para encerrar el codigo y se haga mas legible, te aseguro que mas de uno te ayudara

Cita:

Empezado por Elite237
[Error] Unit7.pas(59): Expression expected but ']' found

Eso se debe a que luego de Edit1.Text debe ir una coma antes de las opciones del locate

Cita:

Empezado por Elite237
[Error] Unit7.pas(61): Not enough actual parameters

en el showmessage faltan los parametros fijate en el segundo

Cita:

Empezado por Elite237
[Error] Unit7.pas(63): ';' not allowed before 'ELSE'

antes del else no puede ir punto y coma

Elite237 29-07-2007 04:49:38

Ok
 
Utilizo un ADOConnection, ADOTable.

Mi base de datos es SQL SERVER 2000
y quiero validar el edit de manera que si introduzco un valor que ya esta almacenado en mi base de datos no me deje, y me mande el erro de que ya existe ese dato..

Me explico?

Elite237 29-07-2007 05:24:09

Problema resuelto...Ahora...
 
Ok....Muchas Gracias!!! Ya logré que me hiciera lo que pedia...

Y si no es mucho pedir, como le puedo hacer para que despues que me mande el error de que ya existe la clave, me limpie el edit de la clave???

eduarcol 29-07-2007 05:30:37

En el evento on post error Edit1.Clear;

roman 29-07-2007 19:50:09

Cita:

Empezado por Elite237
Y si no es mucho pedir, como le puedo hacer para que despues que me mande el error de que ya existe la clave, me limpie el edit de la clave???

Yo no borraría el dato, porque entonces el usuario puede no recordar cuál era y vuelva a introducirlo. Yo me limitaría a poner el foco en el Edit en cuestión y seleccionar todo el texto.

// Saludos


La franja horaria es GMT +2. Ahora son las 19:39:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi