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.