TMS Aurelius

[Delphi4Us]

هذا الذي لن استطيع ان اذكر كل خصائصه او مهامه وانما ما فهمته او بعض مما فهمته فقط
ويبدو يستحق النشر والتعريف به

PHP كود :

https://www.tmssoftware.com/site/aureliusblog.asp 


يمكنك من استخدام ثقنية Linq او شئ شبيه بها في عملية البحث بالبيانات

PHP كود :

Manager.Find<TOrder>  
  .CreateAlias('OrderDetails', 'd')  
  .Select(TProjections.ProjectionList  
    .Add(Linq['OrderDate'].Year.Group.As_('Group'))  
    .Add((Linq['d.UnitPrice'] * Linq['d.Quantity']).Sum.As_('Value'))  
  )  
  .Where(Linq['OrderDate'].Year._In([1997, 1998]))  
  .OrderBy('Value')   


وايضا انشاء الكلاسس والبحث فيها

PHP كود :

type  
  TContact = class  
  private  
    FId: integer;  
    FName: string;  
    FCountry: TCountry;  
  public  
    property Id: integer read FId write FId;  
    property Name: string read FName write FName;  
    property Country: TCountry read FCountry write FCountry;  
  end;   


PHP كود :

// Get all contacts  
MyContacts := Manager.Find<TContact>.List;  
  
// Get name of country of first contact:  
FirstContactCountryName := MyContacts[0].Country.Name;   


اي انك لم تعد في حاجة الى استخدام جمل الاستعلام التقليدية مثل

PHP كود :

SELECT A.ID AS A_ID, A.NAME AS A_NAME, A.COUNTRY_ID AS A_COUNTRY_ID, B.ID AS B_ID, B.NAME AS B_NAME
FROM CONTACT A LEFT JOIN COUNTRY B ON (B.ID = A.COUNTRY_ID) 


مع امور اخرى كثيرة يمكن مراجعتها بالرابط فوق