KhelifaAdm

السلام عليكم العقو أخي ومرحبا بك يالفعل المرفق تجد فيه الاجراء DBGrid1DrawColumnCell الصحيح والخطأ ورد في الشرح لأني ركزن غلى شرح الفكرة ولبس تفصبل الاجراء . الدالة OffsetRect تقوم بازاحة TRect عموديا أو أفقيا ..وهو اجراء تابع لwindows Api OffsetRect(TextRect,…

السلام عليكم لم يظهر النص الثاني لان الامر Dbgrid1.Canvas.TextRect(Rect, Rect.Left + 10, Rect.Top + 17,Text2) يقوم بالكتابة في كامل Rect وبالتالي يمحو النض الاول قم بازاحة rect الى الاسفل مثلا TextRect := Rect; OffsetRect(TextRect, 0, 17); ازاحة الى الاسفل بمق…

السلام عليكم 01 لتتحكم في ارتفاع سطر معين استعمل TStringGrid(DBGrid1).RowHeights[رقم السطر] 02 بعد فتح او غلق المعطيات يتم احتساب ارتفاع الخلايا داخليا في المكون dbgrid وبالتالي الأمر الذي استعملته يلغى..لحل المشكل قم باعادة فرض القيمة المرادة TStringGrid(DBGr…

السلام عليكم أخي الكريم يمكنك استعمال العنصر TQuery لترشبح المعطيات مثلا قم بالاجراء التالي غند تغيير ComboBox IdSelected:String; begin IdSelected:=Combobox1.items[Combobox1.ItemIndex]; Query1.Close; Query1.SQl.text:='Select * from organise where IDMourachah='…

السلام عليكم أخى الكريم يمكنك استعمال الدالة upper أثناء المقارنة مثلا select * from cients where upper(nom) containing 'U' where upper(nom) starting with 'U' where upper(nom)='UABC' المثال السابق خاض بfirebird يجب مراعات الفروق من محرك الى آخر والله اعلم

ما رايكم في تقنية Datasnap مع Delphi 2010§ هل يوجد من جرب هذه التقنية في حالة مشابهة؟ الرجاء أن تفيدونا

السلام عليكم أخي مرحبا بك, مما فهمت في نظام بيع تحديدا في معالجة ديون الزبائن القوانين التالية 1. كل زبون له الحق في الاستدانة لمدة 30 يوم 2. كل زبون يعتبر متأخرا عن السداد اذا تجاوز دينه 30 يوم. 3. كل زبون متاخر يحرم من التداين حتى يسدد دينه السابق ل 30 يوم أ…

السلام عليكم أخي الكريم يمكنك ذلك من خلال التالي 1. عير خاصية Dbgrid /DefaultDrawing الى False 2. قم ببرمجة الحدث OnDrawColumnCell لــ Dbgrid حبث ياتي هذا الحدث بالمتغيرات التالية Sender: TObject; // المرسل وهو الشيكة Dbgrid const Rect: TRect; //الخلبة او المر…

السلام عليكم أخي الكريم ما فهمنه منك هو التالي - كل زبون له فترة سماح استدانة اجمالية شهران بعدها يعتبر متأخرا عن السداد حيث/ . يبدء عد الديون من أقدم عملية تداين . بجمع الشهر الأول من الديون في جدول ثاني .. يبقي الزبون يسدد فيه حتى تصفيره .. ومن ثم ينتقل الى …

السلام عليكم أخي الكريم عند تثبيت الانتربيز افتراضيا ينشئ مستعمل واحد هو sysdba بكلمة مرور masterkey له كل الصلاحيات, يمكنك تغيير الكلمة الافتراضية واضافة مستعملين جدد كيف ما تريد, لكن يجب ان تضع في الحسبان ان قوة الحماية ليست على مستوى الجهاز "الخادم" بل على …

السلام عليكم آسف أخي ليس لدي حل مباشر لهذه المشكلة لكن سبق لي أن تعرضت لمشكلة مشابهة وهي ظهور الحروف بطريقة غريبة أثناء النقل الى نظام آخر .. وأذكر أني تمكنت من حلها عن طريق تعديل خصائص Paradox منخلال الأمر BDE Administrator/ Configuration /Native /Paradox/Lan…

السلام عليكم يمكنك أخي أن تنقل هيكلة الجداول ألى sqlServer ثم تصنع برنامج صغير يقوم بنقل المعطيات من paradox الى sqlserver وربما هذه الدالة قد تساعد const {قائمة باسماء الجداول } TablesName: array[1..5] of string = ('clisent.db', 'table2.db', 'table3.db', 'tab…

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

السلام عليكم اقصد "بعبر الخاص" الرسائل الخاصة للمنتدى لكي لا تكون المعلومات الشخصية متاحة لجميع متصفحى النت بقد حملت المرفقات وقاعدة المعطيات

السلام عليكم أظن ان حل هذا المشكل يختلف على حسب تفاصيل الحالة نوعية قاعدة البيانات؟المسافة بين المحلين .. نوعية الربط بينهما ؟دور كل فرع في نظام البيع؟ 1.غامل الربط بين الفرعين أ/ ان كانت شبكة الربط بين الجهازين قوية ومستقرة يمكن استعمال تقنية"Client/Server" و…

السلام عليكم ربي يحفظ جميع الاساتذة والاخوة الكرام القائمين على هذا المنتدى القيم والذين يبذلون مجهودات مهمة لتطوير مستوى البرمجة والمبرمجين العرب ,, نسأل الله العظيم التوفيق لهم ولنا مرحبا بك أخي يمكنك التواصل معي عبر الخاص

السلام عليكم عند الحدث Onclick للزر قم بلصق الكود التالي وهو مشروح ان شاء الله var somme1, somme2, somme3: Double; begin { الغاء تنشيط الكائنات لتسريع قراءة الجدول } Table2.DisableControls; { تهيئة المتغيرات } Somme1 := 0; Somme2 := 0; Somme3 := 0; try { بداية…

السلام عليكم 1.لماذا تريد استعمال كومبوبوكس بالطريقة التي ذكرتها؟ ان كان من أجل البحث فأعتقد ان هذا لا يجدي . 2.لحساب مجموع الحقول N1,N2,N3 استعمل الكود التالي Somme := Table1.FieldByName('N1').AsFloat+Table1.FieldByName('N2').AsFloat+Table1.FieldByName('N3').…

السلام عليكم اذا كان الشيئ المستخدم صورة "timage"يمكنك ان تستخدم image1.canvas لرسم او تلوين ما تشاء

تفضل أخي الرابط http://rapidshare.com/files/283587985/5.2.3.1.7z وفيه الاصدار 5.2.3.1 من الحزمة الكاملة