Code: Select all
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
MSConnection1.Connect;
end;
Code: Select all
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
MSConnection1.Connect;
end;
Code: Select all
begin
if not MSConnectDialog1.Execute then
close;
end;
Code: Select all
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
if not MSConnectDialog1.Execute then
Application.Terminate;
end;