Question

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

求源码或者参考实例

Answer 1

这个从本质上来说就是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;
基本就这样了，纯手打，可能有错误，但思路应该正确！

追问

~ ~ 基本知道了，谢谢。

Answer 2

将记录集本行的数据复制到一个临时记录集里，然后根据字段和值构造一个sql语句，连接上数据库写到数据库里就可以了