frmmain.dfm

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

object Frm_main: TFrm_main
  Left = 224
  Top = 116
  Width = 800
  Height = 600
  Caption = #21830#22330#31649#29702#31995#32479
  Color = clBtnFace
  Constraints.MinHeight = 600
  Constraints.MinWidth = 800
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar_tools: TCoolBar
    Left = 0
    Top = 20
    Width = 792
    Height = 55
    AutoSize = True
    Bands = <
      item
        Break = False
        Control = ToolBar_main
        ImageIndex = -1
        MinHeight = 55
        Width = 792
      end>
    EdgeBorders = []
    object ToolBar_main: TToolBar
      Left = 9
      Top = 0
      Width = 779
      Height = 55
      AutoSize = True
      ButtonHeight = 53
      ButtonWidth = 67
      Customizable = True
      Flat = True
      Images = ImageList_tools
      PopupMenu = PopupMenu_toolbar
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object TB_daysell: TToolButton
        Left = 0
        Top = 0
        Cursor = crHandPoint
        Hint = #21830#22330#12304#38144#21806#12305#25968#25454#24405#20837'|'#24405#20837#27599#22825#30340#38144#21806#26085#25253#25968#25454
        Caption = #21830#22330#38144#21806
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_data_daysellClick
      end
      object TB_jhlr: TToolButton
        Left = 67
        Top = 0
        Cursor = crHandPoint
        Hint = #21830#22330#12304#36827#36135#12305#25968#25454#24405#20837'|'#24405#20837#21830#22330#30340#36827#36135#25968#25454
        Caption = #21830#22330#36827#36135
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_data_jhlrClick
      end
      object TB_jhth: TToolButton
        Left = 134
        Top = 0
        Cursor = crHandPoint
        Hint = #21830#22330#12304#36827#36135#36864#36135#12305#25968#25454#24405#20837'|'#24405#20837#21830#22330#30340#36864#36135#25968#25454
        Caption = #36827#36135#36864#36135
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_data_jhthClick
      end
      object TB_xsth: TToolButton
        Left = 201
        Top = 0
        Cursor = crHandPoint
        Hint = #21830#22330#12304#38144#21806#36864#36135#12305#25968#25454#24405#20837'|'#24405#20837#21830#22330#30340#38144#21806#36864#36135#25968#25454
        Caption = #38144#21806#36864#36135
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_data_xsthClick
      end
      object ToolButton1: TToolButton
        Left = 268
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object TB_kctj: TToolButton
        Left = 276
        Top = 0
        Cursor = crHandPoint
        Hint = #21830#22330#12304#24211#23384#21830#21697#12305#32479#35745
        Caption = #24211#23384#32479#35745
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_ywcx_sckcsptjClick
      end
      object TB_spfb: TToolButton
        Left = 343
        Top = 0
        Cursor = crHandPoint
        Hint = #21830#22330#12304#21830#21697#20998#24067#29366#24577#12305
        Caption = #21830#21697#20998#24067
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_ywcx_spfbClick
      end
      object TB_ywyxs: TToolButton
        Left = 410
        Top = 0
        Cursor = crHandPoint
        Hint = #12304#19994#21153#21592#38144#21806#12305#32479#35745#25253#34920
        Caption = #19994#21153#21592#38144#21806
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_ywcx_ywyxstjClick
      end
      object TB_scxs: TToolButton
        Left = 477
        Top = 0
        Cursor = crHandPoint
        Hint = #12304#21830#22330#38144#21806#12305#32479#35745#25253#34920
        Caption = #38144#21806#32479#35745
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_ywcx_scxstjClick
      end
      object ToolButton2: TToolButton
        Left = 544
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object TB_logo: TToolButton
        Left = 552
        Top = 0
        Cursor = crHandPoint
        Hint = #27880#38144#24403#21069#29992#25143#65292#37325#26032#30331#24405
        Caption = #27880#38144'[&L]'
        ImageIndex = 8
        ParentShowHint = False
        ShowHint = True
        OnClick = TB_logoClick
      end
      object TB_exit: TToolButton
        Left = 619
        Top = 0
        Cursor = crHandPoint
        Hint = #36864#20986#31995#32479
        Caption = #36864#20986'[&X]'
        ImageIndex = 9
        ParentShowHint = False
        ShowHint = True
        OnClick = Menu_file_exitClick
      end
    end
  end
  object StatusBar_main: TStatusBar
    Left = 0
    Top = 551
    Width = 792
    Height = 22
    AutoHint = True
    Color = 14540253
    Panels = <
      item
        Text = #20934#22791#22909
        Width = 200
      end
      item
        Text = #21271#20140#27721#29579#31185#25216#26377#38480#20844#21496#24120#24030#20998#20844#21496#12298#21830#22330#31649#29702#31243#24207#12299
        Width = 150
      end
      item
        Text = #29616#22312#26102#38388#65306
        Width = 200
      end
      item
        Text = #25805#20316#21592#65306#12304#26410#30693#12305' '#26435#38480#12310#26410#30693#12311
        Width = 50
      end>
    SimplePanel = False
    OnDblClick = Menu_tools_aboutClick
  end
  object Panel_back: TPanel
    Left = 0
    Top = 75
    Width = 792
    Height = 476
    Align = alClient
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 2
    object Splitter_main: TSplitter
      Left = 159
      Top = 0