ئhGG]kNX8g .TCheckBox9g.TButtonpt@cdDialogsZkg MessageDlghf TMsgDlgTypeg mtWarningqeDf TMsgDlgBtn"b$gmbOK| BcdFormsZkfTFormNbf TCloseAction.g.TForm8NgTCustomForm.AlignControls6j-gTCustomForm.CreateParams9j-gTCustomForm.CreateWindowHandle:j-gTCustomForm.CreateWnd;j-gTCustomForm.DefineProperties=j-gTCustomForm.DestroyWindowHandle>j-gTCustomForm.GetClientRectBj-gTCustomForm.GetFloatingDj-gTCustomForm.LoadedEj-gTCustomForm.NotificationFj-gTCustomForm.PaintWindowHj-gTCustomForm.QueryInterfaceJj-gTCustomForm.ReadStateKj-gTCustomForm.SetParentBiDiModeNj-gTCustomForm.SetParentPj-gTCustomForm.UpdateActionsQj-gTCustomForm.ValidateRenameSj-gTCustomForm.WndProcUj-gTCustomForm.Createj-gTCustomForm.CreateNewj-gTCustomForm.Destroyj-gTCustomForm.AfterConstructionj-gTCustomForm.BeforeDestructionj-gTCustomForm.CloseQueryj-gTCustomForm.DefaultHandlerj-gTCustomForm.SetFocusj-gTCustomForm.SetFocusedControlj-gTCustomForm.ShowModalj-gTCustomForm.WantChildKeyj-g%TScrollingWinControl.AdjustClientRecthg&TScrollingWinControl.AutoScrollEnabledhcdControlsZkgTWinControl.UpdateLastResize)gTWinControl.AssignTo*gTWinControl.CanAutoSize*gTWinControl.CanResize*gTWinControl.ConstrainedResize*gTWinControl.CreateHandle*gTWinControl.DestroyWnd*gTWinControl.GetClientOrigin1*gTWinControl.GetControlExtents3*gTWinControl.GetDeviceContext4*gTWinControl.ShowControlN*gTWinControl.Invalidate*gTWinControl.Repaint*gTWinControl.SetBounds*gTWinControl.Update*gTControl.GetDragImages_gTControl.GetEnabled_g!TControl.GetFloatingDockSiteClass_gTControl.SetDragMode_gTControl.SetEnabled_gTControl.SetName_gTControl.SetBiDiMode_gTControl.InitiateAction_gTControl.SetTextc_gTControl.GetText?_gmrOkDСcdGraphicsZkcdClassesZkf TStringList-SB>gTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0g .TStringList<*cdSysUtilsZkgTrim~ g UpperCase~ gIntToStrJ 7gStrToIntcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fBooleanNcf AnsiString8fInteger|ofString8gTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgFalse1ogTObject.Create݋RgPosg@LStrPosX,Tdg TObject.Free݋Rg@LStrAsgX,Tdg@LStrClrg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg@LStrCatX,Tdg @LStrAddRefX,TdgCopyg @LStrCopyX,Tdg @LStrLAsgX,Tdg @LStrCat3X,Tdg@LStrCmpX,TdgTrue1ogLengthg@LStrLen?g @LStrCatNX,TdceDbZkg TDataSet.Open4gTDataSet.FieldByName4g TDataSet.Next4gTDataSet.Close4ce PPSysMainXgMainForm9ceGenFnsXg TestForAudit Ut7g ProveIntegerM:g SetAuditStartwg SetAuditDataog SetAuditIDg SaveAudit[>ceDataModXc&.TSysEditUserFunctionFormI7 *TSysEditUserFunctionForm3rK" SysEditUserFunctionForm榙K" .2f$(#TSysEditUserFunctionForm.FormCreate_o &!Self"!Sender qFormCreate ActionDescriptionfc("TSysEditUserFunctionForm.FormClose_oL&!Self"!Sender"Actionc("TSysEditUserFunctionForm.SetAppend_o&!Self"!Valuec("TSysEditUserFunctionForm.SetUserID_o&!Self"!Valuec("TSysEditUserFunctionForm.GetUserID_o !Self" Resultc(%TSysEditUserFunctionForm.SetUserLogin_o&!Self"!Valuefc(%TSysEditUserFunctionForm.GetUserLogin_o, !Self"#Resultc($TSysEditUserFunctionForm.SetPassword_o&!Self"!Valuefc($TSysEditUserFunctionForm.GetPassword_o, !Self"#Resultc(%TSysEditUserFunctionForm.SetFirstName_o&!Self"!Valuefc(%TSysEditUserFunctionForm.GetFirstName_o, !Self"#Resultc(#TSysEditUserFunctionForm.SetSurname_o&!Self"!Valuefc(#TSysEditUserFunctionForm.GetSurname_o, !Self"#Resultc($TSysEditUserFunctionForm.SetFunction_o&!Self"!Valuef sTempf lTruncatedfc(#TSysEditUserFunctionForm.btnOkClick_o&!Self"!Sender q sValuef lReturnf sAuditInsertf sAuditFieldf sAuditValuef AuditActionf sStartedf sErrorf DeleteStringf sCodedPasswordf sUserFunctionfc( FinalizationX,Td\! &c(SysEditUserFunction!&cG" FI Ej, edtUserLogin , edtPassword! , edtFirstName1 , edtSurnameA , lblUserLoginQ , lblPassworda , lblFirstNameq , lblSurname ,cbF1 ,cbF2 ,cbF3 ,cbF4 ,cbF5 ,cbF6 ,cbF7 ,cbF8 ,cbF9 ,cbF10! ,cbF111 ,cbF12A ,cbF13Q ,cbF14a ,cbF15q ,cbF16 ,btnOk , btnCancel - FormCreateU- FormClosei- btnOkClick, AmendString , AuditString ,slFields ,slValues ,lAppend , sUserName ,sUserID , sFunction! ,lAudit1 ,AuditActionUpdateA ,AuditActionDeleteQ ,AuditActionInserta ,Original_UserLoginq ,Original_Password ,Original_FirstName ,Original_Surname ,Original_ChkF1 ,Original_ChkF2 ,Original_ChkF3 ,Original_ChkF4 ,Original_ChkF5 ,Original_ChkF6 ,Original_ChkF7 ,Original_ChkF8 ,Original_ChkF9 ,Original_ChkF10 ,Original_ChkF11 ,Original_ChkF12 ,Original_ChkF13 ,Original_ChkF14 ,Original_ChkF15 ,Original_ChkF16 - SetAppendy- SetUserID- GetUserID- SetUserLogin- GetUserLogin- SetPassword- GetPassword- SetFirstName- GetFirstName- SetSurname- GetSurname- SetFunction0 AppendModeUy0UserIDY0 UserLogin]0Passworda0 FirstNamee0Surnamei0 Function1To16mcD$@lqL z| @DHPTX\`dh2 edtUserLogin edtPassword edtFirstName edtSurname lblUserLogin lblPassword lblFirstName lblSurnamecbF1cbF2cbF3cbF4cbF5cbF6cbF7cbF8cbF9cbF10 cbF11cbF12cbF13cbF14cbF15 cbF16$btnOk( btnCancel FormCreate FormClose btnOkClickTSysEditUserFunctionFormTSysEditUserFunctionFormL\SysEditUserFunction<U AppendModeVUserIDW UserLoginXPasswordY FirstNameZSurnameH[ Function1To16UjjSV3Uhd0d Ɔ<,048UU@DHβغ8LQ4`Q4tQ4UQXEUU~$UQXUPhU~$UQXUT3U~"UQXUX0L3ZYYdhE^[YY]0000000000000000dbPPdataSELECT * FROM tEvent#WHERE Description LIKE 'Reference%' DescriptionUPDATEidDELETEINSERT tUserFunctionS؋,48[UjS3Uh|d0d ˆ<t#UEU!UEU3ZYYdhE[Y] (ADD) (EDIT)UjSV3UhGd0d UUD3ZYYdhNE^[Y]ËDUQSU؋E3UhUd0d \U\3ZYYdh\E[Y]SV؋֋^[UQSU؋E3UhUd0d `U`3ZYYdh\E[Y]SV؋֋^[UQSU؋E3UhUd0d dUd3ZYYdh\E[Y]SV؋֋^[UQSU؋E3UhUd0d hUh3ZYYdh\E[Y]SV؋֋^[US3ɉMMU؋E3UhMd0d EUUE}t&EPEdUEHUEPHE‹EPHE‹EPHE‹EPHE‹EPHE‹EPHE‹EPHE‹EPHE‹EP HE‹EP HE‹EP HE‹ EP HE‹EP HE‹EPHE‹EPHE‹EPHE‹ lmnopqrstu vwxyz {3ZYYdhTEE[]00000000000000000UjjIuSVW3Uh d0d <tE苓XE苓P˲$EŰE̍UEt%ŰE̍UEuE8E<xQ4Q4hŰE̍UuhEкUЋQ4t u3ER@}u E}<U؋,Q4,Q4hXŰE̍UuhluhxEкUЋ,Q4Lt5EPEPEPU苃@0PM3ҸŰE̍UEuE9huhxELt0PM3ҸŰE̍UEuETuhuhELt.0PM3Ҹ0P 3ҸU,Q4,LR@(Q4Q4hUȋuhEкUЋQ4<Q4TUЋQXEЍU0PMUE,R@`,Q4,Q4hUȋuhEкUЋ,Q4<,Q4,ttE3htRTUuhEԺ},R@,Q4,Q4Uԋ,Q4,t*EйUMк8W t*EйUMк8W t*EйUMк8W t*EйUMк8W t*EйUMк8W t*Eй UMк8W t*Eй,UMк8W t*Eй8UMк8W t*EйDUMк8W t*EйPUMк8W t*Eй\UMк8W t*EйhUMк8W t*EйtUMк8W t*EйUMк8W t*EйUMк8W t*EйUMк8W Lu0PMUE[DtDH}E຤E(,Q4ŰE̍UhuhxEкUЋ,Q4LtWEPEPEPU苃@U싃DE䋓\t0PM䋓\ŰE̍Uh uhxEкUЋ,Q4Lt*E䋓`t0PM䋓`$ŰE̍UEu8,Q4(hTuhxEкUЋ,Q4Lt*E䋓dt0PM䋓dŰE̍UEul,Q4(huhEкUЋ,Q4Lt*E䋓ht0PM䋓hEЋDUЋ,Q4,Lt0PMUEEܺE܋Q4EЋDUЋE܋Q4E܋Q4,R@,Q4,Q4htDhEԺUԋ,Q4LtBEEE0R@EPEPEP U苃@tcluZ,EйUMк8W Lt|0P 3Ҹ buPltGU܋0 8W Lt0P3ɺ  tcmuZ,EйUMк8W Lt|0PL 3Ҹ buPmtGU܋X 8W Lt0P3ɺL  tcnuZ,EйUMк8W Lt|0Pt 3Ҹ buPntGU܋ 8W Lt0P3ɺt  tcouZ,EйUMк8W Lt|0P 3Ҹ buPotGU܋ 8W Lt0P3ɺ  tcpuZ,EйUMк8W Lt|0P 3Ҹ buPptGU܋ 8W Lt0P3ɺ  tcquZ,Eй UMк8W Lt|0P 3Ҹ buPqtGU܋ 8W Lt0P3ɺ  tcruZ,Eй,UMк8W Lt|0P!3Ҹ buPrtGU܋ !8W Lt0P3ɺ! tcsuZ,Eй8UMк8W Lt|0PFHNVLZv|z~BDRPXp68:<@JhrT\djlnEU"i T II<E08y:28684@UU(    !U  U U U U$ U&U U,U U,U U,( U )&U i yy8y y y V   (" (" (" (" 0"-$$2 T T T T T T T T T T T T T T T y l0:   $$ 6  * D2 B   P1" 5 4 5 4 5 56 :  &$  &9*=   &0  : 4 L 44444444444444444444444444444444D=  2 P19. 5 J. 5$J. 5$J. 5 6 <= ,  0  >81P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N ..  5P 4* 5N N  5.9*=P6$ QMMQM QQ Q2$$$$F     >"H"H"Dd,N|J2j @\ @\ @\ @\  TXnnnnnnnnnnnnnnnn(((((((((((((((| `D2   6   >,24,2:,0  d > *  d $ f  $F&$F$F$F$F$F$F$F$F$F$F$F$F$F$F$F$4: 2P> 42P242$P242$P24B*<  : >6F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*06F46*0* m"AIQIIIIII I  I"I$I&I(I*I,I.I0I2I 4I"6I$8I&:I(I,@I.BI0DI2FI4HULJI6JiNLAI8LPNI:NI<TI>VI@XIBZID\IF^IH`IJbILdINfIPhIRjITlIVnIXpIZrI\tI^vI`xIbzId|If~IhIjIlInIpIrItIvIxIzy]I|yI~IIIIIII%I=IQIIIIIIIIMY]aemq=uA}]]ќy  C_%AQ Y ]  ! %)-15!9%=)A-E1I5MiU`0Y2aaqY9i@mmHy`},,<} `022@@2@`0  &&@2@`0  &&@2@`0  &&@2@`0  &&@ 2TQ`ppDjjM Q a