/source/utils/ConstsAndGlobals.pas
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.