untdeletedata.dfm

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

inherited frmDeleteData: TfrmDeleteData
  Left = 237
  Top = 236
  Caption = #25968#25454#21024#38500
  ClientHeight = 202
  ClientWidth = 497
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 166
  end
  inherited imgImgRight: TImage
    Left = 480
    Height = 166
  end
  inherited pnlPalTop: TPanel
    Width = 497
    inherited imgImgTC: TImage
      Width = 485
    end
    inherited imgImgTR: TImage
      Left = 491
    end
  end
  inherited pnlBack: TPanel
    Width = 463
    Height = 166
    inherited Panel2: TPanel
      Width = 463
      Height = 135
      object Label1: TLabel
        Left = 104
        Top = 27
        Width = 24
        Height = 12
        Caption = #23398#26657
      end
      object Label2: TLabel
        Left = 104
        Top = 60
        Width = 24
        Height = 12
        Caption = #29677#32423
      end
      object Label3: TLabel
        Left = 24
        Top = 128
        Width = 420
        Height = 12
        Caption = #27880#24847':'#22914#26524#21516#26102#36873#25321#21024#38500#23398#29983#36164#26009','#37027#20040':'#22914#26524#36825#20123#23398#29983#36824#23384#22312#20854#20182#25968#25454#36164#26009#30340#35805','
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 56
        Top = 144
        Width = 138
        Height = 12
        Caption = #36825#20123#36164#26009#23558#27809#26377#20219#20309#24847#20041'.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object cboSchool: TDBLookupComboBox
        Left = 168
        Top = 23
        Width = 177
        Height = 20
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dsSchool
        TabOrder = 0
      end
      object cboClass: TDBLookupComboboxEh
        Left = 168
        Top = 56
        Width = 177
        Height = 20
        EditButtons = <>
        KeyField = 'iAutoID'
        ListField = 'Name;ClassYear'
        ListSource = dsClass
        TabOrder = 1
        Visible = True
      end
      object chkXL: TCheckBox
        Left = 104
        Top = 104
        Width = 73
        Height = 17
        Caption = #24515#29702#38382#39064
        TabOrder = 2
      end
      object chkQZ: TCheckBox
        Left = 176
        Top = 104
        Width = 73
        Height = 17
        Caption = #27668#36136#25968#25454
        TabOrder = 3
      end
      object chkXW: TCheckBox
        Left = 248
        Top = 104
        Width = 73
        Height = 17
        Caption = #34892#20026#25968#25454
        TabOrder = 4
      end
      object chkStudent: TCheckBox
        Left = 320
        Top = 104
        Width = 73
        Height = 17
        Caption = #23398#29983#36164#26009
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
    end
    inherited pnlBottom: TPanel
      Top = 135
      Width = 463
      inherited Bevel1: TBevel
        Width = 463
      end
      inherited btnCancel: TfcImageBtn
        Left = 275
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {00000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 147
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {00000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 184
    Width = 497
    inherited img2: TImage
      Width = 485
    end
    inherited img3: TImage
      Left = 491
    end
  end
  object adsSchool: TADODataSet
    Connection = DM.cnn
    AfterScroll = adsSchoolAfterScroll
    CommandText = 'select iAutoID, Name from tSchool'
    Parameters = <>
    Left = 24
    Top = 8
  end
  object adsClass: TADODataSet
    Connection = DM.cnn
    CommandText = 'select iAutoID, SchoolID,ClassYear, Name from tClass'
    Parameters = <>
    Left = 24
    Top = 56
  end
  object dsClass: TDataSource
    DataSet = adsClass
    Left = 408
    Top = 8
  end
  object dsSchool: TDataSource
    DataSet = adsSchool
    Left = 408
    Top = 56
  end
end