طلب مشكل حساب في الدلفي Delphi

[عثمان الجزائري.]

المشاركة الأصلية كتبت بواسطة abban270

اقصد ذلك الكود الذي وضعناه في Fonction
هل نستطيع وضعه في Form1
لكي يحدث التغير أوتوماتيكيا

لا يمكن أخي إما أن تستغني كليا عن ال function كما فعلنا سابقا أو عن طريقها.... و الدلفي يرتكز على actions التي نقوم بها على الأدوات المستعملة مثل combo box و Edit .......يعني يجب علينا وضع الأكواد داخل هذه actions كما في مثالنا change....

[abban270]

شكرا لك على التوضيح
بماذا تنصحني في إستعمال base de donne
sql server 2005 هل يفي بالغرض ؟؟؟

[pack8]

المشاركة الأصلية كتبت بواسطة abban270

بارك الله فيكما
بالنسبة للأخ عثمان
أنا أعرف كيف يتم الحساب إلخ
وأعرف طريقة العمل بالكومبوبكس
لكن الذي لا أعرفه هو:
إذا كان لدي 10 من كومبوكس كلها مرتبطة مع بعضها في الحسابات
لا يتم تفيير النتيجة فوريا إلا إذا برمجنا كل كومبوكس على حدى ووضعنا فيه نفس الكود
لكن الطريقة طويلة جدا
أردت أن أبحث عن طريقة بحيث:
كلما غيرنا في أحد من الكوبوكس يتم تغيير النتيجة فوريا
أرجو أن أكون قد وضحت ذلك

يا اخي ادخل على كومبوكس ثم evenements و في خصائص evenements اختر onchange و والصق الكود الخاص بالدالة
مع مراعات ملئ Salaire de base و Prime هي الاولى

prime:=(strtofloat(ComboBox2.Text)*500);

if ComboBox1.ItemIndex=0 then salaire:=50000;
if ComboBox1.ItemIndex=1 then salaire:=40000;
if ComboBox1.ItemIndex=2 then salaire:=30000;
if ComboBox1.ItemIndex=3 then salaire:=20000;
edit1.Text:=floattostr(salaire);
edit2.Text:=floattostr(prime);
edit3.Text:=floattostr(salaire+prime);


و ستشتغل ان شاء الله

[عثمان الجزائري.]

المشاركة الأصلية كتبت بواسطة abban270

شكرا لك على التوضيح
بماذا تنصحني في إستعمال base de donne
sql server 2005 هل يفي بالغرض ؟؟؟

sql server 2008 للمشاريع الكبيرة
access للمشاريع الصغيرة

[abban270]

المشاركة الأصلية كتبت بواسطة pack8

يا اخي ادخل على كومبوكس ثم evenements و في خصائص evenements اختر onchange و والصق الكود الخاص بالدالة
مع مراعات ملئ salaire de base و prime هي الاولى

prime:=(strtofloat(combobox2.text)*500);

if combobox1.itemindex=0 then salaire:=50000;
if combobox1.itemindex=1 then salaire:=40000;
if combobox1.itemindex=2 then salaire:=30000;
if combobox1.itemindex=3 then salaire:=20000;
edit1.text:=floattostr(salaire);
edit2.text:=floattostr(prime);
edit3.text:=floattostr(salaire+prime);


و ستشتغل ان شاء الله

شكرا لك يا أخي

[abban270]

أظن أنه لا يوجد فرق كبير بين 2005 و 2008 ؟؟

[عثمان الجزائري.]

المشاركة الأصلية كتبت بواسطة abban270

أظن أنه لا يوجد فرق كبير بين 2005 و 2008 ؟؟

نعم لا يوجد فرق كبير في طريقة التعامل، ف 2008 يتميز بخصاص زائدة على 2005 مثل الحماية و التعامل مع التاريخ .... المهم أنك تبدأ بشيئ جديد من أجل مواكبة التطور و هناك أيضا 2012 ...

[abban270]

سأبدأ بالقديم
شكرا لك

[pack8]

المشاركة الأصلية كتبت بواسطة abban270

شكرا لك يا أخي

هذا هو برنامجك بع التغيير والنتيجة تجدها هنا

التحميل

[abban270]

المشاركة الأصلية كتبت بواسطة pack8

هذا هو برنامجك بع التغيير والنتيجة تجدها هنا

التحميل

لا أرى أي شيء
ولعلمك أنه تم حل المشكل
لكن شكرا لك على أية حال

[abban270]

بالمناسبة وقعت في مسكل آخر
لما أردت أن أكتب بالعربية وبالخط الكوفي
تخرج لي تخربيشات هكذا

Z43,r3C;

عوض الكتابة بالعربية
ولما أحول نمط النص إلى Arial أو arabic transparent
تظهر العربية بشكل عادي

[pack8]

المشاركة الأصلية كتبت بواسطة abban270

لا أرى أي شيء
ولعلمك أنه تم حل المشكل
لكن شكرا لك على أية حال

هذا هو برنامجك بع التغيير والنتيجة تجدها هنا

التحميل


https://www.4shared.com/rar/wSg4zWDUce/Delphi1.html?

[abban270]

شكرا جاري التجريب

[abban270]

يا أخي pack8
لقد قلت لك بأن المشكل تم حله
الآن لدينا مشكل العربية

[عثمان الجزائري.]

أخي هل تقصد هذا : https://uptobox.com/zj7aj7j30usw
حمل هذا الخط أيضا: https://uptobox.com/szo38goohmxm
يجب أن تملك هذا النوع من الخط ضع الملفات التي بداخل المجلد في هذا المسار C:\Windows\Fonts