AdoTable

begin
  Tbl1.Open;
  Tbl1.Last;         //指针移到最后
  Tbl1.Edit;           //Tbl1.Append;       追加
  Tbl1.Fields[1].AsString := 'haiou327';
  Tbl1.Fields[2].AsString := 'Tel:135369*****';
  Tbl1.Post;
  if Tbl1.Locate('Name', 'haiou327', [loCaseInsensitive]) then    //查找用户名
    ShowMessage(Tbl1.FieldByName('Password').AsString)
  else
    ShowMessage('Error,没找到用户名！');
  Tbl1.Close;
end;