كيف استخدم مكونات UniDac ؟ - نسخة قابلة للطباعة

كود :
tform1 = class(tform)
     uniconntest: Tuniconnection;//????????
     Interbaseuniprotest: Tinterbaseuniprovider;//ib/fb?????
     Uniqrytest: Tuniquery;
     unidatasrtest: Tunidatasource;
     dbgrid1: Tdbgrid;
     button1: Tbutton;
     button2: Tbutton;
    procedure button1click(sender: Tobject);
    procedure button2click(sender: Tobject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
   form1: Tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: Tobject);
begin
  with uniconntest do
  begin
     providername := 'interbase';//?????interbase ??????firebird
     password := 'masterkey';//?????
     Username := 'sysdba';//?????
     Server := '';
     database := 'td_house.fdb';//????????,???????
     Specificoptions.clear;
     specificoptions.add('interbase.clientlibrary=fbembed.dll');//??embeddll????   Or not emedd  \2.0.0.12710\fbclient20.dll'
     specificoptions.add('interbase.charlength=0');//???0?,unidac????fb??
     Specificoptions.add('sqldialet=3');//???3
     specificoptions.add('useunicode=true');//??unicode ?????? ?????
    Try
       connect;
       showmessage('ok');
    except
       showmessage('eer');
    end;
  end;
end;

procedure tform1.button2click(sender: Tobject);
begin
   uniqrytest.close;
   uniqrytest.sql.text := 'select * from tb_sys_log';
// uniqrytest.fetchingall;
   uniqrytest.disablecontrols;
   uniqrytest.open;
   uniqrytest.enablecontrols;
end;

end.