main.dfm

一个全面的客户管理系统,是用delphi开发的,界面和功能都很不错的

          end
          item
            Action = ChangePassword
            DisabledIndex = 28
          end>
        Opened = False
        OpenedHeight = 68
        SmallImages = ImageList1
        UseGradients = True
        Caption = #29992#25143#31649#29702
        ParentColor = False
      end
      object RzGroup1: TRzGroup
        Items = <
          item
            Action = SystemLog
            DisabledIndex = 25
          end
          item
            Action = Area
            DisabledIndex = 26
          end
          item
            Action = Option
          end>
        Opened = False
        OpenedHeight = 88
        SmallImages = ImageList1
        UseGradients = True
        Caption = #31995#32479#35774#32622
        ParentColor = False
      end
      object RzGroup5: TRzGroup
        Items = <
          item
            Action = Sort
            DisabledIndex = 38
          end
          item
            Action = Compress
            DisabledIndex = 40
            Visible = False
          end
          item
            Action = BackUpdata
            DisabledIndex = 29
          end>
        Opened = False
        OpenedHeight = 68
        SmallImages = ImageList1
        UseGradients = True
        Caption = #31995#32479#32500#25252
        ParentColor = False
      end
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Images = ImageList1
    OwnerDraw = True
    Left = 272
    Top = 64
    object File1: TMenuItem
      Caption = #31995#32479#31649#29702'(&S)'
      object N2: TMenuItem
        Caption = #27880#38144#29992#25143
        ImageIndex = 24
        OnClick = ToolButton1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Action = ChangePassword
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Action = FileExit1
      end
    end
    object N5: TMenuItem
      Caption = #21151#33021#27169#22359'(&O)'
      object N9: TMenuItem
        Action = ClientList
      end
      object N10: TMenuItem
        Action = Visit
      end
      object N11: TMenuItem
        Action = Bespeak
      end
      object N33: TMenuItem
        Action = LinkManList
      end
      object N34: TMenuItem
        Action = SellList
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object N13: TMenuItem
        Action = Reserve
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Action = PowerChange
      end
      object N16: TMenuItem
        Action = ChangePassword
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N18: TMenuItem
        Action = SystemLog
      end
      object N19: TMenuItem
        Action = Area
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object EXCEL1: TMenuItem
        Caption = #23548#20986#25968#25454#33267'Excel...'
        ImageIndex = 31
        object N37: TMenuItem
          Action = ClientData
        end
        object N38: TMenuItem
          Action = LinkMan
        end
        object N39: TMenuItem
          Action = VisitData
        end
        object N40: TMenuItem
          Action = BespokeData
        end
        object N41: TMenuItem
          Caption = '-'
        end
        object N42: TMenuItem
          Action = ProductData
        end
      end
      object N45: TMenuItem
        Caption = '-'
      end
      object N44: TMenuItem
        Action = Sort
      end
      object N43: TMenuItem
        Action = Compress
      end
      object N21: TMenuItem
        Action = BackUpdata
      end
      object N46: TMenuItem
        Caption = '-'
      end
      object N22: TMenuItem
        Action = Option
      end
    end
    object N23: TMenuItem
      Caption = #25171#21360#25253#34920'(&P)'
      object N24: TMenuItem
        Action = ClientListReport
      end
      object N25: TMenuItem
        Action = LinkManReport
      end
      object N26: TMenuItem
        Action = VisitReport
      end
      object N27: TMenuItem
        Action = BespokeReport
      end
      object N28: TMenuItem
        Caption = '-'
      end
      object N29: TMenuItem
        Action = ProductReport
      end
      object N30: TMenuItem
        Action = SellReport
      end
      object N31: TMenuItem
        Caption = '-'
      end
      object N32: TMenuItem
        Action = LogReport
      end
    end
    object W1: TMenuItem
      Caption = #31383#21475'(&W)'
      object C1: TMenuItem
        Action = WindowCascade1
        ImageIndex = 7
      end
      object N7: TMenuItem
        Action = WindowTileVertical1
        ImageIndex = 9
      end
      object N6: TMenuItem
        Action = WindowTileHorizontal1
        ImageIndex = 8
      end
      object N8: TMenuItem
        Action = WindowMinimizeAll1
        Caption = #20840#37096#26368#23567#21270'(&M)'
      end
    end
    object Help1: TMenuItem
      Caption = #24110#21161'(&H)'
      object H1: TMenuItem
        Action = Help
      end
      object N47: TMenuItem
        Caption = '-'
      end
      object N35: TMenuItem
        Action = EMail
      end
      object N36: TMenuItem
        Caption = '-'
      end
      object HelpAboutItem: TMenuItem
        Action = HelpAbout1
      end
    end
  end
  object ActionList1: TActionList
    Tag = 11
    Images = ImageList1
    Left = 272
    Top = 96
    object FileExit1: TAction
      Category = 'File'
      Caption = #36864#20986
      Hint = #36864#20986#31995#32479
      ImageIndex = 5
      OnExecute = FileExit1Execute
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = #23618#21472#31383#21475'(&C)'
      Hint = #23618#21472#31383#21475
      ImageIndex = 17
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = #27178#21521#24179#38138#31383#21475'(&H)'
      Hint = #27178#21521#24179#38138#31383#21475
      ImageIndex = 18
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = #32437#21521#24179#38138#31383#21475'(&V)'
      Hint = #32437#21521#24179#38138#31383#21475
      ImageIndex = 19
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = #20840#37096#31383#21475#26368#23567#21270'(&M)'
      Hint = #20840#37096#26368#23567#21270
    end
    object HelpAbout1: TAction
      Category = 'Help'
      Caption = #20851#20110'(&A)...'
      Hint = ' '#20851#20110#26412#31243#24207
      ImageIndex = 23
      OnExecute = HelpAbout1Execute
    end
    object ClientList: TAction