unit dmHouses_u;
interface
uses
[Link], [Link],ADODB,DB;
type
TdmHouses = class(TDataModule)
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
connDB: TAdoConnection;
tblProperties: TADOTable;
dsrProperties: TDataSource;
tblClients: TADOTable;
dsrClients: TDataSource;
tblAgents: TADOTable;
dsrAgents: TDataSource;
qryHouse: TADOQuery;
dsrQryHouse: TDataSource;
end;
var
dmHouses: TdmHouses;
implementation
{%CLASSGROUP '[Link]'}
{$R *.dfm}
procedure [Link](Sender: TObject);
begin
//Instantiate or create the componenets on the datamodule
connDB:= [Link](dmHouses);
tblProperties:= [Link](dmHouses);
dsrProperties:= [Link](dmHouses);
tblClients:= [Link](dmHouses);
dsrClients:= [Link](dmHouses);
tblAgents:= [Link](dmHouses);
dsrAgents:= [Link](dmHouses);
qryHouse:= [Link](dmHouses);
dsrQryHouse:= [Link](dmHouses);
//Connection code to Database
[Link] :=
'Provider=[Link].4.0;Data Source=' +
ExtractFilePath(ParamStr(0)) + '[Link]' +
'; Persist Security Info=False';
[Link] := False;
[Link];
//Linking database tables
[Link] := connDB;
[Link] := 'tblProperties';
[Link] := connDB;
[Link] := 'tblClients';
[Link] := connDB;
[Link] := 'tblAgents';
//linking the datasource
[Link] := tblProperties;
[Link] := tblClients;
[Link] := tblAgents;
//linking SQL with Database
//NOTE- you only need ONE query object to use with all the sqls
[Link] := connDB;
[Link] := qryHouse;
//Opening tables
[Link];
[Link];
[Link];
end;
end.
