key auto increment

[hanipino]

... ضهرت مرة واحدة فقط .

PHP كود :

procedure TForm1.table1CalcFields(DataSet: TDataSet);
var
i:Integer;
Str,Y:String;
begin
i:=(DataSet.RecNo);
Y:=inttostr(i);
case i of
  0..9:Str:='Ar000'+Y;
  10..99:Str:='Ar00'+Y;
  100..199:Str:='Ar0'+Y;
end;
if i>=1000 then Str:='Ar'+Y;
Table1['rec']:=Str;
end;