untselectrecord.dfm

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

inherited frmSelectRecord: TfrmSelectRecord
  Left = 358
  Top = 157
  Caption = #36873#25321#35760#24405
  ClientHeight = 455
  ClientWidth = 746
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 419
  end
  inherited imgImgRight: TImage
    Left = 729
    Height = 419
  end
  inherited pnlPalTop: TPanel
    Width = 746
    inherited imgImgTC: TImage
      Width = 734
    end
    inherited imgImgTR: TImage
      Left = 740
    end
  end
  inherited pnlBack: TPanel
    Width = 712
    Height = 419
    inherited Panel2: TPanel
      Left = 185
      Width = 527
      Height = 388
      TabOrder = 1
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 527
        Height = 388
        Align = alClient
        ShowZero = False
        DataSource = dsSingle
        DrawMemoText = True
        FixedColor = 15525344
        FooterColor = clWhite
        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 = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        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 = <>
            KeyList.Strings = (
              '0'
              '1')
            PickList.Strings = (
              #30007
              #22899)
            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 = <>
            FieldName = 'BirthYear'
            Footers = <>
            Title.Color = 15525344
            Width = 55
          end
          item
            AssignedValues = [cvWidth, cvTitleColor]
            EditButtons = <>
            FieldName = 'BirthMonth'
            Footers = <>
            Title.Color = 15525344
            Width = 48
          end>
      end
    end
    inherited pnlBottom: TPanel
      Top = 388
      Width = 712
      TabOrder = 2
      inherited Bevel1: TBevel
        Width = 712
      end
      inherited btnCancel: TfcImageBtn
        Left = 265
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        ModalResult = 1
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
    end
    object pnlLeftHand: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 388
      Align = alLeft
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = clWindow
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 2
        Top = 170
        Width = 181
        Height = 7
        Cursor = crVSplit
        Align = alBottom
      end
      object GroupBox1: TGroupBox
        Left = 2
        Top = 2
        Width = 181
        Height = 168
        Align = alClient
        Caption = #23398#26657#21015#34920
        TabOrder = 0
        object DBGridEh2: TDBGridEh
          Left = 2
          Top = 14
          Width = 177
          Height = 152
          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 = 177
        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
  end
  inherited pnl1: TPanel
    Top = 437
    Width = 746
    inherited img2: TImage
      Width = 734
    end
    inherited img3: TImage
      Left = 740
    end
  end
  object dsSchool: TDataSource
    DataSet = adsSchool
    Left = 56
    Top = 128
  end
  object adsSchool: TADODataSet
    Connection = DM.cnn
    CommandText = 'select iAutoID,Name from tSchool'
    Parameters = <>
    Left = 152
    Top = 120
    object atncfldSchooliAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object strngfldSchoolName: TStringField
      FieldName = 'Name'
      Size = 30
    end
  end
  object dsClass: TDataSource
    DataSet = adsClass
    Left = 138
    Top = 309
  end
  object adsClass: TADODataSet
    Connection = DM.cnn
    AfterScroll = adsClassAfterScroll
    CommandText = 'select * from tClass where SchoolID = :iAutoID'
    DataSource = dsSchool
    MasterFields = 'iAutoID'
    Parameters = <
      item
        Name = 'iAutoID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 176
    Top = 200
    object atncfldClassiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object strngfldClassName: TStringField
      DisplayLabel = #29677#32423#21517#31216
      FieldName = 'Name'
      Size = 30
    end
    object intgrfldClassSchoolID: TIntegerField
      FieldName = 'SchoolID'
      Visible = False
    end
    object strngfldClassClassYear: TStringField
      DisplayLabel = #32423
      FieldName = 'ClassYear'
      Size = 10
    end
  end
  object dsSingle: TDataSource
    DataSet = adsSingle
    Left = 352
    Top = 232
  end
  object adsSingle: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select * from tChildren'
    Parameters = <>
    Left = 408
    Top = 232
    object atncfldSingleiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object strngfldSingleCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'Code'
    end
    object strngfldSingleName: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
      Size = 10
    end
    object intgrfldSingleSex: TIntegerField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
    end
    object dtmfldSingleBirth: TDateTimeField
      DisplayLabel = #29983#26085
      FieldName = 'Birth'
    end
    object strngfldSingleBirthYear: TStringField
      DisplayLabel = #23681
      FieldName = 'BirthYear'
      Size = 5
    end
    object strngfldSingleBirthMonth: TStringField
      DisplayLabel = #26376
      FieldName = 'BirthMonth'
      Size = 5
    end
    object intgrfldSingleClassID: TIntegerField
      FieldName = 'ClassID'
      Visible = False
    end
    object strngfldSingleClassName: TStringField
      FieldKind = fkLookup
      FieldName = 'ClassName'
      LookupKeyFields = 'iAutoID'
      LookupResultField = 'Name'
      KeyFields = 'ClassID'
      LookupCache = True
      Visible = False
      Size = 30
      Lookup = True
    end
    object strngfldSingleSchoolName: TStringField
      FieldKind = fkLookup
      FieldName = 'SchoolName'
      LookupKeyFields = 'iAutoID'
      LookupResultField = 'SchoolName'
      KeyFields = 'ClassID'
      LookupCache = True
      Visible = False
      Size = 30
      Lookup = True
    end
    object strngfldSingleClassYear: TStringField
      FieldKind = fkLookup
      FieldName = 'ClassYear'
      LookupKeyFields = 'iAutoID'
      LookupResultField = 'ClassYear'
      KeyFields = 'ClassID'
      LookupCache = True
      Visible = False
      Size = 10
      Lookup = True
    end
    object strngfldSingleSuggest: TStringField
      DisplayLabel = #24314#35758
      DisplayWidth = 8000
      FieldName = 'Suggest'
      Size = 8000
    end
  end
end