main_form.dfm

一个不错的图书管理系统

object MainForm: TMainForm
  Left = 213
  Top = 159
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22270#20070#31649#29702#31995#32479
  ClientHeight = 459
  ClientWidth = 828
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 828
    Height = 53
    AutoSize = True
    ButtonHeight = 51
    ButtonWidth = 67
    Caption = #26032#20070#20837#24211
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object XSRK_TB: TToolButton
      Left = 0
      Top = 0
      Caption = #26032#20070#20837#24211
      ImageIndex = 0
      OnClick = XSRK_MenuClick
    end
    object TSWH_TB: TToolButton
      Left = 67
      Top = 0
      Caption = #22270#20070#32500#25252
      ImageIndex = 1
      OnClick = TSWH_MenuClick
    end
    object JSHS_TB: TToolButton
      Left = 134
      Top = 0
      Caption = #20511#20070#36824#20070
      ImageIndex = 2
      OnClick = JSHS_MenuClick
    end
    object ToolButton4: TToolButton
      Left = 201
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object BLJSK_TB: TToolButton
      Left = 209
      Top = 0
      Caption = #21150#29702#20511#20070#21345
      ImageIndex = 3
      OnClick = BLJSK_MenuClick
    end
    object CX_TB: TToolButton
      Left = 276
      Top = 0
      Caption = #26597#35810
      ImageIndex = 4
      OnClick = CX_MenuClick
    end
    object ToolButton7: TToolButton
      Left = 343
      Top = 0
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object QXGL_TB: TToolButton
      Left = 351
      Top = 0
      Caption = #26435#38480#31649#29702
      ImageIndex = 5
      OnClick = QXGL_MenuClick
    end
    object BFHY_TB: TToolButton
      Left = 418
      Top = 0
      Caption = #22791#20221#36824#21407
      ImageIndex = 6
      OnClick = BFHY_MenuClick
    end
    object ToolButton10: TToolButton
      Left = 485
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object GY_TB: TToolButton
      Left = 493
      Top = 0
      Caption = #20851#20110
      ImageIndex = 7
      OnClick = GY_MenuClick
    end
  end
  object MainMenu1: TMainMenu
    OwnerDraw = True
    Left = 144
    Top = 72
    object N1: TMenuItem
      Caption = #25991#20214
      object TC_Menu: TMenuItem
        Caption = #36864#20986
        OnClick = TC_MenuClick
      end
    end
    object N3: TMenuItem
      Caption = #25805#20316
      object XSRK_Menu: TMenuItem
        Caption = #26032#20070#20837#24211
        OnClick = XSRK_MenuClick
      end
      object TSWH_Menu: TMenuItem
        Caption = #22270#20070#32500#25252
        OnClick = TSWH_MenuClick
      end
      object BLJSK_Menu: TMenuItem
        Caption = #21150#29702#20511#20070#21345
        OnClick = BLJSK_MenuClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object JSHS_Menu: TMenuItem
        Caption = #20511#20070#36824#20070
        OnClick = JSHS_MenuClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object CX_Menu: TMenuItem
        Caption = #26597#35810
        OnClick = CX_MenuClick
      end
    end
    object N10: TMenuItem
      Caption = #31649#29702
      object QXGL_Menu: TMenuItem
        Caption = #26435#38480#31649#29702
        OnClick = QXGL_MenuClick
      end
      object BFHY_Menu: TMenuItem
        Caption = #22791#20221#36824#21407
        OnClick = BFHY_MenuClick
      end
      object YHZGL_Menu: TMenuItem
        Caption = #29992#25143#32452#31649#29702
        OnClick = YHZGL_MenuClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object QTSZ_Menu: TMenuItem
        Caption = #20854#23427#35774#32622
        OnClick = QTSZ_MenuClick
      end
    end
    object N12: TMenuItem
      Caption = #24110#21161
      object GY_Menu: TMenuItem
        Caption = #20851#20110#26412#31995#32479
        OnClick = GY_MenuClick
      end
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False