mainu.dfm

包含详细的代码设计,实现图书管理系统功能.是一个很好的实例

object MainF: TMainF
  Left = 188
  Top = 106
  Width = 750
  Height = 92
  Align = alTop
  Caption = #22270#20070#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    00000000FF0000FFFF00FF00FF00FFFFFF00C0C0C00000808000000080008000
    80008080800000FF0000FFFF00000080000080800000FF000000800000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0055006600000000000000000000000000550066000000000000000000000000
    5544FF55DDDDDDDDDDDDDDDDDD0000005544FF55DDDDDDDDDDDDDDDDDD000055
    4455CC22AAAAAAAAAAAAAAAAAA0000554455CC22AAAAAAAAAAAAAAAAAA005544
    5500000000000000000000000000554455000000000000000000000000000055
    0055006600FF00FF00FF00FF000000550055006600FF00FF00FF00FF00005500
    5544EE55EEEEEEEEEEEEEEEEEE0055005544EE55EEEEEEEEEEEEEEEEEE000055
    4455FF445555555555555555550000554455FF44555555555555555555005544
    5500000000000000000000000000554455000000000000000000000000000055
    0055006600000000000000000000005500550066000000000000000000005500
    5544005577887788778877887700550055440055778877887788778877000055
    4455882233333333333333333300005544558822333333333333333333005544
    5500778877887788778877887700554455007788778877887788778877000055
    0077665566770077007700770000005500776655667700770077007700005500
    7766556677007700770077000000550077665566770077007700770000000077
    007700770077007700770000000000770077007700770077007700000000FC00
    0003FC000003F0000000F0000000C0000000C000000000000000000000000000
    000300000003C0000000C0000000000000000000000000000000000000000000
    000300000003C0000000C0000000000000000000000000000000000000000000
    000000000000C0000003C00000030000000F0000000F0000003F0000003F}
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 742
    Height = 28
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 742
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 729
      Height = 25
      Align = alClient
      ButtonHeight = 21
      ButtonWidth = 92
      Caption = 'ToolBar1'
      Color = 12704727
      Ctl3D = False
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Times New Roman'
      Font.Style = []
      List = True
      Menu = MainMenu1
      ParentColor = False
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
    end
  end
  object CoolBar2: TCoolBar
    Left = 0
    Top = 28
    Width = 742
    Height = 37
    Align = alClient
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 28
        Width = 742
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 729
      Height = 28
      Align = alClient
      ButtonHeight = 26
      ButtonWidth = 28
      Caption = 'ToolBar2'
      Color = clBtnFace
      Ctl3D = False
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Times New Roman'
      Font.Style = []
      Images = ImageList1
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object ModifyPassTB: TToolButton
        Left = 0
        Top = 0
        Hint = #20462#25913#21475#20196
        Caption = 'ModifyPassTB'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ModifyPassMenuClick
      end
      object ReturnLoginTB: TToolButton
        Left = 28
        Top = 0
        Hint = #37325#26032#30331#38470
        Caption = 'ReturnLoginTB'
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
        OnClick = ReturnLoginMenuClick
      end
      object ToolButton10: TToolButton
        Left = 56
        Top = 0
        Width = 11
        Caption = 'ToolButton10'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object BookInTB: TToolButton
        Left = 67
        Top = 0
        Hint = #22270' '#20070' '#20837' '#24211
        Caption = 'BookInTB'
        ImageIndex = 20
        ParentShowHint = False
        ShowHint = True
        OnClick = BookInMenuClick
      end
      object StockBookTB: TToolButton
        Left = 95
        Top = 0
        Hint = #24211#23384#22270#20070#25972#29702
        Caption = 'StockBookTB'
        ImageIndex = 8
        ParentShowHint = False
        ShowHint = True
        OnClick = StockBookMenuClick
      end
      object ToolButton11: TToolButton
        Left = 123
        Top = 0
        Width = 15
        Caption = 'ToolButton11'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object LendBookTB: TToolButton
        Left = 138
        Top = 0
        Hint = #20511'      '#20070
        Caption = 'LendBookTB'
        ImageIndex = 10
        ParentShowHint = False
        ShowHint = True
        OnClick = LendBookMenuClick
      end
      object HuanBookTB: TToolButton
        Left = 166
        Top = 0
        Hint = #36824'      '#20070
        Caption = 'HuanBookTB'
        ImageIndex = 11
        ParentShowHint = False
        ShowHint = True
        OnClick = HuanBookMenuClick
      end
      object ReaderTB: TToolButton
        Left = 194
        Top = 0
        Hint = #35835#32773#20449#24687#31649#29702
        Caption = 'ReaderTB'
        ImageIndex = 12
        ParentShowHint = False
        ShowHint = True
        OnClick = ReaderMenuClick
      end
      object NewReaderTB: TToolButton
        Left = 222
        Top = 0
        Hint = #26032' '#35835' '#32773' '#30331' '#35760
        Caption = 'NewReaderTB'
        ImageIndex = 13
        ParentShowHint = False
        ShowHint = True
        OnClick = NewReaderMenuClick
      end
      object ToolButton30: TToolButton
        Left = 250
        Top = 0
        Width = 12
        Caption = 'ToolButton30'
        ImageIndex = 27
        Style = tbsSeparator
      end
      object BookQueryTB: TToolButton
        Left = 262
        Top = 0
        Hint = #22270' '#20070' '#26597' '#35810
        Caption = 'BookQueryTB'