16-08-2017, 07:08 AM
كود :
procedure TF_TOUT.TAFWIDJClick(Sender: TObject);
var
k,
i: integer;
begin
k:=2;
if ComboBox1.ItemIndex<>-1 then K:=StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
i := 0;
with adoTable1 do
begin
First;
while not EOF do
begin
edit;
Inc(i);
ADOTable1.FieldByName('TARTIB').Value := i;
if i = k then
i := 0;
Next;
end;
end;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ