main.dfm

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

object frmMain: TfrmMain
  Left = 284
  Top = 276
  Width = 508
  Height = 380
  Caption = 'frmMain'
  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 MainMenu1: TMainMenu
    Left = 196
    Top = 116
    object miSystem: TMenuItem
      Caption = #31995#32479'(&S)'
      object miLogin: TMenuItem
        Action = Login
      end
      object miLogout: TMenuItem
        Action = Logout
      end
      object N1: TMenuItem
        Action = AccessControl
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Action = Exit
      end
    end
    object miMan: TMenuItem
      Caption = #31649#29702#21151#33021'(&M)'
      object miManBook: TMenuItem
        Action = ManBook
      end
      object miManStore: TMenuItem
        Action = ManStore
      end
      object miManBuy: TMenuItem
        Action = ManBuy
      end
      object miManCustomer: TMenuItem
        Action = ManCustomer
      end
      object miSell: TMenuItem
        Action = ManSell
      end
    end
    object N4: TMenuItem
      Caption = #25253#34920
      object N5: TMenuItem
        Action = PrintBookList
      end
      object N6: TMenuItem
        Action = PrintBuyList
      end
    end
    object miHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object miHelpContent: TMenuItem
        Action = HelpContents1
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object miHelpAbout: TMenuItem
        Action = HelpAbout
      end
    end
  end
  object ActionList1: TActionList
    Left = 236
    Top = 116
    object Login: TAction
      Category = 'System'
      Caption = #30331#24405
    end
    object Logout: TAction
      Category = 'System'
      Caption = #27880#38144
    end
    object Exit: TAction
      Category = 'System'
      Caption = #36864#20986
      ShortCut = 32883
    end
    object ManBook: TAction
      Category = 'Manage'
      Caption = #20070#31821#31649#29702
      OnExecute = ManBookExecute
    end
    object ManBuy: TAction
      Category = 'Manage'
      Caption = #36827#36135#31649#29702
      OnExecute = ManBuyExecute
    end
    object ManStore: TAction
      Category = 'Manage'
      Caption = #24211#23384#31649#29702
    end
    object ManCustomer: TAction
      Category = 'Manage'
      Caption = #20250#21592#31649#29702
    end
    object ManSell: TAction
      Category = 'Manage'
      Caption = #38144#21806#31649#29702
    end
    object HelpContents1: THelpContents
      Category = 'Help'
      Caption = #24110#21161#20027#39064
      Enabled = False
      Hint = 'Help Contents'
      ImageIndex = 40
    end
    object HelpTopicSearch1: THelpTopicSearch
      Category = 'Help'
      Caption = #20027#39064#25628#32034
      Enabled = False
      Hint = 'Topic Search'
      ImageIndex = 9
    end
    object HelpAbout: TAction
      Category = 'Help'
      Caption = #20851#20110'...'
      OnExecute = HelpAboutExecute
    end
    object AccessControl: TAction
      Category = 'System'
      Caption = #26435#38480#31649#29702
      OnExecute = AccessControlExecute
      OnUpdate = AccessControlUpdate
    end
    object PrintBookList: TAction
      Category = 'Report'
      Caption = #25171#21360#20070#31821#28165#21333
      OnExecute = PrintBookListExecute
    end
    object PrintBuyList: TAction
      Category = 'Report'
      Caption = #25171#21360#36827#36135#28165#21333
      OnExecute = PrintBuyListExecute
    end
  end
  object pmSystem: TPopupMenu
    Left = 208
    Top = 196
    object N2: TMenuItem
      Action = HelpAbout
    end
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 340
    Top = 208
  end
end