百货/超市行业

开发平台：

C++ Builder

Main.dfm：源码内容

							object fmMain: TfmMain
  Left = 166
  Top = 154
  Width = 740
  Height = 554
  Caption = #36827#38144#23384#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 489
    Width = 732
    Height = 19
    Panels = <
      item
        Text = #25968#25454#24211#24320#21457#32463#20856#26696#20363#35299#26512'   '#28165#21326#22823#23398#20986#29256#31038
        Width = 300
      end
      item
        Width = 30
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 32
    object mnuInfo: TMenuItem
      Caption = #36164#26009#31649#29702
      object mnuGoodManage: TMenuItem
        Caption = #21830#21697#36164#26009#32500#25252
        OnClick = mnuGoodManageClick
      end
      object mnuSupplyManage: TMenuItem
        Caption = #20379#36135#21830#36164#26009#32500#25252
        OnClick = mnuSupplyManageClick
      end
      object mnuCustomManage: TMenuItem
        Caption = #23458#25143#36164#26009#32500#25252
        OnClick = mnuCustomManageClick
      end
    end
    object mnuPurchase: TMenuItem
      Caption = #36827#36135#31649#29702
      object mnuPurchaseManage: TMenuItem
        Caption = #36827#36135#21333
        OnClick = mnuPurchaseManageClick
      end
    end
    object mnuSale: TMenuItem
      Caption = #38144#21806#31649#29702
      object mnuSaleManage: TMenuItem
        Caption = #38144#21806#21333
        OnClick = mnuSaleManageClick
      end
    end
    object mnuStock: TMenuItem
      Caption = #24211#23384#31649#29702
      object mnuStockQuery: TMenuItem
        Caption = #24211#23384#26597#35810
        OnClick = mnuStockQueryClick
      end
    end
    object mnuSystem: TMenuItem
      Caption = #31995#32479#31649#29702
      object mnuRightManage: TMenuItem
        Caption = #26435#38480#31649#29702
        OnClick = mnuRightManageClick
      end
    end
  end
end

						