untmeasurecase.dfm

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· DFM 代码 · 共 1,006 行 · 第 1/5 页

inherited frmMeasureCase: TfrmMeasureCase
  Left = 246
  Top = 121
  Caption = #24515#29702#37327#34920#27979#37327
  ClientHeight = 561
  ClientWidth = 848
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 525
  end
  inherited imgImgRight: TImage
    Left = 831
    Height = 525
  end
  inherited pnlPalTop: TPanel
    Width = 848
    inherited imgImgTC: TImage
      Width = 836
    end
    inherited imgImgTR: TImage
      Left = 842
    end
  end
  inherited pnlBack: TPanel
    Width = 814
    Height = 525
    inherited Panel2: TPanel
      Width = 814
      Height = 485
      object Splitter1: TSplitter
        Left = 424
        Top = 0
        Width = 6
        Height = 485
        Cursor = crHSplit
      end
      object pnlLeft: TPanel
        Left = 0
        Top = 0
        Width = 424
        Height = 485
        Align = alLeft
        BevelOuter = bvNone
        Color = clWindow
        TabOrder = 0
        DesignSize = (
          424
          485)
        object GroupBox1: TGroupBox
          Left = 8
          Top = 6
          Width = 410
          Height = 501
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #24515#29702#37327#34920
          TabOrder = 0
          DesignSize = (
            410
            501)
          object DBGrid1: TDBGrid
            Left = 8
            Top = 17
            Width = 392
            Height = 475
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dsMeasure
            FixedColor = 15525344
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnDblClick = DBGrid1DblClick
            Columns = <
              item
                Expanded = False
                FieldName = 'code'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'shortname'
                Width = 80
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'name'
                Width = 198
                Visible = True
              end>
          end
        end
      end
      object pnlRight: TPanel
        Left = 430
        Top = 0
        Width = 384
        Height = 485
        Align = alClient
        BevelOuter = bvNone
        Color = clWindow
        TabOrder = 1
        DesignSize = (
          384
          485)
        object GroupBox2: TGroupBox
          Left = 8
          Top = 6
          Width = 360
          Height = 500
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #24515#29702#37327#34920#22240#23376
          TabOrder = 0
          DesignSize = (
            360
            500)
          object DBGrid2: TDBGrid
            Left = 8
            Top = 16
            Width = 344
            Height = 474
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dsMeasureItem
            FixedColor = 15525344
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'Name'
                Title.Alignment = taCenter
                Width = 133
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ItemValue'
                Title.Alignment = taCenter
                Width = 84
                Visible = True
              end>
          end
        end
      end
    end
    inherited pnlBottom: TPanel
      Top = 485
      Width = 814
      Height = 40
      inherited Bevel1: TBevel
        Width = 814
      end
      inherited btnCancel: TfcImageBtn
        Left = 667
        Top = 10
        Caption = #20851#38381
        NumGlyphs = 0
        TabOrder = 3
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 579
        Top = 10
        NumGlyphs = 0
        TabOrder = 2
        Visible = False
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      object btnTest: TfcImageBtn
        Left = 119
        Top = 7
        Width = 75
        Height = 25
        Caption = #27979#37327
        Color = clNone
        DitherColor = clWhite
        DitherStyle = dsDither
        Glyph.Data = {