departmentfrm.~dfm

一个电力企业的后台管理程序

object Form_Department: TForm_Department
  Left = 441
  Top = 271
  Width = 760
  Height = 404
  Caption = '接收端部门设置：'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 309
    Top = 26
    Width = 3
    Height = 351
    Cursor = crHSplit
  end
  object Dock971: TDock97
    Left = 0
    Top = 0
    Width = 752
    Height = 26
    object Image1: TImage
      Left = 354
      Top = 1
      Width = 347
      Height = 25
      Align = alClient
      Stretch = True
    end
    object tbar97_Dept: TToolbar97
      Left = 0
      Top = 0
      Caption = '工作部门设置'
      DockPos = 0
      TabOrder = 0
      object ToolbarButton971: TToolbarButton97
        Left = 198
        Top = 0
        Width = 66
        Height = 22
        Action = Act_refresh
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
          555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
          7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
          55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
          55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
          BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
          55555555577777555555555705BBB55505555555F5777555F555557B5555055B
          505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
          5B5557555557F55557555555555B555555555555555755555555}
        NumGlyphs = 2
        ParentFont = False
      end
      object TB_edit: TToolbarButton97
        Left = 132
        Top = 0
        Width = 66
        Height = 22
        Action = Act_edit
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
        ParentFont = False
      end
      object TB_add: TToolbarButton97
        Left = 0
        Top = 0
        Width = 66
        Height = 22
        Action = Act_add
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
        ParentFont = False
      end
      object TB_delete: TToolbarButton97
        Left = 66
        Top = 0
        Width = 66
        Height = 22
        Action = Act_delete
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
        ParentFont = False
      end
    end
    object tbar97_Deptquit: TToolbar97
      Left = 277
      Top = 0
      Caption = '退出'
      DockPos = 277
      TabOrder = 1
      object ToolbarButton975: TToolbarButton97
        Left = 0
        Top = 0
        Width = 66
        Height = 22
        Action = Act_quit
        Flat = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        NumGlyphs = 2
        ParentFont = False
      end
    end
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 26
    Width = 309
    Height = 351
    Align = alLeft
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Indent = 19
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    OnClick = TreeView1Click
  end
  object Panel1: TPanel
    Left = 312
    Top = 26
    Width = 440
    Height = 351
    Align = alClient
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 436
      Height = 306
      Align = alClient
      TabOrder = 0
      object Label1: TLabel
        Left = 24
        Top = 31
        Width = 60
        Height = 15
        Caption = '部门编码'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 26
        Top = 85
        Width = 60
        Height = 15
        Caption = '部门名称'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 29
        Top = 140
        Width = 60
        Height = 15
        Caption = '部门电话'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 32
        Top = 192
        Width = 60
        Height = 15
        Caption = '所属主机'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 32
        Top = 301
        Width = 60
        Height = 15
        Caption = '所属类别'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu2
      end
      object Label6: TLabel
        Left = 99
        Top = 335
        Width = 315
        Height = 15
        Caption = '（在“所属类别”框中点击“右键”浏览类别）'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 99
        Top = 25
        Width = 121
        Height = 23
        Color = clScrollBar
        DataField = 'DEPARTMENTNO'
        DataSource = ManagDM.DS_Depart
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 99
        Top = 81
        Width = 207
        Height = 23
        DataField = 'DEPARTMENTNAME'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '中文 (简体) - 微软拼音'
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 99
        Top = 136
        Width = 207
        Height = 23
        DataField = 'DepartPhoneNo'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DBMemo1: TDBMemo
        Left = 99
        Top = 186
        Width = 268
        Height = 89
        DataField = 'HostName'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object DBEdit4: TDBEdit
        Left = 99
        Top = 301
        Width = 76
        Height = 23
        Color = clMenu
        DataField = 'Flag'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu2
        TabOrder = 4
      end
    end
    object Panel3: TPanel
      Left = 2
      Top = 308
      Width = 436
      Height = 41
      Align = alBottom
      TabOrder = 1
      object Spd_save: TSpeedButton
        Left = 160
        Top = 9
        Width = 44
        Height = 24
        Caption = '保 存'
        OnClick = Spd_saveClick
      end
      object Spd_cancel: TSpeedButton
        Left = 344
        Top = 9
        Width = 44
        Height = 24
        Caption = '取 消'
        OnClick = Spd_cancelClick
      end
    end
  end
  object ActionList1: TActionList
    Left = 72
    Top = 120
    object Act_add: TAction
      Category = 'Operation'
      Caption = '增 加'
      OnExecute = Act_addExecute
    end
    object Act_delete: TAction
      Category = 'Operation'
      Caption = '删 除'
      OnExecute = Act_deleteExecute
    end
    object Act_edit: TAction
      Category = 'Operation'
      Caption = '修 改'
      OnExecute = Act_editExecute
    end
    object Act_refresh: TAction
      Category = 'Operation'
      Caption = '刷 新'
      OnExecute = Act_refreshExecute
    end
    object Act_quit: TAction
      Category = 'Operation'
      Caption = '退 出'
      OnExecute = Act_quitExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 48
    Top = 152
    object N_add: TMenuItem
      Action = Act_add
    end
    object N_delete: TMenuItem
      Action = Act_delete
    end
    object N_edit: TMenuItem
      Action = Act_edit
    end
    object N_refresh: TMenuItem
      Action = Act_refresh
    end
  end
  object PopupMenu2: TPopupMenu
    OnPopup = PopupMenu2Popup
    Left = 602
    Top = 60
    object N1: TMenuItem
      Caption = '故障报修'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '用电申请'
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '用户投诉'
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = '咨询登记'
      OnClick = N4Click
    end
  end
end