userlist.dfm

省级集邮品管理ERP

inherited frmUserList: TfrmUserList
  Tag = 11300
  Left = 143
  Top = 76
  ActiveControl = DBGrid1
  Caption = '用户及组列表'
  ClientHeight = 423
  ClientWidth = 595
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 513
    Top = 45
    Width = 82
    Height = 378
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 6
  end
  object BitBtn2: TBitBtn
    Left = 516
    Top = 388
    Width = 75
    Height = 25
    Caption = '返回(&X)'
    TabOrder = 0
    Kind = bkClose
  end
  object BitBtn1: TBitBtn
    Left = 516
    Top = 50
    Width = 75
    Height = 25
    Caption = '属性'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn3: TBitBtn
    Left = 516
    Top = 260
    Width = 75
    Height = 25
    Caption = '属性'
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 513
    Height = 378
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 513
      Height = 208
      Align = alClient
      DataSource = dtsUser
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnDblClick = BitBtn1Click
      Columns = <
        item
          Expanded = False
          FieldName = 'YGDM'
          Title.Caption = '员工代码'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'YGMC'
          Title.Caption = '姓名'
          Width = 176
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BMMC'
          Title.Caption = '部门'
          Width = 223
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 208
      Width = 513
      Height = 170
      Align = alBottom
      DataSource = dtsGroup
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = BitBtn3Click
      Columns = <
        item
          Expanded = False
          FieldName = 'ZBDM'
          Title.Caption = '组别'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZBMC'
          Title.Caption = '组描述'
          Width = 176
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZZ'
          Title.Caption = '职责'
          Width = 219
          Visible = True
        end>
    end
  end
  object BitBtn4: TBitBtn
    Left = 516
    Top = 82
    Width = 75
    Height = 25
    Caption = '库房权限'
    TabOrder = 4
    OnClick = BitBtn4Click
  end
  object Panel11: TPanel
    Left = 0
    Top = 0
    Width = 595
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object RxLabel1: TRxLabel
      Left = 1
      Top = 1
      Width = 593
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '人员权限管理'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 28
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object qryUser: TQuery
    CachedUpdates = True
    AfterScroll = qryUserAfterScroll
    OnUpdateError = qryUserUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT YGDM, YGMC, BMMC, KL'
      ' FROM TGS_RYB'
      'order by YGDM')
    UpdateObject = UpdateSQL1
    Left = 24
    Top = 176
  end
  object dtsUser: TDataSource
    DataSet = qryUser
    Left = 88
    Top = 176
  end
  object qryGroup: TQuery
    CachedUpdates = True
    AfterScroll = qryGroupAfterScroll
    OnUpdateError = qryGroupUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT ZBDM, ZBMC, ZZ'
      ' FROM TGS_ZBB'
      'order by ZBDM')
    UpdateObject = UpdateSQL2
    Left = 40
    Top = 320
  end
  object dtsGroup: TDataSource
    DataSet = qryGroup
    Left = 104
    Top = 320
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TGS_RYB'
      'set'
      '  YGDM = :YGDM,'
      '  YGMC = :YGMC,'
      '  BMMC = :BMMC,'
      '  KL = :KL'
      'where'
      '  YGDM = :OLD_YGDM')
    InsertSQL.Strings = (
      'insert into TGS_RYB'
      '  (YGDM, YGMC, BMMC, KL)'
      'values'
      '  (:YGDM, :YGMC, :BMMC, :KL)')
    DeleteSQL.Strings = (
      'delete from TGS_RYB'
      'where'
      '  YGDM = :OLD_YGDM')
    Left = 56
    Top = 176
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TGS_ZBB'
      'set'
      '  ZBDM = :ZBDM,'
      '  ZBMC = :ZBMC,'
      '  ZZ = :ZZ'
      'where'
      '  ZBDM = :OLD_ZBDM')
    InsertSQL.Strings = (
      'insert into TGS_ZBB'
      '  (ZBDM, ZBMC, ZZ)'
      'values'
      '  (:ZBDM, :ZBMC, :ZZ)')
    DeleteSQL.Strings = (
      'delete from TGS_ZBB'
      'where'
      '  ZBDM = :OLD_ZBDM')
    Left = 72
    Top = 320
  end
end