مشكل الترقيم التلقائي لقاعدة البيانات

[ALKO]

السلام عليكم
كتبت رد مفصل لكن Ctrl+Z
دهبت بكل شيئ
المشكل في استعلامك انه غير منطقي و ثانيا كارثي ان كان الجدول فارغ فسيعيد
Max:=null
a:= Query1nonoid.AsInteger+1 ===================OverFlow
a:=Null+1;
الحل بسيط

كود :

with AQMax do begin Close; SQL.Clear; SQL.Add('Select max(nonoid+1) As Mx From Enfant); Open; end; if AQMax.FieldValues['Mx']=null then a:=1 else a:=AQMax.FieldByName('Mx').Asinteger;