main.~dfm

档案管理系统源码

object F_Main: TF_Main
  Left = 230
  Top = 141
  Width = 544
  Height = 375
  Caption = #26723#26696#31649#29702#31995#32479
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000002222
    2222222222222222222222222220287F87777F87777F87777F87777F222027F7
    F222F7F222F7F222F7F222F772202227777777777777777777777777222028F7
    FFFFFFFFFFFFFFFFFFFFFFF7F8202F77FFFFBFFFFBFFFFFBFFFFBFF77F2027F7
    FFF44444444444444F444FF7F7202727FBFFFFFBFFFFBFFFFBFFFBF727202727
    FFF4444444444FFFFFFFFFF727202727FFFFBFFFFBFFFBFFFFBFFFF7272028F7
    FFFFFFFFFFFFFFF4FFFFFFF7F8202F77FBFFFFFF4FFBFFF4FFFFBFF77F2027F7
    FF7337F4FF44FF4F4F4F44F7F7202727F738337F444F44F4FB444FF727202727
    F383833F4FFFFFFF44FFFFF727202727B838383FFFFBFFF4F44FBFF7272028F7
    F783837FFFFFFFFFFFFFFFF7F8202F77FF7837FFBFFFFBFFFBFFFFB77F2027F7
    FFFFFFFFFFFFFFFFFFFFFFF7F72028277777777777777777777777772820227F
    7F222F7F222F7F222F7F222FF7202287F87777F87777F87777F8777782202222
    2222222222222222222222222220000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000001FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000000000000000000002222222222222220287778777787782027FF
    BFFFFFBFF72027FF44444444472028BFFFFFBFFFF82027FFBFF4FF4BF72027F7
    374B74F4F72028F383F4FF7FF82027F737FFFFFBF72027BFFFBFFBFFF7202877
    77877787782022222222222222200000000000000000FFFF0000FFFF00008000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000010000FFFF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  WindowMenu = M_Window
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 41
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 37
        Width = 532
      end>
    Color = clBtnFace
    Images = ImageList1
    ParentColor = False
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 519
      Height = 37
      ButtonHeight = 36
      ButtonWidth = 55
      Caption = 'ToolBar1'
      EdgeOuter = esNone
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object TB_Manage: TToolButton
        Left = 0
        Top = 0
        Caption = #26723#26696#31649#29702
        ImageIndex = 0
        OnClick = M_ManageClick
      end
      object TB_Borrow: TToolButton
        Left = 55
        Top = 0
        Caption = #20511#29992#26723#26696
        ImageIndex = 1
        OnClick = M_BorrowClick
      end
      object TB__Return: TToolButton
        Left = 110
        Top = 0
        Caption = #24402#36824#26723#26696
        ImageIndex = 2
        OnClick = M_ReturnClick
      end
      object TB_Separator: TToolButton
        Left = 165
        Top = 0
        Width = 8
        Caption = 'TB_Separator'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object TB_Backup: TToolButton
        Left = 173
        Top = 0
        Caption = #25968#25454#22791#20221
        ImageIndex = 3
        OnClick = M_BackupClick
      end
      object TB_Restore: TToolButton
        Left = 228
        Top = 0
        Caption = #25968#25454#36824#21407
        ImageIndex = 4
        OnClick = M_RestoreClick
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 152
    Top = 160
    object S1: TMenuItem
      Caption = #23433#20840#31649#29702'(&S)'
    end
    object M_Archives: TMenuItem
      Caption = #26723#26696#31649#29702'(&A)'
      object M_Class: TMenuItem
        Caption = #26723#26696#20998#31867#31649#29702'(&C)'
        OnClick = M_ClassClick
      end
      object M_Tank: TMenuItem
        Caption = #26723#26696#26588#31649#29702'(&T)'
        OnClick = M_TankClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object M_Manage: TMenuItem
        Caption = #26723#26696#31649#29702'(&M)'
        OnClick = M_ManageClick
      end
      object M_Borrow: TMenuItem
        Caption = #26723#26696#20511#29992#31649#29702'(&B)'
        OnClick = M_BorrowClick
      end
      object M_Return: TMenuItem
        Caption = #26723#26696#24402#36824#31649#29702'(&R)'
        OnClick = M_ReturnClick
      end
    end
    object M_Database: TMenuItem
      Caption = #25968#25454#24211#31649#29702'(&D)'
      object M_Backup: TMenuItem
        Caption = #25968#25454#22791#20221'(&B)'
        OnClick = M_BackupClick
      end
      object M_Restore: TMenuItem
        Caption = #25968#25454#36824#21407'(&R)'
        OnClick = M_RestoreClick
      end
    end
    object M_Window: TMenuItem
      Caption = #31383#21475'(&W)'
      object M_Win_Cascade: TMenuItem
        Action = WindowCascade1
      end
      object M_Win_Hor: TMenuItem
        Action = WindowTileHorizontal1
      end
      object M_Win_Ver: TMenuItem
        Action = WindowTileVertical1
      end
      object M_Win_Min: TMenuItem
        Action = WindowMinimizeAll1
      end
      object M_Win_Close: TMenuItem
        Action = WindowCloseAll
      end
    end
    object M_Help: TMenuItem
      Caption = #24110#21161'(&H)'
      OnClick = M_HelpClick
    end
  end
  object ImageList1: TImageList
    Left = 184
    Top = 160
    Bitmap = {
      494C010108000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000