SimpleORM/SimpleDAOSQLAttribute.pas at master · hleorj/SimpleORM · 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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
unit SimpleDAOSQLAttribute;

interface

uses
  SimpleInterface;

Type
  TSimpleDAOSQLAttribute<T : class> = class(TInterfacedObject,
    iSimpleDAOSQLAttribute<T>)
  private
    [weak]
    FParent: iSimpleDAO<T>;
    FFields: String;
    FWhere: String;
    FOrderBy: String;
    FGroupBy: String;
    FJoin : String;
  public
    constructor Create(Parent: iSimpleDAO<T>);
    destructor Destroy; override;
    class function New(Parent: iSimpleDAO<T>): iSimpleDAOSQLAttribute<T>;
    function Fields(aSQL: String): iSimpleDAOSQLAttribute<T>; overload;
    function Where(aSQL: String): iSimpleDAOSQLAttribute<T>; overload;
    function OrderBy(aSQL: String): iSimpleDAOSQLAttribute<T>; overload;
    function GroupBy (aSQL : String) : iSimpleDAOSQLAttribute<T>; overload;
    function Join (aSQL : String) : iSimpleDAOSQLAttribute<T>; overload;
    function Join : String; overload;
    function Clear : iSimpleDAOSQLAttribute<T>;
    function Fields: String; overload;
    function Where: String; overload;
    function OrderBy: String; overload;
    function GroupBy : String; overload;
    function &End: iSimpleDAO<T>;
  end;

implementation

{ TSimpleDAOSQLAttribute<T> }

function TSimpleDAOSQLAttribute<T>.&End: iSimpleDAO<T>;
begin
  Result := FParent;
end;

function TSimpleDAOSQLAttribute<T>.Fields: String;
begin
  Result := FFields;
end;

function TSimpleDAOSQLAttribute<T>.GroupBy: String;
begin
  Result := FGroupBy;
end;

function TSimpleDAOSQLAttribute<T>.Join: String;
begin
  Result := FJoin;
end;

function TSimpleDAOSQLAttribute<T>.Join(
  aSQL: String): iSimpleDAOSQLAttribute<T>;
begin
  Result := Self;
  FJoin := FJoin + ' ' + aSQL;
end;

function TSimpleDAOSQLAttribute<T>.GroupBy(
  aSQL: String): iSimpleDAOSQLAttribute<T>;
begin
  Result := Self;
  FGroupBy := FGroupBy + ' ' + aSQL;
end;

function TSimpleDAOSQLAttribute<T>.Clear: iSimpleDAOSQLAttribute<T>;
begin
  Result := Self;
  FFields := '';
  FWhere := '';
  FOrderBy := '';
  FGroupBy := '';
  FJoin := '';
end;

constructor TSimpleDAOSQLAttribute<T>.Create(Parent: iSimpleDAO<T>);
begin
  FParent := Parent;
end;

destructor TSimpleDAOSQLAttribute<T>.Destroy;
begin

  inherited;
end;

function TSimpleDAOSQLAttribute<T>.Fields(aSQL: String)
  : iSimpleDAOSQLAttribute<T>;
begin
  Result := Self;
  FFields := FFields + ' ' + aSQL;
end;

class function TSimpleDAOSQLAttribute<T>.New(Parent: iSimpleDAO<T>)
  : iSimpleDAOSQLAttribute<T>;
begin
  Result := Self.Create(Parent);
end;

function TSimpleDAOSQLAttribute<T>.OrderBy: String;
begin
  Result := FOrderBy;
end;

function TSimpleDAOSQLAttribute<T>.OrderBy(aSQL: String)
  : iSimpleDAOSQLAttribute<T>;
begin
  Result := Self;
  FOrderBy := FOrderBy + ' ' + aSQL;
end;

function TSimpleDAOSQLAttribute<T>.Where(aSQL: String)
  : iSimpleDAOSQLAttribute<T>;
begin
  Result := Self;
  FWhere := FWhere + ' ' + aSQL;
end;

function TSimpleDAOSQLAttribute<T>.Where: String;
begin
  Result := FWhere;
end;

end.