/source/utils/ConstsAndGlobals.pas

http://sales-purchases.googlecode.com/ · Pascal · 33 lines · 21 code · 8 blank · 4 comment · 0 complexity · 3953c2f84c11d989bfa0d97d9829c9f1 MD5 · raw file

  1. unit ConstsAndGlobals;
  2. interface
  3. uses
  4. Classes, Dialogs, SysUtils, Windows, RegistryUtils, RegistryKeys, inifiles;
  5. Const
  6. G_SERVER_NAME = 'DEVTESTSERV\sql2005';
  7. G_DATABASE_NAME = 'WorkPlan';
  8. /// User Role
  9. // G_DATABASE_USER = 'hans';
  10. // G_DATABASE_PWD = 'hans';
  11. /// Admin Role
  12. G_DATABASE_USER = 'WorkPlanAdmin';
  13. G_DATABASE_PWD = 'WorkPlanAdmin';
  14. G_DATABASE_SPI = False;
  15. G_MAX_LOGIN_COUNT = 3;
  16. var
  17. G_APP_PATH :String; /// Pfad zum Application
  18. G_APP_NAME :String; /// Application-Name
  19. G_REPORTS_PATH :String; /// Pfad zum Report-Verzeichnis
  20. implementation
  21. initialization
  22. G_APP_PATH := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
  23. G_APP_NAME := 'Sales/Purchases';
  24. G_REPORTS_PATH := IncludeTrailingBackslash(G_APP_PATH + 'reports');
  25. end.