ئhGm_WdAXrSysServiceRecord.DFM>dCurrEditXf TCurrencyEdit94Kg.TCurrencyEdit 7gTCustomNumEdit.SetTextgTCustomNumEdit.GetValuegTCustomNumEdit.SetValuecdToolEditXcdMaskZkcdDBTablesZkfTQuery-g.TQueryg TQuery.CreategTDBDataSet.SetDatabaseName !~cdStdCtrlsZkfTEditBfTLabel@ULfTButtonTf TComboBoxo*g.TEditg.TLabel>8g.TButtonpt@g .TComboBoxɵgTCustomComboBox.SetItemIndexRlgTCustomComboBox.GetItemIndexJlcdDialogsZkcdFormsZkfTFormNbg.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.AutoScrollEnabledhgTCustomForm.Hidej-cdControlsZkgTWinControl.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?_cdGraphicsZkcdClassesZkgTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0cdSysUtilsZkgTrim~ g CurrToStr`bgIntToStrJ 7gStrToIntcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fBooleanNcfInteger|ofString8f AnsiString8fCurrency,eigTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋Rg SetLengthgIncgFalse1og@DynArraySetLengthX,Tdg @LStrCatNX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg @LStrCat3X,TdgCopyg @LStrCopyX,Tdg@LStrClrgLengthg@LStrLen?gBreakgTrue1oceDbZkg TDataSet.Open4gTDataSet.FieldByName4gTDataSet.Close4g TDataSet.Next4ceSysEditServiceIDXc*.2*.3*.4 *.5"&.TSysServiceRecordForm$*TSysServiceRecordFormĪ & SysServiceRecordForm%& .6f(( TSysServiceRecordForm.FormCreatemA *!Self&!Sender q ncountfc(%TSysServiceRecordForm.SetRecordStatusm*!Self&!Valuec(%TSysServiceRecordForm.GetRecordStatusm !Self& Resultc((TSysServiceRecordForm.SetFormCaptionNamem*!Self&!Valuec((TSysServiceRecordForm.GetFormCaptionNamem !Self&#Resultc(TSysServiceRecordForm.SetUpMDFm*!Self&!Valuec(TSysServiceRecordForm.GetUpMDFm !Self&#Resultc(TSysServiceRecordForm.SetUpEndm*!Self&!Valuec(TSysServiceRecordForm.GetUpEndm !Self&#Resultc( TSysServiceRecordForm.SetDownMDFm*!Self&!Valuec( TSysServiceRecordForm.GetDownMDFm !Self&#Resultc( TSysServiceRecordForm.SetDownEndm*!Self&!Valuec( TSysServiceRecordForm.GetDownEndm !Self&#Resultc(#TSysServiceRecordForm.SetLineLengthm*!Self&!Valuec(#TSysServiceRecordForm.GetLineLengthm !Self&#Resultc(TSysServiceRecordForm.SetCostm*!Self&!Value"c(TSysServiceRecordForm.GetCostmP !Self& Resultfc( TSysServiceRecordForm.SetCost100mP*!Self&!Value"c( TSysServiceRecordForm.GetCost100mP !Self& Resultfc(!TSysServiceRecordForm.SetInvoicedmP*!Self&!Value"c(!TSysServiceRecordForm.GetInvoicedmP !Self& Resultfc(TSysServiceRecordForm.SetNom*!Self&!Valuec(TSysServiceRecordForm.GetNom !Self&#Resultc(TSysServiceRecordForm.SetPartm*!Self&!Valuec(TSysServiceRecordForm.GetPartm !Self&#Resultc( TSysServiceRecordForm.SetDrawingm*!Self&!Valuec( TSysServiceRecordForm.GetDrawingm !Self&#Resultc(TSysServiceRecordForm.SetMaken*!Self&!Valuec(TSysServiceRecordForm.GetMake n !Self&#Resultc(TSysServiceRecordForm.SetChn*!Self&!Valuec(TSysServiceRecordForm.GetChn !Self&#Resultc( TSysServiceRecordForm.SetMuxLinkn*!Self&!Valuec( TSysServiceRecordForm.GetMuxLinkn !Self&#Resultc($TSysServiceRecordForm.SetServiceLinkn*!Self&!Valuec($TSysServiceRecordForm.GetServiceLinkn !Self&#Resultc(TSysServiceRecordForm.SetMuxn*!Self&!Valuec(TSysServiceRecordForm.GetMuxn !Self&#Resultc(!TSysServiceRecordForm.SetBearerID n*!Self&!Valuec(!TSysServiceRecordForm.GetBearerID n !Self& Result sValuefc(#TSysServiceRecordForm.SetBearerName n*!Self&!Valuec(#TSysServiceRecordForm.GetBearerName n !Self&#Resultc( TSysServiceRecordForm.SetSpeedIDn*!Self&!Value sSelectedf iCountc( TSysServiceRecordForm.GetSpeedIDn% !Self& Result nSelectedc($TSysServiceRecordForm.SetModemTypeIDn*!Self&!Value sSelectedf iCountc($TSysServiceRecordForm.GetModemTypeIDn% !Self& Result nSelectedc(TSysServiceRecordForm.SetLineIDn*!Self&!Valuec(TSysServiceRecordForm.GetLineIDn !Self& Resultc(!TSysServiceRecordForm.SetLineNamen*!Self&!Valuec(!TSysServiceRecordForm.GetLineNamen !Self&#Resultc($TSysServiceRecordForm.SetAuthorityIDn*!Self&!Value sSelectedf iCountc($TSysServiceRecordForm.GetAuthorityIDn% !Self& Result nSelectedc('TSysServiceRecordForm.SetVirtualCableIDn*!Self&!Valuec('TSysServiceRecordForm.GetVirtualCableIDn !Self& Resultc()TSysServiceRecordForm.SetVirtualCableNamen*!Self&!Valuec()TSysServiceRecordForm.GetVirtualCableNamen !Self&#Resultc(#TSysServiceRecordForm.SetMnemonicIDn*!Self&!Value sSelectedf iCountc(#TSysServiceRecordForm.GetMnemonicIDn% !Self& Result nSelectedc( TSysServiceRecordForm.btnOkClickm**!Self&!Senderc($TSysServiceRecordForm.btnCancelClickm**!Self&!Senderc( FinalizationX,Td\! *c(SysServiceRecord!*cE(,E(.E(0E(2G&F%%!j,edtNo ,lblNo! , lblBearerID1 , edtBearerIDA ,lblUpMDFQ ,edtUpMDFa ,lblCostq ,lblPart ,edtPart , lblBearerName , edtBearername ,lblUpEnd ,edtUpEnd , lblCost100 , lblModemType , lblDownMDF , edtDownMDF , lblDownEnd! , edtDownEnd1 , lblInvoicedA , lblDrawingQ , edtDrawinga ,lblSpeedq ,lblCh ,edtCh ,lblMux ,edtMux ,lblMake ,edtMake , lblAuthority ,btnOk , btnCancel  , lblLineLength , edtLineLength! ,edtCost1 , edtCost100A , edtInvoicedQ , cbMnemonic a , lblMnemonicq ,cbModemTypeDescription ,cbSpeedDescription ,cbAuthorityDescription - FormCreate1- btnOkClick-btnCancelClick%,ValueRecordStatus , aMnemonicID , aModemTypeID ,aSpeedID , aAuthorityID" -SetRecordStatusE-GetRecordStatusQ-SetFormCaptionName]-GetFormCaptionNamei-SetUpMDFu-GetUpMDF-SetUpEnd-GetUpEnd- SetDownMDF- GetDownMDF- SetDownEnd- GetDownEnd- SetLineLength- GetLineLength-SetCost-GetCost- SetCost100- GetCost100- SetInvoiced- GetInvoiced)-SetNo5-GetNoA-SetPartM-GetPartY- SetDrawinge- GetDrawingq- SetMuxLink- GetMuxLink-SetServiceLink-GetServiceLink-SetMux-GetMux-SetCh-GetCh-SetMake}-GetMake- SetBearerID- GetBearerID- SetBearerName- GetBearerName- SetSpeedID)- GetSpeedID=-SetModemTypeIDM-GetModemTypeIDa- SetLineIDq- GetLineID}- SetLineName- GetLineName-SetAuthorityID-GetAuthorityID-SetVirtualCableID-GetVirtualCableID-SetVirtualCableName-GetVirtualCableName- SetMnemonicID- GetMnemonicID 0 RecordStatusUQE0FormCaptionNameYi]0UpMDF]u0UpEnda0DownMDFe0DownEndi0 LineLengthm0NoqA50PartuYM0Costy0Cost100}0Invoiced)0Drawingqe0Make}0Ch0MuxLink0Mux0 ServiceLink0BearerID0 BearerName0SpeedID=)0 ModemTypeIDaM0LineID}q0LineName0 AuthorityID0VirtualCableID0VirtualCableName0 MnemonicID cD(@L4L6L8L:DDDDl5.2.3.4.5L JJptx|*`edtNolblNo lblBearerID edtBearerIDlblUpMDFedtUpMDFlblCostlblPartedtPart lblBearerName edtBearernamelblUpEndedtUpEnd lblCost100 lblModemType lblDownMDF edtDownMDF lblDownEnd  edtDownEnd lblInvoiced lblDrawing edtDrawinglblSpeed lblCh$edtCh(lblMux,edtMux0lblMake4edtMake8 lblAuthority<btnOk@ btnCancelD lblLineLengthH edtLineLengthLedtCostP edtCost100T edtInvoicedX cbMnemonic\ lblMnemonic`cbModemTypeDescriptiondcbSpeedDescriptionhcbAuthorityDescription FormCreate btnOkClickbtnCancelClickTSysServiceRecordFormTSysServiceRecordFormLqSysServiceRecordU RecordStatusVFormCaptionNameWUpMDFXUpEndYDownMDFZDownEnd[ LineLength\No]Part^Cost_Cost100`InvoicedaDrawingbMakecChdMuxLinkeMuxf ServiceLinkgBearerIDh BearerNameiSpeedIDj ModemTypeIDkLineIDlLineNamem AuthorityIDnVirtualCableIDoVirtualCableNamep MnemonicIDU3QQQQSV3Uhd0d βغQ4Q4Q4u,0RT@PpR@@Q4Q4Q4lQ43EX3ҋQ4pU3ɉ {UQXuhUQXuEUXQ4ERTpMxR@Q4Q4u,0RT@PtR@Q4Q4(Q43E`3ҋQ4tU3ɉ OUQXU`Q4ERTtMtR@Q4DQ4u,0RT@PxR@`Q4DQ4(Q43Ed3ҋQ4xU3ɉ OUQXUdQ4ERTxMtR@Q4Q4u,0RT@P|R@Q4Q4Q43Eh3ҋQ4|U3ɉ OUQXUhQ4ERT|Mt3ҋ3ZYYdhE^[]dbPPdataSELECT Count(*) AS nMaxFROM tServiceMnemonicWHERE Active = 1nMax#SELECT ID, ServiceCode, DescriptionORDER BY ServiceCode ServiceCode - DescriptionID FROM rModem=SELECT ID, RTRIM(CAST(TextValue AS varchar)) AS "Description"ORDER BY TextValueFROM rBearerSpeed;SELECT ID, RTRIM(CAST(TextValue AS varchar)) AS DescriptionFROM tCableInst:SELECT ID, RTRIM(CAST(AuthNo AS varchar)) AS "Description"ORDER BY AuthNolÊlUjjSV3UhZd0d UMEpU3ZYYdhaE^[YY]Service Record for UjSV3UhLd0d VUE3ZYYdhSE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU 3ZYYdhNE^[Y]UjSV3UhGd0d U E3ZYYdhNE^[Y]UjSV3UhGd0d UUH3ZYYdhNE^[Y]UjSV3UhGd0d UHE3ZYYdhNE^[Y]UjS3UhHd0d u uEUL3ZYYdhOE[Y]S؋L $<$,$YZ[@FUm5$<$P]@FS؋P $<$,$YZ[@FUm5$<$T]@FS؋T $<$,$YZ[@FUjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU43ZYYdhNE^[Y]UjSV3UhGd0d U4E3ZYYdhNE^[Y]UjSV3UhGd0d UU$3ZYYdhNE^[Y]UjSV3UhGd0d U$E3ZYYdhNE^[Y]UjSV3UhGd0d UU,3ZYYdhNE^[Y]UjSV3UhGd0d U,E3ZYYdhNE^[Y]UjS3UhId0d UU3ZYYdhPE[Y]UjjS3Uhid0d UEUEu3 E3ZYYdhpEE[YY]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3Uhud0d |BUdRJ| B3x;4ud@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d d|%UdEUEu3 x3ZYYdhEE^[YY]UjSV3Uhud0d |BU`RJ| B3t;4u`@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d `|%U`EUEu3 t3ZYYdhEE^[YY]UjSV3Uhud0d ~BUhRJ| B3|;4uh@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d h|%UhEUEu3 |3ZYYdhEE^[YY]UjSV3Uhud0d ~BUXRJ| B3p;4uX@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d X|%UXEUEu3 p3ZYYdhEE^[YY]Sز[S3ҋ[U3Uh%d0d 3ZYYdh,]Ã-m% ((((!!!%!!!8dfjb~BJLRZP^|FHVT\t:<>@DNlvX`hnpr!% 1""%V&(*,%%6!62QE>i]Du0044:A5*YM..4)6qe4}.*4,<6:=)4aM<}q26<BF :1"1 1 1 1 1$10  1 1 1 1$t1 1 10810 ( 1 1$10  1 1 1$t1H10   1 1$10  1 1 1$t1H10   1 1$10  1 1 1$t1H10 $E1  EQ]"] ] ] Rii"$i uu u (   (   (   (   ( (  *$  *$ ) )*55 5 AA(A MM M YY(Y ee e qq(q }} } (   (   (  (    ( ))(d.&) =="0(<= MM(d.&M aa"0(<a q}(d.& "0(< (d.&   "0(<  Ex %Ex 11-1 5- 5q=#6    j     & :  j    & P:  j    & P:  j    & P:V   6F2t 2j 2j 2j 2j 2j 2j 2j 2j 2j 2j ,r  06 06 02j 2j 2j 2j 2j 2j 2j 2j 2j 2j   2j 2j ,t 02 b 2j 2j 26@ 2R` 26@ 2R`8   F26@ 2R`8    26@ 2R` `u &a)5%%%%%% %  %"%$%&%(%*%,%.%0%2% 4%"6%$8%&:%(<%*>%,@%.B%0D%2F%4H%6J%8L%:N%<P%>R%@T%BV%DX%FZ%H\%J^%L`%Nb%Pd%Rf%Th1lj%Vjnl= %Xl%pnY %Zn%\t%^v%`x%bz%d|E}%fQ%h]%ji%lu%n%p%r %t%v1%xE%zY%|m%~%%%%%%) %5!%A5%MI%Y]%eq%q%%%%%%9%M%ĕ%ơ%}ʙ%ʉ̭%a%Х%%%) %=U%M޽%a %qm %} % % % % %1 %y % % % %   %% %%%%%!%%%)%-%1%5%9%=%A%E%I%M%Q%U%Y%]%e%m% q% u%}%%)5v9=AIaM}UYa*emqy}i  1;5*E]mc  !$%-a1 9=!E+I9QCYUI];aaimqui+ynbÂ)&9i Qca  !%-1 59Ai EYI]Qi UY]eFi m uym         61     <     &!= )-Y 1q A1` 056=V=5E`IMI M Q@UU ]`0a6e6aei`0m2q2mqu`0y2}2y}`022`022`022`022`022`022`022`022`022@,@ <@  <@ <@!!<)@- -<5`092=29=A`0E2I2EIM`0Q2U2QUY`0]2a2]ae`0i2m2imq`0u2y2uy}`022`022`022`022    `022`022@,@0b`022`0!2%2!%)0-212919-9-19-1=0A2ILAIAIA I M0Q2U2]U]Q]QU]QUa0e2mLememe m q }   02202L      022 0 2L     @&%@))&1 5 a