untreporttext.dfm

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

inherited frmReportText: TfrmReportText
  Left = 243
  Top = 387
  Caption = 'frmReportText'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'MeasureName'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ItemName'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Lvl'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Discript'
          Width = 300
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Method'
          Width = 300
          Visible = True
        end>
    end
  end
  inherited adsSingle: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from tReportText'
    Left = 566
    Top = 375
    object adsSingleiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsSingleMeasureCode: TStringField
      FieldName = 'MeasureCode'
      Visible = False
      Size = 10
    end
    object adsSingleMeasureName: TStringField
      DisplayLabel = #37327#34920
      FieldKind = fkLookup
      FieldName = 'MeasureName'
      LookupDataSet = adsMeasure
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'MeasureCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsSingleItemCode: TStringField
      FieldName = 'ItemCode'
      Visible = False
      Size = 10
    end
    object adsSingleItemName: TStringField
      DisplayLabel = #22240#23376
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsSingleLvl: TIntegerField
      DisplayLabel = #31561#32423
      FieldName = 'Lvl'
      Visible = False
      OnGetText = adsSingleLvlGetText
      OnSetText = adsSingleLvlSetText
    end
    object adsSingleDiscript: TStringField
      DisplayLabel = #31243#24230#22240#23376#25551#36848
      FieldName = 'Discript'
      Size = 100
    end
    object adsSingleMethod: TStringField
      DisplayLabel = #22788#29702#26041#24335
      FieldName = 'Method'
      Size = 1400
    end
  end
  object adsMeasure: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tMeasure'
    Parameters = <>
    Left = 480
    Top = 136
    object adsMeasurecode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasurename: TStringField
      FieldName = 'name'
    end
  end
  object adsMeasureItem: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, Name from tMeasure_Item'
    Parameters = <>
    Left = 480
    Top = 232
    object adsMeasureItemcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasureItemName: TStringField
      FieldName = 'Name'
      Size = 50
    end
  end
end