فلترة جدول ب ID جدول اخر - نسخ قيمة CELL لاخرى
#21
تم التعديل


الملفات المرفقة
.rar   o_test.rar (الحجم : 552.43 ك ب / التحميلات : 6)
الرد
#22
بارك الله فيك اخي الكريم على المتابعة

كنت قد جربت هذه الطريقة لكنها غير مجدية . لانها تمنع العديل ولا تسمع باضافة سجل جديد

اريد المنع من التعديل والسماح باضافة سجل جديد فقط

-----------------------------------------------------------------------------------
(09-09-2019, 02:45 PM)samnaj00 كتب : جرب واضغط على الزر السفلي للكيبورد ستجد انه انشأ عدة جدال دفعة واحد !!!!!

وهذه المشكلة؟؟؟؟؟
[/quote]
وهذه المشكلة لم تُحل بعد

والمعذرة إن أثقلت عليك.
الرد
#23
جرب واضغط على الزر السفلي للكيبورد ستجد انه انشأ عدة جدال دفعة واحد !!!!!
-------------
صور بالتحديد . في اي جدول ، واظهر رسالة الخطأ
الرد
#24
(10-09-2019, 05:48 PM)larbiparadox كتب : جرب واضغط على الزر السفلي للكيبورد ستجد انه انشأ عدة جدال دفعة واحد !!!!!
-------------
صور بالتحديد . في اي جدول ، واظهر رسالة الخطأ

في DBGRID2
انظر الصورة
وطبعاً السبب هذا الكود
كود :
if DETILABSTable2.Bof And DETILABSTable2.Eof  then begin
    i := strtoint(form1.Edit1.Text)
//   i :=  1;
     end else begin
     DETILABSTable2.Last;
     i:= DETILABSTable2.FieldByName('id_F').AsInteger + 1;
  end


--------------------
ربما تغلبت على هذه المشكلة بجعل حقل NAME_F مطلوب اي REAUIRED - لكنها ليست الطريقة المرجوة


الملفات المرفقة
.png   11.png (الحجم : 58.33 ك ب / التحميلات : 4)
الرد
#25
لقد جربت لم يحدث اي شئ سوا ادراج حقل جديد
----------
ربما المشكل في لوحة المفاتيح الخاصة بك
الرد
#26
(11-09-2019, 04:08 PM)larbiparadox كتب : لقد جربت لم يحدث اي شئ سوا ادراج حقل جديد
----------
ربما المشكل في لوحة المفاتيح الخاصة بك
ليس المقصود ضغطة واحد
أبقي اصبعك ضاغطاً على الزر سيندرج الكثير من السجلات وهذا لم يكن قبل وضع الكود السابق الذكر
الرد
#27
[صورة: 445304993.png]
* دور هذا الشرط هو في حالة عدم وجود اي حقل يعطي قيمة  1 و العكس يظيف قيمة 1 لأخر حقل

صحح الشرط بترك i:=1

(11-09-2019, 04:17 PM)samnaj00 كتب :
(11-09-2019, 04:08 PM)larbiparadox كتب : لقد جربت لم يحدث اي شئ سوا ادراج حقل جديد
----------
ربما المشكل في لوحة المفاتيح الخاصة بك
ليس المقصود ضغطة واحد
أبقي اصبعك ضاغطاً على الزر سيندرج الكثير من السجلات وهذا لم يكن قبل وضع الكود السابق الذكر
يمكنك وضع شرط عند الحفظ وذلك بتأكيد الحفظ برسالة: هل تريد الحفظ ؟
الرد
#28
(11-09-2019, 04:20 PM)larbiparadox كتب : [صورة: 445304993.png]
* دور هذا الشرط هو في حالة عدم وجود اي حقل يعطي قيمة  1 و العكس يظيف قيمة 1 لأخر حقل

صحح الشرط بترك i:=1

صححت الشرط والنتيجة نفسها
فقط اذا السجل المضاف هو الاول يعطيني 1 لكنني اعدله ليكون 11101 طبعا ليكون تابعا لل 111 الرئيسي . وبعد ذلك بالضغط على الزر السفلي تندرج السجلات

ربما تغلبت على هذه المشكلة بجعل حقل NAME_F مطلوب اي REAUIRED - لكنها ليست الطريقة المرجوة
الرد
#29
حل مشكل ادراج الحقول عند الضغط على قفل سهم السفلي

[صورة: 577729225.png]
الرد
#30
(11-09-2019, 05:53 PM)larbiparadox كتب : حل مشكل ادراج الحقول عند الضغط على قفل سهم السفلي
جزاك الله خيراً
لم تنجح - عند فتح سجل جديد يبقى التحديد والمؤشر داخل الخلية مجمداً لا تستطيع التحرك بأي زر من ازررار الاسهم الاربعة
طيب اصل المشكلة في هذين الكودين

كود :
procedure TForm1.DETILABSTable2AfterInsert(DataSet: TDataSet);
begin
    DBGrid2.DataSource.DataSet.FieldByName('id_F').Value  := intTOstr(i);
end;


procedure TForm1.DETILABSTable2BeforeInsert(DataSet: TDataSet);
كود :
begin
كود :
if DETILABSTable2.Bof And DETILABSTable2.Eof  then begin
كود :
  i := strtoint(form1.Edit1.Text)
كود :
//   i :=  1;
كود :
     end else begin
كود :
     DETILABSTable2.Last;
كود :
     i:= DETILABSTable2.FieldByName('id_F').AsInteger + 1;
كود :
  end
كود :
end;


اذا ألغيت هذا الكواد سيعمل الامر افتراضيا للدلفي وهو عدم فتح الا سجل واحد فقط فإذا تم post يمكن فتح اخر وهكذا
طيب الايوجد بديل للكود السابق ليتم تنفيذ تعداد تزايدي للحقل id_f ؟؟

بحيث لا يسبب مشاكل - كاستخدام quriy او عير ذلك
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم