procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin if Query1.Locate('ID',ID,[]) then Query1.Edit; else Query1.Append; end; Query1.FieldByName('ID').AsString := Edit1.Text; Query1.FieldByName('Name').AsString := Edit2.Text; Query1.Post; end; end;
Query1.FieldByName('ID').FocusControl;
DBGrid1.Fields[1].Value:=Edit1.text;判断自己加...
麻烦各位大哥详细指点,在线等!
Query1.FieldByName('name').FocusControl;
begin
if Key = #13 then
begin
if Query1.Locate('ID',ID,[]) then
Query1.Edit;
else
Query1.Append;
end;
Query1.FieldByName('ID').AsString := Edit1.Text;
Query1.FieldByName('Name').AsString := Edit2.Text;
Query1.Post;
end;
end;