الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تصحيح كود

مغلق
بدأه medreg في 23 نوفمبر 2007 · 2 رد · 532 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله تعالى وبركاته

لدي ثلاث جداول

الجدول1 = Param.db

ويتكون من :

السنة=annee = تتكون من 4 حروف من نوع نصي

اسم المؤجر = NM_ALL

الجدول 2 = Client.db

ويتكزن من :

رقم الزبون = Cde_Client نصي

اسم الزبون = Client نصي

عنوان الزبون = Adr_Client نصي

الجدول 3 = Act.db

ويتكون من :

رقم العقد= NU_ACT نوع S

إسم المؤجر = NM_ALL

اسم الزبون = Client نصي

عنوان الزبون = Adr_Client نصي

المطلوب هو :

أود أن أضيف السنة الموجودة بجدول1 إلى رقم العقد الموجود في جدول2

ليكن بهذه الصفة : 01/2007

وهذا في DBEdit1 الخاص برقم العقد الموجود في الفورم3

ثانيا

العقد مربوط بالجدول1والفورم1 والجدول2 والفورم2

كيف يتم ذلك

ملاحظة

المقصود من رقم العقد مضاف اليه السنة هو :

ربما يكون لي نفس الرقم لكن السنة مختلفة

مثلا

رقم العقد01/2007

رقم العقد 01/2006

لهذا السبب اريد اضافة السنة لرقم العقد

لقد حاولت بهذا الكود لكن لم افلح

table3.fieldbyname('NU_ACT').asinteger:=table3.fieldbyname('NU_ACT').asinteger + '/' + form1.table1.fieldbyname('Annee').asstring;

لكن لم تنجح العملية

#2

لانك تحاول وضع عدد + نص في عدد هنا

table3.fieldbyname('NU_ACT').asinteger:=table3.fieldbyname('NU_ACT').asinteger + '/' + form1.table1.fieldbyname('Annee').asstring

حتى تكون صحيحية يجب ان يكون الحقل NU_ACT نصي وتصبح

table3.fieldbyname('NU_ACT').AsString:=table3.fieldbyname('NU_ACT').AsString + '/' + form1.table1.fieldbyname('Annee').AsString

d4baa0.gif
#3

جزاكم الله عنا كل خير

هذا الموضوع مغلق.

مواضيع مشابهة