ئhG veC g .TStringList<*gTStrings.GetValueF*cdSysInitZkcdSystemZkfBooleanNcf AnsiString8fInteger|ofString8gParamStrg TObject.Free݋RgTObject.Create݋RgFalse1ogTrue1ogLengthg @LStrCat3X,Tdg@LStrCmpX,Tdg @LStrLAsgX,Tdg @LStrCatNX,Tdg @LStrArrayClrX,Tdg@LStrClrg@HandleFinallyX,TdceDbZkg TDataSet.Open4gTDataSet.FieldByName4gTDataSet.Close4g TDataSet.Next4ceMain gMainForm.|gTMainForm.SetUserID"agTMainForm.SetOperatorID agTMainForm.SetCaption!aceLoginFrm gGetLoginParamsd!ceDataMod ceConstantValues gINIFILEDIRECTORYf<c .1f(SetAccessRights)1 ! AskJeevesb "aAccessf!.b Result  LoginParams  NewPPIniFile IniFileNamef sUserNamef sPasswordf sDummyf q lReturn  lSuccessf nUserIDf sUserIDf ShowLogFormf nRitec( FinalizationX,Td\! c( AccessRights!cDL D~@l UQjjIuMSVWMUE3Uhd0d U3EЍUE̍MкMЍEMhEPË0EкE׋}t2VM3Ҹ ؍M4MHED [3ɲ\pQ4Q4huhEкUЋQ4Q4E"Et(huhEкUЋQ4t t3E}RTE܍U؋EUUUȋQXuh$UċQXučE̺E̍UUС}u3jf ,3Ҹ8}E@| @UBHuR@pQ4pQ4EЋMغUЋQ4Q4 RTUDt׋E@| @UBHu3ZYYdhEĺEE֋_^[].ini'C:\Docume~1\alluse~1\applic~1\ppsystem\1GetLogGeneral User Access USER NAMEPASSWORDdbPPdataSELECT * FROM tUserWHERE UserLogin LIKE ''AND Active = 1AND Password LIKE 'id FirstName Surname.User and Password not found. Access is denied.FROM tUserFunctionWHERE UserID = ORDER BY FunctionID FunctionIDU3Uh%d0d 3ZYYdh,]Ã-mxFx >x  x J xx xx L@. B&x nx0x0dN"$ &x( x x xxP&x0xxP*ZTx\& df dh x\ x x\0Pdj^"xx dx x,x J&x$Zx\(` ^8@@xRTR Vv Vv p>Zj"T $",   P P6( 4  < 2rU $xxp)i     a