Comparar edit con campo de mi tabla

[el_barto]

Que la tuvo muy dificil pasar de una ronda a otra por ejemplo en la primera ronda perdio con USA y eso dejo mucho que pensar de la seleccion Argentina, en la segunda ronda en el ultimo minuto le gano a Colombia con España fue un buen partido diria yo un partidazo con Brasil la tuvieron dura, con Nigeria tuvieron fortuna y un buen arquero y los penaltis fue la formula para marcar.
Argentina llevo los mejores jugadores a nivel suramericano pasando por encima a Brasil y al campeon suramericano Colombia, y pienso yo que no era ni para perder con USA ni para sufrir tanto en el resto del campeonato.

Ahh y gracias por la ayuda estuvo FULL

[el_barto]

Hola Fede mira como deje el codigo y funciona muy bien pero lo que no se como hacer es que para cuando entra por el IF me siga mostrando la form3

Código Delphi [-]
IBQuery1.SQL.Clear;
   IBQuery1.Close;
   IBQuery1.Sql.Text := 'select * from usuarios where user_name =' + Quotedstr (Edit1.text) + 'and user_pass =' + Quotedstr (Edit2.text);
   IBQuery1.Open;
   IBQuery1.Active:=True;
  if IBQuery1.IsEmpty then
     raise Exception.Create('Usuario o contraseña inválido')
  else begin
     MessageDlg ('SU USER O PASSWORD es correcto', mtWarning,[mbyes],0)

[delphi.com.ar]

Empezado por el_barto

no se como hacer es que para cuando entra por el IF me siga mostrando la form3

¿Y cuál es esta form3?

[el_barto]

el form3 es donde se pide el usuario y la contraseña es decir el form en donde se desarrolla el logueo, lo que quiero es que me siga llamando este form, por que en el project1 libero esta form asi:

Código Delphi [-]
begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);
  DataModule2.IBDatabase1.Params.Values['USER_NAME'] := 'sysdba';
   DataModule2.IBDatabase1.Params.Values['PASSWORD']  := 'masterkey';
   DataModule2.IBDatabase1.open;
   DataModule2.IBTransaction1.Active := True;
   DataModule2.IBDataSet1.Active := True;
  Application.CreateForm(TForm3, Form3);
  if form3.showmodal = mrok then
  begin
    form3.Free;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm4, Form4);
    Application.CreateForm(TForm5, Form5);
    Application.CreateForm(TForm6, Form6);
    Application.Run;
  end;
end.

El problema es que si el user esta mal me muestra el mensaje de error pero me deja pasar al menu principal, lo que deseo es que en el codigo anterior cuando entre por el IF me siga llamando esta misma form3

[delphi.com.ar]

Todo depende dónde pongas el código que te he pasado, no tienes que dejar que se ejecute un ModalResult = mrOk, ya sea por código o por la propiedad de algún botón o similar.

[el_barto]

Puessss ahora si que quede confundido.....

Código Delphi [-]
 
if form3.showmodal = mrok then
  begin
    form3.Free;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm4, Form4);
    Application.CreateForm(TForm5, Form5);
    Application.CreateForm(TForm6, Form6);
    Application.Run;
  end;

es la primera vez que trabajo con esto y estoy algo perdido y para serte sincero ya recorre en mi la deseperacion dado que no se como hacer para que showmodal sea distinto a mrok y no ingrese a este IF

[delphi.com.ar]

Los formularios modales se cierran automáticamente cuando cambia el ModalResult del mismo, este ModalResult es el resultado del método que has llamado: ShowModal.
Hay dos formas de cambiar este modal result, como Delphi es un verdadero RAD, te permite hacerlo visualente, asignando la propiedad ModalResult de algunos componentes como los TButton. Entonces cuando alguien hace click en ese TButton si no se produce un error en la ejecución del evento, este botón le asignara su ModalResult al formulario automáticamente. Si el botón "Aceptar" de tu loguin tiene ModalResult = mrOk, simplemente en su código podría ser el que escribiste anteriormente, si este botón no tiene ModalResult, simplemente cuando la evaluación del usuario es correcta, podrías asignarselo al Form:

Código Delphi [-]
  ...
  if IBQuery1.IsEmpty then
     raise Exception.Create('Usuario o contraseña inválido')
  else 
     ModalResult := mrOk;

Saludos!