main.dfm

某公司资料管理系统

object MainMenuForm: TMainMenuForm
  Left = 197
  Top = 106
  Width = 600
  Height = 409
  Caption = #32418#26495#26377#38480#20844#21496'--MI'#35774#35745#21046#20316#31995#32479
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  WindowMenu = Window1
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 340
    Width = 592
    Height = 23
    Panels = <
      item
        Text = #24403#21069#29992#25143':   '
        Width = 60
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 592
    Height = 33
    Caption = 'ToolBar1'
    Color = clBtnFace
    Customizable = True
    HotImages = ImageList1
    Images = ImageList1
    ParentColor = False
    TabOrder = 1
    object ToolButton5: TToolButton
      Left = 0
      Top = 2
      Hint = #37325#26032#27880#20876
      Caption = 'ToolButton5'
      ImageIndex = 18
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 23
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 18
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 31
      Top = 2
      Hint = 'Cut'
      Action = EditCut1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton2: TToolButton
      Left = 54
      Top = 2
      Action = EditCopy1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton3: TToolButton
      Left = 77
      Top = 2
      Action = EditPaste1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton4: TToolButton
      Left = 100
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 108
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton17: TToolButton
      Left = 116
      Top = 2
      Width = 8
      Caption = 'ToolButton17'
      ImageIndex = 14
      Style = tbsSeparator
    end
    object ToolButton18: TToolButton
      Left = 124
      Top = 2
      Hint = 'Print Setup'
      Caption = 'ToolButton18'
      ImageIndex = 14
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton18Click
    end
    object ToolButton19: TToolButton
      Left = 147
      Top = 2
      Action = WindowTileHorizontal1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton20: TToolButton
      Left = 170
      Top = 2
      Action = WindowTileVertical1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton21: TToolButton
      Left = 193
      Top = 2
      Action = WindowCascade1
      ParentShowHint = False
      ShowHint = True
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 237
    Top = 152
    object System: TMenuItem
      Caption = #31995#32479#31649#29702
      Hint = 'File related commands'
      object AddUser: TMenuItem
        Caption = #26032#22686#29992#25143
        OnClick = AddUserClick
      end
      object DeleteUser: TMenuItem
        Caption = #21024#38500#29992#25143
        OnClick = DeleteUserClick
      end
      object UserPasswd: TMenuItem
        Caption = #20462#25913#23494#30721
        OnClick = UserPasswdClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = #37325#26032#36830#25509
        OnClick = N3Click
      end
      object PrintSetup: TMenuItem
        Caption = #25171#21360#26426#35774#32622
        OnClick = PrintSetupClick
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Exit: TMenuItem
        Action = FileExit1
        Caption = #36864#20986
      end
    end
    object MISystem: TMenuItem
      Caption = 'MI'#21046#20316#25351#31034
      Hint = 'Edit commands'
      object MIDesigner: TMenuItem
        Caption = 'PPE'#21046#20316'MI'
        OnClick = MIDesignerClick
      end
      object MIApp: TMenuItem
        Caption = 'PPE'#23457#26680'MI'
        OnClick = MIAppClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object MISearch: TMenuItem
        Caption = #26597#35810'MI'
        OnClick = MISearchClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object MIQACheck: TMenuItem
        Caption = 'QA'#26816#26597'MI'
        OnClick = MIQACheckClick
      end
      object MIQAApp: TMenuItem
        Caption = 'QA'#23457#26597'MI'
        OnClick = MIQAAppClick
      end
    end
    object N2: TMenuItem
      Caption = #26679#26495#31649#29702
      object SampleProduct: TMenuItem
        Caption = #26679#26495#19979#21333#29983#20135
        OnClick = SampleProductClick
      end
      object SampleManage: TMenuItem
        Caption = #36755#20837#26679#26495#29983#20135#25968#25454
        OnClick = SampleManageClick
      end
      object SampleSearch: TMenuItem
        Caption = #26597#35810#26679#26495#29983#20135#25968#25454
        OnClick = SampleSearchClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object SampleDelete: TMenuItem
        Caption = #21024#38500#26679#26495#29983#20135#25968#25454
        OnClick = SampleDeleteClick
      end
    end
    object Base: TMenuItem
      Caption = #22522#26412#36164#26009
      object Customer: TMenuItem
        Caption = #23458#25143#31649#29702
        OnClick = CustomerClick
      end
      object BaseBoard: TMenuItem
        Caption = #26495#26009#36164#26009
        OnClick = BaseBoardClick
      end
      object Prepreg: TMenuItem
        Caption = 'P'#29255#36164#26009
        OnClick = PrepregClick
      end
      object BaseRoute: TMenuItem
        Caption = #26631#20934#24037#24207
        OnClick = BaseRouteClick
      end
      object SampleRoute: TMenuItem
        Caption = #26631#20934#27969#31243
        OnClick = SampleRouteClick
      end
    end
    object Window1: TMenuItem
      Caption = #31383#21475
      Hint = 'Window related commands'
      object WindowCascadeItem: TMenuItem
        Action = WindowCascade1
        Caption = #23618#21472#25490#21015
      end
      object WindowTileItem: TMenuItem
        Action = WindowTileHorizontal1
        Caption = #27700#24179#25490#21015
      end
      object WindowTileItem2: TMenuItem
        Action = WindowTileVertical1
        Caption = #22402#30452#25490#21015
      end
      object WindowMinimizeItem: TMenuItem