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

在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;

如何关CD机的门?-Delphi资料 如何关闭外部开启的应用程序-Delphi资料 如何获得系统内存的有关信息?-Delphi资料 如何获取硬盘的ID-Delphi资料 如何检查软驱中的软盘和光驱的光盘是否发生变化。-Delphi资料 如何检查一个驱动器是否就绪?并且不出现错误信息-Delphi资料 如何将Wav文件做到EXE文件里-Delphi资料 如何将你的程序放在Windows启动中-Delphi资料 如何控制Ctrl+Alt+Del键-Delphi资料 如何控制壁纸-Delphi资料 如何控制关闭Windows-Delphi资料 如何屏蔽系统功能键-Delphi资料 如何取得Windows的临时文件目录?-Delphi资料 如何确保你的.exe文件仅运行一次!-Delphi资料 如何让 Windows 模拟按键-Delphi资料 如何让程式只执行一份?-Delphi资料 如何让程序只执行一次?-Delphi资料 如何删除一个控件的子控件-Delphi资料 如何识别显示器当前的分辨率-Delphi资料 如何为Delphi程序添加事件和事件处理器 如何写小执行程序-Delphi资料 如何隐藏桌面上的图标-Delphi资料 如何用API更改改计算机名字-Delphi资料 如何用Delphi映射网络驱动器? 如何在字符串截取中避免分割到半个汉字-Delphi资料 如何知道用户点击了窗口的最小化按钮?-Delphi资料 如何中断线程的执行-Delphi资料 如何终止一个线程-Delphi资料 如何转让控制权-Delphi资料 使用Delphi 4.0编写多线程 使用Delphi获取系列信息 seek 函数??? 谁能帮我破解些ZIP密码! DB高手请看看:逐级缩小搜索范围的一个问题,大家都来看看啦!!!!!! C# 完全手册 中文版电子书 神经网络 TADOConnect与SQLserver连接 WINS 几问 为什么BCB的自动弹出属性和方法提示速度那么慢? 请问那里能下载JBUILD6?????// 怎样用程序打开TADOConnection 的ConnectionString 设置窗体 键盘钩子?????,有实例或文档吗????? 低手问题? 大家碰到这样的问题吗? 各位,那里有d3d的教程? 从ca365下载了一个免费根证书(rootca.cer),却无法在本地计算机上安装,help! peihexian的程序发短信的一文中,程序所发的数据包 请问web service到底是个什么东西?谢谢 callingda(林丁) 来拿分30 哪位能提供一个图书管理的VB源码给我参考? yzqb()发工资了47分 请教一个问题,编译不通过,不知是什么错误。 帮帮忙!神经网络 vb 中打印机如何检测? 假如用户正在使用别的软件,如何自动使我的程序获得焦点 批量转移数据 SQL 斑竹呀急,快帮帮我! 想用ADO连接internet上服务器中的database,怎么动态建立间接网上数据库的DSN? 我的Web站点为什么没有安全性? 请问那些捌角人小图片如何做呀? 我也要一份《全套国标软件设计文档》 好人们,谁也发给我一个吧! 如何得到对话框在桌面的位置 紧急求救!编译时的错误! 改变Edit控件后出现字符重叠显现如何解决? 关于DBASE,CLIPPER,FOXPRO,VFP的历史发展 请问那些捌角图片如何做呀? 谁会刻光盘!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! lazywolf(二代) 有没有提供几何图形模板的类(如正方形和圆形)? typedef DWORD (WINAPI *MYFUNC)(DWORD,DWORD);是定义函数指针吗?为什么这样定义呢? 如何创建vector数组!我这些不对static Vector report[8]=new Vector()[8];高手指点me:) 如何画一个透明的Rectangle VC中修改字体的问题 比你更急!ASP。NET中打开文件问题? HTTP POST QUESTION????? delphi中的pop3控件怎么取得带附件的邮件的正文呀? J2EE随带文档的中文版本哪里有下载??? chr 函数问题 弟兄们,我明天开始要回来了,回到这个阵线了 如何退出双重循环 帮兄弟一把,一个小问题! ADO的连接 iBoo粉末 涂装 烤漆 炉温测试仪 为什么如此热销? 将4g NaOH 溶于多少g水中,可使得100个水分子中溶有1个钠离子,这时所得溶液的质量分数是多少? 10%的NaOH溶液中,钠离子与水分子的个数比是: 求解释 单项A 1:9B 1:20C 3:40D1:10 初中化学酸碱指示剂看到的一道题:取一只试管,加入NaOH溶液,再滴加酚酞试液,看到酚酞试液变红,再逐步滴加稀盐酸,看到酚酞试液红色逐渐变浅至消失,则证明碱能与酸反应. 话说酸碱指示剂 4g氢氧化钠溶解在多少克水中,才能使平均每50个水分子中溶解有一个钠离子 稀硫酸和氢氧化钠溶液恰好完全反应 所得溶液的溶质质量分数为10%,则溶液中钠离子和水分子的个数比为?A 1:71 B 2:71 C 1:79 D 2:79 酸碱指示剂与酸碱反应是化学反应吗?会各生成什么物质(举例)? 一个质量是50g的鸡蛋悬浮在盐水中不动时,他受到的浮力是多少(ɡ=10N/kg 氢氧化钠溶液中存在着水分子钠离子氢氧根离子已知在氢氧化钠溶液中存在着水分子、钠离子和氢氧根离子,请设计一个简单实验说明三种微粒中,哪一种能使无色酚酞试剂变红,写出简要的实 酸碱指示剂与酸碱的化学反应是什么?反应的具体化学方程式是什么? 体积是60cm³,质量是65g的鸡蛋悬浮在盐水中,若它漂浮在另一杯盐水中则他受到的浮力是g取10N/kg 以碳酸钙基准物质标定EDTA标准溶液,为什么要加入10%NaOH溶液 鸡蛋在盐水里为什么会浮起来? 将8克NaOH溶于多少克水中,才能使每10个水分子溶有一个钠离子 将4克NAOH溶于几克水中,可使溶液中H2O与NA+的物质的量之比为了20:1,此溶液中溶质的质量分数为?4克NAOH为0.1mol,则H2O的物质的量为2mol为什么 如何配制CACO3与EDTA 几克NAOH溶解在90克水中,才能使每10个水分子溶在一个钠离子 将4gNaOH溶于多少克水中,可使溶液中H2O和钠离子的物质的量之比为20:1将4gNaOH溶于___克水中,可使溶液中H2O和钠离子的物质的量之比为20:1,此溶液中溶质的质量分数为____氢气、氧气 我用碳酸钙做基准物质配制的EDTA标准溶液,经标定浓度为0.0096,现在我要的浓度是0.01,该怎么办呢/ 多少克氢氧化钠溶解在90克水中,才能使每10个水分子溶有一个钠离子?帮帮偶~‘ 纯牛奶的密度为(1.1.2)×10³kg/m³,李明很想知道学校每天营养餐中的牛奶是不是纯牛奶,他和几个同学根据所学密度知识进行如下测定:首先用天平称出一盒牛奶的质量是250g,喝完再称 为什么配制蔗糖溶液可用上皿天平称量 10克NaOH必须溶解在几克水中才能使每10个水分子中溶有一个钠离子 将0.1molNaOH溶解在水中,若使每100个 H2O 溶解一个 Na离子,则需水溶液的物质的量为 为什么把鸡蛋放入盐水里鸡蛋会浮起来无 为什么鸡蛋放在盐水里会浮起来,放在清水里会沉下去? 把1.24 g Na2O投入9 g H2O中,反应后溶液中H2O分子和Na+离子的物质的量之比是? 请写出鸡蛋在盐水里浮起来的原因!请写出鸡蛋在盐水里浮起来的原因!铭谢! 为什么鸡蛋在盐水里会浮起来,而在清水里会沉下去?是因为清水密度小吗? 某氢氧化钠溶液中,Na离子与H原子的个数比为1:41则该溶液中的溶质的质量分数是A,5.1%B.9.8%C.10%D.69% 以碳酸钙为基准物质标定edta时应控制溶液酸度多少 鸡蛋放在清水和盐水里为什么有沉有浮 .“长江牌”牛奶包装袋上标有“净含量200ml(227g)”字样,“长江牌”牛奶的密度是g/ cm3,合㎏/m3.“长江牌”牛奶包装袋上标有“净含量200ml(227g)”字样,“长江牌”牛奶的密度是_________g/ cm 盐水浮蛋的原理最好有50字吧! 一杯清水,一杯盐水,把鸡蛋放进去有什么不同反应 关于养水晶虾的水质硬度PH值的问题我家有熊津豪威的净水器和软水机,应如何配比才能达到最佳硬度和PH值?没有硬度和PH值测试工具,水应如何配比? iBoo炉温测试仪,在钢铁测试方面,有什么独特优势? 标定EDTA 用氧化锌标是吗 水晶虾调整水质的问题?1.如何能让水质变硬!(硬度大于8或10或更高)而PH值却在7.0以下!2.养水晶虾到底需不需要换水 有的朋友说不用换蒸发多少加多少就可以了 他养很多年了但网络上都是 盐水为什么能让鸡蛋浮起来 要使100个水分子中含有1个钠离子,则100克水中需要溶解氢氧化钠的质量 水晶虾饲养水怎么调PH有什么调,调高和调低分别有什么,麻烦告诉我下方法和试剂, 浮力 鸡蛋加盐水将一鸡蛋轻轻放入烧杯水中,然后向水中加盐,是鸡蛋上浮.鸡蛋浮出水面后,不会立即停止,还会再上升些,为什么? 将甲鸡蛋放入盐水中,鸡蛋漂浮,将乙鸡蛋放入酒精中,鸡蛋下沉,则( )A两个鸡蛋都受到向上的浮力B乙没受到向上的浮力C两个鸡蛋都受到的浮力方向不同D乙所受的浮力方向不确定 沈阳的自来水硬度GH16,如何降低硬度达到养水晶虾的标准 求200ml 5mol/L的HCL溶液能溶解CaCO3的质量及产生CO2气体在标况下的体积 鸡蛋在盐水中的姿势是直立的还是衡卧的顺便说下加几药匙盐让鸡蛋浮起来的,还有加几药匙盐让鸡蛋在水中直立的全部答对的我加分哦 水晶虾的养殖谢谢各位了 HCl中什么使CaCO3溶解 为什么在盐水里的鸡蛋会浮在水面上? 向100g10%NAOH溶液加入12.5gNAOH固体完全溶解后所得溶液中溶质质量为多少拜托了各位 一个50g的鸡蛋悬浮在盐水中时,受到的浮力是多大?(取g=10N/kg) 多少克NAOH溶解在90克的水中才能使每个水分子溶有一个钠离子 实验室使用的浓盐酸的溶质质量分数一般为36.5%,密度1.19g/cm3.若要配制该浓度的质量分数1升,需多少升标准状况下的HcL气体溶解在其中 一个质量是50g的鸡蛋悬浮在盐水中不动时,它受到的浮力是多少N? 将4克NaOH溶于多少克水中,才能使每100个水分子溶有一个钠离子? 实验室使用的浓盐酸的溶质质量分数一般为36.5%,密度为1.2g/cm3.现取上述浓盐酸50ml与一定量MnO2混合加热,向反应后的溶液中加入8.0gNaOH固体恰好中和溶液中的酸,再向溶液中加入过量的AgNO3溶液. 将4g氢氧化钠溶于多少g水中才能使每50个水分子溶解1个钠离子 EDTA标定碳酸钙的时候颜色的变化为什么我的实验到最后,EDTA过量的时候蓝色又会变成紫色. 我想问一下水的电导率和水的硬度是可以换算的吗?我的理解是这样子的,水的硬度指的钙镁离子等等,而导电的东西很多比如,钠啊,氢离子,但是我看到一篇文章写的是水的硬度和电导率可以换
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn