untexportexecl.dfm

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

inherited frmExportExecl: TfrmExportExecl
  Left = 382
  Top = 356
  Caption = #36873#25321#36755#20986#26465#20214
  ClientHeight = 246
  ClientWidth = 499
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 210
  end
  inherited imgImgRight: TImage
    Left = 482
    Height = 210
  end
  inherited pnlPalTop: TPanel
    Width = 499
    inherited imgImgTC: TImage
      Width = 487
    end
    inherited imgImgTR: TImage
      Left = 493
    end
  end
  inherited pnlBack: TPanel
    Width = 465
    Height = 210
    inherited Panel2: TPanel
      Width = 465
      Height = 171
      object Label1: TLabel
        Left = 120
        Top = 88
        Width = 48
        Height = 12
        Caption = #25968#25454#31867#22411
      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 cboSchool: TDBLookupComboBox
        Left = 168
        Top = 23
        Width = 177
        Height = 20
        Enabled = False
        KeyField = 'iAutoID'
        ListField = 'Name'
        ListSource = dsSchool
        TabOrder = 0
      end
      object cboClass: TDBLookupComboboxEh
        Left = 168
        Top = 56
        Width = 177
        Height = 20
        Enabled = False
        EditButtons = <>
        KeyField = 'iAutoID'
        ListField = 'Name;ClassYear'
        ListSource = dsClass
        TabOrder = 3
        Visible = True
      end
      object rgType: TRadioGroup
        Left = 170
        Top = 85
        Width = 177
        Height = 67
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          #27668#36136
          #34892#20026
          #24515#29702
          #24863#23448)
        TabOrder = 4
      end
    end
    inherited pnlBottom: TPanel
      Top = 171
      Width = 465
      Height = 39
      inherited Bevel1: TBevel
        Width = 465
      end
      inherited btnCancel: TfcImageBtn
        Left = 252
        Top = 7
        NumGlyphs = 0
        TabOrder = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 148
        Top = 7
        NumGlyphs = 0
        TabOrder = 0
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 228
    Width = 499
    inherited img2: TImage
      Width = 487
    end
    inherited img3: TImage
      Left = 493
    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 = 26
    Top = 56
  end
  object dsSchool: TDataSource
    DataSet = adsSchool
    Left = 408
    Top = 56
  end
  object dsClass: TDataSource
    DataSet = adsClass
    Left = 407
    Top = 8
  end
  object adsData: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 
      'declare @sql varchar(8000) '#13#10'set @SQl='#39#39' '#13#10#13#10'Select @sql=@sql+'#39',' +
      'max(case when ItemCode='#39#39#39'+Code+'#39#39#39' then ItemValue end) As ['#39'+[N' +
      'ame]+'#39']'#39#13#10#9'+'#39', max(case when ItemCode ='#39#39#39'+Code+'#39#39#39' then '#13#10#9#9'dbo' +
      '.fn_GetLevel(ItemCode, ItemValue, c.Sex, c.BirthYear+c.BirthMont' +
      'h/100) end) As ['#39'+[Name]+'#39'_LVL]'#39' '#13#10'from tMeasure_Item '#13#10'where Me' +
      'asureCode='#39'0000000002'#39#13#10#13#10'select @sql='#39'select ChildrenID'#39'+@sql '#13 +
      #10#9'+'#39' from (select cr.ChildrenID,crm.ItemCode,crm.ItemValue '#13#10#9#9'f' +
      'rom tChildrenResult cr '#13#10#9#9#9'inner join tChildrenResult_Mx crm on' +
      ' cr.iAutoID=crm.CheckResultID '#13#10#9#9' where cr.MeasureCode='#39#39'000000' +
      '0002'#39#39') a '#13#10#9#9'inner join tChildren c on a.ChildrenID=c.iAutoID '#13 +
      #10#9'group by ChildrenID'#39' '#13#10#13#10'exec(@sql)'
    Parameters = <>
    Left = 98
    Top = 137
  end
  object SaveDialog1: TSaveDialog
    Left = 372
    Top = 120
  end
end