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

📄 untstudentcondition.dfm

📁 简要说明:对医院幼儿心理情况做的一个调查,统计系统.
💻 DFM
字号:
inherited frmStudentCondition: TfrmStudentCondition
  Left = 512
  Top = 245
  Caption = #36873#25321#26597#35810#26465#20214
  ClientHeight = 340
  ClientWidth = 479
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 304
  end
  inherited imgImgRight: TImage
    Left = 462
    Height = 304
  end
  inherited pnlPalTop: TPanel
    Width = 479
    inherited imgImgTC: TImage
      Width = 467
    end
    inherited imgImgTR: TImage
      Left = 473
    end
  end
  inherited pnlBack: TPanel
    Width = 445
    Height = 304
    inherited Panel2: TPanel
      Width = 445
      Height = 266
      object Label1: TLabel
        Left = 120
        Top = 88
        Width = 24
        Height = 12
        Caption = #32534#21495
      end
      object Label2: TLabel
        Left = 120
        Top = 147
        Width = 24
        Height = 12
        Caption = #22995#21517
      end
      object Label3: TLabel
        Left = 168
        Top = 116
        Width = 12
        Height = 12
        Caption = #33267
      end
      object Label4: TLabel
        Left = 240
        Top = 216
        Width = 12
        Height = 12
        Caption = #23681
        Enabled = False
      end
      object Label5: TLabel
        Left = 328
        Top = 216
        Width = 12
        Height = 12
        Caption = #26376
        Enabled = False
      end
      object Label6: TLabel
        Left = 240
        Top = 245
        Width = 12
        Height = 12
        Caption = #23681
        Enabled = False
      end
      object Label7: TLabel
        Left = 328
        Top = 245
        Width = 12
        Height = 12
        Caption = #26376
        Enabled = False
      end
      object Label8: TLabel
        Left = 168
        Top = 245
        Width = 12
        Height = 12
        Caption = #33267
        Enabled = False
      end
      object chkSchool: TCheckBox
        Left = 120
        Top = 24
        Width = 49
        Height = 17
        Caption = #23398#26657
        TabOrder = 1
        OnClick = chkSchoolClick
      end
      object chkClass: TCheckBox
        Left = 120
        Top = 56
        Width = 41
        Height = 17
        Caption = #29677#32423
        TabOrder = 2
        OnClick = chkClassClick
      end
      object chkSex: TCheckBox
        Left = 120
        Top = 176
        Width = 49
        Height = 17
        Caption = #24615#21035
        TabOrder = 8
        OnClick = chkSexClick
      end
      object chkAge: TCheckBox
        Left = 120
        Top = 213
        Width = 49
        Height = 17
        Caption = #24180#40836
        TabOrder = 11
        OnClick = chkAgeClick
      end
      object cboSchool: TDBLookupComboBox
        Left = 168
        Top = 23
        Width = 177
        Height = 20
        Enabled = False
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dsSchool
        TabOrder = 0
      end
      object edtCodeF: TEdit
        Left = 184
        Top = 88
        Width = 161
        Height = 20
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 4
      end
      object edtCodeT: TEdit
        Left = 184
        Top = 112
        Width = 161
        Height = 20
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 5
      end
      object edtName: TEdit
        Left = 168
        Top = 143
        Width = 177
        Height = 20
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 6
      end
      object rgSex: TRadioGroup
        Left = 168
        Top = 168
        Width = 177
        Height = 33
        Columns = 2
        Enabled = False
        ItemIndex = 0
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 7
      end
      object edtYearF: TEdit
        Left = 184
        Top = 212
        Width = 49
        Height = 20
        Enabled = False
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 9
      end
      object edtMonthF: TEdit
        Left = 272
        Top = 212
        Width = 49
        Height = 20
        Enabled = False
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 10
      end
      object edtYearT: TEdit
        Left = 184
        Top = 241
        Width = 49
        Height = 20
        Enabled = False
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 12
      end
      object edtMonthT: TEdit
        Left = 272
        Top = 241
        Width = 49
        Height = 20
        Enabled = False
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 13
      end
      object cboClass: TDBLookupComboboxEh
        Left = 168
        Top = 56
        Width = 177
        Height = 20
        Enabled = False
        EditButtons = <>
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        KeyField = 'iAutoID'
        ListField = 'Name;ClassYear'
        ListSource = dsClass
        TabOrder = 3
        Visible = True
      end
    end
    inherited pnlBottom: TPanel
      Top = 266
      Width = 445
      Height = 38
      inherited Bevel1: TBevel
        Width = 445
      end
      inherited btnCancel: TfcImageBtn
        Top = 7
        ModalResult = 2
        NumGlyphs = 1
        OnClick = nil
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 147
        Top = 7
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 322
    Width = 479
    inherited img2: TImage
      Width = 467
    end
    inherited img3: TImage
      Left = 473
    end
  end
  object adsSchool: TADODataSet
    Connection = DM.cnn
    AfterScroll = adsSchoolAfterScroll
    CommandText = 'select iAutoID, Name from tSchool'
    Parameters = <>
    Left = 24
    Top = 32
  end
  object adsClass: TADODataSet
    Connection = DM.cnn
    CommandText = 'select iAutoID, SchoolID,ClassYear, Name from tClass'
    Parameters = <>
    Left = 24
    Top = 80
  end
  object dsSchool: TDataSource
    DataSet = adsSchool
    Left = 24
    Top = 136
  end
  object dsClass: TDataSource
    DataSet = adsClass
    Left = 24
    Top = 192
  end
end

⌨️ 快捷键说明

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