main.dfm

一个delphi开发的库存管理系统源代码

object fmain: Tfmain
  Left = 312
  Top = 200
  Width = 696
  Height = 480
  Caption = 'fmain'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = mm
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  WindowMenu = N17
  OnClose = FormClose
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object rbg: TRzBackground
    Left = 0
    Top = 40
    Width = 688
    Height = 372
    Active = True
    Align = alClient
    GradientColorStart = 16746632
    ImageStyle = isStretch
    PopupMenu = PopupMenu1
    ShowGradient = True
    ShowImage = False
    ShowTexture = False
  end
  object lbl_info: TLabel
    Left = 286
    Top = 62
    Width = 7
    Height = 14
    Transparent = True
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 40
    AutoSize = True
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'ToolBar1'
    Flat = True
    Images = il1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = #29289#21697#36164#26009#31649#29702':'#25152#20197#35201#36827#20837#24211#23384#31649#29702#30340#21830#21697#37117#35201#22312#36825#37324#24314#31435#22522#30784#36164#26009#26723#26696
      Caption = 'ToolButton1'
      ImageIndex = 0
      OnClick = N14Click
    end
    object ToolButton3: TToolButton
      Left = 39
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 47
      Top = 0
      Hint = #29289#21697#20837#24211#25805#20316':'#29289#21697#21482#26377#36827#34892#20837#24211#25805#20316#21518#25165#33021#24433#21709#24211#23384
      Caption = 'ToolButton2'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton4: TToolButton
      Left = 86
      Top = 0
      Hint = #29289#21697#20986#24211#25805#20316':'#29289#21697#21482#26377#36827#34892#20986#24211#25805#20316#21518#25165#33021#24433#21709#24211#23384
      Caption = 'ToolButton4'
      ImageIndex = 2
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 125
      Top = 0
      Hint = #29289#21697#24211#23384#31649#29702':'#26412#36719#20214#30340#26680#24515#21151#33021#23601#26159#23545#24211#23384#30340#31649#29702','#22312#36825#37324#21487#20197#23548#20986#25171#21360#24211#23384#25968#25454
      Caption = 'ToolButton5'
      ImageIndex = 3
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 164
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 172
      Top = 0
      Hint = #36864#20986#31995#32479':'#20851#38381#26412#36719#20214
      Caption = 'ToolButton7'
      ImageIndex = 4
      OnClick = N10Click
    end
  end
  object sb: TStatusBar
    Left = 0
    Top = 412
    Width = 688
    Height = 22
    AutoHint = True
    Panels = <
      item
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 180
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Alignment = taCenter
        Text = 'ENWEN 2007 email:[e-mail]'
        Width = 220
      end>
  end
  object mm: TMainMenu
    Images = il2
    Left = 118
    Top = 42
    object N1: TMenuItem
      Caption = #31995#32479#35774#32622
      Hint = #31995#32479#35774#32622':'#19982#31243#24207#30456#20851#30340#35774#32622
      object N5: TMenuItem
        Caption = #30028#38754#32972#26223
        Hint = #30028#38754#32972#26223':'#36719#20214#30340#25805#20316#32972#26223
        ShortCut = 16439
        OnClick = N5Click
      end
      object N25: TMenuItem
        Caption = #26631#39064#25991#23383#35774#23450
        OnClick = N25Click
      end
      object N20: TMenuItem
        Caption = #23548#20986#21040'Excel'#25991#20214
        OnClick = N20Click
      end
      object N18: TMenuItem
        Caption = #30452#25509#25171#21360#25253#34920
        OnClick = N18Click
      end
      object N6: TMenuItem
        Caption = #31649#29702#25805#20316#21592
        Hint = #35774#32622#31649#29702#21592':'#36825#37324#30340#31649#29702#27809#26377#20160#20040#36229#32423#31649#29702#21592','#20854#23454#23601#26159#25805#20316#20154#21592
        ShortCut = 16440
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Caption = #22791#20221#24674#22797#25968#25454#24211
        Hint = #22791#20221#25968#25454#24211':'#24120#22791#20221','#26377#22791#26080#24739
        ShortCut = 121
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #20462#25913#23494#30721
        Hint = #20462#25913#23494#30721':'#24314#35758#24120#20462#25913#23494#30721
        ShortCut = 16464
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Caption = #36864#20986#31995#32479
        Hint = #36864#20986#31995#32479':'#20851#38381#26412#36719#20214
        ImageIndex = 17
        ShortCut = 49240
        OnClick = N10Click
      end
    end
    object N2: TMenuItem
      Caption = #22522#30784#20449#24687
      GroupIndex = 1
      Hint = #22522#30784#20449#24687':'#19982#24211#23384#30456#20851#30340#22522#30784#20449#24687','#35831#27491#30830#22635#20889#30456#20851#20449#24687
      object N14: TMenuItem
        Caption = #29289#21697#20449#24687
        Hint = #29289#21697#36164#26009#31649#29702':'#25152#20197#35201#36827#20837#24211#23384#31649#29702#30340#21830#21697#37117#35201#22312#36825#37324#24314#31435#22522#30784#36164#26009#26723#26696
        ImageIndex = 10
        ShortCut = 113
        OnClick = N14Click
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object N22: TMenuItem
        Caption = #31867#21035#31649#29702
        Hint = #31867#21035#31649#29702':'#19982#29289#21697#30456#20851#30340#31867#21035
        ShortCut = 16437
        OnClick = N22Click
      end
      object N23: TMenuItem
        Caption = #20379#24212#21830#31649#29702
        Hint = #20379#24212#21830#31649#29702':'#20379#24212#29289#21697#30340#21830#23478
        ShortCut = 16438