rober

بالنسبة لإرتفاع السطر procedure TForm1.Button1Click(Sender: TObject); begin كل الأسطر tstringgrid(dbgrid1).defaultrowheight:=25; سطر معين tstringgrid(dbgrid2).rowheights[1] := 25; end; أما بالنسبة لجعل سطر معين غير قابل للتعديل :hmm: سبب التعديل إضافة صورة

يا ريت يا أخي أمناينلواد لو ترفق مثال توضح فيه المشكلة حتى لا نتحزر في كل مرة على حل مختلف و بهذا تكون حللت مشكلتك بشكل أسرع :blush:

أخي الكريم هل تأكدت أن t1.fieldvalues['num'] ليست فارغة :huh:

عفوا لكن لم تري adoquery كأداة أم في الكود ؟ :blush: إختي الكريمة الطريقة تعتبر جيدة وهذ ما كنت أتحدث عنه في المشاركات السابقة لكن سيتنج عنها وجود أسماء لم تسدد في شهر محدد سوف أحاول أوضح أكثر و إن شاء الله أقدر أوضح :blush: المشروع سيقوم بإضافة كل الأسماء إلى…

تعال عندنا في Delphi :rose:

أخي الكريم الأمر بسيط بعون الله النقر على زر الحفظ Private Sub Command1_Click() العد من السطر رقم 1 في الجريد حتى أخر سطر For i = 1 To grid.Rows - 1 Step 1 الرجاء الإنتباه : هذا السطر فيه مشكلة بسبب أن طريقة تعريف الجدول فيه غير الطريقة التي أستخدمت في المثال …

أخي الكريم جرب المرفق أنا جربته عندي و مشي الحال كانت المشاكل أني لم أضف next بعد نهاية كل for و كان هناك خطأ في الـ for الثانية أنها كانت step -1 و تم تصحيحها إلى step 1 و هي كانت step 1 في الكود السابق الكود بعد التصحيح Private Sub Cmd_Calc_Click() For i = g…

أختي الكريمة تم إستخدام الجدول للعرض فقط و ليس هناك داعي لوجودة فيمكنك إستبداله stringgrid بكل الأحوال لا تنسي كلام الأخ TopSec فالطريقة غير مناسبة و كلامه صحيح 100% و إن كنت تبحثين عن جواب أخر للسؤال جربي المرفق procedure TForm1.Button1Click(Sender: TObject);…

up :blush: :blush:

ربما قد تساعدك الطريقة مجربة على checkbox لكن هناك شيء من البطء لحلها يمكنك إضافة progressbar لنفرض أن جدول يحتوي على 4 حقول الأول هو إسم العنصر (label.name) و الثاني هو عنوان العنصر باللغة العربية و الثالث الأتكليزية و الرابع الفرنسية فيكون الكود procedure TF…

:wink:

هذا ما قصدته كلام صحيح 100% لكن الأمر يعود لطريقة البحث في دلفي أستخدم الفلترة table1.filter و هي طريقة مجدية معي إن كان عندك فكرة ثانية أو عند الأخوة يا ريت تنصحونا :wub:

أخي الكريم أعذرني على قلة درايتي بالـ VB لكني أرغب في مساعدتك أنظر الكود المرفق لعله قد يفيدك أعذرني مرة أخرى Private Sub Command1_Click() ProgressBar1.Visible = True ' حلقة عملية الطباعة لا أعرف ما هي في الفيجول ' while printing not stop ' أمر الطباعة ' print…

أخي الكريم الحلقتين for الأولى تبدأ بـ السجلات من الأخير إلى الأعلى و الثانية تقوم بالبدء بالسجلات من الأعلى إلى الأسفل لكل سجل من الأولى و هي صحيحة فهي نفسها في مثال الدلفي أعتقد أن الأخطاء هي أملائية هل جرب أحد عمل مثال عملي على الطريقة حتى نجر فيه :happy:

أخي الكريم أنا برأيي أن تقوم بعمل جدولين الأول تسجل فيه معلومات الفاتورة من رقم و كود و أسم الزبون ومعلومات عن الزبون و الثاني يحتوي على اسم المواد المباعة و تفاصيلها من كمية و مواصفات و يكون هناك حقل Id يدل على رقم الفاتورة التي بيعت فيها المواد و أظن أنها نف…

إما أن الموضوع صعب أو أنه غير موجود أو أني لم أبحث جيدا :blush: بحثت كثيرا عن كيفية إيقاف الزر win الموجود في لوحة المفاتيح و الذي يقوم بفتح قائمة إبدأ و جدت كثير من الأدوات و المكاتب التي تقوم بعمل hook و hotkey لكن لم أجد ما يوقف هذا الزر ما أبحث عنه هو إيقا…

أخي الكريم تأكد من وضع قيمة الخاصية visible على true و قم بجعلها false بعد وضع كود الطباعة progressbar1.visible = true ------------ أمر الطباعة + تقدم progressbar1 ------------ progressbar1.visible = false لو ترفق مثال يكون أحسن حتى يتمكن الأخوان من مساعدتك بش…

كمية = رصيد حالي أم كمية = الكمية المباعة ؟؟؟

أين مكان الخطأ ؟؟؟ ممكن أحاول البحث عن حل

مشكور على الأمثلة يا حبيب downloding.... كلام صحيح 100% لكن أحيانا يكون كاتب الشفرة لديه أسلوب خاص لن يفهمه القارء إن لم يكن على دراية جيدة بالشفرة المستخدمة ( مجرد رأي )