zfrm_customermanageru.dfm

一个很不错的评标系统

object zfrm_customerM: Tzfrm_customerM
  Left = 224
  Top = 195
  Width = 748
  Height = 514
  Anchors = []
  BorderIcons = [biSystemMenu, biMaximize]
  BorderWidth = 3
  Caption = '用户管理'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 209
    Top = 47
    Width = 3
    Height = 393
    Cursor = crHSplit
    Align = alLeft
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 47
    Width = 209
    Height = 393
    Align = alLeft
    HideSelection = False
    Images = ImageList2
    Indent = 19
    PopupMenu = PopupMenu1
    RightClickSelect = True
    TabOrder = 0
    OnClick = TreeView1Click
    OnEdited = TreeView1Edited
  end
  object ListView1: TListView
    Left = 212
    Top = 47
    Width = 522
    Height = 393
    Align = alClient
    Columns = <
      item
        AutoSize = True
        Caption = '用户姓名'
      end
      item
        AutoSize = True
        Caption = '用户代码'
      end
      item
        AutoSize = True
        Caption = '性别'
      end
      item
        AutoSize = True
        Caption = '联系方式'
      end
      item
        AutoSize = True
        Caption = '工作职位'
      end
      item
        AutoSize = True
        Caption = '发布权限'
      end
      item
        AutoSize = True
        Caption = '系统级别'
      end>
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu2
    SmallImages = ImageList2
    TabOrder = 1
    ViewStyle = vsReport
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 440
    Width = 734
    Height = 22
    Panels = <
      item
        Text = '按F1进入帮助'
        Width = 300
      end
      item
        Width = 100
      end
      item
        Alignment = taRightJustify
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 211
    Top = 34
    Width = 1
    Height = 379
    Cursor = crHSplit
    Color = clInfoText
    TabOrder = 3
    Visible = False
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 734
    Height = 47
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 43
        Width = 730
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 717
      Height = 43
      AutoSize = True
      ButtonHeight = 43
      ButtonWidth = 55
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      HotImages = ImageList3
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton6: TToolButton
        Left = 0
        Top = 0
        Hint = '新建部门'
        Caption = '新建部门'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = N2Click
      end
      object ToolButton7: TToolButton
        Left = 55
        Top = 0
        Hint = '修改部门'
        Caption = '修改部门'
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = M1Click
      end
      object ToolButton8: TToolButton
        Left = 110
        Top = 0
        Hint = '删除部门'
        Caption = '删除部门'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = D1Click
      end
      object ToolButton9: TToolButton
        Left = 165
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 173
        Top = 0
        Hint = '新建用户'
        Caption = '新建用户'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = N8Click
      end
      object ToolButton2: TToolButton
        Left = 228
        Top = 0
        Hint = '添加用户'
        Caption = '添加用户'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = N5Click
      end
      object ToolButton10: TToolButton
        Left = 283
        Top = 0
        Hint = '用户属性'
        Caption = '用户属性'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = U1Click
      end
      object ToolButton11: TToolButton
        Left = 338
        Top = 0
        Hint = '删除用户'
        Caption = '删除用户'
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
        OnClick = D2Click
      end
      object ToolButton5: TToolButton