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

如何控制关键字段的重复输入及报错-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
如何控制关键字段的重复输入及报错-Delphi资料

下面以一个实例来说明:在 ‘c:\’ 下有一个数据库‘Renshi.dbf’,字段为:‘bianhao’;‘xingming’,类型为字符型,以关键字段‘bianhao’为索引字段,建立数据库的连接。

我们用控件DBNavigator1、DataSource1、Table1、DBedit1、

DBedit2、Table2来建立数据库的连接。其各属性为:

Table1.databasename:='c:\';

Table1.tablename:='renshi.dbf';

Table1.active:=true;

DataSource1.dataset:=table1;

DBNavigator1.datasource:=DataSource1;

编号:对应字段bianhaio; 姓名:对应xingming字段;

dbedit1.datasource:=DataSource1;

dbedit1.datafield:='bianhao';

dbedit2.datasource:=DataSource1;

dbedit2.datafield:='xingming';

这样数据库的连接就建立好了。

这里我们要求‘编号’为关键字段,不允许重复输入,为了控制输入的编号为唯一,我们在数据库变化时对Table1加入一个Beforepost事件,程序如下:

procedure TForm1.Table1

BeforePost(DataSet: TDataSet);

begin

with table2 do

begin

databasename:='c:\';

tablename:='renshi.dbf';

indexfieldnames:='bianhao';

if not active then open; {判断数据库是否打开}

Refresh; {刷新数据库}

setkey; {设置数据库为搜索状态}

fieldbyname('bianhao').asstring:=dbedit1.text;

{设置输入的编号 字段内容为搜索的标准}

gotokey;

{移动到搜寻的记录上,完成搜索}

if gotokey then

{如果找到搜索的记录,则gotokey返回true}

begin

showmessage('输入的编号已存在!请重新输入');

abort; {终止该操作}

end;

end;

end;

这样,就保证了‘编号’字段的唯一性,当重复输入时,计算机就会提示出错信息,并且该数据不能保存,只能进行修改或放弃保存操作。

该程序在Delphi4.0下调试通过。

JavaScript异步编程好助手:Promise模式 功能解析:Red语言推出0.3.3新版本 可穿戴?可吞咽!UI和UX的悄然转变 华为刘成:讲述开发者联盟的故事 出尔反尔,Amazon咬文嚼字玩转私有云 创业公司SOASTA:曾帮助伦敦奥运会官网进行云负载测试 金山云进一步聚焦云存储 Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 AMD发布APPML源码,构建clMath库 【观察】3个月,每天增加52台,又一家云企业跻身十万台服务器俱乐部 感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 10个调试和排错的小建议 怎样判断一个文本文件中的数据。 绝对的诚意邀请高手加盟 请问邮件服务器,如何用java实现,最好有源代码,谢谢了,急 急贴:>>>>>>>>>>>>>>>>>>>>>>>>>>这里有英语好的网络专家吗? 关于java中的画矩形 哪里有将股票数据转换成数据库格式的工具? 从哪里能找到用opengl绘制三维图形的源码?基于unix下的。 asp 怎么判断客户端的操作系统还有屏幕大小什么的? 卡在了一个错误里出不来,求救! 谁知道??????求救~~~~用asp操作注册表,从注册表中删除指定的主键! 何处能找到用opengl绘制三维图形的源码?基于unix下的 谁有多种字符窜转换的方法或代码呀? 用JBuilder5做的数据库应用程序怎么打包? 我的机器上没有装outlook,当我点击mailto时,就直接链接到hotmail的邮箱,怎么回事那 请问我在一个窗体里拖动了十几个ADODC控件,启动时很慢请问我该怎么样 怎样调整图片适应"picturebox"大小 请问那位大哥有求切线的C程序。 关于赵薇着装的讨论可以停止了 怎样远程连接安装在Linux 上的Mysql数据库? 谁能帮我解压缩从huizen.dds.nl/~roalt/h263.html下载的 H263软件 真诚的希望你加入振兴软件产业的 事业中来 两个函数之间变量可以共享吗 拷贝ACCESS 库 请教高手(关于数据结构)的一个问题 关于Rundll32.exe程序的问题 播放AVI动画的问题 c#和asp.net有什么关系? 串口打不开怎么办? 请问各位大虾,怎样在java里打开一个IE窗口。 网络问题! 我的浏览器怎么了? 在局域网中,如何在代理服务上作手脚,使处同一局域网某些人可以上网,某些人不能上网。各位帮忙! 如何制作安装盘,我的做好了,为什么到别的机器上安装不能运行 急急急·高手帮忙,在Java中引用C++的动态链接库,中文字符串参数变成乱码,怎么办? 有前锁问题 找个扫雷源程序! 发送邮件时,对现在大部网站要求的smtp认证,如何处理?急用! 连接的ACESS数据库可以是EXCEL的链接表吗? 神呀救救我吧? 谁知道哪有Delphi写的代理服务器源代码? 关于MFC的动态生成对象的问题 有谁把平台转向XP了,不知在这种新环境下开发出的软件在别的机器上会不会有问题(包括运行库及打包) 帮帮我,好吗?(谢谢大家了) 千山、恶人、老鱼、念雪、浪人及各位大虾,小弟也遇到了Dll引出MDIChild的问题,但是在linux下,不能正常退出,请各位帮忙,多谢了。 我的浏览器怎么了?? 心情好到最高点!放分!!!!!!!!!! 大家一定要帮帮我~~~~~~~~~ 一个关于重载的问题! 不活了 不活了.... 在VC中讲Edit控件的属性设置为ReadOnly后,如何改变控件的背景色??? 深圳的户口政策以及用人单位对户口的态度是怎样的? 质量为50kg的铁制机器,为了使他质量减少10kg,现将机器的部分钢件换为铝制的,刚需 CNC加工铝件怎么保证光洁度光洁度 请问直径Φ8mm E7的孔,公差值+0.025到+0.047用多大的铰刀 初二物理(有关密度和重力的):质量为50kg的钢制机器,为了将它按住行在飞机上使用,必须将机器减轻200N质量为50kg的钢制机器,为了将它按住行在飞机上使用,必须将机器减轻200N,为此,设计时 铝件加工40直径光洁度0.4怎么样达到? 燃烧时产生耀眼白光的化合反应方程式是-------------注明反应类型 质量为60kg的钢制机器,为了把他安装在飞机上,必须将机器减轻10kg,为此,要将机器的部分零件改为钛质,至少要用多少kg钛件来代替刚件,才能达到要求.[钢密度8.0*10^3 钛密度4.0*10^3 如何车铝件光洁度好 是不是自然界所有白光无论是白衣服反射的白光还是灯泡发出的白光都是复合光? 钻石刻字必须英文的吗 铝材加工---如何保证光洁度?在车床上加工铝件怎样才能达到0.8的光洁度 [[i] 本帖最后由 深南大道 于 2008-5-13 21:06 编辑 [/i]] 白光是复合光,这句话只是针对阳光而言么?那生活中其他所见的白光呢? 石材雕刻机金刚石合金刀头,做浮雕,3D刻字用的 如若加工的是铝件,光洁度不是很好,我该怎么调机 化学反应后有耀眼白光产生的反应有什么? 请问,IGI给钻石腰部激光刻字,是用什么仪器啊?另外,给钻石刻字,有什么要求不? 某工程师为了减轻飞机的重量,将一钢制零件改为铝制零件,使其质量减少了1.56kg,则所需铝的质量为多少?钢的密度为7.8×103Kg/m3,铝的密度为2.7×103Kg/m3 铸铁H200,铰床铰30mm的孔转速和走刀怎样设.最好给个对照表,求高手指导. 彩虹是光的折射产生的吗?是折射还是反射? 车削一个长度为110的轴,要求两端中心孔,直径32.跳动在0.03以内.如何加装?如何加工?两顶可以,但是没有,请问有别的方法么? 机制造师为了减轻飞机的重量,将钢制零件改为铝制零件,使其质量减少了104千克,则所需铝的质量是多少?已知钢的密度是7900千克每立方米,铝的密度是2700千克每立方米 彩虹是怎样形成的 为何要经过两次折射一次反射 质量为50kg的钢制零件在飞机上用,飞机超重100N,若把50kg的钢零件改为铝零件,至 某工程师为了减轻飞机的重量,将一钢制零件改成铝制零件,使其质量减少1.56Kg,则 所需铝的质量为多少?(钢的密度为7.9× 103Kg/m3,铝的密度为2.7× 103Kg/m3) 彩虹是由光的反射还是折射? 将金刚石和石墨分别放在氧气中燃烧,结果都生成什么.写出反应的化学方程式 怎样用玻璃把白光经过不同方向的反射得出多种颜色 10立方厘米的铁和40立方厘米的铝制成合金密度是多少?【铁密度:7.9g/cm^3铝密度:2.7g/cm^3 将金刚石和石墨分别放在氧气中燃烧,结果都生成_____.写出反应的化学方程式_______. 白光是由7种颜色组成的,那为什么吸收了7种颜色的光后物体呈现的是黑色呢? 莫氏五号锥度是多少度? 黄铜制作的直径6MM长度为90MM铜管用什么方法能折弧度(只要方法就可以了)?没有精度要求,只需要方法能折弧度就好,里面是通过锡丝的. 一般情况下,车削外圆和磨削外圆的切削速度哪个高 A 车削高 B 磨削高 C 粗车比磨削低,精车比磨削高 钻夹头锥度请问1-13MM B16 的钻夹头配机床主轴锥孔是多大的锥度? 一块长方体黄铜重10.68千克,黄铜长20cm,宽12cm,每立方分米黄铜重8.9千克.这块黄铜的高是多少厘米^__^ 白光吸收什么颜色的光白光改为白色 钻石在直射灯光下能反射几种颜色.我的钻戒貌似是三到四种 分别为 黄色,橙红色 蓝色 与绿色,不过钻石在直射灯光下能反射几种颜色.我的钻戒貌似是三到四种 分别为 黄色,橙红色 蓝色 与绿 黄铜是铜锌合金 为了测定某黄铜样品中锌的质量分数 甲乙丙三位同学“黄铜”是铜、锌合金,为了测定某黄铜样品中锌的质量分数,甲、乙、丙三位同学分别进行实验,实验数据如下:(烧杯 已知车削工件直径为50mm,主轴转速765rmp,其切削速度是多少? 防辐射眼镜在灯光照射下会反射出什么颜色发射出来是绿色的不知道是好还是坏呢 眼镜店说是最好的—— 为了测定某黄铜样品中铜的质量分数,取10g黄铜加入到50g稀硫酸中,恰好完全反映,产生氢气0.1g计算该黄铜品中铜的质量分数、 不同颜色的物体,在白光的照射下( )被反射,( )被吸收 飞机设计师为了减轻飞机的重力,将一钢制零件改为铝制零件,其质量减轻了104千克,则所需铝的质量是多少千克?要有科学过程,复制的不要,好的加分钢铁密度为7.9克每立方厘米,铝的密度为2.7克 黄铜”是铜、锌合金,为了测定某黄铜样品中锌的质量分数,甲、乙、丙三位同学分别进行实验(请具体回答)黄铜”是铜、锌合金,为了测定某黄铜样品中锌的质量分数,甲、乙、丙三位同学分 从外圆车削来分析,切削速度起什么作用 飞机设计师为了减轻飞机的重力,将一钢制零件改为铝制零件,其质量减轻了104千克,则所需铝的质量是多少千 为什么钻石会有温度钻石的结构是正四面体原子之间不能相互运动温度是什么?指的是原子之间相互运动的剧烈程度么?物体之间温度的传递靠的是原子么? 白色能反射所有的光,那所有的颜色(除黑)能反射白光吗?如果不能,那我们怎么能看见太阳光下的五彩缤纷的世界?太阳光不是白色吗?比如我的衣服是红色的,那白光照射在我红色的衣服上,而 飞机设计师为减轻飞机重力,将一钢制零件改为铝制零件,使其质量减少104千克,则所需铝的质量是%B 金刚石,石墨与氧气反应各自的温度 材质为Q235钢,加工直径为25.1mm,公差为0到+0.3的孔要使用什么铰刀, CAD粗糙度如何标注 金刚石在什么温度下能溶化,溶化的条件都有什么? 如何根据孔的直径公差去选择铰刀的直径公差 cad粗糙度什么情况下才标注啊?求Cad高手 钻石在多少温度下会溶化 要求孔是负公差,铰刀有没有负公差? 平行度问题:销钉孔的粗糙度一般多少合适?不影响装配的销钉孔平行度是不是没有必要?如果有必要,销钉孔的加工如何在保证自由度的同时保证平行度呢?即使用什么方法加工?貌似精铰是不 怎么求石墨变成金刚石的温度 机械加工中要精铰孔,请问负公差尺寸公应该如何选择铰刀?买或定做回来来铰刀就能铰的那种规格比如0.00到-0.01,或者-0.01到-0.02公差应该怎么选?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn