ÿ TSYSEDITSERVICEIDFORM0æTPF0TSysEditServiceIDFormSysEditServiceIDFormLeft×ToplWidthÓHeightCaptionSystem File: tServiceIDColor clBtnFace Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Heightõ Font.Name MS Sans Serif Font.Style OldCreateOrderOnClose FormCloseOnCreate FormCreate PixelsPerInch` TextHeight TLabellblIDLeftTopWidth Height CaptionIDTLabellblDescriptionLeft€TopWidth5Height Caption DescriptionTLabel lblServiceIDLeftTop0Width/Height Caption ServiceIDTLabel lblServiceLeft€Top0Width$Height CaptionServiceTLabellblServiceTypeIDLeftpTop0WidthGHeight Caption ServiceTypeIDTLabel lblActivityIDLeftpTopøWidth-Height Caption ActivityIDTLabel lblElementIDLeftpTop Width1Height Caption ElementIDTLabellblSubledgerIDLeftpTopHWidth;Height Caption SubledgerIDTLabel lblLocationIDLeftTop¨Width4Height Caption LocationIDTLabel lblPersonIDLeftpTop¨Width,Height CaptionPersonIDTLabellblCurrentRentLeftToppWidth9Height Caption CurrentRentTLabellblPreviousRentLeftTop˜WidthCHeight Caption Previous RentTLabellblSupplierAccountIDLeftTop€WidthYHeight CaptionSupplierAccountIDTLabellblCustomerCentreIDLeftTopÐWidthVHeight CaptionCustomerCentreIDTLabellblCustomerActivityIDLeftTopøWidthYHeight CaptionCustomerActivityIDTLabel lblCentreIDLeftpTopÐWidth*Height CaptionCentreIDTLabel lblCentreLeftØTopÐWidthHeight CaptionCentreTLabellblServiceTypeLeftØTop0Width<Height Caption ServiceTypeTLabel lblActivityLeftØTopøWidth"Height CaptionActivityTLabel lblElementLeftØTop Width&Height CaptionElementTLabel lblSubledgerLeftØTopHWidth0Height Caption SubledgerTLabel lblLocationLeft€Top¨Width)Height CaptionLocationTLabel lblPersonLeftØTop¨Width!Height CaptionPersonTLabellblCurrentCallsLeft€ToppWidth;Height Caption Current CallsTLabellblPreviousCallsLeft€Top˜WidthBHeight CaptionPrevious CallsTLabellblSupplierAccountLeft€Top€WidthNHeight CaptionSupplierAccountTLabellblCustomerCentreLeft€TopÐWidthKHeight CaptionCustomerCentreTLabellblCustomerActivityLeft€TopøWidthNHeight CaptionCustomerActivityTLabellblCustomerElementLeft€Top WidthRHeight CaptionCustomerElementTLabellblCustomerSubledgerLeft€TopHWidth\Height CaptionCustomerSubledgerTLabellblCustomerElementIDLeftTop Width]Height CaptionCustomerElementIDTLabellblCustomerSubledgerIDLeftTopHWidthgHeight CaptionCustomerSubledgerIDTLabel lblSACCNumberLeft(TopWidthHeight CaptionSACCTLabellblInstallationDateLeftpTop€WidthLHeight CaptionInstallation DateTLabellblTerminationDateLeftTop€WidthQHeight CaptionTermination DateTLabel lblPayTypeLeftTopXWidth*Height CaptionPayTypeTLabellblApplicationLeft€TopXWidth4Height Caption ApplicationTLabellblServiceCodeLeftpTopXWidth=Height Caption ServiceCodeTLabellblJobNoLeftpTop˜Width9Height Caption Job NumberTLabellblKpiDescriptionLeftØTop˜WidthIHeight CaptionKPI DescriptionTEditedtIDLeftTopWidthaHeightEnabledTabOrderTEditedtDescriptionLeft€TopWidth™HeightCharCase ecUpperCaseTabOrderTEdit edtServiceIDLeftTop@WidthaHeightCharCase ecUpperCaseTabOrderTEdit edtServiceLeft€Top@WidthÉHeightCharCase ecUpperCaseTabOrderTEditedtServiceTypeIDLeftpTop@WidthaHeightTabOrderTEdit edtActivityIDLeftpTopWidthaHeightTabOrderTEdit edtElementIDLeftpTop0WidthaHeightEnabledTabOrderTEditedtSubledgerIDLeftpTopXWidthaHeightTabOrderTEdit edtLocationIDLeftTop¸WidthaHeightTabOrder TEdit edtPersonIDLeftpTop¸WidthaHeightTabOrder TEditedtCurrentRentLeftTop€WidthaHeightEnabledTabOrderTEditedtPreviousRentLeftTop¨WidthaHeightEnabledTabOrderTEditedtSupplierAccountIDLeftTopWidthaHeightTabOrderTEditedtCustomerCentreIDLeftTopàWidthaHeightTabOrder TEditedtCustomerActivityIDLeftTopWidthaHeightTabOrderTEdit edtCentreIDLeftpTopàWidthaHeightTabOrderTEdit edtCentreLeftØTopàWidthÉHeightEnabledTabOrderTEditedtServiceTypeLeftØTop@WidthÉHeightEnabledTabOrderTEdit edtActivityLeftØTopWidthÉHeightEnabledTabOrderTEdit edtElementLeftØTop0WidthÉHeightEnabledTabOrderTEdit edtSubledgerLeftØTopXWidthÉHeightEnabledTabOrderTEdit edtLocationLeft€Top¸WidthÉHeightEnabledTabOrder TEdit edtPersonLeftØTop¸WidthÉHeightEnabledTabOrder TEditedtCurrentCallsLeft€Top€WidthaHeightEnabledTabOrderTEditedtPreviousCallsLeft€Top¨WidthaHeightEnabledTabOrder TEditedtSupplierAccountLeft€TopWidthÉHeightEnabledTabOrderTEditedtCustomerCentreLeft€TopàWidthÉHeightEnabledTabOrderTEditedtCustomerActivityLeft€TopWidthÉHeightEnabledTabOrderTEditedtCustomerElementLeft€Top0WidthÉHeightEnabledTabOrderTEditedtCustomerSubledgerLeft€TopXWidthÉHeightEnabledTabOrderTEditedtCustomerElementIDLeftTop0WidthaHeightTabOrderTEditedtCustomerSubledgerIDLeftTopXWidthaHeightTabOrderTEdit edtSACCNumberLeft(TopWidthyHeightCharCase ecUpperCaseTabOrderTButtonbtnOkLeft8TopÐWidthKHeightCaption&OkDefault TabOrder!OnClick btnOkClickTButton btnCancelLeft˜TopÐWidthKHeightCancel Caption&Cancel ModalResultTabOrder" TDateEditedtInstallationDateLeftpTopWidthyHeight NumGlyphsWeekends SunSatTabOrder# TDateEditedtTerminationDateLeftTopWidthyHeight NumGlyphsTabOrder$TEditedtServiceCodeLeftpTophWidth1HeightCharCase ecUpperCaseTabOrder%TEdit edtPayTypeLeftTophWidthaHeightCharCase ecUpperCaseTabOrder&TEditedtJobnoLeftpTop¨WidthaHeightCharCase ecUpperCaseTabOrder' TComboBox cbApplicationLeft€TophWidthÉHeight ItemHeight TabOrder( TComboBoxcbKpiDescriptionLeftØTop¨WidthÙHeight ItemHeight TabOrder)TButtonbtnSaveLeftØTopÐWidthKHeightCancel Caption&SaveTabOrder*OnClick btnSaveClickTButton btnDetailsLeft@TopÐWidthKHeightCancel Caption&DetailsTabOrder+OnClickbtnDetailsClickTQuery qApplication DatabaseNamedbPPdata SQL.StringsSELECT ID, DescriptionFROM tApplicationORDER BY DescriptionLeftTop  TDataSource dsApplicationDataSet qApplicationLeft(Top TQueryq DatabaseNamedbPPdataLeftðTop