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
إذا كان هذا هو السبب فماذا علي ان افعل
وجزاكم الله عنا كل خير