key auto increment

[hanipino]

زاد الاختصار نوعا ما . سؤواصل ... .

PHP كود :

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