main.dfm

信息系统工作核心代码,若要具体可以联系我,这只是一部分核心代码,大家一起交流分享.谢谢

object MainForm: TMainForm
  Left = 168
  Top = 104
  Width = 772
  Height = 482
  Caption = #21307#38498#19994#21153#23457#35745#31995#32479
  Color = clGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  WindowMenu = Window1
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 30
    Width = 1
    Height = 379
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 764
    Height = 30
    AutoSize = True
    BorderWidth = 1
    Color = clBtnFace
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = ImageList1
    Indent = 5
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Wrapable = False
    object Panel2: TPanel
      Left = 5
      Top = 0
      Width = 100
      Height = 22
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 3
        Top = 0
        Width = 73
        Height = 22
        Caption = #33756#21333#26641
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
          333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
          300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
          333337F373F773333333303330033333333337F3377333333333303333333333
          333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
          333337777F337F33333330330BB00333333337F373F773333333303330033333
          333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
          333377777F77377733330BBB0333333333337F337F33333333330BB003333333
          333373F773333333333330033333333333333773333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
    end
    object ToolButton8: TToolButton
      Left = 105
      Top = 0
      Action = WindowCascade1
    end
    object ToolButton10: TToolButton
      Left = 128
      Top = 0
      Action = WindowTileHorizontal1
    end
    object ToolButton11: TToolButton
      Left = 151
      Top = 0
      Action = WindowTileVertical1
    end
    object Panel1: TPanel
      Left = 174
      Top = 0
      Width = 185
      Height = 22
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object SBtnExit: TSpeedButton
        Left = 29
        Top = 0
        Width = 60
        Height = 22
        Hint = #36864#20986#31995#32479
        Caption = #36864#20986
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
          03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
          0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SBtnExitClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 409
    Width = 764
    Height = 19
    Panels = <>
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 496
    Top = 56
    object File1: TMenuItem
      Caption = #31995#32479'(&S)'
      object P1: TMenuItem
        Action = ModifyPassword
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Action = RestartAction
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Q1: TMenuItem
        Action = QuitSystem
      end
    end
    object N2: TMenuItem
      Caption = #24037#20855'(&U)'
      object C1: TMenuItem
        Action = Calculator
      end
      object R1: TMenuItem
        Action = NoteBook
      end
      object R2: TMenuItem
        Action = Calendar
      end
    end
    object Window1: TMenuItem
      Caption = #31383#21475'(&W)'
      Hint = 'Window related commands'
      object WindowCascadeItem: TMenuItem
        Action = WindowCascade1
      end
      object WindowTileItem: TMenuItem
        Action = WindowTileHorizontal1
      end
      object WindowTileItem2: TMenuItem
        Action = WindowTileVertical1
      end
      object WindowMinimizeItem: TMenuItem
        Action = WindowMinimizeAll1
      end
      object WindowArrangeItem: TMenuItem
        Action = WindowArrangeAll1
      end
    end
    object Help1: TMenuItem
      Caption = #24110#21161'(&H)'
      Hint = #31995#32479#24110#21161#20449#24687
      object H1: TMenuItem
        Action = HelpAbout1
      end
      object N3: TMenuItem
        Action = AbloutAction
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Left = 384
    Top = 56
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 456
    Top = 56
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = #23618#21472'(&C)'
      Hint = 'Cascade'
      ImageIndex = 0
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = #27700#24179#24179#38138'(&H)'
      Hint = 'Tile Horizontally'
      ImageIndex = 1
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = #22402#30452#24179#38138'(&V)'
      Hint = 'Tile Vertically'
      ImageIndex = 2
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = #26368#23567#21270'(&M)'
      Hint = 'Minimize All'
    end