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

如何控制关键字段的重复输入及报错-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下调试通过。

苹果聘请某时尚公司CEO为副总裁 将负责“特殊项目” 雅虎5000万美元收购视频分享应用Qwiki 创业第一年易犯的8大错误 苹果推iOS游戏手柄,掌上游戏主机格局变天? 代码审查固然伟大,那还有其他替代品吗? 怎样维护一个成功的开源项目 麻省理工专家发布新系统Ascend,专注内存访问安全缺陷 Oracle Database 12c面临的最大挑战是开源+开放的生态系统?! 浸入式数据中心:高密度计算的新前沿 2013年腾讯合作伙伴大会要点回顾 “鼠标之父”和超文本研究先驱Douglas Engelbart去世 享年88岁 Web服务器排行:Nginx超越Apache 成为全球TOP 1000网站最常用的Web Server Windows 8之父Steven Sinofsky正式离职微软 不得接受竞争者聘用 Yelp处理1.02亿/月绝对造访人次及3900万评论的省钱秘诀 可视化:图像的主题色提取算法,是不是太高端了? 不利于写出好代码的15个职场因素 GPU Saturday技术沙龙:分享异构计算新技术及应用 微软隐藏最深的秘密武器之一——Visual Studio可作为Python IDE 历时六月,Qt 5.1正式版终于面世! HTML5全硬件加速游戏引擎:Sphinx正式公测 专访“Monster Blade”创始人:无需营销,百万下载背后的秘密 Twitter实时分析平台主要合作伙伴Dataminr:让用户不再错过重要的推文 OpenStack、OpenNebula、Eucalyptus、CloudStack社区活跃度比较 XOR的黄色大象:Erasure Code为Hadoop节省数据恢复带宽 竞争将越来越激烈:戴尔或也进军可穿戴计算市场 新技术:可直接在人脑播放广告 编程调试和诊断的五大规则 70%开发者:对现有应用推广和广告并不满意 四种方案:将OpenStack私有云部署到Hadoop MapReduce环境中 扩展PHP的五个简单技巧,让单服务器并行支撑30000用户 硅谷为什么无法复制 请问一个文本输入框的小问题,客户端验证设置. skymotion 请进! Office问题, 100分相送 请问:怎样编程来来虚拟网卡? 一个搞不明白的问题 在线等待,急!!!!! 急,急!组件中如何获得顶层对象? Fat16向Fat32转换的问题 怎样把Image中的图像存入剪切板?在线等! 菜鸟散分,chart问题,UP有分 用ASP如何在access中删除和添加数据(在线等待) 从一个表里进行查询,查询结果有多条记录,如何我只想要其中的某一条,请问如何取出。 请问:怎样编程来来虚拟网卡? .net目前是什么版本?在哪可以下载到新的安装盘?回答有效100分! 各位,一个重要的问题关于doc.send(false)问题(急!!) 请问:怎样编程来来虚拟网卡? WAP中如何读取手机号码?高分相送!马上给分! 有什么办法可以知道我的共享盘是什么时候创立的,并且知道人家访问过我的共享盘中的哪些文件 答题,大家帮我看看怎么让这个session的改变在页面上显示出来~~~~~~~~~~~~~~~~~~(开始写错了~~) 请教各位DX:关于iframe中显示图片的问题 xp的桌面问题 急!!注册数据库的问题 IBM软件清库存(大优惠) linux 9.0 安装后无法启动,请帮助 请问delphi怎么读取xml文件中的内容? IBM软件清库存(大优惠) 〉〉〉〉〉〉〉〉求一份对旧系统进行分析、整合、优化的文档 又是闪烁,头大! 简单问题,请紧急指导.(在线) help help : fortran + dll = ? 奇怪的现象:判断不了SQL sum()查询结果!!! 2003高考试题 设置访问表命令:“access-list 2 permit 10.0.0.0 0.0.0.255”中10.0.0.0 和 0.0.0.255分别指什么? 请问谁知道这是什么缘故啊? 如何计算cpu和memory的一般的使用上限 在delphi中使用什么报表控件打印的报表效果较好 谁知道db或dbf头文件的格式? 急急 NMFtp中我想从ftp服务器下载指定文件扩展名的文件,该怎么办? 初始化页面的时候,如何使TextMode="Password"的asp:textbox有默认值显示? IBM软件清库存(大优惠) 又是可恶的乱码问题 struts与数据库!在线等待! 如何开发asp.net程序(基于vb) vc++的链接错误 如何用程序动态的获得activex控件的方法属性事件信息 请教:使用web.xml做资源约束时如何由自己的程序来做用户验证 请问:怎样编程来来虚拟网卡? 急!创建LOOKUP的问题 如何计算cpu和memory的一般的使用上限 新问题请教! 老问题:从Excel文件里把数据导入导数据库中 toi et moi ,c'est fou ce qu'on 于是举州皆谓灯为“火”的意思 怎么读 英语翻译 于是举州皆谓灯为火 On ne sait jamais ce qu'il pense vraivment .elle change d'avis sans 马赫带现象产生的生理学机制 举州皆谓“灯”为“火”的举是什么意思.在只许州官放火,不许百姓点灯. Avis国际租车谁了解这家公司?或者租过这家公司的车?这家公司的车贵不贵?服务好不好?能不能自驾?在哪能得到详细的了解.交易有没有担保,最好是有向拍拍、淘宝这样的网店最好! 下面这个班徽的寓意是什么呀? 于是举州皆谓 灯 为 火 被我选中最低可得50悬赏啊 均值和方差全都是大于等于0的吗 I pour toujours et toi dans le même endroit Élégant 兴奋是如何产生和传导的要分无髓纤维神经和有髓纤维神经上的传导 Marie___tout à coup qu'elle avait un rendez-vous avec Jacques à 19 heures.A.s'est souvenue B.Marie___tout à coup qu'elle avait un rendez-vous avec Jacques à 19 heures.A.s'est souvenue B.a rappelé一道法语题,这里为什么选A不选B?se souv Le temps Pour toi,et c'est tout是什么哪个语种? 琬溪 的 意思,是个女孩的名字字面意思,或有何含义? 判断下列句子用了哪些修辞手法,并把相应的序号写在后面的括号里.A.比喻 B.拟人 C.排比 D.对比 E.反问 F.夸张 G.对偶 H.借代 I.通感1.可怜九月初三夜,露似珍珠月似弓.( )2.长征是宣言书, C'est toi pour moi,moi pour toi dans la vie A(4,3)为坐标内一点,在x轴上是否存在一点P,使△OAP为等腰三角形求出点P 的坐标是不是(5,0)或(8, 求二重积分∫∫√4-x²-y²dxdy,其中D是由x²+y²=4所围成的区域.求哪位老师大神帮忙做一下.尤其是积分写详细一点.跪求 改正句子的语病!由于技术水平太低,这些产品质量不是比沿海地区的同类产品低就是成本比沿海地区的高. 《我的空中楼阁》的作者李乐薇到底是男还是女?最好请给出事实依据有的地方又说他是男的,有的地方又说她是女的.就连我们老师讲课是也是含糊不清的给混过去了. 加里曼丹岛的地势特点,并说明判断理由 有语病的句子是(),如何改正?A我们要时刻牢记交通法规,确保自己与他人的安全,行安全路,做文明人.B我们的校长很年轻,大概30岁左右.C我们只有相信自己的能力,才能在各种考验前充满信心.D 已知点A(-2,1),在X轴上存在一点P,使三角形OAP是等腰三角形,求点P坐标. 五个一活动心得体会 要800字 大家帮帮忙五个活动是:看一本好书 做一天家务 做一件好事 点评一件案例 做一项调查 我很郁闷 我不会写 还要800字 大家帮帮忙 急用 我需要关于公司费用报销制度的文章 李乐薇的我的空中楼阁 的简介,越短越好.急! 罗贯中在《三国演义》开篇就写到:“天下大势,合久必分,分久必合.”请仔细阅读下图,回答下列问题 这个句子有语病,请改正?这组艺术珍宝包括一尊弥勒佛、两尊菩萨和分为11个部分的敦煌壁壁画组成. 英语翻译 法语 on peut en faire des choses. en faire 啥意思前面为什么加个en 讲语病的句子,改正1,我们将继续发挥伟大的抗震救灾精神.2-要有实事求是,突出民生优先和科学统筹.3,使灾区基本生活条件和经济社会发展水平总体超过或达到灾前水平.4 我们应该必须坚信, 英语翻译 merci ..on peut faire des amis 什么意思 求篇关于中国古代文化与制度的文章…如题所示 英语翻译 用博喻和通感的修辞手法造句 各三个 这班徽有什么寓意 求 通感 博喻 比拟三个句子如题 puis-je vous être utile 中的 vous être 这个句子语法怎么解释呀? 初二(6)班的= = 寓意 寓意 跪求啊 括号句子提问My family is going to have holidays (on the beach) 为什么诗中讽刺“直把杭州作汴州” 老师讲了一个六段位移平分为各三段位移的方法,求重力加速度 负外部性导致的效率损失:供给过剩? A secrt mekes a woman woman 这个班徽寓意什么. 正外部性导致的效率损失:供给不足 英语“Cheerful,lively woman adventurer”指的是什么意思?还有“I detest,for fear of marriage,but I also very much want to get married,God ah,how I so self-contradictory ah? 英语翻译毛德昭名文,江山人.苦学,至忘寝食,经史多成诵.喜大骂剧谈,绍兴初,招徕,直谏无所忌讳.德昭对客议时事,率不逊语,人莫敢与酬对,而德昭愈自若.晚来临安赴省试,时秦桧之当国,数以言 李乐薇除了《我的空中楼阁》还有哪些作品? 这个woman到底怎么读啊..woman根据音标来是屋们 而大家都读握们到底怎么读啊?根据音标前面是读屋啊,到底怎么回事啊? 求陆游《老学庵笔记》卷二的练习答案赵广,合肥人,.今士大夫所藏伯时观音,多广笔也.翻译还有赵广又怎样的精神品质? 外部效应(外部性)对市场效率有什么影响?为什么说它是市场失灵的一种主要表现? je pars demain matin 这句话法语中pars是啥意思 陆游的中 肃王与沈元用肃王与沈元用同使虏,馆于燕山…… 如何对外部性进行纠正 我要做你的Only Women.祝大家新年快乐! 缅甸总统呼吁尽快签署全国停火协议东京股市日经股指下跌0.88%新加坡欲购88套美国多管制导火箭发射分析称土耳其宣布选中国导弹只是向欧美挪威峡谷小镇靠三面“巨镜”首次沐浴冬日本研究发现治疗糖尿病和代谢综合症物加拿大多伦多市长身陷吸毒疑案 拒绝辞万圣节当天加拿大机场查获借南瓜暗藏毒日政府拟制定相关措施援助海外核爆受害日媒披露日本或早已成为美情报机构窃听俄计划将驻吉尔吉斯斯坦一空军基地飞机日本3男女光天化日在公园拍AV被警方中国部分军事设施现安全隐患 影响武器黑客因不满新加坡媒体局规定威胁将发动美泄密士兵欲在狱中以女性身份生活 或中东欧四国支持西巴尔干国家加入欧盟日本农工商界携手强化农业国际竞争力 罗马尼亚:保管箱频失窃 银行安全自查黎晓宏任中央巡视工作领导小组办公室主4G临近 中国三大运营商相继抛出采购大众点评网就麦当劳团购事件道歉2楼住户家遭“雨”淋初中生拳砸玻璃断了肌腱西安充电桩地图昨发布 城南分布多女教师微信群称“开会让狗咬了” 校长教你写阅卷老师喜欢的作文芝加哥警察局长“下课”最高法:未对王广建运毒案下达停止执行办公楼改成卫生室 村委会搬进闲置村小孩子太胖 英议员力推“糖税”西安的地下玩玉圈 有时玉只是借口?千人“为爱撑伞”摆出最大残联会标商洛的美 闭着眼都能嗅出来西安三家餐饮店认购华县萝卜公益助农有人帮她“看”钟楼 也有人帮她 地铁小燕卖掉涨停板暖暖的爱献给最美的你凌晨4时50分17层住户家爆炸秋满魅 冬来逸CBA晋京两队被罚21万元拒绝“猫冬”动起来反腐英雄寻女25年未果去世
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘