1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
unit DataModuleUnit;
interface
uses
Forms,
SysUtils, Classes, IniFiles,
uADStanIntf, uADStanOption, uADStanError, uADGUIxIntf,
uADPhysIntf, uADStanDef, uADStanPool, uADStanAsync, uADPhysManager,
uADGUIxFMXWait, uADStanParam, uADDatSManager, uADDAptIntf, uADDAptManager,
uADCompClient, Data.DB, uADCompDataSet, uADCompGUIx, uADPhysIB,
uADGUIxFormsWait, frxClass, frxExportPDF, frxDBSet;
type
TDatas = class(TDataModule)
Base: TADConnection; /// connexion à la base
ADPhysIBDriverLink1: TADPhysIBDriverLink; /// Driver (Firebird)
ADGUIxWaitCursor1: TADGUIxWaitCursor; /// curseur
QLModeles: TADQuery; /// Requete Liste modèles
ADTransaction1: TADTransaction; /// transaction
QModele: TADQuery; /// Requete Modele
QMarques: TADQuery; /// Requete Lignes produits
QAssortiments: TADQuery; /// Requete Assortiments
Stocks: TADQuery; /// Requête Stocks
Q2Print: TADQuery; /// Requête Stocks Dispo pour Edition
frxReport1: TfrxReport; /// Report
frxDBDataset1: TfrxDBDataset; /// Liaion Q2Print Report
frxPDFExport1: TfrxPDFExport; /// Export Rport en PDF
QUser: TADQuery; /// Requête Utilisateur (login)
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
procedure frxPDFExport1BeginExport(Sender: TObject);
private
public
end; /// Module de Données
function Datas: TDatas;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'} // important pour fastreport
{$R *.dfm}
uses ServerController;
{$REGION 'Documentation'}
{*------------------------------------------------------------------------------
Passage du paramètre
@return TDatas
------------------------------------------------------------------------------*}
{$ENDREGION}
function Datas: TDatas;
begin
result:=Usersession.IWDatas;
end;
.... |
Partager