ئhG F 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 gINIFILEDIRECTORYKc .1f(SetAccessRights) ! AskJeevesb "aAccessf!.b Result  LoginParams  NewPPIniFile IniFileNamef sUserNamef sPasswordf sDummyf q lReturn  lSuccessf nUserIDf sUserIDf ShowLogFormf nRitec( FinalizationX,Td\! c( AccessRights!cDL D~@lUQjjIuMSVWMUE3Uhd0d U3EЍUE̍MкMЍEMhEPË0EкE׋}t2VM3Ҹ؍M$M8ED [3ɲL`Q4tQ4huhEкUЋQ4Q4E"Et(huhEкUЋQ4t t3E}RTE܍U؋EUUUȋQXuhUċQXučE̺E̍UUС}u3jf 3Ҹ(}E@| @UBHuR@`Q4`Q4EЋMغ|UЋQ4Q4 RTUDt׋E@| @UBHu3ZYYdhEĺEE֋_^[].iniC:\Progra~3\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 V}v Vv p>Zj"T $",   P P6( 4  < 2r $xxp)i     a