（转载）delphi实例TDBGrid用右键菜单复制行粘贴行

delphi实例TDBGrid用右键菜单复制行粘贴行

 

这个从本质上来说就是DBGrid后台数据库的插入

右键复制当前行的相关数据到临时变量
点粘贴时，覆盖数据或插入数据！

db为数据库: 字段名id,name,string型
通过adoquery-》datasource->dbgrid,adoquery的SQL中填写select * from db
在form定义两个变量（全局）：var id,name:string;
复制代码：
procedure CopyToMem;
begin
if not adoquery.active then
begin
showmessage('数据库没有打开！');
exit;
end;
id:=adoquery.fieldbyname('id').asstring;
name:=adoquery.fieldbyname('name').asstring;
end;

procedure PasTeFromMem; //覆盖
begin
if not adoquery.active then
begin
showmessage('数据库没有打开！');
exit;
end;
adoquery.edit;
adoquery.fieldbyname('id').asstring:=id;
adoquery.fieldbyname('name').asstring:=name;
adoquery.post;
end;

procedure PasTeFromMem1; //插入
begin
if not adoquery.active then
begin
showmessage('数据库没有打开！');
exit;
end;
adoquery.insert;
adoquery.fieldbyname('id').asstring:=id;
adoquery.fieldbyname('name').asstring:=name;
adoquery.post;
end;