untstudentset.dfm

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

inherited frmStudentSet: TfrmStudentSet
  Left = 379
  Top = 331
  Caption = 'frmStudentSet'
  ClientHeight = 324
  ClientWidth = 505
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Width = 14
    Height = 288
  end
  inherited imgImgRight: TImage
    Left = 492
    Width = 13
    Height = 288
  end
  inherited pnlPalTop: TPanel
    Width = 505
    inherited imgImgTC: TImage
      Width = 493
    end
    inherited imgImgTR: TImage
      Left = 499
    end
  end
  inherited pnlBack: TPanel
    Left = 14
    Width = 478
    Height = 288
    inherited Panel2: TPanel
      Width = 478
      Height = 246
      Color = 15525344
      object lbl1: TLabel
        Left = 44
        Top = 20
        Width = 48
        Height = 12
        Caption = #32534'    '#21495
      end
      object lbl2: TLabel
        Left = 252
        Top = 20
        Width = 42
        Height = 12
        Caption = #22995'   '#21517
      end
      object lbl3: TLabel
        Left = 250
        Top = 49
        Width = 48
        Height = 12
        Caption = #24615'    '#21035
      end
      object lbl4: TLabel
        Left = 44
        Top = 52
        Width = 48
        Height = 12
        Caption = #20986#29983#26085#26399
      end
      object lbl5: TLabel
        Left = 50
        Top = 79
        Width = 12
        Height = 12
        Caption = #23681
      end
      object lbl6: TLabel
        Left = 249
        Top = 79
        Width = 12
        Height = 12
        Caption = #26376
      end
      object shp1: TShape
        Left = 20
        Top = 195
        Width = 612
        Height = -1
      end
      object lbl7: TLabel
        Left = 54
        Top = 213
        Width = 48
        Height = 12
        Caption = #23398'    '#26657
      end
      object dbtxt1: TDBText
        Left = 113
        Top = 213
        Width = 65
        Height = 17
        Color = clWhite
        DataField = 'SchoolName'
        DataSource = dsSingle
        Font.Charset = ANSI_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object lbl8: TLabel
        Left = 196
        Top = 213
        Width = 12
        Height = 12
        Caption = #32423
      end
      object dbtxt2: TDBText
        Left = 212
        Top = 213
        Width = 65
        Height = 17
        Color = clWhite
        DataField = 'ClassYear'
        DataSource = dsSingle
        Font.Charset = ANSI_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object lbl9: TLabel
        Left = 279
        Top = 213
        Width = 48
        Height = 12
        Caption = #29677'    '#32423
      end
      object dbtxt3: TDBText
        Left = 327
        Top = 213
        Width = 65
        Height = 17
        Color = clWhite
        DataField = 'ClassName'
        DataSource = dsSingle
        Font.Charset = ANSI_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object lbl10: TLabel
        Left = 44
        Top = 111
        Width = 48
        Height = 12
        Caption = #29238#20146#23398#21382
      end
      object lbl11: TLabel
        Left = 252
        Top = 111
        Width = 48
        Height = 12
        Caption = #29238#20146#32844#19994
      end
      object lbl12: TLabel
        Left = 44
        Top = 143
        Width = 48
        Height = 12
        Caption = #27597#20146#23398#21382
      end
      object lbl13: TLabel
        Left = 252
        Top = 143
        Width = 48
        Height = 12
        Caption = #27597#20146#32844#19994
      end
      object lbl14: TLabel
        Left = 255
        Top = 174
        Width = 48
        Height = 12
        Caption = #24314#26723#26085#26399
      end
      object lbl15: TLabel
        Left = 44
        Top = 173
        Width = 48
        Height = 12
        Caption = #23621#20303#27004#23618
      end
      object dbedtCode: TDBEdit
        Tag = 900
        Left = 100
        Top = 16
        Width = 121
        Height = 20
        DataField = 'Code'
        DataSource = dsSingle
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
      end
      object dbedtName: TDBEdit
        Tag = 900
        Left = 304
        Top = 16
        Width = 121
        Height = 20
        DataField = 'Name'
        DataSource = dsSingle
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
      object dbcbb1: TDBComboBox
        Left = 306
        Top = 45
        Width = 121
        Height = 20
        Style = csDropDownList
        DataField = 'sex'
        DataSource = dsSingle
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 12
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 2
      end
      object dbdtmdth1: TDBDateTimeEditEh
        Tag = 900
        Left = 100
        Top = 48
        Width = 121
        Height = 20
        DataField = 'birth'
        DataSource = dsSingle
        EditButtons = <>
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Kind = dtkDateEh
        TabOrder = 3
        Visible = True
      end
      object dbedtBirthYear: TDBEdit
        Left = 98
        Top = 75
        Width = 121
        Height = 20
        DataField = 'BirthYear'
        DataSource = dsSingle
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 4
      end
      object dbedtBirthMonth: TDBEdit
        Left = 305
        Top = 75
        Width = 121
        Height = 20
        DataField = 'BirthMonth'
        DataSource = dsSingle
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 5
      end
      object dblkcbbfatheredu: TDBLookupComboBox
        Left = 96
        Top = 107
        Width = 129
        Height = 20
        DataField = 'fatherEdu'
        DataSource = dsSingle
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dsedu
        TabOrder = 6
      end
      object dblkcbbmotheredu: TDBLookupComboBox
        Left = 96
        Top = 139
        Width = 129
        Height = 20
        DataField = 'MotherEdu'
        DataSource = dsSingle
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dsedu
        TabOrder = 9
      end
      object dblkcbbfatherwork: TDBLookupComboBox
        Left = 304
        Top = 107
        Width = 129
        Height = 20
        DataField = 'fatherWork'
        DataSource = dsSingle
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dswork
        TabOrder = 7
      end
      object dblkcbbmotherwork: TDBLookupComboBox
        Left = 306
        Top = 136
        Width = 127
        Height = 20
        DataField = 'Motherwork'
        DataSource = dsSingle
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dswork
        TabOrder = 8
      end
      object dbdtmdthcreatedate: TDBDateTimeEditEh
        Tag = 900
        Left = 309
        Top = 169
        Width = 121
        Height = 20
        DataField = 'CreateDate'
        DataSource = dsSingle
        EditButtons = <>
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Kind = dtkDateEh
        TabOrder = 11
        Visible = True
      end
      object dbedtifloor: TDBEdit
        Tag = 900
        Left = 96
        Top = 169
        Width = 121
        Height = 20
        DataField = 'ifloor'
        DataSource = dsSingle
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 10
      end
    end
    inherited pnlBottom: TPanel
      Top = 246
      Width = 478
      Height = 42
      Color = 15525344
      inherited Bevel1: TBevel
        Width = 478
      end
      inherited btnCancel: TfcImageBtn
        Top = 9
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Top = 9
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 306
    Width = 505
    inherited img2: TImage
      Width = 493
    end
    inherited img3: TImage
      Left = 499
    end
  end
  inherited dsSingle: TDataSource
    DataSet = dsSingle1
    Left = 400
    Top = 160
  end
  object dswork: TDataSource
    DataSet = adswork
    Left = 416
    Top = 240
  end
  object dsedu: TDataSource
    DataSet = adsedu
    Left = 256
    Top = 104
  end
  object adswork: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select iAutoID, Name from twork where iType=2'
    Parameters = <>
    Left = 88
    Top = 240
  end
  object adsedu: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select iAutoID, Name from twork where iType=1'
    Parameters = <>
    Left = 267
    Top = 317
  end
  object dsSingle1: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select * from tChildren'
    Parameters = <>
    Left = 568
    Top = 376
    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
    object smlntfldSingleMotherwork: TSmallintField
      FieldName = 'Motherwork'
    end
    object smlntfldSingleMotherEdu: TSmallintField
      FieldName = 'MotherEdu'
    end
    object dtmfldSingleCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object smlntfldSinglefatherWork: TSmallintField
      FieldName = 'fatherWork'
    end
    object smlntfldSinglefatherEdu: TSmallintField
      FieldName = 'fatherEdu'
    end
    object smlntfldSingleifloor: TSmallintField
      FieldName = 'ifloor'
    end
  end
end