untquestiongrp.dfm

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

inherited frmQuestionGrp: TfrmQuestionGrp
  Left = 429
  Top = 296
  Caption = 'frmQuestionGrp'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      OnDblClick = nil
      Columns = <
        item
          Expanded = False
          FieldName = 'code'
          Width = 124
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Width = 217
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'memo'
          Width = 400
          Visible = True
        end>
    end
  end
  inherited adsSingle: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tQuestionGrp where isused=1'
    object adsSinglecode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsSinglename: TStringField
      DisplayLabel = #24515#29702#37327#34920
      FieldName = 'name'
      Size = 40
    end
    object adsSinglememo: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'memo'
      Size = 50
    end
    object adsSingleIsUsed: TBooleanField
      FieldName = 'IsUsed'
      Visible = False
    end
  end
end