object ProjPropertyDM: TProjPropertyDM OldCreateOrder = False Left = 410 Top = 315 Height = 270 Width = 293 object atProjProperty: TADOTable TableName = 'ProjProperty' Left = 40 Top = 20 end object dspProjProperty: TDataSetProvider DataSet = atProjProperty UpdateMode = upWhereKeyOnly Left = 41 Top = 94 end object cdsProjProperty: TClientDataSet Aggregates = <> Params = <> ProviderName = 'dspProjProperty' Left = 44 Top = 165 object cdsProjPropertyID: TIntegerField FieldName = 'ID' end object cdsProjPropertyName: TWideStringField FieldName = 'Name' Size = 128 end object cdsProjPropertyItemValue: TWideStringField FieldName = 'ItemValue' Size = 50 end end object atProjData: TADOTable TableName = 'ProjData' Left = 180 Top = 19 end object dspProjData: TDataSetProvider DataSet = atProjData Left = 180 Top = 96 end object cdsProjData: TClientDataSet Aggregates = <> Params = <> ProviderName = 'dspProjData' Left = 179 Top = 168 object cdsProjDataBuildProjectID: TIntegerField FieldName = 'BuildProjectID' end object cdsProjDataBuildProjectName: TWideStringField FieldName = 'BuildProjectName' Size = 50 end object cdsProjDataProjectLocation: TWideStringField FieldName = 'ProjectLocation' Size = 50 end object cdsProjDataBuildUnit: TWideStringField FieldName = 'BuildUnit' Size = 50 end object cdsProjDataAuthorUnit: TWideStringField FieldName = 'AuthorUnit' Size = 50 end object cdsProjDataBidder: TWideStringField FieldName = 'Bidder' Size = 50 end object cdsProjDataAuthor: TWideStringField FieldName = 'Author' Size = 50 end object cdsProjDataAuthorCertificate: TWideStringField FieldName = 'AuthorCertificate' Size = 50 end object cdsProjDataAuditor: TWideStringField FieldName = 'Auditor' Size = 50 end object cdsProjDataAuditorCertificate: TWideStringField FieldName = 'AuditorCertificate' Size = 50 end object cdsProjDataBudgetProjectName: TWideStringField FieldName = 'BudgetProjectName' Size = 50 end object cdsProjDataEditRange: TWideStringField FieldName = 'EditRange' Size = 50 end object cdsProjDataEditDate: TDateTimeField FieldName = 'EditDate' end object cdsProjDataMachineBBFeeRate: TFloatField FieldName = 'MachineBBFeeRate' end object cdsProjDataFZFeeRate: TFloatField FieldName = 'FZFeeRate' end object cdsProjDataIsCalcGYFeeRate: TBooleanField FieldName = 'IsCalcGYFeeRate' end object cdsProjDataRoadLength: TFloatField FieldName = 'RoadLength' end object cdsProjDataAvgMaintMonth: TFloatField FieldName = 'AvgMaintMonth' end object cdsProjDataRoadClass: TIntegerField FieldName = 'RoadClass' end object cdsProjDataIsNew: TBooleanField FieldName = 'IsNew' end object cdsProjDataLandForm: TIntegerField FieldName = 'LandForm' end object cdsProjDataDJZG: TFloatField FieldName = 'DJZG' end object cdsProjDataYJZG: TFloatField FieldName = 'YJZG' end object cdsProjDataNightZG: TFloatField FieldName = 'NightZG' end object cdsProjDataRaiseRateByYear: TFloatField FieldName = 'RaiseRateByYear' end object cdsProjDataRaiseYear: TFloatField FieldName = 'RaiseYear' end object cdsProjDataBuildManageFeeFile: TIntegerField FieldName = 'BuildManageFeeFile' end end end