Hola barto,
vamos a empezar un poco mas atras.
justamente como comentas, tenes que modificar el dpr de tu proyecto, para que en vez de que cree y ejecute tu formulario principal primero comience con la ventana del password.
(no tengo el dephi a mano, asi que puede a ver algun error de sintaxis)
Código Delphi
[-]
Application.Initialize;
Application.CreateForm(TDataModule, DataModule);
FormPassword := TFormPassword.Create; if FormPassword.ShowModal = mrOk then begin
FormPassword.Free; Application.CreateForm(TForm1, Form1); Application.Run;
end;
Ahora en el click del boton Conectar hacemos esto:
Código Delphi
[-]
DataModule.IBDatabase.Params.Values['USER_NAME'] := EditUser.Text;
DataModule.IBDatabase.Params.Values['PASSWORD'] := EditPassword.Text;
try
DataModule.IBDatabase.Open;
except
MessageDlg(...); end;
if DataModule.IBDatabase.Connected then
begin
ModalResult := mrOk; end;
Aca lo que necesitas
Suerte