BillsEditor/DB/ProjectPropertyDM.dfm

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