object Form1: TForm1 Left = 218 Top = 207 Width = 255 Height = 220 HorzScrollBar.Range = 64 VertScrollBar.Range = 134 ActiveControl = Button1 AutoScroll = False Caption = 'Simple Query' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = 11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] OldCreateOrder = True PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 0 Top = 0 Width = 73 Height = 25 Caption = 'ReadQuery' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = 8 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 0 OnClick = Button1Click end object Memo: TMemo Left = 0 Top = 45 Width = 247 Height = 145 Align = alBottom Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 1 end object DataBase: TJvUIBDataBase Params.Strings = ( 'sql_dialect=3' 'lc_ctype=NONE' 'user_name=SYSDBA' 'password=masterkey') DatabaseName = 'd:\employee.db' UserName = 'SYSDBA' PassWord = 'masterkey' LibraryName = 'gds32.dll' Left = 104 end object Transaction: TJvUIBTransaction DataBase = DataBase Left = 136 end object Query: TJvUIBQuery SQL.Strings = ( 'SELECT FIRST_NAME, LAST_NAME, SALARY FROM EMPLOYEE WHERE DEPT_NO' + ' = :dept') Transaction = Transaction CachedFetch = False Left = 168 end end