Ventana user y password

[el_barto]

Upps pero no puedo cortar y pegar mi database por que en mi form1 hay objetos que necesitan estar conectados a mi database y cuando los pongo en true pues no me deja por que no tiene asignado database

[[maeyanes]]

Me imagino que en tu Form1 tienes también componentes IBDataSet, DataSource y similares, no?

Si es así, selecciona todos esos componentes junto con el IBDatabase y córtalos y pégalos en el DataModule, así todos tus componentes de acceso a datos quedarán en el mismo lugar. Cuando necesites asígnar alguno de estos componentes a un control (por ejemplo un DBGrid), solo agrega en el uses de la unidad en cuestion el DataModule y listo, estarán disponibles para usarse.

Saludos...

[el_barto]

Gracias tu ayuda es valiosisima, estas en lo cierto ahora si me deja poner en true mis objetos y no me afecto mi combobox mi mi grid pero ahora el puñetero programa me saca error en mi unit 2 precisamente cuando el boton conectar entra en funcion

procedure TForm2.Button1Click(Sender: TObject);
begin
DataModule.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
DataModule.IBDatabase1.Params.Values['PASSWORD'] := Edit2.Text;
try
DataModule.IBDatabase1.Open;
except
MessageDlg ('Error en el ingreso', mtwarning,[mbyes,mbno],0);
if DataModule.IBDatabase1.Connected then
begin
ModalResult := mrOk;
end;
end;
end.

[Error] Unit2.pas(46): ';' expected but '.' found
[Error] Unit2.pas(55): Declaration expected but end of file found
[Fatal Error] mejorproycombo.dpr(9): Could not compile used unit 'Unit2.pas'