أخي ليس عندي فكرة عن عملية الترقيم التلقائي بقاعدة البيانات
أبحث عن الطريقة لتعلم ذلك
لا اقصد التصحيح
اعني يأخذ الترتيب التلقائي بعد الحذف
قمت بتجريب هذه الدالة في زر الاظافة لكن مازال عندي مشكل
أبحث عن الطريقة لتعلم ذلك
لا اقصد التصحيح
اعني يأخذ الترتيب التلقائي بعد الحذف
قمت بتجريب هذه الدالة في زر الاظافة لكن مازال عندي مشكل
كود :
function code_suiv(x:string):string;
var y,c:string; t,i:integer;
begin
y:=inttostr(strtoint(x)+1);
t:=length(y);
c:='';
for i:= 1 to length(x)-t do
c:=c+'0';
code_suiv:=c+y;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
var x:string;
begin
ABSTable1.Last;
x:= ABSTable1.FieldValues['N'];
ABSTable1.Insert;
ABSTable1.FieldValues['N']:=code_suiv(x);
end;