教育系统应用

开发平台：
Delphi

Unit18.dfm：源码内容
							object paperautoform: Tpaperautoform
  Left = 282
  Top = 157
  Width = 634
  Height = 557
  BorderIcons = [biMinimize, biMaximize]
  Caption = #35797#21367#33258#21160#29983#25104
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 32
    Width = 114
    Height = 13
    Caption = #35831#36873#25321#19981#32771#30340#31456':         '
  end
  object Label2: TLabel
    Left = 8
    Top = 92
    Width = 90
    Height = 13
    Caption = #35831#36873#25321#38590#26131#24230':     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 347
    Top = 104
    Width = 198
    Height = 13
    AutoSize = False
    Caption = #35797#21367#27491#22312#25552#21462#20013#65292#35831#32784#24515#31561#24453'...                '
    Color = clMoneyGreen
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object SpeedButton1: TSpeedButton
    Left = 336
    Top = 24
    Width = 23
    Height = 22
    Caption = '=>'
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 336
    Top = 56
    Width = 23
    Height = 22
    Caption = '<='
    OnClick = SpeedButton2Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 152
    Width = 626
    Height = 417
    Align = alCustom
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 16
    Top = 120
    Width = 75
    Height = 25
    Caption = #20986#21367
    TabOrder = 1
    OnClick = BitBtn1Click
    OnMouseDown = BitBtn1MouseDown
    Kind = bkOK
  end
  object ProgressBar1: TProgressBar
    Left = 352
    Top = 128
    Width = 249
    Height = 17
    TabOrder = 2
  end
  object BitBtn2: TBitBtn
    Left = 120
    Top = 120
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 3
    Kind = bkClose
  end
  object ComboBox2: TComboBox
    Left = 104
    Top = 88
    Width = 169
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    OnChange = ComboBox2Change
    Items.Strings = (
      #23481#26131
      #20013#31561
      #36739#38590)
  end
  object ListBox1: TListBox
    Left = 104
    Top = 16
    Width = 209
    Height = 65
    ItemHeight = 13
    Items.Strings = (
      #31532#19968#31456' C'#35821#35328#22522#30784#30693#35782
      #31532#20108#31456' '#25968#25454#31867#22411#12289#36816#31639#31526#19982#34920#36798#24335
      #31532#19977#31456' '#39034#24207#32467#26500
      #31532#22235#31456' '#36873#25321#32467#26500
      #31532#20116#31456' '#24490#29615#25511#21046
      #31532#20845#31456' '#25968#32452#25351#38024
      #31532#19971#31456' '#20989#25968'  '#32467#26500#20307#19982#20849#29992#20307
      #31532#20843#31456' '#39044#22788#29702#21629#20196
      #31532#20061#31456' '#24120#29992#31639#27861#35774#35745)
    TabOrder = 5
  end
  object ListBox2: TListBox
    Left = 384
    Top = 16
    Width = 217
    Height = 65
    ItemHeight = 13
    TabOrder = 6
  end
  object MainMenu1: TMainMenu
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    Left = 440
    Top = 192
    object N3: TMenuItem
      Caption = #25991#20214
      object N7: TMenuItem
        Caption = #20445#23384
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #20851#38381
        OnClick = N8Click
      end
    end
    object N4: TMenuItem
      Caption = #32534#36753
      object N9: TMenuItem
        Caption = #25764#28040
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #21098#20999
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #22797#21046
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #31896#36148
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #20840#36873
        OnClick = N13Click
      end
    end
    object N5: TMenuItem
      Caption = #26684#24335'(&S)'
      object N19: TMenuItem
        Caption = #25991#23383#26684#24335'...(&W)'
        OnClick = N19Click
      end
    end
    object N1: TMenuItem
      Caption = #26597#30475#31572#26696
      OnClick = N1Click
    end
    object N6: TMenuItem
      Caption = #24110#21161'(&H)'
      object N21: TMenuItem
        Caption = #20851#20110#26412#32534#36753#22120'(&H)'
      end
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 376
    Top = 160
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_choose')
    Left = 448
    Top = 264
  end
end

						