⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 untstudent.dfm

📁 简要说明:对医院幼儿心理情况做的一个调查,统计系统.
💻 DFM
📖 第 1 页 / 共 5 页
字号:
inherited frmStudent: TfrmStudent
  Left = 264
  Top = 201
  Width = 789
  Height = 520
  Caption = 'frmStudent'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 452
  end
  inherited imgImgRight: TImage
    Left = 757
    Height = 452
  end
  inherited pnlBack: TPanel
    Width = 733
    Height = 452
    inherited grdSingle: TDBGrid
      Left = 625
      Top = 392
      Width = 168
      Height = 97
      Align = alNone
      TabOrder = 3
      Visible = False
    end
    inherited ToolBar1: TToolBar
      Width = 733
      ButtonWidth = 79
      inherited btnView: TToolButton
        Visible = True
        OnClick = btnViewClick
      end
      inherited btnFilter: TToolButton
        Caption = #36807#28388
        Visible = False
      end
      inherited ToolButton3: TToolButton
        Left = 274
        Visible = True
      end
      inherited btntest: TToolButton
        Left = 278
        Caption = #24515#29702#37327#34920#27979#35797
        Visible = True
        OnClick = btntestClick
      end
      inherited btnShowDetail: TToolButton
        Left = 357
        Caption = #24515#29702#37327#34920
        Visible = True
        OnClick = btnShowDetailClick
      end
      inherited ToolButton2: TToolButton
        Left = 416
      end
      inherited btnClose: TToolButton
        Left = 420
      end
    end
    object pnlLeftHand: TPanel
      Left = 0
      Top = 45
      Width = 185
      Height = 407
      Align = alLeft
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = clWindow
      TabOrder = 1
      object Splitter1: TSplitter
        Left = 2
        Top = 189
        Width = 181
        Height = 7
        Cursor = crVSplit
        Align = alBottom
      end
      object GroupBox1: TGroupBox
        Left = 2
        Top = 2
        Width = 181
        Height = 187
        Align = alClient
        Caption = #23398#26657#21015#34920
        TabOrder = 0
        object DBGridEh2: TDBGridEh
          Left = 2
          Top = 14
          Width = 177
          Height = 171
          Align = alClient
          ShowZero = False
          DataSource = dsSchool
          FixedColor = 14155735
          FooterColor = clWindow
          FooterFont.Charset = ANSI_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              AssignedValues = [cvWidth]
              EditButtons = <>
              FieldName = 'Name'
              Footers = <>
              Width = 167
            end>
        end
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 196
        Width = 181
        Height = 209
        Align = alBottom
        Caption = #29677#32423#21015#34920
        TabOrder = 1
        object DBGridEh3: TDBGridEh
          Left = 2
          Top = 14
          Width = 177
          Height = 193
          Align = alClient
          ShowZero = False
          DataSource = dsClass
          FooterColor = clWindow
          FooterFont.Charset = ANSI_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              AssignedValues = [cvWidth, cvTitleColor]
              EditButtons = <>
              FieldName = 'ClassYear'
              Footers = <>
              Title.Color = 15525344
              Width = 53
            end
            item
              AssignedValues = [cvWidth, cvTitleColor]
              EditButtons = <>
              FieldName = 'Name'
              Footers = <>
              Title.Color = 15525344
              Width = 98
            end>
        end
      end
    end
    object DBGridEh1: TDBGridEh
      Left = 185
      Top = 45
      Width = 548
      Height = 407
      Align = alClient
      ShowZero = False
      DataSource = dsSingle
      FixedColor = 15525344
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      FrozenCols = 2
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      SumList.Active = True
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnColEnter = DBGridEh1ColEnter
      Columns = <
        item
          AssignedValues = [cvWidth, cvTitleColor]
          EditButtons = <>
          FieldName = 'Code'
          Footer.Alignment = taRightJustify
          Footer.Value = #20154#25968#65306
          Footer.ValueType = fvtStaticText
          Footers = <>
          Title.Color = 15525344
          Width = 106
        end
        item
          AssignedValues = [cvWidth, cvTitleColor]
          EditButtons = <>
          FieldName = 'Name'
          Footer.ValueType = fvtCount
          Footers = <>
          Title.Color = 15525344
          Width = 112
        end
        item
          AssignedValues = [cvWidth, cvTitleColor]
          EditButtons = <>
          FieldName = 'Sex'
          Footers = <>
          Title.Color = 15525344
          Width = 49
        end
        item
          AssignedValues = [cvWidth, cvTitleColor]
          EditButtons = <>
          FieldName = 'Birth'
          Footers = <>
          Title.Color = 15525344
          Width = 107
        end
        item
          AssignedValues = [cvWidth, cvTitleColor]
          EditButtons = <>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -