mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
28 lines
379 B
ObjectPascal
28 lines
379 B
ObjectPascal
|
unit DataModuleU;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
|
||
|
|
|
||
|
|
type
|
||
|
|
TdmMain = class(TDataModule)
|
||
|
|
ADOConnection1: TADOConnection;
|
||
|
|
ADOQuery1: TADOQuery;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
dmMain: TdmMain;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{%CLASSGROUP 'System.Classes.TPersistent'}
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|