-
Notifications
You must be signed in to change notification settings - Fork 0
/
genealogie.pas
81 lines (65 loc) · 1.82 KB
/
genealogie.pas
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit genealogie;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.StdCtrls,
FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async,
FireDAC.VCLUI.Wait, FireDAC.Comp.Client, Data.DB,
FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
FireDAC.Comp.DataSet, Vcl.Mask, Vcl.DBCtrls, FireDAC.Phys, FireDAC.Phys.MySQL,
FireDAC.Phys.MySQLDef, Data.DBXMySQL, Data.SqlExpr, Data.FMTBcd;
type
TFgenea = class(TForm)
MainMenu1: TMainMenu;
Fichier: TMenuItem;
Ouvrir: TMenuItem;
Quitter: TMenuItem;
Consulter: TMenuItem;
FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink;
Connect1: TFDConnection;
OutRequet: TFDQuery;
FDStoredProc1: TFDStoredProc;
Fenetre: TMenuItem;
VisionGlobale: TMenuItem;
Arbre: TMenuItem;
ReqSupp: TFDQuery;
Imprimer1: TMenuItem;
procedure ArbreClick(Sender: TObject);
procedure VisionGlobaleClick(Sender: TObject);
procedure QuitterClick(Sender: TObject);
procedure OuvrirClick(Sender: TObject);
procedure ConsulterClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Fgenea: TFgenea;
implementation
{$R *.dfm}
uses
maj, Visionglob, Arbre, saisie, choix ;
procedure TFgenea.ConsulterClick(Sender: TObject);
begin
Fmajo.show;
end;
procedure TFgenea.OuvrirClick(Sender: TObject);
begin
Fsaisie.show;
end;
procedure TFgenea.QuitterClick(Sender: TObject);
begin
close;
end;
procedure TFgenea.ArbreClick(Sender: TObject);
begin
Farbre.show;
end;
procedure TFgenea.VisionGlobaleClick(Sender: TObject);
begin
Fvisglob.show;
end;
end.