key auto increment

[hanipino]

السلام عليكم .
تخلصنا منها (Ar) .

PHP كود :

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