Validando:que me hace falta?

[Elite237]

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]

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]]

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

[[eduarcol]]

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

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

Empezado por Elite237

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

en el showmessage faltan los parametros fijate en el segundo

Empezado por Elite237

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

antes del else no puede ir punto y coma

[Elite237]

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]

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]]

En el evento on post error Edit1.Clear;

[roman]

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