(转载)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;
转载于:https://www.cnblogs.com/angelbd/p/3373074.html
- 点赞
- 收藏
- 分享
- 文章举报
- (转载)delphi 把图片存入数据库
- (转载)Delphi StringGrid常用属性和常用操作
- (转载)EhLib 在 Delphi 7 下的安装方法
- (转载)Delphi TStringList的用法
- Microsoft Agent技术在Delphi中的应用
- delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声
- Delphi XLgrid 动态创建下拉框列
- Delphi XE10.3.1 使用心得-2019-12-08
- Delphi10 Android程序 对话框(dialogmessage, showmessage)等的汉化
- TCP中间件_Delphi_client
- DELPHI编模拟鼠标,键盘操作,比键盘鼠标录制软件更强
- glassfish 部署 Delphi for PHP 程序 use_unit 的问题
- delphi安装 Tclientsocket, Tserversocket控件
- Delphi调用分布存储过程
- Delphi7对XML的支持分析
- delphi学习中.
- Delphi之Windows编程
- delphi Memo 的当前行、当前列与当前字符
- Delphi数据库开发之TTable篇1
- Delphi数据库开发之TTable篇2