Attribute Bazlı ORM

[kimimben]

(30-10-2016, Saat: 02:27)barutali Adlı Kullanıcıdan Alıntı: Benim yerime bağlantısını yaptığım db den seçtiğim tablonun kodlarını delphi kodu olarak ayarlayıp veriyor ben sadece parametre karşılıklarını dolduruyorum.. 

Paylaşım için teşekkürler Ali bey;
Siz seçtiğim tablonun deyince, aklıma belki bir TDbObject attibute daha eklenebilir düşüncesi geldi.Şöyle ki ;

  TDbObject = class(TCustomAttribute)
 Private
   FName: string;
 public
   property Name: string read FName write FName;
   constructor Create(const AName: String);
 end;

{ TDbObject }
constructor TDbObject.Create(const AName: String);
begin
 FName := AName;
end;

Haliyle yeni class ve record'ların hali şöyle olabilir.

  [TDbObject('PERSON')]
 TPerson = class
 private
   FId: Integer;
   FFirstName: string;
   FLastName: string;
   FAge: Byte;
 public
   [TDbField('FIRST_NAME')]
   property FirstName: string read FFirstName write FFirstName;

   [TDbField('LAST_NAME')]
   property LastName: string read FLastName write FLastName;

   [TDbField('AGE')]
   property Age: Byte read FAge write FAge;
 end;


[TDbObject('TBL_STOK_KART')]
 TBL_STOK_KART = record
 .
 .
 .
 end;

 Yağ, un ve şekerimiz artık mevcut olduğuna göre helva yapan birileri çıkar herhalde...