untquestionsset.dfm

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

inherited frmQuestionSet: TfrmQuestionSet
  Left = 330
  Top = 370
  Caption = 'frmQuestionSet'
  ClientHeight = 435
  ClientWidth = 614
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 399
  end
  inherited imgImgRight: TImage
    Left = 599
    Height = 399
  end
  inherited pnlPalTop: TPanel
    Width = 614
    inherited imgImgTC: TImage
      Width = 602
    end
    inherited imgImgTR: TImage
      Left = 608
    end
  end
  inherited pnlBack: TPanel
    Width = 582
    Height = 399
    inherited Panel2: TPanel
      Width = 582
      Height = 354
      inherited pnlUp: TPanel
        Width = 582
        Height = 153
        object Label1: TLabel
          Left = 34
          Top = 12
          Width = 24
          Height = 12
          Caption = #32534#21495
        end
        object Label3: TLabel
          Left = 314
          Top = 12
          Width = 36
          Height = 12
          Caption = #38382#39064#32452
        end
        object Label4: TLabel
          Left = 34
          Top = 64
          Width = 24
          Height = 12
          Caption = #20869#23481
        end
        object Label5: TLabel
          Left = 314
          Top = 40
          Width = 84
          Height = 12
          Caption = #20844#24335#20013#21464#37327#31526#21495
        end
        object Label6: TLabel
          Left = 34
          Top = 38
          Width = 24
          Height = 12
          Caption = #24207#21495
        end
        object Label2: TLabel
          Left = 14
          Top = 112
          Width = 48
          Height = 12
          Caption = #25253#34920#25551#36848
        end
        object DBEdit1: TDBEdit
          Tag = 900
          Left = 65
          Top = 8
          Width = 144
          Height = 20
          DataField = 'code'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Tag = 900
          Left = 416
          Top = 8
          Width = 154
          Height = 20
          DataField = 'GrpCode'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'code'
          ListField = 'name'
          ListSource = dsQuestionGrp
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Tag = 900
          Left = 416
          Top = 36
          Width = 154
          Height = 20
          DataField = 'VarTag'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 3
        end
        object DBMemo1: TDBMemo
          Left = 65
          Top = 64
          Width = 506
          Height = 41
          DataField = 'Content'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 4
        end
        object DBEdit4: TDBEdit
          Tag = 900
          Left = 66
          Top = 34
          Width = 143
          Height = 20
          DataField = 'XH'
          DataSource = dsMaster
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 64
          Top = 112
          Width = 505
          Height = 20
          DataField = 'Descript'
          DataSource = dsMaster
          TabOrder = 5
        end
      end
      inherited grdDetail: TDBGrid
        Top = 153
        Width = 582
        Height = 201
        FixedColor = 15525344
        PopupMenu = pmsingle
        Columns = <
          item
            Expanded = False
            FieldName = 'selectTag'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'content'
            Width = 320
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'value'
            Visible = True
          end>
      end
    end
    inherited pnlBottom: TPanel
      Top = 354
      Width = 582
      Height = 45
      inherited Bevel1: TBevel
        Width = 582
      end
      inherited btnCancel: TfcImageBtn
        Left = 474
        Top = 8
        NumGlyphs = 0
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 387
        Top = 8
        NumGlyphs = 0
        TabOrder = 0
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnDelDetail: TfcImageBtn
        Left = 44
        Top = 9
        NumGlyphs = 1
        TabOrder = 2
        RegionData = {
          400000002000000001000000020000002000000000000000000000006C000000
          1900000001000000000000006C0000000100000000000000010000006C000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000006C000000
          1900000001000000000000006C0000000100000000000000010000006C000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 417
    Width = 614
    inherited img2: TImage
      Width = 602
    end
    inherited img3: TImage
      Left = 608
    end
  end
  inherited adsDetail: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tSelectItem'
    object adsDetailcode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsDetailquestioncode: TStringField
      FieldName = 'questioncode'
      Visible = False
      Size = 10
    end
    object adsDetailselectTag: TStringField
      Tag = 900
      DisplayLabel = #36873#39033#20195#21495
      FieldName = 'selectTag'
      Size = 5
    end
    object adsDetailcontent: TStringField
      DisplayLabel = #36873#39033#20869#23481
      FieldName = 'content'
    end
    object adsDetailvalue: TIntegerField
      Tag = 900
      DisplayLabel = #36873#39033#20540
      FieldName = 'value'
    end
  end
  inherited dsMaster: TDataSource
    Left = 464
    Top = 104
  end
  object adsQuestionGrp: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tQuestionGrp where isused=1'
    Parameters = <>
    Left = 72
    Top = 200
    object adsQuestionGrpcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsQuestionGrpname: TStringField
      DisplayWidth = 50
      FieldName = 'name'
      Size = 50
    end
  end
  object dsQuestionGrp: TDataSource
    DataSet = adsQuestionGrp
    Left = 72
    Top = 256
  end
  object pmsingle: TPopupMenu
    Left = 162
    Top = 231
    object C1: TMenuItem
      Caption = #22797' '#21046
      ShortCut = 16451
      OnClick = C1Click
    end
    object V1: TMenuItem
      Caption = #31896#36148
      Enabled = False
      ShortCut = 16470
      OnClick = V1Click
    end
  end
end