crear login con adotabla1
holo espero que me puedan ayudar estoy creando un login pero no me esta funcionado es que lo tengo que crear con adotabla1
procedure TFlogin.Button1Click(Sender: TObject);
begin
if ADOTAble1.FieldByName('Field').AsString:=edit1.Text;Table1.FindKey then
if adoTable1clave.Value = Edit2.Text then
Close
else
ShowMessage('clave incorrecta!')
else
ShowMessage('Usuario no existe!');
end;
procedure TFlogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
|