说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在DBGRID中实现COPY、PASTE功能-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在DBGRID中实现COPY、PASTE功能-Delphi资料

工具条上的Cut、Copy和Paste加速按钮,对于使用Windows下编辑器的人来说,恐怕都是非常熟悉而且不可缺少的。Delphi(1.0和2.0版)中的有些控件,如:TDBEdit、TDBImage、TDBMemo、TEdit等,具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法,在这些控件上,利用这几个方法,只要通过简单的编程,就可以实现上述加速按钮。但TDB Grid控件却不提供上述方法,无法直接实现这几种功能。而在单机的数据库应用程序中,TDBGrid却经常被用来进行数据(包括数字和文字)的输入,没有Copy和Paste功能,使用起来深感不便。笔者在编程过程中,利用中间控件进行“过渡”,间接地实现了这几种功能。

主要思路:既然TDBGrid控件无法直接实现Copy和Paste编辑功能,则可以将TDBGrid控件中需要进行这几种编辑的字段(Field)的内容,转移到具备这几种功能的控件(以TDBEdit为例)中去,编辑完毕后,再传回到TDBGrid中。

具体方法:在已设计好的包含有TDBGrid控件(设名为DBGrid1)的窗体中,增加一个TDBEdit(设名为DBEdit1)控件,其DataSources属性设为与DBGrid1的DataSources属性相同,对DBGrid1控件的OnColEnter事件编程,使DBEdit1的DataField属性值等于DBGrid1控件的被选择字段的字段名。再在窗体中增加两个快速按钮:Copy和Paste,图形可选Delphi子目录下ImagesιButtons子目录里的Copy.bmp和Paste.bmp。对Copy快速按钮的OnClick事件编程:

DBEdit1.CopyToClipboard;

对Paste快速按钮的OnClick事件编程:

DBEdit1.PasteFromClipboard;

DBGrid1.SelectedField.AsString:=DBEdit1.Text;

此时,如果DBGrid1中的某一单元Cell数字需要粘贴另一单元Cell2的部分或全部内容,用鼠标单击选择Cell2,此时DBEdit1所显示的内容与Cell2的内容相同。在DBEdit1中用鼠标拖曳选择部分或全部内容,单击Copy快速按钮;再用鼠标单击选择Cell,此时DBEdit1所显示的内容与Cell相同,在DBEdit中欲粘贴刚才所选内容的位置插入光标,单击Paste快速按钮,则刚才所选内容插入到光标位置,Cell的内容也随之改变成插入后的内容,由此完成了一次Copy—Paste操作。

用这种方法实现Copy—Paste操作,比正常的操作多了一次鼠标的键击、两次鼠标的移动。在重复输入的内容不多,且操作者键盘输入很快很熟练的情况下,这种实现Copy—Paste的方法,意义似乎不大。但如果应用程序的使用者是那些并没有掌握某种快速文字输入技巧、很有可能还在使用拼音输入法的人,如果使用者对正常的Copy—Paste方法本来就不熟练(则感觉不到这种方法的不合常规),且又非常地善于在一长串的同音字里翻来翻去地寻找的话,这还是一种不错的方法。如果哪位读者有能在TDBGrid中实现常规Copy—Paste操作的方法,请不吝赐教。

以下是有关的程序代码:

procedureTUnitDetail.DBGrid1ColEnter(Sender:TObject);

begin

caseDBGrid1.SelectedIndexof

0:DBEdit1.DataField:=′UnitNum′;

1:DBEdit1.DataField:=′UnitName′;

2:DBEdit1.DataField:=′Header′;

3:DBEdit1.DataField:=′Address′;

4:DBEdit1.DataField:=′Tel′;

end;

end;

procedureTUnitDetail.SBCopyClick(Sender:TObject);

begin

DBEdit1.CopyToClipboard;

end;

procedureTUnitDetail.SBPasteClick(Sender:TObject);

begin

DBEdit1.PasteFromClipboard;

DBGrid1.SelectedField.AsString:=DBEdit1.text;

end;

将光标限制在某区域-Delphi资料 将文件放入回收站-Delphi资料 禁止用户切换任务-Delphi资料 控制面板大全-Delphi资料 控 制 系 统 菜 单-Delphi资料 拦截消息处理过程-Delphi资料 利用API函数开发DELPHI程序三例 利用Hook技术实现键盘监控-Delphi资料 利用浏览窗口 DragDrop 任意文件-Delphi资料 利用未公开函数实现Shell操作监视-Delphi资料 妙用Delphi的标识号 判断Windows类型和版本-Delphi资料 判断一个程序是否dos版本:-Delphi资料 屏蔽系统按键-Delphi资料 屏幕抓字技术揭密(转载)-Delphi资料 启动控制面板-Delphi资料 取得系统所有窗口的方法-Delphi资料 全部窗体可使用鼠标点中移动-Delphi资料 让图像旋转-Delphi资料 热启动控制-Delphi资料 如果隐藏和显示Windows的任务条-Delphi资料 如何把文件删除到回收站中-Delphi资料 如何从任务栏上隐藏应用程序的按纽?-Delphi资料 如何得到Windows 的temp路径-Delphi资料 如何得到WINDOWS的SYSTEM路径-Delphi资料 如何得到上一个激活的组件-Delphi资料 如何得到系统目录-Delphi资料 如何得到执行程序的当前路径-Delphi资料 如何访问一个进程的内存空间-Delphi资料 如何关CD机的门?-Delphi资料 如何关闭外部开启的应用程序-Delphi资料 在线等待,如何在DataGrid控件上更新数据? 关于datagrid问题 菜鸟求助 初学Delphi要怎么开始呢?望各位高手赐教! 画时钟,对你来说很容易,对我来说很那个.. xml中华网(www.xmlchina.net)—完全由ASP.net技术实现!! 关于文件二进制查找问题! 菜鸟有道数组问题请教!!!!!!help,help PreparedStatement为什么使用不了参数? 请教,在OUTLOOK中如何得到发信人的E-Mail Address 江苏 淮安的请进 建议程序员杂志对大连的程序员作一个调查 关于 New Collection 类型数组和列表框的问题(急!) 我現在遇到一個怪問題 怎么又冒出个Bug? 一个简单的数据库查询问题!50大洋送上!!急 谁能告诉我,反黄软件的原理是什么?? 请问如何读出一个dbf文件 如何从RM格式的电影中提取音乐? 怎么样 才能把一个数组转化为一个字符串啊 !!!请问我写的多线程CSocket连续接受用户请求的程序为什么不对?在线等。。/。 关于 New Collection 类型数组和列表框的问题(急!) 安装的中文版vs.net,调试c#程序时,提示不能调用类库,为什么? mstcpip.h哪儿有? 菜鸟的问题,请帮忙 .c and .cpp 一个关于mfc兼容性的问题? 翻译高手请进...... 求教:关于mp3算法的问题 这里的狗屁文章很多,不过看得让我笑个不停 RichTextBox右对齐怎么做? 关于大数据的问题? 关于CStringArray的使用问题???? lpd好麻烦!!! 关于Dependency的问题 有谁做过排课系统吗?具体的算法。。 我能单步跟踪么? 有没有高手指点一下,游戏需要OpenGL,怎么办? 请帮帮我!我用query+Updatesql更新时出现问题 一个全新的关于.net技术的网站--XML中华网(www.xmlchina.net)! 想让JLabel显示的字是从上到下的。该怎么办? 关于相同记录不能存在的问题 ?消息响应问题 好难的问题!!! 菜鸟有道数组问题请教!!!!!!help,help 关于CStringArray的使用问题???? !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! 好东东 !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! 请教高手,给高分!!!!!! 难呀,很多高手都说难!!!! 铜和铝的导电能力哪个强? 某课外活动小组为测定当地石灰石中含碳酸钙的质量分数,取来了一些矿石,准确称取样品5g放入烧杯中,杂质即不溶于水,也不与稀硫酸反应,也不分解,向其中加入45g稀盐酸,完全反应后称量,烧杯 五水硫酸铜导电否 要配制浓度为30%的烧碱溶液50kg需要浓度为10%和60%的两种烧碱溶液各多少千克? 战国时期的士指哪类人?举几个历史上有名的士,概括一下他们的故事. 归纳出氨气的物理性质,各两点 铜为什么比铝导电好?铜线为什么比铝线导电要好呢?我是问为什么?我知道铜比铝导电好 但是为什么比铝导电好呢?铜为什么比铝导电好 大野火 这位兄弟答非所问!不过还是谢谢了 对映异构 关于R,S命名 为什么图中是逆时针,而是R?化学 有机化学 对映异构关于R,S命名 为什么图中是逆时针,而是R? 为什么氨气极易溶于水 大家帮看看Excel中如何统计区域中不同名称的种类数量? 晓得的人说下哈,我在此先感谢了蓉8 用标准盐酸溶液滴定Na2CO3溶液,若用甲基橙作指示剂会发生反应 Na2CO3+2HCL=2NACL+H20+CO2若用酚酞作指示剂,Na2CO3+HCL=NACL+NaCLO3请问为什么啊 物体是否溶于水,是物理性质还是化学性质复制别人的长篇大论一律不看! 铜的导电率高还是铝的导电率高? 英语翻译 五水合硫酸铜晶体是硫酸铜晶体吗?五水合硫酸铜是晶体对吧?可是为什么CuSO4·5H2O里面明明有水却是晶体呢? 请问铜和铝哪种导电性能更强? 越南语tieng hue rat kho 五水合硫酸铜晶体是纯净物吗 醇能不能使酸性高锰酸钾褪色?怎样的醇能?醇基和酚羟基都能? 战国时期的士指哪一类人,举出一些历史有名的士,谢 这天气到底是什么意思如题 哪种醇能使酸性高锰酸钾溶液褪色? 战国时期的“士”只那一类人?举几个历史上有名的士 温度计里的汞加热后,会发生什么?如题 铜和不锈钢导电性能相比哪个比较好? 问题是这样的.氢氧化钠是否部分转化成碳酸钠,用甲基橙做指示剂,用盐酸滴定.错哪了 最新的航海英语题库到底是什么 为了测定某石灰石中碳酸钙的质量分数,某同学取了含有氯化钙杂质的碳酸钙样品24g放入烧杯中.向其中加入100g稀盐酸,两者恰好完全反应.反应结束后,称量烧杯中剩余物质的总质量为115.2g.请计 举出几个历史上有名的士简短概括性的故事能完整叙述一件事的故事 初三22课课后题第四大题 CaCl2溶液中混有少量的CaCo3 用一种试剂,除去杂质 化学性质不稳定算不算物质的性质? 某课外活动小组为了测定一批石灰石种碳酸钙的质量分数 某课外活动小组为了测定一批石灰石种碳酸钙的质量分数,将石灰石样品研成粉末,然后取一定量的石灰石粉末与过量稀盐酸充分反应 请举出3个历史上有名的士主要是在战国时期的士就行拉,麻烦下,我要的事例要详细些,例如要有事情的原因,发展,结果等等,就像一个故事一样的事例, 铜导不导电 某课外活动小组为测定当地石灰石中含CaCo3的质量分数,取来了一些矿石,准确称取了样品10g放于烧杯中(杂质既不溶于水,也不与稀盐酸反应,也不分解),向其中加入足量的稀盐酸,充分反应后 举1个历史上有名的士并提供他们的故事 孙中山三民主义的主要内容是什么?国共合作时期孙中山重新解释的三民主义有哪些新的内容? 铜T2的导电率是多少? 历史有名的士,举几个故事具体一点 孙中山的三民主义,最核心的内容是什么? 毛泽东和蒋介石对中国的贡献;美国怕的是谁是怕毛泽东;还是蒋介石 为何用Na2CO3滴定HCl甲基橙从红变橙是滴定终点?终点时溶质为NACl?那不是中性吗?为啥不是由橙变黄捏( ⊙o⊙ 试述孙中山三民主义的主要内容与演变过程. 爱新觉罗溥仪、孙中山、蒋介石、毛泽东、朱德、周恩来谁更得民心 称取仅含碳酸钠和碳酸钾的试样1g,以甲基橙作指示剂,用0.5mol/l的hcl标准溶液滴定,用去CL溶液30ml,分别计算试样中碳酸钠碳酸钾的百分含量 物质的化学性质包括稳定性和不稳定性吗 有机化学中,书写同分异构体时什么是(E)(Z) bay gio anh noi tieng Viet,em cu biet khong?越南语翻译成中文 求助一下大家Excel中如何统计区域中不同名称的种类数量? 晓得的人说下哈,我在此先感谢了邀0 铜能否导电 CO2是易溶于水还是? 有哪些化学性质不稳定的注射液 为什么铜会导电? 注汞弹是什么 铝和铜哪个导电性能比较好? 大学有机化学旋光异构如图 选哪个 为什么 汞构成的离子是什么? 配制10%的NaOH乙醇溶液,乙醇浓度是多少 有机化学对映异构R、S命名法问题,是R还是S? 五水合硫酸铜导电吗
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘