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;
AdoTable
最新推荐文章于 2019-12-30 09:43:31 发布