unit_main.dfm

图书管理系统。可以实现简单的图书管理

object Form2: TForm2
  Left = 101
  Top = 157
  Width = 544
  Height = 375
  Caption = #22270#20070#31649#29702#20449#24687#31995#32479
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 150
    Top = 208
    Width = 396
    Height = 32
    Caption = #27426#36814#20351#29992#22270#20070#31649#29702#20449#24687#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -32
    Font.Name = #21326#25991#24425#20113
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 253
    Top = 304
    Width = 95
    Height = 27
    Caption = #35774#35745#32773':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -27
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 365
    Top = 304
    Width = 90
    Height = 29
    Caption = #36182#29577#38686
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 546
    Height = 41
    ButtonHeight = 35
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Ctl3D = False
    EdgeInner = esLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    Transparent = True
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Cursor = crHandPoint
      Hint = #28155#21152#22270#20070
      Caption = #28155#21152#22270#20070
      Down = True
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 55
      Top = 2
      Cursor = crHandPoint
      Hint = #21024#38500#22270#20070
      Caption = #21024#38500#22270#20070
      Down = True
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 110
      Top = 2
      Cursor = crHandPoint
      Hint = #20462#25913#22270#20070
      Caption = #20462#25913#22270#20070
      Down = True
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 165
      Top = 2
      Cursor = crHandPoint
      Caption = #28155#21152#35835#32773
      Down = True
      ImageIndex = 3
    end
    object ToolButton5: TToolButton
      Left = 220
      Top = 2
      Cursor = crHandPoint
      Caption = #20462#25913#35835#32773
      Down = True
      ImageIndex = 4
    end
    object ToolButton6: TToolButton
      Left = 275
      Top = 2
      Cursor = crHandPoint
      Caption = #21024#38500#35835#32773
      Down = True
      ImageIndex = 5
    end
    object ToolButton7: TToolButton
      Left = 330
      Top = 2
      Cursor = crHandPoint
      Caption = #36864'  '#20986
      Down = True
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 112
    Top = 120
  end
  object MainMenu1: TMainMenu
    Left = 192
    Top = 120
    object N16: TMenuItem
      Caption = '['#29992#25143#31649#29702'] '
      object N17: TMenuItem
        Caption = #28155#21152#29992#25143
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = #21024#38500#29992#25143
        OnClick = N18Click
      end
      object N19: TMenuItem
        Caption = #20462#25913#23494#30721
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = #29992#25143#27983#35272
        OnClick = N20Click
      end
    end
    object N1: TMenuItem
      Caption = '['#20070#31821#31649#29702']'
      object N5: TMenuItem
        Caption = #28155#21152#22270#20070#20449#24687
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #26597#35810#22270#20070#20449#24687
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = #21024#38500#22270#20070#20449#24687
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #20462#25913#22270#20070#20449#24687
        OnClick = N8Click
      end
    end
    object N2: TMenuItem
      Caption = '['#35835#32773#31649#29702']'
      object N9: TMenuItem
        Caption = #28155#21152#35835#32773#20449#24687
        OnClick = N9Click
      end
      object N27: TMenuItem
        Caption = #35835#32773#36523#20221#31995#32479#21021#22987#21270
        OnClick = N27Click
      end
      object N10: TMenuItem
        Caption = #21024#38500#35835#32773#20449#24687
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #20462#25913#35835#32773#20449#24687
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #26597#35810#35835#32773#20449#24687
      end
    end
    object N3: TMenuItem
      Caption = '['#20511#38405#31649#29702']'
      object N13: TMenuItem
        Caption = #20511#38405#30331#35760
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #36824#20070#22788#29702
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = #20652#36824#22788#29702
        OnClick = N15Click
      end
      object N21: TMenuItem
        Caption = #20511#38405#24773#20917#26597#35810
        object N22: TMenuItem
          Caption = #24050#20511#20070#30446#26597#35810
          OnClick = N22Click
        end
        object N23: TMenuItem