gracias vtdeleon por la anotacion, se me olvido el table.open.
las variables de tipo boolean como se definen en delphi??
trate de poner error:Bolean; pero boolean no aparece en negrita
Aki os dejo mi codigo:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
cadena:String;
error:String;
begin
if Edit1.Text =''then
begin
cadena:='Debe introducir un Usuario';
error:= 'TRUE';
end;
if Edit2.Text ='' then
begin
error:= 'TRUE';
if cadena <>'' then
cadena:= cadena +' y una Contraseña.'
else cadena:='Debe introducir una Contraseña.';
end;
if error='TRUE'then
MessageDlg(cadena,mterror,[mbOk],0)
else
begin
ZTable1.Open;
ZTable1.First;
if not ZTable1.Locate('usuario', Edit1.Text, []) then
MessageDlg('Usuario incorrecto, Por favor verifique',mterror,[mbOk],0)
else if not ZTable1.Locate('password', Edit2.Text, []) then
MessageDlg('Contraseña incorrecta, Por favor verifique',mterror,[mbOk],0)
else Form2.showmodal; ZTable1.Close;
end
end;]
ahora me gustaría que el form1 desapareciera, probé a poner donde puse la linea de comentario form1.Fee;
y de echo se elimina pero resulta que al cerrar el otro form (form2) me sale un error,
si alguien pudiera ayudarme