untvarselect.dfm

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

inherited frmVarSelect: TfrmVarSelect
  Left = 70
  Top = 108
  Caption = #21464#37327#36873#25321
  ClientHeight = 494
  ClientWidth = 858
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    Width = 858
    Height = 494
    inherited Panel2: TPanel
      Width = 858
      Height = 456
      object Splitter1: TSplitter
        Left = 317
        Top = 0
        Width = 6
        Height = 456
        Cursor = crHSplit
      end
      object pnlLeft: TPanel
        Left = 0
        Top = 0
        Width = 317
        Height = 456
        Align = alLeft
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 0
        DesignSize = (
          317
          456)
        object GroupBox1: TGroupBox
          Left = 8
          Top = 8
          Width = 302
          Height = 445
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #38382#39064#32452
          TabOrder = 0
          DesignSize = (
            302
            445)
          object DBGrid1: TDBGrid
            Left = 8
            Top = 16
            Width = 285
            Height = 420
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dsQG
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'name'
                Width = 84
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'memo'
                Width = 150
                Visible = True
              end>
          end
        end
      end
      object pnlRight: TPanel
        Left = 323
        Top = 0
        Width = 535
        Height = 456
        Align = alClient
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 1
        DesignSize = (
          535
          456)
        object GroupBox2: TGroupBox
          Left = 8
          Top = 8
          Width = 524
          Height = 445
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #38382#39064
          TabOrder = 0
          DesignSize = (
            524
            445)
          object DBGrid2: TDBGrid
            Left = 8
            Top = 16
            Width = 507
            Height = 420
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dsQ
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnDblClick = btnOKClick
            Columns = <
              item
                Expanded = False
                FieldName = 'VarTag'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'name'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'content'
                Width = 274
                Visible = True
              end>
          end
        end
      end
    end
    inherited pnlBottom: TPanel
      Top = 456
      Width = 858
      inherited Bevel1: TBevel
        Width = 858
      end
      inherited btnOK: TBitBtn
        Left = 352
        OnClick = btnOKClick
      end
      inherited btnCancel: TBitBtn
        Left = 440
      end
    end
  end
  object adsQG: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select code, name, memo from tQuestionGrp where IsUsed=1'
    Parameters = <>
    Left = 112
    Top = 96
    object adsQGcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsQGname: TStringField
      DisplayLabel = #32452#21517
      FieldName = 'name'
      Size = 10
    end
    object adsQGmemo: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'memo'
      Size = 50
    end
  end
  object dsQG: TDataSource
    DataSet = adsQG
    Left = 168
    Top = 96
  end
  object dsQ: TDataSource
    DataSet = adsQ
    Left = 592
    Top = 104
  end
  object adsQ: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 
      'select name, content, VarTag from tQuestion where grpcode = :cod' +
      'e order by xh'
    DataSource = dsQG
    Parameters = <
      item
        Name = 'code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 520
    Top = 104
    object adsQname: TStringField
      DisplayLabel = #38382#39064#31616#36848
      FieldName = 'name'
    end
    object adsQcontent: TStringField
      DisplayLabel = #38382#39064#20869#23481
      FieldName = 'content'
      Size = 50
    end
    object adsQVarTag: TStringField
      DisplayLabel = #21464#37327
      FieldName = 'VarTag'
      Size = 10
    end
  end
end