数据库的问题，急

Question

大哥，这点小问题，你自己想去吧，还用解释吗，
这点逻辑都解决不了，可不能成为一个数据库的程序员

Answer 1

你是程序员嘛？是不是刚毕业？

Answer 2

既然你刚学Delphi，具体实现是这样的procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Table1.Active then
    Table1.Active := True;
  Table1.First;
  While (not Table1.Eof) do
  begin
    if Edit1.Text = Table1.FieldByName('a').Value then
      break;
    Table1.Next;
  end;
  //若没有相同时，则添加
  if Table1.Eof then
  begin
    Table1.Append;
    Table1.FieldByName('a').Value := Edit1.Text;
    Table1.FieldByName('b').AsInteger := 1;
    Table1.Post;
  end
  else
  //若有，则修改b字段
  begin
    Table1.Edit;
    Table1.FieldByName('b').AsInteger := Table1.FieldByName('b').AsInteger + 1;
    Table1.Post;
  end;
end;