20-10-2016, 11:20 AM
و عليكم السلام ورحمة الله وبركاته،
استعمل الحقول الحسابية. calculatedField
واتبع الطريقة التالية:
إذا كنت تستعمل ADOTable و نفس الشيء بالنسبة ال ADOQuery
أنقر بالزر الأيمن على ال ADOTable ، ثم اختر إضافة حقل جديد ، حدد اسمه (وليكنمثلا Total)و نوعه (طبعا في حالتك سيكون Currency) ، لا تنس اخنيار نوع الحقل حسابي .
بعدها في الحدث OnCalculatedField الخاص ب ADOTable (وليس الحدث OnColExit) اكتب مايلي :
استعمل الحقول الحسابية. calculatedField
واتبع الطريقة التالية:
إذا كنت تستعمل ADOTable و نفس الشيء بالنسبة ال ADOQuery
أنقر بالزر الأيمن على ال ADOTable ، ثم اختر إضافة حقل جديد ، حدد اسمه (وليكنمثلا Total)و نوعه (طبعا في حالتك سيكون Currency) ، لا تنس اخنيار نوع الحقل حسابي .
بعدها في الحدث OnCalculatedField الخاص ب ADOTable (وليس الحدث OnColExit) اكتب مايلي :
كود :
AdoTable.fieldbyname('Totale').ascurrency := AdoTable.fieldbyname('PU').ascurrency * AdoTable.fieldbyname('Qte').ascurrency ;
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)