main.dfm

这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin

object fmain: Tfmain
  Left = 491
  Top = 415
  Width = 696
  Height = 480
  Caption = 'fmain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = mm
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  OnClose = FormClose
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object rbg: TRzBackground
    Left = 0
    Top = 40
    Width = 688
    Height = 372
    Active = True
    Align = alClient
    GradientColorStart = 16746632
    ImageStyle = isCenter
    ShowGradient = True
    ShowImage = False
    ShowTexture = False
  end
  object img: TImage
    Left = 0
    Top = 40
    Width = 688
    Height = 372
    Align = alClient
    PopupMenu = PopupMenu1
    Stretch = 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
      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
      Caption = 'ToolButton2'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton4: TToolButton
      Left = 86
      Top = 0
      Caption = 'ToolButton4'
      ImageIndex = 2
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 125
      Top = 0
      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
      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
      object N5: TMenuItem
        Caption = #30028#38754#32972#26223
        ShortCut = 16439
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #35774#32622#31649#29702#21592
        ShortCut = 16440
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Caption = #22791#20221#25968#25454#24211
        ShortCut = 121
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #20462#25913#23494#30721
        ShortCut = 122
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Caption = #36864#20986#31995#32479
        ImageIndex = 17
        ShortCut = 123
        OnClick = N10Click
      end
    end
    object N2: TMenuItem
      Caption = #22522#30784#20449#24687
      object N14: TMenuItem
        Caption = #29289#21697#20449#24687
        ImageIndex = 10
        ShortCut = 113
        OnClick = N14Click
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object N22: TMenuItem
        Caption = #31867#21035#31649#29702
        ShortCut = 16437
        OnClick = N22Click
      end
      object N23: TMenuItem
        Caption = #20379#24212#21830#31649#29702
        ShortCut = 16438
        OnClick = N23Click
      end
    end
    object N3: TMenuItem
      Caption = #19994#21153#25805#20316
      object A1: TMenuItem
        Caption = #29289#21697#36827#36135
        ImageIndex = 5
        ShortCut = 118
        OnClick = A1Click
      end
      object A2: TMenuItem
        Caption = #29289#21697#20986#36135
        ImageIndex = 0
        ShortCut = 119
        OnClick = A1Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object A6: TMenuItem
        Caption = #23457#26680#20837#24211#21333
        ShortCut = 16433
        OnClick = A1Click
      end
      object A7: TMenuItem
        Caption = #23457#26680#20986#24211#21333