教育系统应用

开发平台：

Delphi

Unit17.dfm：源码内容

							object papermadeform: Tpapermadeform
  Left = 694
  Top = 369
  Width = 571
  Height = 493
  Align = alClient
  BorderIcons = [biMinimize, biMaximize]
  Caption = #25163#24037#35797#21367#39044#35272
  Color = clBtnFace
  Font.Charset = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 563
    Height = 447
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 376
    Top = 16
    object N3: TMenuItem
      Caption = #25991#20214'(&F)'
      object N24: TMenuItem
        Caption = #20445#23384'(&S)'
        OnClick = N24Click
      end
      object N26: TMenuItem
        Caption = #20851#38381'(&E)'
        OnClick = N26Click
      end
    end
    object N4: TMenuItem
      Caption = #32534#36753
      object N7: TMenuItem
        Caption = #25764#28040
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #21098#20999
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #22797#21046
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #31896#36148
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #20840#36873
        OnClick = N11Click
      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 = 312
    Top = 16
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from papermanager')
    Left = 504
    Top = 16
  end
end

						