unidac使用演示

inte***ce

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, stdctrls, grids, dbgrids, db, dbaccess, uni, memds, uniprovider,

interbaseuniprovider;

type

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

public

end;

varform1: tform1;

implementation

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驅動位置

specificoptions.add(

'interbase.charlength=0'

);//設定為0讓，unidac自動讀取fb設定

specificoptions.add(

'sqldialet=3'

);//設定為3

specificoptions.add(

'useunicode=true'

);//遲滯unicode 有人說有問題 我沒有發現

tryconnect;

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.