19-02-2018, 09:34 PM
22-02-2018, 12:08 PM
وعليكم السلام ةرحمة الله وبركاته
ماهي الاكواد المتعلقة بالقاعدة عند اقلاع برنامجك ؟ القاعدة لا تضيف السجلات وحدها
ماهي الاكواد المتعلقة بالقاعدة عند اقلاع برنامجك ؟ القاعدة لا تضيف السجلات وحدها
22-02-2018, 01:25 PM
وعليكم السلام ورحمة الله وبركاته
كما قال لك الاخ Mobile حتما لديك AbsTable.insert أو في مكان ما
كما قال لك الاخ Mobile حتما لديك AbsTable.insert أو في مكان ما
22-02-2018, 08:47 PM
السلام عليكم ورحمة الله تعالى وبركاته
نعم في النافذة التي تحتوي على معلومات السجل
يوجد زر إضافة سجل يحمل في حدثه هذا الكود
نعم في النافذة التي تحتوي على معلومات السجل
يوجد زر إضافة سجل يحمل في حدثه هذا الكود
كود :
procedure TForm1.BtnAjourterClick(Sender: TObject);
var x:integer;
begin
x:=0;
with DM do begin
Table1.Last;
x:=Table1Cde.AsInteger;
x:=x+1;
Table1.Insert;
Table1.FieldValues['Cde']:=x;
end;
scode.setfocus;
end;
مع العلم أن نوع الحقل في قاعدة البيانات وهو مفتاح القاعدة SMALLINT
كما أن "scode" هو إسم DEBEdit الذي يحمل إسم الحقل cde
إذا كان هذا هو السبب فماذا علي ان افعل
وجزاكم الله عنا كل خير22-02-2018, 11:43 PM
وعليكم السلام ورحمة الله وبركاته
لا ليس في الازرار رغم ان الزر للاظافة راجع الاحداث Oncreate & Onshow
لا ليس في الازرار رغم ان الزر للاظافة راجع الاحداث Oncreate & Onshow
23-02-2018, 12:34 PM
لم افهم قصدك
وهل الكود الموجود بالحدث المتعلق بزر الاضافة صحيح ام ينقصه شيء ما
وهل الكود الموجود بالحدث المتعلق بزر الاضافة صحيح ام ينقصه شيء ما
23-02-2018, 11:29 PM
لايمكن للزر ان يضيف وحده سجلات
انت قلت ان السجلات تجدها عند تشغيل البرنامج صح؟اذن في حدث الفورم oncreate or onshow توجد المشكلة
انت قلت ان السجلات تجدها عند تشغيل البرنامج صح؟اذن في حدث الفورم oncreate or onshow توجد المشكلة
24-02-2018, 01:09 AM
عفوا عندما اشغل البرنامج لا تظهر بينما انتقل من الفورم الى فورم أخر واعود اليها بعد غلق الفورم الاخر
اجد هذه السجلات الفارغة
مع العلم ان الفورم بها ديبقريد وكلما انتقلت الى فورم اخر وعدت اليها بعد غلق الفورم التي انتقلت اليها
اجد سجل جديد فارغ اضيف في الديبقريد
اما بالنسبة للحدث التابع للفورم لايوجد به سوى
radiogroup1.itemindex:=0
radiogroup2.itemindex:=1
في onActivate
اجد هذه السجلات الفارغة
مع العلم ان الفورم بها ديبقريد وكلما انتقلت الى فورم اخر وعدت اليها بعد غلق الفورم التي انتقلت اليها
اجد سجل جديد فارغ اضيف في الديبقريد
اما بالنسبة للحدث التابع للفورم لايوجد به سوى
radiogroup1.itemindex:=0
radiogroup2.itemindex:=1
في onActivate
24-02-2018, 08:46 AM
اضف table.past بعد اضافة حقل جديد
24-02-2018, 10:06 AM
السلام عليكم ورحمة الله تعالى وبركاته
بعد عدة محاولات لقد وجدت سبب اضافة السجلات الفارغة
وهو ناتج من هذا الكود المتعلق بالفلترة
عندما يكون dblookupcombobox المتعلق باحد الخيارات فارغ
واضغط على الخيار
يظهر سجل فارغ
هذا هو الكود الذي استعمله
ماذا ينقص هذا الكود حتى اتخلص من هذه المشكلة وجزاكم الله عنا كل خير
بعد عدة محاولات لقد وجدت سبب اضافة السجلات الفارغة
وهو ناتج من هذا الكود المتعلق بالفلترة
عندما يكون dblookupcombobox المتعلق باحد الخيارات فارغ
واضغط على الخيار
يظهر سجل فارغ
هذا هو الكود الذي استعمله
كود :
procedure TForm1.RadioGroup1Click(Sender: TObject);
var cFilter: string;
begin
case RadioGroup1.ItemIndex of
0: cFilter:='not Bloquer';
1: cFilter:='not Bloquer and SC_CD = '+QuotedStr(LookupSect.Text)+'and not Bloquer';
2: cFilter:='not Bloquer and ET_CD = '+QuotedStr(LookupEtat.Text)+'and not Bloquer';
3: cFilter:='not Bloquer and GR_CD = '+quotedStr(LookupGrpe.Text)+'and ET_CD = '+quotedStr(LookupEtat.Text)+'and not Bloquer';
4: cFilter:='Bloquer';
5: cFilter:='';
end;
DM.Table1.Filter :=cFilter;
DM.Table1.Filtered :=true;
end;ماذا ينقص هذا الكود حتى اتخلص من هذه المشكلة وجزاكم الله عنا كل خير