main.dfm

East make Tray Icon in delphi

object MainForm: TMainForm
  Left = 202
  Top = 127
  Width = 697
  Height = 252
  HorzScrollBar.Range = 54
  VertScrollBar.Range = 157
  ActiveControl = Button1
  AutoScroll = False
  Caption = 'Save Query Result to Stream'
  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 = 65
    Height = 25
    Caption = 'Go'
    TabOrder = 0
    OnClick = Button1Click
  end
  object StringGrid: TStringGrid
    Left = 0
    Top = 29
    Width = 689
    Height = 193
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    ColCount = 6
    TabOrder = 1
    ColWidths = (
      64
      64
      64
      387
      48
      41)
    RowHeights = (
      24
      24
      24
      24
      24)
  end
  object DataBase: TJvUIBDataBase
    Params.Strings = (
      'sql_dialect=3'
      'password=masterkey'
      'user_name=SYSDBA'
      'lc_ctype=NONE')
    DatabaseName = 'd:\employee.db'
    UserName = 'SYSDBA'
    PassWord = 'masterkey'
    LibraryName = 'gds32.dll'
    Left = 88
  end
  object Transaction: TJvUIBTransaction
    DataBase = DataBase
    Left = 120
  end
  object Query: TJvUIBQuery
    SQL.Strings = (
      'select * from employee')
    Transaction = Transaction
    FetchBlobs = True
    Left = 152
  end
end