المشاركات : 31
المواضيع 11
:
: 14
الإنتساب : Jan 2018
السلام عليكم ورحمة الله تعالى وبركاته
لقد قمت ببرمجة برنامج يقوم بحساب الاجر الشهري الصافي للاجير (سائق شاحنة يبيع بالجملة )
وطلب مني ان اقوم بتسهيل عملية حساب هذا الاجر بناء على عدة عوامل
1- اولا : حساب العمولة بناء على : نوع البائع + نوعية السلعة + الكمية التي باعها
2-ثانيا : خصم الايام التي لم يعملها الاجير من راتبه
ولكنني لم استطع اكمال المشروع نظرا لصعوبة التعامل مع قاعدة البيانات Absolute database
لقد استعملت نسخة delphi xe6 + مكونات Ehlib
رابط المشروع
https://drive.google.com/open?id=1bugRms...dY1SNF4mSh
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
وعليكم السلام ورحمة الله وبركاته
حدد سؤال واحد، واضح، ما المشكل بالضبط ؟ حتى يمكن الاجابة عليك
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
المشاركات : 400
المواضيع 2
:
: 274
الإنتساب : Nov 2009
و عليكم السلام و رحمة الله و بركاته
أخي إذا كان قصدك هو مشاركة البرنامج فقط, فأظن ان القسم غير مناسب لمشاركته. أما إن كنت تطرح سؤالا فـكما أخبرك به الأستاذ عبد العزيز العزيز.
من قال حاد عن أصله أو قال مات فقد كذب
المشاركات : 31
المواضيع 11
:
: 14
الإنتساب : Jan 2018
السلام عليكم
بالنسبة لي فقد واجهت مشكل في التعامل مع الجداول
مثلا انا اريد ارسال استعلام بلغة السيكوال الى احد الجداول واريد استعمال رد او جواب او نتيجة هذا الاستعلام في احد المتغيرات
وايضا اريذ استعمال احد المتغيرات او المكونات كالتكست ادت مثلا داخل الاستعلام
بارك الله فيكم
المشاركات : 476
المواضيع 0
:
: 217
الإنتساب : Apr 2011
السلام عليكم
المشكلة ليست في نوع قاعدة البيانات سواء Absolute database او غيرها ... لان لغة sql متوافقة مع الجميع
مثال 1 : بحث او فلترة بإستعمال Tedit + SQL
كود :
Uquery.close;
Uquery.sql.clear;
Uquery.sql.text:=' SELECT Field1,Field2.... FROM UtableName WHERE Rfield Like '''+Tedit.text+'%'' ';
Uquery.open;
لجعل Tedit معينة تأخد متغير ما من ناتج فلترة او عملية حسابية ناتجة عن استعلام ما
عليك بعمل الاستعلام في وضع التصميم + وسحب الحقل على الفورم
او برمجيا ...
كود :
Uquery.close;
Uquery.sql.clear;
Uquery.sql.text:=' SELECT (sum(Field1)*8)/30 FROM UtableName ';
Uquery.open;
ViewEdit.text:=(Uquery.fieldbyName('Field1').value);
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
المشاركات : 31
المواضيع 11
:
: 14
الإنتساب : Jan 2018
المشاركات : 31
المواضيع 11
:
: 14
الإنتساب : Jan 2018
لقد نجحت في تشغيل الكود
كان المشكل في الداتاسورس في خاصية الداتاست التي لم اربطها مع absQuery
شكرا على المساعدة بارك الله فيكم يا اخواني mr dos B.M.AbdelAziZ h farid
