untschool.dfm

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

inherited frmSchool: TfrmSchool
  Left = 539
  Top = 346
  Caption = 'frmSchool'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Name'
          Width = 376
          Visible = True
        end>
    end
    inherited grdDetail: TDBGrid
      FixedColor = 15525344
      Columns = <
        item
          Expanded = False
          FieldName = 'ClassYear'
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Width = 171
          Visible = True
        end>
    end
  end
  inherited adsSingle: TADODataSet
    CommandText = 'select * from tSchool'
    object adsSingleiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsSingleName: TStringField
      DisplayLabel = #23398#26657#21517#31216
      FieldName = 'Name'
      Size = 30
    end
  end
  inherited adsDetail: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tClass where SchoolID=:IAutoID'
    MasterFields = 'iAutoID'
    Parameters = <
      item
        Name = 'iAutoID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    object adsDetailiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsDetailSchoolID: TIntegerField
      FieldName = 'SchoolID'
      Visible = False
    end
    object adsDetailClassYear: TStringField
      DisplayLabel = #32423
      FieldName = 'ClassYear'
      Size = 10
    end
    object adsDetailName: TStringField
      DisplayLabel = #29677#32423#21517#31216
      FieldName = 'Name'
    end
  end
end