15-08-2017, 03:47 PM
كود :
procedure TF_TOUT.BT_TARTIBClick(Sender: TObject);
begin
ADOTable1.First;
K:=0;
if Edit1.Text<>'' then K:=StrToInt(Edit1.Text);
while (not (ADOTable1.eof)) do
begin
ADOTable1.Edit;
ADOTable1.FieldByName('TARTIB').clear;
ADOTable1.FieldByName('TARTIB').AsInteger := k;
ADOTable1.Post;
k := K + 1;
ADOTable1.Next;
end;
ADOTable1.First;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ