دخول

appakar · 22-07-2021, 10:32 PM

عودة من جديد
بحثت في المنتدى وتوصلت الى

إضافة الدالة :

كود :
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 TForm3.BitBtn1Click(Sender: TObject);
var  : 
    x,string;
if dm.BenefisTable.RowsAffected = 0 then
        begin
        dm.BenefisTable.Insert;
        dm.BenefisTable.FieldByName('Num_EXNais').AsString :='';
        dm.BenefisTable.FieldByName('Num_Dosier').Value:=dm.BenefisTable.RecordCount+1;
        end
        else
dm.BenefisTable.Last;
x:= dm.BenefisTable.FieldValues['Num_Dosier'];
dm.BenefisTable.Insert;
dm.BenefisTable.FieldValues['Num_Dosier']:=code_suiv(x);

اصبح الترقيم تلقائي
لكن ظهرت لي مشكلة في رز الحذف
[صورة: p_2029cb5361.jpg]

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة