BillsEditor/DB/HisRestorePointDM.dfm

object DMHisRestorePoint: TDMHisRestorePoint
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 508
  Top = 263
  Height = 304
  Width = 509
  object cdsOrgHisPoint: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspHisRestorePoint'
    Left = 72
    Top = 168
    object cdsOrgHisPointID: TIntegerField
      FieldName = 'ID'
    end
    object cdsOrgHisPointFixed: TBooleanField
      FieldName = 'Fixed'
    end
    object cdsOrgHisPointFileName: TWideStringField
      FieldName = 'FileName'
      Size = 100
    end
    object cdsOrgHisPointFileDir: TWideStringField
      FieldName = 'FileDir'
      Size = 200
    end
    object cdsOrgHisPointCreateTime: TDateTimeField
      FieldName = 'CreateTime'
    end
  end
  object cdsUnFixedPoint: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'Fixed'
        DataType = ftBoolean
      end
      item
        Name = 'FileName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'FileDir'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'IsExists'
        DataType = ftWideString
        Size = 2
      end
      item
        Name = 'CreateTime'
        DataType = ftDateTime
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforeDelete = cdsUnFixedPointBeforeDelete
    Left = 286
    Top = 37
    Data = {
      9C0000009619E0BD0100000018000000060000000000030000009C0002494404
      0001000000000005466978656402000300000000000846696C654E616D650100
      4A000000010005574944544802000200C8000746696C6544697202004A000000
      010005574944544802000200900108497345786973747301004A000000010005
      57494454480200020004000A43726561746554696D6508000800000000000000}
    object cdsUnFixedPointID: TIntegerField
      FieldName = 'ID'
    end
    object cdsUnFixedPointFixed: TBooleanField
      FieldName = 'Fixed'
    end
    object cdsUnFixedPointFileName: TWideStringField
      FieldName = 'FileName'
      Size = 100
    end
    object cdsUnFixedPointFileDir: TWideStringField
      FieldName = 'FileDir'
      Size = 200
    end
    object cdsUnFixedPointIsExists: TWideStringField
      FieldName = 'IsExists'
      Size = 2
    end
    object cdsUnFixedPointCreateTime: TDateTimeField
      FieldName = 'CreateTime'
    end
  end
  object cdsFixedPoint: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'Fixed'
        DataType = ftBoolean
      end
      item
        Name = 'FileName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'FileDir'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'IsExists'
        DataType = ftWideString
        Size = 2
      end
      item
        Name = 'CreateTime'
        DataType = ftDateTime
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforeDelete = cdsUnFixedPointBeforeDelete
    Left = 400
    Top = 39
    Data = {
      9C0000009619E0BD0100000018000000060000000000030000009C0002494404
      0001000000000005466978656402000300000000000846696C654E616D650100
      4A000000010005574944544802000200C8000746696C6544697202004A000000
      010005574944544802000200900108497345786973747301004A000000010005
      57494454480200020004000A43726561746554696D6508000800000000000000}
    object cdsFixedPointID: TIntegerField
      FieldName = 'ID'
    end
    object cdsFixedPointFixed: TBooleanField
      FieldName = 'Fixed'
    end
    object cdsFixedPointFileName: TWideStringField
      FieldName = 'FileName'
      Size = 100
    end
    object cdsFixedPointFileDir: TWideStringField
      FieldName = 'FileDir'
      Size = 200
    end
    object cdsFixedPointIsExists: TWideStringField
      FieldName = 'IsExists'
      Size = 2
    end
    object cdsFixedPointCreateTime: TDateTimeField
      FieldName = 'CreateTime'
    end
  end
  object atHisRestorePoint: TADOTable
    TableName = 'HisRestorePoints'
    Left = 73
    Top = 25
  end
  object dspHisRestorePoint: TDataSetProvider
    DataSet = atHisRestorePoint
    UpdateMode = upWhereKeyOnly
    Left = 75
    Top = 97
  end
end