untmeasureset.dfm

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

inherited frmMeasureSet: TfrmMeasureSet
  Left = 191
  Top = 485
  Caption = 'frmMeasureSet'
  ClientHeight = 561
  ClientWidth = 886
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 525
  end
  inherited imgImgRight: TImage
    Left = 871
    Height = 525
  end
  inherited pnlPalTop: TPanel
    Width = 886
    inherited imgImgTC: TImage
      Width = 874
    end
    inherited imgImgTR: TImage
      Left = 880
    end
  end
  inherited pnlBack: TPanel
    Width = 854
    Height = 525
    inherited Panel2: TPanel
      Width = 854
      Height = 494
      inherited pnlUp: TPanel
        Width = 854
        Height = 42
        object Label1: TLabel
          Left = 62
          Top = 14
          Width = 48
          Height = 12
          Caption = #32534'    '#21495
        end
        object Label3: TLabel
          Left = 257
          Top = 14
          Width = 48
          Height = 12
          Caption = #37327#34920#21517#31216
        end
        object Label4: TLabel
          Left = 452
          Top = 14
          Width = 60
          Height = 12
          Caption = #37327#34920#38382#39064#38598
        end
        object Label2: TLabel
          Left = 653
          Top = 14
          Width = 48
          Height = 12
          Caption = #37327#34920#31867#22411
        end
        object DBEdit1: TDBEdit
          Tag = 900
          Left = 118
          Top = 11
          Width = 131
          Height = 20
          DataField = 'code'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
        end
        object DBEdit3: TDBEdit
          Tag = 900
          Left = 311
          Top = 11
          Width = 132
          Height = 20
          DataField = 'name'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 1
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Tag = 900
          Left = 519
          Top = 11
          Width = 130
          Height = 20
          DataField = 'QuestionGrp'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'code'
          ListField = 'name'
          ListSource = dsQuestionGrp
          TabOrder = 2
        end
        object dblkcbbtype: TDBLookupComboBox
          Tag = 900
          Left = 703
          Top = 11
          Width = 130
          Height = 20
          DataField = 'TypeID'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'typeid'
          ListField = 'name'
          ListSource = dstype
          TabOrder = 3
        end
      end
      inherited grdDetail: TDBGrid
        Top = 42
        Width = 854
        Height = 452
        FixedColor = 15525344
        OnEditButtonClick = grdDetailEditButtonClick
        Columns = <
          item
            Expanded = False
            FieldName = 'Name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'needFormula'
            PickList.Strings = (
              #21542
              #26159)
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Content'
            Width = 300
            Visible = True
          end
          item
            ButtonStyle = cbsEllipsis
            Expanded = False
            FieldName = 'Formula'
            Width = 350
            Visible = True
          end>
      end
    end
    inherited pnlBottom: TPanel
      Top = 494
      Width = 854
      inherited Bevel1: TBevel
        Width = 854
      end
      inherited btnCancel: TfcImageBtn
        Left = 746
        NumGlyphs = 0
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 658
        NumGlyphs = 0
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnDelDetail: TfcImageBtn
        NumGlyphs = 0
        RegionData = {
          400000002000000001000000020000002000000000000000000000006C000000
          1900000001000000000000006C0000000100000000000000010000006C000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000006C000000
          1900000001000000000000006C0000000100000000000000010000006C000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 543
    Width = 886
    inherited img2: TImage
      Width = 874
    end
    inherited img3: TImage
      Left = 880
    end
  end
  inherited adsDetail: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tMeasure_Item'
    Left = 248
    Top = 208
    object adsDetailcode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsDetailMeasurecode: TStringField
      FieldName = 'Measurecode'
      Visible = False
      Size = 10
    end
    object adsDetailName: TStringField
      Tag = 900
      DisplayLabel = #22240#23376#21517#31216
      FieldName = 'Name'
    end
    object adsDetailneedFormula: TBooleanField
      Tag = 900
      DisplayLabel = #26159#21542#38656#35201#20844#24335
      FieldName = 'needFormula'
      OnGetText = adsDetailneedFormulaGetText
      OnSetText = adsDetailneedFormulaSetText
    end
    object adsDetailFormula: TStringField
      DisplayLabel = #20844#24335
      FieldName = 'Formula'
      Size = 2000
    end
    object adsDetailContent: TStringField
      DisplayLabel = #22240#23376#25551#36848
      FieldName = 'Content'
      Size = 400
    end
  end
  inherited dsMaster: TDataSource
    Left = 136
    Top = 88
  end
  inherited dsDetail: TDataSource
    Left = 152
    Top = 200
  end
  object dsQuestionGrp: TDataSource
    DataSet = adsQuestionGrp
    Left = 480
    Top = 56
  end
  object adsQuestionGrp: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tQuestionGrp where isused=1'
    Parameters = <>
    Left = 480
    Top = 104
    object adsQuestionGrpcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsQuestionGrpname: TStringField
      FieldName = 'name'
      Size = 50
    end
  end
  object dstype: TDataSource
    DataSet = adstype
    Left = 544
    Top = 192
  end
  object adstype: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 
      'select typeid=1,name='#39#24515#29702#21355#29983#39#13#10'union'#13#10'select 2,'#39#27668#36136#39#13#10'union'#13#10'select' +
      ' 3,'#39#34892#20026#39#13#10'union'#13#10'select 4,'#39#24863#35273#32508#21512#21151#33021#39
    Parameters = <>
    Left = 536
    Top = 256
  end
end