盒子上一个问题的解决方法

sql数据库里有一个表，格式如下：
类型  类型号
Z      
Z      
X      
R      
X      
Z      
R      
......
窗体上有一个button，一个dbgrid显示表，如何按下button实现对表进行编号：
类型  类型号
Z      1
Z      2
X      1
R      1
X      2
Z      3
R      2    
....
这样的循环语句改怎么写啊？提示z有3个x有2个…

 

解决代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  chr:string;
  i:Integer;
begin
  with ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('alter table table1 add id int identity(1,1)');
    ExecSQL;
    Close;
    SQL.Clear;
    sql.Add('select 类型,id from table1 order by 类型 asc');
    Open;
  end;
  chr := ADOQuery2.Fields[0].AsString;
  i := 0;
  while not ADOQuery2.Eof do
  begin
    if ADOQuery2.Fields[0].AsString = chr then   Inc(i)
    else
    begin
      chr := ADOQuery2.Fields[0].AsString;
      i := 1;
    end;
    with ADOQuery3 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update table1 set 类型号=:v0 where id=:v1');
      Parameters[0].Value := i;
      Parameters[1].Value := ADOQuery2.Fields[1].AsInteger;
      ExecSQL;
    end;
    ADOQuery2.Next;
  end;
  with ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('alter table table1 drop column id');
    ExecSQL;
  end; 
end;