testdbase.dpr

SQL封装,DLL封装SQL登陆,代码!随意修改!

program TestDBase;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  uDBaseIntf in 'uDBaseIntf.pas';

{$R *.res}
var
  ADOConn:IADOConnection;
begin
  Application.Initialize;
  if InitRSDBase(Application, Screen) then begin
    ADOConn:=uDBaseIntf.ADOConnection;
    if ADOConn.GetADOConnection<>nil then
      if ADOConn.Connected then begin
        Application.CreateForm(TForm1, Form1);
      end;
  end;
  Application.run;
end.