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