Function Go(inBLOB)

MsgBox inBlob

Self.Add "Panel5", "TPanel"
 Panel5.Align="alTop"
 Panel5.Height=45
Panel5.Caption="Cegth yjdfz"
GO = ""
end function


Sub main ()
 Dim Database

set  Database=MainForm.Controls("Database")


   Self.Add "Trans","TIBTransaction"
   Trans.DefaultDatabase=Database


  Self.Add "Query", "TIBQuery"
  With Query
    .Database=DataBase
    .SQL.Clear
    .SQL.Add "select * from bank"
    End With
  Self.Add "Data", "TDatasource"
  Data.DataSet=Query

   if(not Trans.Intransaction) then Trans.StartTransaction
   Query.Active=true

  Self.Add "Panel", "TPanel"
   Panel.Align="alTop"
   Panel.Height=45
   Panel.Caption=""


  Self.Add "Grid", "TDBGridEh"
   Grid.Align="alClient"
   Grid.Datasource=Data
  
 

   Panel.Add "Btn","TButton",TRUE
          Btn.Left=10
          Btn.Top=4
          Btn.Width=100
          Btn.Caption=""
End Sub

Sub Btn_OnClick()

Dim FS
Dim ts

set FS=CreateObject("Scripting.FileSystemObject")
SET ts=FS.OpenTextFile ("c:\1.txt",2,True,0)
Query.DisableControls
do while not Query.Eof
ts.WriteLine Query.FieldByName("BANKNAME") & "   " & Query.FieldByName("BIC")
Query.Next
loop 
Query.EnableControls
ts.Close
SET FS=nothing

end sub
