unigui如何连接数据库

unigui如何连接数据库

UNIGUI既可以二层直连数据库,也可以通过中间件连接数据库。

这里只介绍UNIGUI二层直连数据库。

数据库连接控件、数据集控件都要拖放在MainModule窗体上。UNIGUI会为每一个HTTP SESSION创建一个TUniMainModule对象。

附上ADO数据引擎连接MSSQL数据库的代码。

unit MainModule;

interface

uses
uniGUIMainModule, SysUtils, Classes, Data.DB, Data.Win.ADODB,
Datasnap.Provider, System.IniFiles, Vcl.Forms;

type
TUniMainModule = class(TUniGUIMainModule)
con: TADOConnection;
qry: TADOQuery;
dsp: TDataSetProvider;
procedure UniGUIMainModuleCreate(Sender: TObject);
private
{ Private declarations }
function ConnDB: Boolean;
public
{ Public declarations }
end;

function UniMainModule: TUniMainModule;

implementation

{$R *.dfm}

uses
UniGUIVars, ServerModule, uniGUIApplication;

function UniMainModule: TUniMainModule;
begin
Result := TUniMainModule(UniApplication.UniMainModule)
end;

{ TUniMainModule }

function TUniMainModule.ConnDB: Boolean;
begin
con.Close;
con.ConnectionString := 'FILE NAME=' + ExtractFilePath(Application.ExeName) +
'connectDB.udl';
try
con.Connected := True;
except
on E: Exception do
raise Exception.Create(E.Message);
end;
end;

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
begin
ConnDB;
end;

initialization

RegisterMainModuleClass(TUniMainModule);

end.

 

posted on 2018-11-30 10:25  雨田家园  阅读(809)  评论(0编辑  收藏  举报