departmentworfrm.dfm

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

        object Panel8: TPanel
          Left = 0
          Top = 0
          Width = 917
          Height = 55
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvLowered
          TabOrder = 0
          object Label4: TLabel
            Left = 131
            Top = 21
            Width = 60
            Height = 15
            Caption = '单位名称'
          end
          object Label12: TLabel
            Left = 376
            Top = 21
            Width = 60
            Height = 15
            Caption = '计算机名'
          end
          object DBEdit4: TDBEdit
            Left = 203
            Top = 17
            Width = 121
            Height = 23
            DataField = 'DEALDEPT_NAME'
            DataSource = ManagDM.DS_AskDepart
            TabOrder = 0
          end
          object DBEdit12: TDBEdit
            Left = 448
            Top = 17
            Width = 300
            Height = 23
            DataField = 'Hostname'
            DataSource = ManagDM.DS_AskDepart
            TabOrder = 1
          end
        end
        object DBGrid4: TDBGrid
          Left = 0
          Top = 55
          Width = 917
          Height = 226
          Align = alClient
          DataSource = ManagDM.DS_AskDepart
          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_YdsqDepart: TTabSheet
      Caption = '用电申请处理单位'
      ImageIndex = 4
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 917
        Height = 281
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Panel10: TPanel
          Left = 0
          Top = 0
          Width = 917
          Height = 55
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvLowered
          TabOrder = 0
          object Label5: TLabel
            Left = 136
            Top = 21
            Width = 60
            Height = 15
            Caption = '单位名称'
          end
          object Label13: TLabel
            Left = 395
            Top = 21
            Width = 60
            Height = 15
            Caption = '计算机名'
          end
          object DBEdit5: TDBEdit
            Left = 208
            Top = 17
            Width = 121
            Height = 23
            DataField = 'DEALDEPT_NAME'
            DataSource = ManagDM.DS_AskElecDepart
            TabOrder = 0
          end
          object DBEdit13: TDBEdit
            Left = 467
            Top = 17
            Width = 300
            Height = 23
            DataField = 'hostname'
            DataSource = ManagDM.DS_AskElecDepart
            TabOrder = 1
          end
        end
        object DBGrid5: TDBGrid
          Left = 0
          Top = 55
          Width = 917
          Height = 226
          Align = alClient
          DataSource = ManagDM.DS_AskElecDepart
          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_WorkName: TTabSheet
      Caption = '接收终端人员设置'
      ImageIndex = 5
      TabVisible = False
      object Panel11: TPanel
        Left = 0
        Top = 0
        Width = 917
        Height = 281
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Panel12: TPanel
          Left = 0
          Top = 0
          Width = 917
          Height = 55
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvLowered
          TabOrder = 0
          object Label6: TLabel
            Left = 11
            Top = 21
            Width = 60
            Height = 15
            Caption = '人员姓名'
          end
          object Label7: TLabel
            Left = 408
            Top = 21
            Width = 46
            Height = 15
            Caption = '密  码'
          end
          object Label8: TLabel
            Left = 601
            Top = 21
            Width = 38
            Height = 15
            Caption = '职 务'
          end
          object Label9: TLabel
            Left = 206
            Top = 21
            Width = 60
            Height = 15
            Caption = '人员工号'
          end
          object DBEdit6: TDBEdit
            Left = 73
            Top = 17
            Width = 121
            Height = 23
            DataField = 'RoleName'
            DataSource = ManagDM.DS_WorkName
            TabOrder = 0
          end
          object DBEdit7: TDBEdit
            Left = 458
            Top = 17
            Width = 121
            Height = 23
            DataField = 'psw'
            DataSource = ManagDM.DS_WorkName
            TabOrder = 1
          end
          object DBEdit8: TDBEdit
            Left = 641
            Top = 17
            Width = 121
            Height = 23
            DataField = 'Re_Type'
            DataSource = ManagDM.DS_WorkName
            TabOrder = 2
          end
          object DBEdit9: TDBEdit
            Left = 268
            Top = 17
            Width = 121
            Height = 23
            DataField = 'roleID'
            DataSource = ManagDM.DS_WorkName
            TabOrder = 3
            OnKeyPress = DBEdit9KeyPress
          end
        end
        object DBGrid6: TDBGrid
          Left = 0
          Top = 55
          Width = 917
          Height = 226
          Align = alClient
          DataSource = ManagDM.DS_WorkName
          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 = 'RoleName'
              Title.Alignment = taCenter
              Title.Caption = '人员姓名'
              Width = 120
              Visible = True
            end
            item
              Alignment = taCenter
              Expanded = False
              FieldName = 'psw'
              Title.Alignment = taCenter
              Title.Caption = '密  码'
              Width = 150
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Re_Type'
              Title.Alignment = taCenter
              Title.Caption = '职  务'
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'roleID'
              Title.Alignment = taCenter
              Title.Caption = '人员工号'
              Width = 80
              Visible = True
            end>
        end
      end
    end
  end
  object ImageList_Tab: TImageList
    Left = 316
    Top = 4
    Bitmap = {
      494C01010E001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000005000000001001000000000000028
      000000000000000000000000000000000000F75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
      F75EF75EF75EF75EF75EF75EF75EF75EF75ED65AD65AD65AD65AD65AD65AD65A
      D65AD65AD65AD65AF75EEF3DF75EF75EF75ED65AD65AD65AD65AD65AD65AD65A
      D65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65AF75EEF3DF75EF75E
      F75ED65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65AD65A
      D65AD65AD65AD65AF75EEF3DF75EF75EF75E9452945295569452945294529556
      9452945294529452945294529452945294529452945294529452945294529452
      945294529452955694529452945295569452B556B556B65AB556B556B556B65A
      B556B556B556B65AB556B65AB556B65AB556D65AB65AD65AB556D65AB65AD65A
      D65AD65AD65AD65AD65AD65AD65AD65AD65A0000945294529452945294529452
      9452945294529452945294529452945294529452945294529452945294529452
      9452945294529452945294529452945294529452945294529452945294529452
      9452945294529556945294529452955694529452945294529452945294529452
      945294529452945294529452945294529452FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F