unidac使用演示

unit Unit1;



interface



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

    { 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驱动位置

     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.