object frmUserDeptSel: TfrmUserDeptSel
  Left = 301
  Top = 180
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #29992#25143#20351#29992#37096#38376#35774#32622
  ClientHeight = 448
  ClientWidth = 448
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 32
    Top = 16
    Width = 48
    Height = 12
    Caption = #24453#36873#37096#38376
  end
  object Label2: TLabel
    Left = 312
    Top = 16
    Width = 48
    Height = 12
    Caption = #24050#36873#37096#38376
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 169
    Height = 393
    Ctl3D = False
    DataSource = DataSourceToSel
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = btb_addClick
    Columns = <
      item
        Expanded = False
        FieldName = 'frameName'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#21517#31216
        Width = 155
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 240
    Top = 40
    Width = 201
    Height = 393
    Ctl3D = False
    DataSource = DataSourceSel
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = btb_delClick
    Columns = <
      item
        Expanded = False
        FieldName = 'frameName'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#21517#31216
        Width = 186
        Visible = True
      end>
  end
  object btb_add: TBitBtn
    Left = 192
    Top = 104
    Width = 41
    Height = 25
    Caption = '>>'
    TabOrder = 2
    OnClick = btb_addClick
  end
  object btb_del: TBitBtn
    Left = 192
    Top = 160
    Width = 41
    Height = 25
    Caption = '<<'
    TabOrder = 3
    OnClick = btb_delClick
  end
  object btb_clear: TBitBtn
    Left = 192
    Top = 208
    Width = 41
    Height = 25
    Caption = #28165#31354
    TabOrder = 4
    OnClick = btb_clearClick
  end
  object DataSourceSel: TDataSource
    DataSet = ADOQuerySel
    Left = 312
    Top = 144
  end
  object ADOQuerySel: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'pUserid'
        DataType = ftString
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      '  select A.UserId, A.frameNo,'
      '         frameName=(select frameName from yc_frame'
      '                     where frameNo=A.frameNo) '
      '  from yc_userDept A'
      '  where'
      '       A.userId=:pUserid')
    Left = 304
    Top = 208
    object ADOQuerySelframeNo: TStringField
      FieldName = 'frameNo'
    end
    object ADOQuerySelframeName: TStringField
      FieldName = 'frameName'
      Size = 40
    end
    object ADOQuerySelUserId: TStringField
      FieldName = 'UserId'
    end
  end
  object ADOQueryToSel: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <
      item
        Name = 'pUserid'
        DataType = ftString
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      '  select *'
      '  from yc_frame'
      '  where frameNo not in (select frameNo from yc_userDept'
      '                         where userId=:pUserid)'
      ''
      '    and valid='#39'Y'#39)
    Left = 56
    Top = 112
    object ADOQueryToSelframeNo: TStringField
      FieldName = 'frameNo'
    end
    object ADOQueryToSelframeName: TStringField
      FieldName = 'frameName'
      Size = 40
    end
  end
  object DataSourceToSel: TDataSource
    DataSet = ADOQueryToSel
    Left = 56
    Top = 160
  end
  object ADOQueryCmd: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 200
    Top = 280
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Left = 200
    Top = 48
  end
end
