untquestions.dfm

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

inherited frmQuestions: TfrmQuestions
  Left = 226
  Top = 165
  Caption = 'frmQuestions'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'code'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'content'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GrpName'
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Descript'
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'xh'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VarTag'
          Visible = True
        end>
    end
    inherited ToolBar1: TToolBar
      ButtonWidth = 55
      inherited btnFilter: TToolButton
        Caption = #37325#26032#25490#24207
      end
      inherited ToolButton3: TToolButton
        Left = 298
      end
      inherited btnShowDetail: TToolButton
        Left = 302
      end
      inherited ToolButton2: TToolButton
        Left = 349
      end
      inherited btnClose: TToolButton
        Left = 353
      end
    end
    inherited grdDetail: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'selectTag'
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'content'
          Width = 301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'value'
          Width = 143
          Visible = True
        end>
    end
  end
  inherited adsSingle: TADODataSet
    CommandText = 'select * from tQuestion'
    object adsSinglecode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsSinglegrpcode: TStringField
      FieldName = 'grpcode'
      Visible = False
      Size = 10
    end
    object adsSingleGrpName: TStringField
      DisplayLabel = #37327#34920
      DisplayWidth = 50
      FieldKind = fkLookup
      FieldName = 'GrpName'
      LookupDataSet = adsQuestionGrp
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'grpcode'
      LookupCache = True
      Size = 50
      Lookup = True
    end
    object adsSinglename: TStringField
      DisplayLabel = #38382#39064#31616#36848
      FieldName = 'name'
    end
    object adsSinglecontent: TStringField
      DisplayLabel = #38382#39064#20869#23481
      FieldName = 'content'
      Size = 50
    end
    object adsSingleVarTag: TStringField
      DisplayLabel = #20844#24335#20013#21464#37327#31526#21495
      FieldName = 'VarTag'
      Size = 10
    end
    object adsSingleIsUsed: TBooleanField
      FieldName = 'IsUsed'
      Visible = False
    end
    object adsSinglexh: TStringField
      DisplayLabel = #24207#21495
      FieldName = 'xh'
      Size = 10
    end
    object adsSingleItemDomain: TStringField
      FieldName = 'ItemDomain'
      Visible = False
      Size = 50
    end
    object adsSingleDescript: TStringField
      DisplayLabel = #38382#39064#25253#34920#25551#36848
      FieldName = 'Descript'
      Size = 50
    end
  end
  inherited adsDetail: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tSelectItem where questioncode = :code'
    MasterFields = 'code'
    Parameters = <
      item
        Name = 'code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    object adsDetailcode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsDetailquestioncode: TStringField
      FieldName = 'questioncode'
      Visible = False
      Size = 10
    end
    object adsDetailselectTag: TStringField
      DisplayLabel = #36873#39033#20195#21495
      FieldName = 'selectTag'
      Size = 5
    end
    object adsDetailcontent: TStringField
      DisplayLabel = #36873#39033#20869#23481
      FieldName = 'content'
    end
    object adsDetailvalue: TIntegerField
      DisplayLabel = #36873#39033#34920#31034#20540
      FieldName = 'value'
    end
  end
  object adsQuestionGrp: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tQuestionGrp'
    Parameters = <>
    Left = 640
    Top = 280
    object adsQuestionGrpcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsQuestionGrpname: TStringField
      DisplayWidth = 50
      FieldName = 'name'
      Size = 50
    end
  end
end