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

[ALKO]

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

كود :

with AQMax do begin Close; SQL.Clear; SQL.Add('Select max(Cod_Cl+1) As Mx From Client); Open; end; if AQMax.FieldValues['Mx']=null then a:=1 else a:=FrmDM.AQMaxFieldByName('Mx').Assinteger;