procedure TForm1.Button1Click(Sender: TObject);
var
strConnect : WideString;
Code : SmallInt;
begin
F1Book1.ODBCConnect(strConnect,True,Code);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
F1Book1.ODBCDisconnect ;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
ColNames,ColFormats,ColWidths,MaxRC : WordBool;
Code : SmallInt;
SQL : WideString;
begin
SQL := Memo1.Text ;
F1Book1.ODBCQuery(SQL,1,1,False,ColNames,ColFormats,ColWidths,MaxRC,Code);
end;