unit ConstsAndGlobals;



interface



uses

  Classes, Dialogs, SysUtils, Windows, RegistryUtils, RegistryKeys, inifiles;



Const

  G_SERVER_NAME       = 'DEVTESTSERV\sql2005';

  G_DATABASE_NAME     = 'WorkPlan';

  /// User Role

//  G_DATABASE_USER     = 'hans';

//  G_DATABASE_PWD      = 'hans';

  /// Admin Role

  G_DATABASE_USER     = 'WorkPlanAdmin';

  G_DATABASE_PWD      = 'WorkPlanAdmin';

  G_DATABASE_SPI      = False;

  G_MAX_LOGIN_COUNT   = 3;



var

  G_APP_PATH      :String;  /// Pfad zum Application

  G_APP_NAME      :String;  /// Application-Name

  G_REPORTS_PATH  :String;  /// Pfad zum Report-Verzeichnis



implementation





initialization

  G_APP_PATH      := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));

  G_APP_NAME      := 'Sales/Purchases';

  G_REPORTS_PATH  := IncludeTrailingBackslash(G_APP_PATH + 'reports');



end.