object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'Default'
      OnAction = WebModule1DefaultAction
    end>
  Left = 194
  Top = 103
  Height = 151
  Width = 297
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{262828C4-EF43-4010-A07F-11B762844A85}'
    ServerName = 'RMD.clRMD'
    Left = 136
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    IndexFieldNames = 'Dep;Fam;Nam;Par'
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    OnCalcFields = ClientDataSet1CalcFields
    Left = 224
    Top = 8
    object ClientDataSet1Num: TAutoIncField
      FieldName = 'Num'
      ReadOnly = True
    end
    object ClientDataSet1Dep: TStringField
      FieldName = 'Dep'
      Size = 15
    end
    object ClientDataSet1Fam: TStringField
      FieldName = 'Fam'
      Required = True
    end
    object ClientDataSet1Nam: TStringField
      FieldName = 'Nam'
      Required = True
    end
    object ClientDataSet1Par: TStringField
      FieldName = 'Par'
      Required = True
    end
    object ClientDataSet1Year_b: TSmallintField
      FieldName = 'Year_b'
    end
    object ClientDataSet1Sex: TBooleanField
      DisplayLabel = #1055#1086#1083
      FieldName = 'Sex'
      DisplayValues = #1084';'#1078
    end
    object ClientDataSet1Age: TSmallintField
      DisplayLabel = #1042#1086#1079#1088#1072#1089#1090
      DisplayWidth = 4
      FieldKind = fkCalculated
      FieldName = 'Age'
      Calculated = True
    end
    object ClientDataSet1Count: TAggregateField
      FieldName = 'Count'
      Active = True
      Expression = 'Count(*)'
    end
    object ClientDataSet1MYear: TAggregateField
      FieldName = 'MYear'
      Active = True
      Expression = 'Avg(Year_b)'
      Precision = 3
    end
  end
  object DataSetProvider1: TDataSetProvider
    Left = 40
    Top = 8
  end
  object DataSetTableProducer1: TDataSetTableProducer
    Columns = <
      item
        FieldName = 'Dep'
        Title.Caption = #1054#1090#1076#1077#1083
      end
      item
        FieldName = 'Fam'
        Title.Caption = #1060#1072#1084#1080#1083#1080#1103
      end
      item
        FieldName = 'Nam'
        Title.Caption = #1048#1084#1103
      end
      item
        FieldName = 'Par'
        Title.Caption = #1054#1090#1095#1077#1089#1090#1074#1086
      end
      item
        FieldName = 'Year_b'
        Title.Caption = #1075'.'#1088'.'
      end
      item
        FieldName = 'Sex'
        Title.Caption = #1055#1086#1083
      end
      item
        FieldName = 'Age'
        Title.Caption = #1042#1086#1079#1088#1072#1089#1090
      end>
    Footer.Strings = (
      '</body>'
      '</html>')
    Header.Strings = (
      '<html>'
      '<h1>'#1050#1072#1076#1088#1086#1074#1099#1081' '#1089#1086#1089#1090#1072#1074'</h1>'
      '<body>')
    DataSet = ClientDataSet1
    TableAttributes.Border = 1
    Left = 48
    Top = 56
  end
  object DataSetPageProducer1: TDataSetPageProducer
    HTMLDoc.Strings = (
      '<html><body>'
      '<h1>'#1041#1072#1079#1072' '#1076#1072#1085#1085#1099#1093' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074'</h1>'
      '<table width="100%" Align="Left">'
      '<tr>'
      '  <td><strong>'#1047#1072#1087#1080#1089#1077#1081' - <#Count></strong></td>'
      '  <td><strong>'#1057#1088#1077#1076#1085#1080#1081' '#1074#1086#1079#1088#1072#1089#1090' - <#AvAge></strong></td>'
      '</tr>'
      '</table>'
      '<p>&nbsp;</p>')
    DataSet = ClientDataSet1
    OnHTMLTag = DataSetPageProducer1HTMLTag
    Left = 176
    Top = 56
  end
end
