departmentworfrm.dfm

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

object Form_DepartmentWork: TForm_DepartmentWork
  Left = 44
  Top = 158
  Width = 933
  Height = 370
  Caption = '工作部门设置：'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 925
    Height = 26
    AutoSize = True
    ButtonWidth = 65
    Caption = 'ToolBar1'
    EdgeOuter = esRaised
    Images = ImageList_Tab
    List = True
    ShowCaptions = True
    TabOrder = 0
    Transparent = True
    object ToolButton5: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object TB_new: TToolButton
      Left = 8
      Top = 2
      Action = Action_new
    end
    object TB_edit: TToolButton
      Left = 73
      Top = 2
      Action = Action_edit
    end
    object TB_save: TToolButton
      Left = 138
      Top = 2
      Action = Action_save
    end
    object TB_delete: TToolButton
      Left = 203
      Top = 2
      Action = Action_delete
    end
    object ToolButton10: TToolButton
      Left = 268
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object TB_close: TToolButton
      Left = 276
      Top = 2
      Action = Action_clsoe
    end
  end
  object PC_Main: TPageControl
    Left = 0
    Top = 26
    Width = 925
    Height = 311
    ActivePage = Tab_YhtsClass
    Align = alClient
    Images = ImageList_Tab
    TabOrder = 1
    OnChange = PC_MainChange
    object Tab_GzbxDepart: TTabSheet
      Caption = '故障报修处理单位'
      ParentShowHint = False
      ShowHint = True
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 917
        Height = 281
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 917
          Height = 55
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvLowered
          TabOrder = 0
          object Label1: TLabel
            Left = 96
            Top = 21
            Width = 60
            Height = 15
            Caption = '单位名称'
          end
          object Label10: TLabel
            Left = 367
            Top = 21
            Width = 60
            Height = 15
            Caption = '计算机名'
          end
          object DBEdit1: TDBEdit
            Left = 168
            Top = 17
            Width = 121
            Height = 23
            DataField = 'DEALDEPT_NAME'
            DataSource = ManagDM.DS_ElecOutDepart
            TabOrder = 0
          end
          object DBEdit10: TDBEdit
            Left = 439
            Top = 17
            Width = 300
            Height = 23
            DataField = 'Hostname'
            DataSource = ManagDM.DS_ElecOutDepart
            TabOrder = 1
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 55
          Width = 917
          Height = 226
          Align = alClient
          DataSource = ManagDM.DS_ElecOutDepart
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -15
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DEALDEPT_NO'
              Title.Alignment = taCenter
              Title.Caption = '编  号'
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DEALDEPT_NAME'
              Title.Alignment = taCenter
              Title.Caption = '部门名称'
              Width = 150
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Hostname'
              Title.Alignment = taCenter
              Title.Caption = '计算机名'
              Width = 400
              Visible = True
            end>
        end
      end
    end
    object Tab_YhtsDepart: TTabSheet
      Caption = '用户投诉处理单位'
      ImageIndex = 1
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 917
        Height = 281
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 917
          Height = 55
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvLowered
          TabOrder = 0
          object Label2: TLabel
            Left = 94
            Top = 21
            Width = 60
            Height = 15
            Caption = '单位名称'
          end
          object Label11: TLabel
            Left = 340
            Top = 21
            Width = 60
            Height = 15
            Caption = '计算机名'
          end
          object DBEdit2: TDBEdit
            Left = 166
            Top = 17
            Width = 121
            Height = 23
            DataField = 'DEALDEPT_NAME'
            DataSource = ManagDM.DS_CompDepart
            TabOrder = 0
          end
          object DBEdit11: TDBEdit
            Left = 412
            Top = 17
            Width = 300
            Height = 23
            DataField = 'Hostname'
            DataSource = ManagDM.DS_CompDepart
            TabOrder = 1
          end
        end
        object DBGrid2: TDBGrid
          Left = 0
          Top = 55
          Width = 917
          Height = 226
          Align = alClient
          DataSource = ManagDM.DS_CompDepart
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -15
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DEALDEPT_NO'
              Title.Alignment = taCenter
              Title.Caption = '编  号'
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'DEALDEPT_NAME'
              Title.Alignment = taCenter
              Title.Caption = '部门名称'
              Width = 150
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Hostname'
              Title.Alignment = taCenter
              Title.Caption = '计算机名'
              Width = 400
              Visible = True
            end>
        end
      end
    end
    object Tab_YhtsClass: TTabSheet
      Caption = '用户投诉详细类别'
      ImageIndex = 2
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 917
        Height = 281
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 917
          Height = 55
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvLowered
          TabOrder = 0
          object Label3: TLabel
            Left = 237
            Top = 21
            Width = 60
            Height = 15
            Caption = '投诉类别'
          end
          object DBEdit3: TDBEdit
            Left = 309
            Top = 17
            Width = 121
            Height = 23
            DataField = 'EXPLAIN'
            DataSource = ManagDM.DS_CompType
            TabOrder = 0
          end
        end
        object DBGrid3: TDBGrid
          Left = 0
          Top = 55
          Width = 917
          Height = 226
          Align = alClient
          DataSource = ManagDM.DS_CompType
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -15
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'ID'
              Title.Alignment = taCenter
              Title.Caption = '编  号'
              Width = 80
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'EXPLAIN'
              Title.Alignment = taCenter
              Title.Caption = '投诉详细类别'
              Width = 500
              Visible = True
            end>
        end
      end
    end
    object Tab_ZxdjDepart: TTabSheet
      Caption = '咨询登记处理单位'
      ImageIndex = 3
      object Panel7: TPanel
        Left = 0
        Top = 0
        Width = 917
        Height = 281
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0