Hola.
Con respecto a la verificación del usuario y contraseña te sugiero usar componentes
TEdit en lugar de
TDBEdit. Y, suponiendo que realizaras la verificación de los datos cuando el usuario presiona el botón aceptar, podrías hacer algo así:
Código Delphi
[-]
...
implementation
function LoginAccepted(qy: TIBQuery; const nam, pwd: string): Boolean;
begin
qy.Close;
qy.SQL.Clear;
qy.SQL.Add('SELECT DES_USUARIO, PWD_USUARIO');
qy.SQL.Add('FROM SIS_USUARIOS WHERE DES_USUARIO = :NOMBRE');
qy.ParamByName('NOMBRE').AsString := nam;
qy.Open;
Result := not qy.IsEmpty and (qy.FieldByName('PWD_USUARIO').AsString = pwd);
qy.Close;
end;
Un ejemplo del uso:
Código Delphi
[-]
procedure TForm1.btnAceptarClick(Sender: TObject);
begin
if not LoginAccepted(Datamodule1.IBQPassword1, EditUsuario.Text, EditPassword.Text) then
raise Exception.Create('El usuario o la contraseña son inválidos.');
...
El punto
12 de la
guía de estilo, explicita que sólo se permite una pregunta por hilo, por favor abre otro nuevo con la consulta hacerca de como enlazar los
TDBLoockupComboBox con las tablas.
Saludos