PageRenderTime 4ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/source/utils/ConstsAndGlobals.pas

http://sales-purchases.googlecode.com/
Pascal | 33 lines | 21 code | 8 blank | 4 comment | 0 complexity | 3953c2f84c11d989bfa0d97d9829c9f1 MD5 | raw file
 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.