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 60 61 62 63 64 65 66 67
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, DBTables, RpRave, RpDefine, RpCon, RpConDS;
type
TForm1 = class(TForm)
tbMaitre: TTable;
tbDetail: TTable;
dsMaitre: TDataSource;
dsDetail: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
tbMaitreNom: TStringField;
tbMaitrePrenom: TStringField;
tbMaitreMatricule: TStringField;
tbMaitreFiliale: TStringField;
tbMaitreUnite: TStringField;
tbMaitreBg: TStringField;
tbMaitreRegion: TStringField;
tbMaitreNaturePrest: TStringField;
tbMaitreMontantPrest: TFloatField;
tbMaitreNbMensualit: TSmallintField;
tbMaitreRefPriseCharge: TStringField;
tbMaitreNbAdulte: TSmallintField;
tbMaitreNbEnfant: TSmallintField;
tbMaitreMontantFacilit: TFloatField;
tbMaitreDatePrelevement: TDateField;
tbMaitreDebPrelevement: TStringField;
tbMaitreFinPrelevement: TStringField;
tbMaitreMensCumulPreleve: TSmallintField;
tbMaitreMontCumulPreleve: TFloatField;
tbMaitreDteCreation: TDateTimeField;
tbMaitreDteModification: TDateTimeField;
tbDetailNom: TStringField;
tbDetailPrenom: TStringField;
tbDetailMatricule: TStringField;
tbDetailFiliale: TStringField;
tbDetailUnite: TStringField;
tbDetailBg: TStringField;
tbDetailRegion: TStringField;
tbDetailNaturePrest: TStringField;
tbDetailMontantRetenu: TFloatField;
tbDetailMensualite: TStringField;
tbDetailRefRetenue: TStringField;
tbDetailDteCreation: TDateTimeField;
tbDetailDteModification: TDateTimeField;
rvdsConnectMaitre: TRvDataSetConnection;
rvdstConnectDetail: TRvDataSetConnection;
RvProject1: TRvProject;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end. |
Partager