🚀 go-pugleaf

Hello,

I'm developing a simple purchase order module. The "Search Item" button has
the code that I post below. It is supposed to run in a client/server network
with the client in one country and the server in another, via TCP/IP.

My question: is that the *best-fastest* way to do it?

Note: "Articulos" is a TIBDataSet. I know that a TIBSQL is faster but I can
not connect it to a dbgrid, can I?

Thanks!
Sergio

>>>>>>>>>>>>

procedure TfrmEdtOrdCpa.BitBtn1Click(Sender: TObject);

var
  sSQL: string;

begin

  with dm.Articulos do begin

    Close;

    SelectSQL.Clear;

    SelectSQL.Add( 'SELECT' );
    SelectSQL.Add( 'CODIGO, CODIGO_S_PROV, CODIGO_BARON, DESCRIPCION' );
    SelectSQL.Add( 'FROM ARTICULO WHERE' );

    case RadioGroup1.ItemIndex of
    0: sSQL := 'CODIGO';
    1: sSQL := 'CODIGO_S_PROV';
    2: sSQL := 'CODIGO_BARON';
    3: sSQL := 'DESCRIPCION';
    end;

    SelectSQL.Add( sSQL + ' STARTING WITH ''' + edtSearchItem.Text + '''' );

    Open;

  end;

  with tfrmFoundItems.Create(Self) do begin

    if ShowModal = mrOk then begin

      // something...





    end;

    Free;

  end;

end;