/source/utils/ConstsAndGlobals.pas

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