ProjetoDelphii/uControllerpaises.pas at main · jreisbhz/ProjetoDelphii · GitHub

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
unit uControllerpaises;

interface

uses uController, uDM, uDaopaises, DB;

type
  Controllerpaises = class(controller)
  private

  protected
    umadaopais: Daopaises;
  public
    constructor CrieObj;
    destructor Destrua_se;
    function Salvar(pObj: TObject): string; override;
    function Carregar(pObj: TObject): string; override;
    function Excluir(pObj: TObject): string; override;
    function Pesquisar(pChave: string): string; override;
    procedure setDM(pDM: TDM);
    function getds: Tdatasource;
  end;

implementation

{ Controllerpais }

function Controllerpaises.Carregar(pObj: TObject): string;
begin
  self.umadaopais.Carregar(pObj);
end;

constructor Controllerpaises.CrieObj;
begin
  umadaopais := Daopaises.CrieObj;
end;

destructor Controllerpaises.Destrua_se;
begin
  umadaopais.Destrua_se;
end;

function Controllerpaises.Excluir(pObj: TObject): string;
begin
  self.umadaopais.Excluir(pObj);
end;

function Controllerpaises.getds: Tdatasource;
begin
  result := umadaopais.getds;
end;

function Controllerpaises.Pesquisar(pChave: string): string;
begin
  self.umadaopais.Pesquisar(pChave);
end;

function Controllerpaises.Salvar(pObj: TObject): string;
begin
  self.umadaopais.Salvar(pObj);
end;

procedure Controllerpaises.setDM(pDM: TDM);
begin
  self.umadaopais.setDM(pDM);
end;

end.