plsqltable.lrs

Oracle Data Access Components Source Code ODAC v.6.70.0.45

LazarusResources.Add('TPLSQLTableFrame','FORMDATA',[
  'TPF0'#16'TPLSQLTableFrame'#15'PLSQLTableFrame'#6'Height'#3#12#1#5'Width'#3
  +#135#2#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crVSplit'#6'Height'#2#3#3'T'
  +'op'#3#171#0#5'Width'#3#135#2#5'Align'#7#5'alTop'#7'Beveled'#9#5'Color'#3#170
  +#0#11'ParentColor'#8#12'ResizeAnchor'#7#5'akTop'#0#0#6'TPanel'#7'ToolBar'#6
  +'Height'#2#26#5'Width'#3#135#2#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'
  +#8'TabOrder'#2#2#0#0#5'TMemo'#4'Memo'#6'Height'#2'^'#3'Top'#3#174#0#5'Width'
  +#3#135#2#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2
  +#1#0#0#7'TDBGrid'#6'gdDept'#6'Height'#3#145#0#3'Top'#2#26#5'Width'#3#135#2#5
  +'Align'#7#5'alTop'#10'DataSource'#7#6'dsDept'#10'FixedColor'#7#9'clBtnFace'
  +#13'FixedHotColor'#7#9'cl3DLight'#7'Options'#11#9'dgEditing'#8'dgTitles'#11
  +'dgIndicator'#14'dgColumnResize'#12'dgColumnMove'#10'dgColLines'#10'dgRowLin'
  +'es'#6'dgTabs'#21'dgAlwaysShowSelection'#15'dgConfirmDelete'#14'dgCancelOnEx'
  +'it'#0#12'OptionsExtra'#11#14'dgeAutoColumns'#17'dgeCheckboxColumn'#0#11'Par'
  +'entColor'#8#8'TabOrder'#2#0#7'TabStop'#9#16'TitleFont.Height'#2#245#14'Titl'
  +'eFont.Name'#6#6'Tahoma'#0#0#6'TPanel'#6'Panel1'#4'Left'#2#1#6'Height'#2#24#3
  +'Top'#2#1#5'Width'#3'R'#2#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#24#11
  +'ClientWidth'#3'R'#2#5'Color'#3#170#0#11'ParentColor'#8#8'TabOrder'#2#3#0#12
  +'TSpeedButton'#6'btOpen'#4'Left'#2#1#6'Height'#2#22#3'Top'#2#1#5'Width'#2'R'
  +#7'Caption'#6#4'Open'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#11
  +'Transparent'#8#7'OnClick'#7#11'btOpenClick'#0#0#12'TSpeedButton'#7'btClose'
  +#4'Left'#2'T'#6'Height'#2#22#3'Top'#2#1#5'Width'#2'R'#7'Caption'#6#5'Close'#5
  +'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClic'
  +'k'#7#12'btCloseClick'#0#0#12'TSpeedButton'#5'btGet'#4'Left'#3#167#0#6'Heigh'
  +'t'#2#22#3'Top'#2#1#5'Width'#2'R'#7'Caption'#6#9'Get Names'#5'Color'#7#9'clB'
  +'tnFace'#4'Flat'#9#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Pi'
  +'tch'#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#9'NumGlyphs'#2#0#11'Tra'
  +'nsparent'#8#7'OnClick'#7#10'btGetClick'#0#0#12'TSpeedButton'#5'btPut'#4'Lef'
  +'t'#3#250#0#6'Height'#2#22#3'Top'#2#1#5'Width'#2'R'#7'Caption'#6#9'Put Names'
  +#5'Color'#7#9'clBtnFace'#4'Flat'#9#11'Font.Height'#2#245#9'Font.Name'#6#6'Ta'
  +'homa'#10'Font.Pitch'#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#9'NumGl'
  +'yphs'#2#0#11'Transparent'#8#7'OnClick'#7#10'btPutClick'#0#0#12'TDBNavigator'
  +#11'DBNavigator'#4'Left'#3'M'#1#6'Height'#2#22#3'Top'#2#1#5'Width'#3#4#1#10
  +'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#22#11'ClientWidth'#3#4#1#5'Color'
  +#7#9'clBtnFace'#10'DataSource'#7#6'dsDept'#4'Flat'#9#11'ParentColor'#8#8'Tab'
  +'Order'#2#0#0#0#0#7'TOraSQL'#5'sqGet'#11'SQL.Strings'#1#6#7'declare'#6#12'  '
  +'i INTEGER;'#6#5'begin'#6#8'  i:= 1;'#6'*  for Rec in (SELECT DName FROM Sco'
  +'tt.Dept'#6'''    WHERE RowNum <= 10 ORDER BY DeptNo)'#6#6'  loop'#6#28'    '
  +':NameArr(i):= Rec.DName;'#6#14'    i:= i + 1;'#6#11'  end loop;'#6#4'end;'#0
  +#5'Debug'#9#4'left'#3#152#1#3'top'#2' '#9'ParamData'#14#1#8'DataType'#7#8'ft'
  +'String'#4'Name'#6#7'NameArr'#9'ParamType'#7#13'ptInputOutput'#4'Size'#2#20#5
  +'Table'#9#6'Length'#2#10#0#0#0#0#7'TOraSQL'#5'sqPut'#11'SQL.Strings'#1#6#7'd'
  +'eclare'#6#12'  i INTEGER;'#6#5'begin'#6#8'  i:= 1;'#6'+  for Rec in (SELECT'
  +' DeptNo FROM Scott.Dept'#6'''    WHERE RowNum <= 10 ORDER BY DeptNo)'#6#6' '
  +' loop'#6#21'    UPDATE Scott.Dept'#6#29'      SET DName = :NameArr(i)'#6'  '
  +'     WHERE DeptNo = Rec.DeptNo;'#6#14'    i:= i + 1;'#6#11'  end loop;'#6#4
  +'end;'#0#5'Debug'#9#4'left'#3#184#1#3'top'#2' '#9'ParamData'#14#1#8'DataType'
  +#7#8'ftString'#4'Name'#6#7'NameArr'#9'ParamType'#7#13'ptInputOutput'#4'Size'
  +#2#20#5'Table'#9#6'Length'#2#10#0#0#0#0#11'TDatasource'#6'dsDept'#7'DataSet'
  +#7#6'quDept'#4'left'#3#152#1#3'top'#2'@'#0#0#9'TOraQuery'#6'quDept'#17'SQLIn'
  +'sert.Strings'#1#6#22'INSERT INTO Scott.Dept'#6#22'  (DEPTNO, DNAME, LOC)'#6
  +#6'VALUES'#6#25'  (:DEPTNO, :DNAME, :LOC)'#0#17'SQLDelete.Strings'#1#6#22'DE'
  +'LETE FROM Scott.Dept'#6#5'WHERE'#6#18'  DEPTNO = :DEPTNO'#0#17'SQLUpdate.St'
  +'rings'#1#6#17'UPDATE Scott.Dept'#6#3'SET'#6#19'  DEPTNO = :DEPTNO,'#6#17'  '
  +'DNAME = :DNAME,'#6#12'  LOC = :LOC'#6#5'WHERE'#6#22'  DEPTNO = :OLD_DEPTNO'
  +#0#15'SQLLock.Strings'#1#6#24'SELECT * FROM Scott.Dept'#6#5'WHERE'#6#18'  DE'
  +'PTNO = :DEPTNO'#6#17'FOR UPDATE NOWAIT'#0#11'SQL.Strings'#1#6#24'SELECT * F'
  +'ROM Scott.Dept'#0#5'Debug'#9#10'AutoCommit'#8#17'Options.AutoClose'#8#22'Op'
  +'tions.FieldsAsString'#8#23'Options.DeferredLobRead'#8#24'Options.Scrollable'
  +'Cursor'#8#20'Options.FieldsOrigin'#8#21'Options.DefaultValues'#8#19'Options'
  +'.NumberRange'#8#21'Options.QueryRecCount'#8#19'Options.AutoPrepare'#8#20'Op'
  +'tions.ReturnParams'#8#19'Options.FlatBuffers'#8#19'Options.DetailDelay'#2#0
  +#4'left'#3'x'#1#3'top'#2'@'#0#0#0
]);