教育系统应用

开发平台：
Delphi

Unit13.dfm：源码内容
							object choosepaperform: Tchoosepaperform
  Left = 7
  Top = 110
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsDialog
  Caption = #25163#24037#35797#21367#29983#25104
  ClientHeight = 455
  ClientWidth = 769
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 769
    Height = 455
    Align = alClient
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 12
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 50
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
    object PageControl1: TPageControl
      Left = 0
      Top = 0
      Width = 553
      Height = 241
      ActivePage = TabSheet1
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = '  '#36873#25321#39064'  '
        OnShow = TabSheet1Show
        object DBNavigator1: TDBNavigator
          Left = 96
          Top = 3
          Width = 224
          Height = 25
          DataSource = DataModule4.DataSource_choose
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          TabOrder = 0
          OnClick = DBNavigator1Click
        end
        object Memo1: TMemo
          Left = 16
          Top = 32
          Width = 377
          Height = 161
          TabOrder = 1
        end
        object DBEdit1: TDBEdit
          Left = 16
          Top = 8
          Width = 57
          Height = 21
          DataField = 'tno'
          DataSource = DataModule4.DataSource_choose
          TabOrder = 2
        end
      end
      object TabSheet2: TTabSheet
        Caption = '  '#21028#26029#39064'  '
        ImageIndex = 1
        OnShow = TabSheet2Show
        object Memo2: TMemo
          Left = 16
          Top = 32
          Width = 377
          Height = 161
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object DBNavigator2: TDBNavigator
          Left = 96
          Top = 3
          Width = 224
          Height = 25
          DataSource = DataModule4.DataSource_judge
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          TabOrder = 1
          OnClick = DBNavigator2Click
        end
        object DBEdit2: TDBEdit
          Left = 16
          Top = 8
          Width = 57
          Height = 21
          DataField = 'tno'
          DataSource = DataModule4.DataSource_judge
          TabOrder = 2
        end
      end
      object TabSheet3: TTabSheet
        Caption = '  '#22635#31354#39064'  '
        ImageIndex = 2
        OnShow = TabSheet3Show
        object Memo3: TMemo
          Left = 16
          Top = 32
          Width = 377
          Height = 161
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object DBNavigator3: TDBNavigator
          Left = 96
          Top = 3
          Width = 224
          Height = 25
          DataSource = DataModule4.DataSource_filltext
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          TabOrder = 1
          OnClick = DBNavigator3Click
        end
        object DBEdit3: TDBEdit
          Left = 16
          Top = 8
          Width = 57
          Height = 21
          DataField = 'tno'
          DataSource = DataModule4.DataSource_filltext
          TabOrder = 2
        end
      end
      object TabSheet4: TTabSheet
        Caption = '  '#31243#24207#38405#35835#39064'  '
        ImageIndex = 3
        OnShow = TabSheet4Show
        object Memo4: TMemo
          Left = 16
          Top = 32
          Width = 377
          Height = 161
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object DBNavigator4: TDBNavigator
          Left = 96
          Top = 3
          Width = 224
          Height = 25
          DataSource = DataModule4.DataSource_readpro
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          TabOrder = 1
          OnClick = DBNavigator4Click
        end
        object DBEdit4: TDBEdit
          Left = 16
          Top = 8
          Width = 57
          Height = 21
          DataField = 'tno'
          DataSource = DataModule4.DataSource_readpro
          TabOrder = 2
        end
      end
      object TabSheet5: TTabSheet
        Caption = '  '#32534#31243#39064'  '
        ImageIndex = 4
        OnShow = TabSheet5Show
        object Memo5: TMemo
          Left = 16
          Top = 32
          Width = 377
          Height = 161
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object DBNavigator5: TDBNavigator
          Left = 96
          Top = 3
          Width = 224
          Height = 25
          DataSource = DataModule4.DataSource_procedure
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          TabOrder = 1
          OnClick = DBNavigator5Click
        end
        object DBEdit5: TDBEdit
          Left = 16
          Top = 8
          Width = 57
          Height = 21
          DataField = 'tno'
          DataSource = DataModule4.DataSource_procedure
          TabOrder = 2
        end
      end
    end
    object BitBtn3: TBitBtn
      Left = 472
      Top = 392
      Width = 65
      Height = 25
      Caption = #36820#22238
      TabOrder = 3
      Kind = bkClose
    end
    object ListBox1: TListBox
      Left = 8
      Top = 280
      Width = 81
      Height = 169
      ItemHeight = 13
      TabOrder = 4
      OnClick = ListBox1Click
    end
    object ListBox3: TListBox
      Left = 184
      Top = 278
      Width = 81
      Height = 169
      ItemHeight = 13
      TabOrder = 10
      OnClick = ListBox3Click
    end
    object ListBox4: TListBox
      Left = 272
      Top = 278
      Width = 81
      Height = 169
      ItemHeight = 13
      TabOrder = 11
      OnClick = ListBox4Click
    end
    object ListBox5: TListBox
      Left = 360
      Top = 278
      Width = 81
      Height = 169
      ItemHeight = 13
      TabOrder = 12
      OnClick = ListBox5Click
    end
    object BitBtn4: TBitBtn
      Left = 104
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 13
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
    end
    object BitBtn6: TBitBtn
      Left = 192
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 14
      OnClick = BitBtn6Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
    end
    object BitBtn8: TBitBtn
      Left = 280
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 15
      OnClick = BitBtn8Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
    end
    object BitBtn10: TBitBtn
      Left = 368
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 16
      OnClick = BitBtn10Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 144
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 17
      OnClick = BitBtn5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
    object BitBtn7: TBitBtn
      Left = 232
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 18
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
    object BitBtn9: TBitBtn
      Left = 320
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 19
      OnClick = BitBtn9Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
    object BitBtn11: TBitBtn
      Left = 408
      Top = 248
      Width = 33
      Height = 25
      TabOrder = 20
      OnClick = BitBtn11Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
    object ListBox6: TListBox
      Left = 568
      Top = 24
      Width = 185
      Height = 417
      ItemHeight = 13
      TabOrder = 21
    end
    object BitBtn12: TBitBtn
      Left = 472
      Top = 304
      Width = 65
      Height = 25
      Caption = #30830#23450
      TabOrder = 22
      OnClick = BitBtn12Click
      Kind = bkOK
    end
    object GroupBox5: TGroupBox
      Left = 408
      Top = 56
      Width = 129
      Height = 161
      Caption = #32534#31243#39064
      TabOrder = 9
      Visible = False
      object Label13: TLabel
        Left = 7
        Top = 36
        Width = 3
        Height = 13
      end
      object Label14: TLabel
        Left = 6
        Top = 78
        Width = 3
        Height = 13
      end
      object Label15: TLabel
        Left = 6
        Top = 120
        Width = 3
        Height = 13
      end
    end
    object GroupBox4: TGroupBox
      Left = 408
      Top = 56
      Width = 129
      Height = 161
      Caption = #31243#24207#38405#35835#39064
      TabOrder = 8
      Visible = False
      object Label10: TLabel
        Left = 6
        Top = 36
        Width = 3
        Height = 13
      end
      object Label11: TLabel
        Left = 6
        Top = 78
        Width = 3
        Height = 13
      end
      object Label12: TLabel
        Left = 6
        Top = 120
        Width = 3
        Height = 13
      end
    end
    object GroupBox3: TGroupBox
      Left = 408
      Top = 56
      Width = 129
      Height = 161
      Caption = #22635#31354#39064
      TabOrder = 7
      Visible = False
      object Label7: TLabel
        Left = 6
        Top = 36
        Width = 3
        Height = 13
      end
      object Label8: TLabel
        Left = 6
        Top = 78
        Width = 3
        Height = 13
      end
      object Label9: TLabel
        Left = 6
        Top = 120
        Width = 3
        Height = 13
      end
    end
    object GroupBox2: TGroupBox
      Left = 408
      Top = 56
      Width = 129
      Height = 161
      Caption = #21028#26029#39064
      TabOrder = 6
      Visible = False
      object Label4: TLabel
        Left = 6
        Top = 36
        Width = 3
        Height = 13
      end
      object Label5: TLabel
        Left = 6
        Top = 78
        Width = 3
        Height = 13
      end
      object Label6: TLabel
        Left = 6
        Top = 120
        Width = 3
        Height = 13
      end
    end
    object GroupBox1: TGroupBox
      Left = 408
      Top = 56
      Width = 129
      Height = 161
      Caption = #36873#25321#39064
      TabOrder = 5
      Visible = False
      object Label1: TLabel
        Left = 6
        Top = 36
        Width = 3
        Height = 13
      end
      object Label2: TLabel
        Left = 6
        Top = 78
        Width = 3
        Height = 13
      end
      object Label3: TLabel
        Left = 6
        Top = 120
        Width = 3
        Height = 13
      end
    end
  end
  object ListBox2: TListBox
    Left = 96
    Top = 280
    Width = 81
    Height = 169
    ItemHeight = 13
    TabOrder = 1
    OnClick = ListBox2Click
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_choose')
    Left = 200
    Top = 16
  end
end

						