{$R *.res}
begin
  Application.Initialize;
//      TfmSplashScreen.BeginLoading;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TdmRep, dmRep);
//  Application.MainFormOnTaskbar := True;
  if not DM.connect2DB then exit;
//      TfmSplashScreen.EndLoading;
  case dm.Login2system of
    -1:exit;
    0:MsgError('Неверный пароль');
    1:begin
      Application.CreateForm(TwhMainForm, whMainForm);
      Application.Run;
    end;
  end;
end.

{$R *.RES}

begin
  if ActivatePrevInstance(TMainPayDocsForm.ClassName, '') or
     not CheckIBClientMissing then Exit;

  Application.Initialize;
  Application.Title := 'Платежные Документы';

  AboutForm := TAboutForm.CreateAsSplash(Application);
  try
    Application.CreateForm(TMainDataModule, MainDataModule);
    AboutForm.Hide;

    if not MainDataModule.AttemptLogin then Exit;

    AboutForm.Show;
    AboutForm.Update;
    Sleep(1000);

    MainDataModule.LoadDefaults;

    Application.CreateForm(TMainPayDocsForm, MainPayDocsForm);

    AboutForm.Hide;
  finally
    AboutForm.Free;
  end;

  Application.Run;
end.