delphi4arab منتديات دلفي للعرب

نسخة كاملة : TMS Aurelius
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هذا الذي لن استطيع ان اذكر كل خصائصه او مهامه وانما ما فهمته او بعض مما فهمته فقط
ويبدو يستحق النشر والتعريف به
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([19971998]))  
  
.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_IDA.NAME AS A_NAMEA.COUNTRY_ID AS A_COUNTRY_IDB.ID AS B_IDB.NAME AS B_NAME
FROM CONTACT A LEFT JOIN COUNTRY B ON 
(B.ID A.COUNTRY_ID

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