ئhGC \4Xg .TStringList<*gTStrings.GetValueF*cdSysInitZkcdSystemZkfBooleanNcf AnsiString8fInteger|ogParamStrfString8gCopygLengthg@LStrLen?g @LStrCopyX,Tdg TObject.Free݋RgTObject.Create݋RgFalse1ogTrue1og @LStrCat3X,Tdg@LStrCmpX,Tdg @LStrLAsgX,Tdg @LStrCatNX,Tdg @LStrArrayClrX,Tdg@LStrClrg@HandleFinallyX,TdceDbZkg TDataSet.Open4gTDataSet.FieldByName4gTDataSet.Close4g TDataSet.Next4ce TelstraTempXgTelsFormYgTTelsForm.SetUserIDc:3gTTelsForm.SetOperatorIDa:3gTTelsForm.SetCaptionb:3ceLoginFrmXgGetLoginParamsd!ceDataModXc .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ЍUEPEȃEUЍEMhEPË0EкE׋}tWM3Ҹ}t MM,E3ɲ@TQ4hQ4h|uhEкUЋQ4Q4E"Et(huhEкUЋQ4t t3E}RTE܍U؋EUUUȋQXuhUċQXučE̺E̍UUС}u3jf 3Ҹ}E@| @UBHuR@TQ4TQ4EЋMغpUЋQ4Q4 RTUDt׋E@| @UBHu3ZYYdhEĺEE֋_^[]ini1GetLogGeneral 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 : B$Dx N xx xx PF, H&x r8x.x.hR" $x& x x xxT&x0xxT*^Tx`& hj hl x` x x`0Thnb"xx dx x,x N&x$^x`(d b8FFxVXV Zv Zv t>Z*\"T ( ",   P P6( 4  < 2r&(x"z |"$&(*,.024468:<Ԕ xxp qQ Y    a