191 lines
4.4 KiB
Plaintext
191 lines
4.4 KiB
Plaintext
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
|