main_form.dfm

本系统实现了一个图书销售管理系统

object Main_F: TMain_F
  Left = 272
  Top = 194
  BorderStyle = bsToolWindow
  Caption = #22270#20070#38144#21806#31649#29702#31995#32479
  ClientHeight = 242
  ClientWidth = 562
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000000000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000009100000000000000000
    0000000000099001000000000000000000000000099007701000000000000000
    00000009900FF7070100000000000000000009900FFFF7007010000000000000
    0009900FFFFFF770070100000000000009900FFFFFFFF7777770100000000009
    900FFFFFFFF7787770770100000001900FFFFFFFF77000877007701000000107
    FFFFFFF7700099087700770100000107FFFFF770009999908777777010000107
    FFFF7000999999990877077701000107F7700099999999999087007770100107
    7000999999999999990870077700010000999999999999999990877777000100
    999999999999999FFF990870770000909999999999999FFF9999908007000099
    0999999999999999FF99990800000009909999999999999999FFF99087000000
    99099999FFF99FF9FFF999990800000009909FF99F99F9999999999990000000
    0099099FFFF99999999999999900000000099099F99F99999999999999900000
    000099099FFFF999999999999000000000000990999999999999999000000000
    0000009909999999999990000000000000000009909999999990000000000000
    0000000099099999900000000000000000000000099099900000000000000000
    000000000099000000000000000000000000000000000000000000000000FFFF
    9FFFFFFE0FFFFFF807FFFFE003FFFF8001FFFE0000FFF800007FE000003F8000
    001F0000000F0000000700000003000000010000000000000000000000010000
    00010000000180000001C0000001E0000001F0000001F8000000FC000000FE00
    0001FF000007FF80001FFFC0007FFFE001FFFFF007FFFFF81FFFFFFCFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 50
    Width = 562
    Height = 173
    Align = alClient
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 223
    Width = 562
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 160
      end
      item
        Width = 50
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 562
    Height = 50
    AutoSize = True
    Bands = <
      item
        Break = False
        Control = Panel1
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 100
        Width = 113
      end
      item
        Break = False
        Control = Panel2
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 326
        Width = 443
      end
      item
        Break = False
        Control = Panel3
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 240
        Width = 320
      end
      item
        Break = False
        Control = Panel4
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 42
        Width = 236
      end>
    object Panel1: TPanel
      Left = 9
      Top = 0
      Width = 50
      Height = 22
      AutoSize = True
      BevelOuter = bvNone
      TabOrder = 0
      object Background_SB: TSpeedButton
        Left = 0
        Top = 0
        Width = 50
        Height = 22
        Caption = #32972#26223
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = Background_SBClick
      end
    end
    object Panel2: TPanel
      Left = 124
      Top = 0
      Width = 335
      Height = 22
      AutoSize = True
      BevelOuter = bvNone
      TabOrder = 1
      object XSRK_SB: TSpeedButton
        Left = 0
        Top = 0
        Width = 65
        Height = 22
        Caption = #20070#24211#20986#32435
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = XSRK_NClick
      end
      object TSZL_SB: TSpeedButton
        Left = 66
        Top = 0
        Width = 65
        Height = 22
        Caption = #20449#24687#26356#26032
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = TSZL_NClick
      end
      object TSJH_SB: TSpeedButton
        Left = 132
        Top = 0
        Width = 61
        Height = 22
        Caption = #21806#36864#26381#21153
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = TSJH_NClick
      end
      object BJSK_SB: TSpeedButton
        Left = 197
        Top = 0
        Width = 65
        Height = 22
        Caption = #20250#21592#27880#20876
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = BJSK_NClick
      end
      object CX_SB: TSpeedButton
        Left = 270
        Top = 0
        Width = 65
        Height = 22
        Caption = #20449#24687#26597#35810
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = CX_SBClick
      end
    end
    object Panel3: TPanel
      Left = 9
      Top = 24
      Width = 307
      Height = 22
      AutoSize = True
      BevelOuter = bvNone
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 331
      Top = 24
      Width = 223
      Height = 22
      AutoSize = True
      BevelOuter = bvNone
      TabOrder = 3
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 120
    Top = 400
  end
  object MainMenu1: TMainMenu
    OwnerDraw = True
    Left = 88
    Top = 400
    object File_N: TMenuItem
      Caption = #25991#20214
      object Close_N: TMenuItem
        Caption = #36864#20986
      end
    end
    object Operator_N: TMenuItem
      Caption = #25805#20316
      object ViewF_N: TMenuItem
        Caption = #26174#31034#25991#20214
        Checked = True
        OnClick = ViewF_NClick
      end
      object ViewBM_N: TMenuItem
        Caption = #26174#31034#22270#20070#31649#29702
        Checked = True
        OnClick = ViewBM_NClick
      end
      object ViewSM_N: TMenuItem
        Caption = #26174#31034#29615#22659#31649#29702
        Checked = True
        OnClick = ViewSM_NClick
      end
      object ViewH_N: TMenuItem
        Caption = #26174#31034#24110#21161
        Checked = True
        OnClick = ViewH_NClick
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object ChangBG_N: TMenuItem
        Caption = #26356#25442#32972#26223
        OnClick = Background_SBClick
      end
    end
    object BookM_N: TMenuItem
      Caption = #22270#20070#31649#29702
      object XSRK_N: TMenuItem
        Caption = #26032#20070#20837#24211
        OnClick = XSRK_NClick
      end
      object TSZL_N: TMenuItem
        Caption = #22270#20070#25972#29702
        OnClick = TSZL_NClick
      end
      object TSJH_N: TMenuItem
        Caption = #38144#21806#36864#36135
        OnClick = TSJH_NClick
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object BJSK_N: TMenuItem
        Caption = #21150#20250#21592#21345
        OnClick = BJSK_NClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object Query_N: TMenuItem
        Caption = #26597#35810
        OnClick = CX_SBClick
      end
    end
  end
  object TS_Time: TTimer
    Enabled = False
    OnTimer = TS_TimeTimer
    Left = 16
    Top = 400
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 56
    Top = 400
  end
end