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

السلام عليكم و رحمة الله تعالى وبركاته
لدي في فور من فورمات برنامجي عدة متغييرات
واردة ان اعرف هذه المتغيرات في وحدة مستقلة عن البرنامج ويتم استدعاءخم منها
مثلا
بدلا من اضع تعريف المتغيرات على Button احببت ان اضع تعريفها بالوحدة المستقلة
وعندما اضعط على الزر الموجود بالفورم الموجود داخل البرنامج ينفذ التعليمة على اساس المتغيرات المعرفة في الوحدة المستقلة
عندما اقول في الحدث المموجود بالفورم كهذا المثال
table1.fieldbyname('MT').asfloat:=s;
هذا المتغير (s) غير معرف في الفورم بل معرف في الوحدة المستقلة
هذا ما اقصد من السؤال
كيف لي ان اضع تعريف في الوحدة المستقلة وكيف استدعيه الى الفورم بالبرنامج
وجزاكم الله عنا كل خير

سارفق مثال على المقصود
وما عليكم الا انشاء وحدة مستقلة وتعريف المتغيرات الموجود بالبرنامج واستدعاءها
المتغيرات هي
var s1,s2,s3,s4,s5,s6,s7,s8,s9,s10tring
والمقصود هو إذا كان cde يساوي 01
اذا Libelle يساوي LB

اذا كان السؤال غير واضح
فهل هناك طريقة أخرى بدلا من كثرة المتغيرات
لإستدعاء محتوى الحقل من جدول اخر
بمعنى
لدي جدول AbsTable1 به قاعدة بيانات تحتوي على حقلان وهما
رمز العملية = Cde من نوع String
إسم العملية = Libelle من نوع String

والجدول الثاني AbsTable2 به قاعدة بيانات تحتوي على ما يلي

رمز الشخص= Cde_Client من نوع String
إسم الشخص = Nom_client من نوع string
رمز العملية= Cde من نوع String
إسم العملية = Libelle من نوع String
مبلغ العملية = MT
وبعض الحقول الأخرى لا داعي لكتابتها

المطلوب هو حدث لزر عندما اضغط عاى الزر
يضع امام حقل Cde في قيمة الحقل Libelle إسم العملية يأتي به من الجدول الأول عندما يقارن رمز العملية بالجدول الثاني ورمز العملية بالجدول الآول يضيف اسم العملية في الجدول الثاني
وجزاكم الله عنا كل خير