代码如下: begin userload.Append; userload.Fields[3].AsInteger:=right; userload.Fields[1].AsString:=edit1.Text; if(edit2.Text=edit3.Text)then begin userload.Fields[2].AsString:=edit3.Text; end else begin Application.MessageBox('密码输入不一致,请重新输入!','未发现记录',MB_OK); edit2.Text:=''; edit3.Text:=''; end; userload.Post; userload.Refresh;表内userload.Fields[0]即是ID
begin
userload.Append;
userload.Fields[3].AsInteger:=right;
userload.Fields[1].AsString:=edit1.Text;
if(edit2.Text=edit3.Text)then
begin
userload.Fields[2].AsString:=edit3.Text;
end
else
begin
Application.MessageBox('密码输入不一致,请重新输入!','未发现记录',MB_OK);
edit2.Text:='';
edit3.Text:='';
end;
userload.Post;
userload.Refresh;表内userload.Fields[0]即是ID