FireBird Database Connection

//uses에 UniDAC관련 클래스 추가
Uses
Uni, InterBaseUniProvider, DBAccess;
//데이터베이스 컨넥션
procedure ConnectDatabase;
var
StrParm : TStringList;
begin
uConn := TUniConnection.Create(nil);
with uConn do begin
Database := 'D:\DelphiWork\Completed\NSourceMan\SOURCEMAN.FDB';
Username := 'SYSDBA';
Password := 'masterkey';
LoginPrompt := False;
ProviderName := 'InterBase';
Connected := True;
end;
dbProvider := TInterBaseUniProvider.Create(nil);
uTrans := TUniTransaction.Create(nil);
uTrans.DefaultConnection := uConn;
end;