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

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

特种作战,纽约极客企图建造现实中的“潘多拉星球” 领先Google 150年的数据可视化和“不务正业”的超级计算机 苹果会成为新微软的四大理由 雨血·影之刃:参选2014年Unity游戏及应用大赛 AT&T联手IBM对抗AllSeen:“晚点和堵车”将成历史 微软WP春季更新将降低手机生产成本 意在开拓新兴市场 私人定制,十款最佳Node.js MVC框架 开发者“逆袭”,就等你一票! 基于多路云计算方案焕发新春 浪潮抢发E7 v2服务器 美国人眼中的腾讯 英特尔发布64位凌动处理器Merrifield 布局移动市场 OvershareKit:开源的iOS社交分享工具库 Ruby 2.1.1发布,改进系统加速,服务器兼容等问题 专访Ejoy2D作者云风:因Lua而生的开源图形引擎 当DDoS跨入400Gbps时代,那些来自孩子们的攻击该如何应对! Mesos渐入主流,Twitter模式有望“无限复制” 几十亿美元当头,你现实世界信息是否还会安全? 华为V3服务器挑战小型机,多路高端市场汹涌 迟到的祝福:Ruby生日快乐!编程快乐! 无缘CEO Stephen Elop将执掌微软硬件业务部门 又一API聚集地 3scale成立API Codex 你应该放弃的八大设计元素 Tropo与华为达成合作 Tropo API首次可供中国电信客户使用 抢先看:2014即将召开的Web Design大会 小米盒子2视频推送测试及解决播放优酷视频卡的问题 《近匠》UPYUN——从开发者变为服务者 移动开发者必须了解的10大跨平台工具 不差钱:30+收购案,170亿美元投资,IBM再度出手收购Cloudant 微软反击谷歌:Windows授权费降七成+硬件要求减少一半 [测试] 你的HTML5知识够金质吗? 基于OpenStack的虚拟机在线迁移 用什么函数能返回数组中的元素个数 怎么在fastreport中打印固定行数?不是通过调节band高度来实现... 求救SQL2000电子教程或精品图书(要入门级的) 请问哪里有citizen的GSX-540S的驱动???急急 再帮我 请问哪里能找到php_pear.dll? 哪儿可以找到《think in java》的习题答案? 请问以下查询中,为何没有查到记录,query1记录数显示为1? 哪里可以下载vc5.0 用新版sun虚拟机,为什么找不到类了? 回车的问题 100在线等待………… 网页上的一些图片看不到 关于sql的问题? 我哪里错了呢? CITIZEN 的打印机 GSX-540S的驱动哪里有??急啊!! 我该如何处理这感情 #图书醒目#《vc++和uml》#图书醒目# 斑竹:请给matlab一个专区! 如何调用API使得子窗体全屏显示,且要屏蔽掉所有菜单及工具条? 每次用.net帮助的索引就会出错退出 奇怪的linux安装问题 用PB6.5开发单机版程序用什么数据库比较合适? 为什么我每次用UpdateUI刷新JTree时都有错? 本菜鸟想问一个怎么定义公用函数的问题!请各位大虾不吝赐教!不胜感激。 我这个人啊!!大家可能还不了解!! 网友六一见面,找个网友男朋友看海,找个网友男朋友看星星! 请教!! 求教SQL语句 神洲数码怎样? 请大家帮帮忙:如何将一个字符转换为unicode码形式(得到的是数字,而不是字符串)! msn怎么通不过http代理 求助:J2EE Container中deployed的servlet是否可以调用EJB local home? 有关时间限制 ie问题有没有碰到过 TADOTable+TDBGridEH+TDataSource中编辑一有关键字的表时,怎样做到避免在输入相同的关键字时的出错? IE经常自动关闭是什么原因 菜鸟请教 UlraEdit? 四舍五入的函数是什么?? 帮帮忙!!!我编译出这问题?? 请问:发现病毒:生成folder.htt,还有后缀都是htt的其他文件,用kv3000杀,提示kbs\kj,请问是什么病毒,怎么杀毒(急)? ie问题有没有碰到过 打开adsl的猫机器能自己启动为什么? 神洲数码怎样? linux中如何得到某个网络设备的ip地址? 请教ADO的Recordset对象的Delete的问题 请问jbuilder的参考书,哪本比较好?市面好像种类比较少 请问怎样获得临时表的记录? @@@@@@@@@@如何使我的折线图随着时间移动@@@@@@@@@@ 菜鸟问:各位大哥看c++ primer的时候是用什么编译器? 洋流淡水盐水比例破坏后会导致什么气候如果气候持续变暖,高伟地区越来越冷,低伟地区越来越热,冰川融化后淡水进入海洋破坏了洋流循环,化雪导致可反射太阳光减少,气候会向什么方向发 请问有谁知道那些奶粉是含有赖氨酸,或者是精氨酸的.介绍一点给我. 一个二面角的两个半平面分别垂直于另一个二面角的两个半平面,这两个二面角为何不一定相等或互补? 如果淡水海流入海水中的地球会发生什么改变和影响? 桑乐太阳能热水器温度显示“开路”,按加热键也不能加热,请各位大侠帮帮告诉怎么回事?该怎么修?我家的桑乐太阳能热水器温度显示“开路”,按加热键也不能加热,请各位大侠帮帮告诉怎么 现代人的压力如何去释放. 金属钠的化合物的小问题一.A、B、C、D四种化合物,焰色反应均为黄色.A、B、C和盐酸反应都可得到D,而BC以等物质得量在溶液中反应可得到A.若在B溶液中通入一种无色无刺激性气味的气体,适量 我只是要交作业·· ,题目如下、某油田计划在铁路线一侧建造两家炼油厂,同时在铁路线上增建一个车站,用来运送成品油.由于这种模式具有一定的普遍性,油田设计院希望建立管线建设费用最 为什么现代人处于压力之中呢 抗体蛋白质纯化的好方法 用奉献和贡献造句 现有一份澄清石灰水,含有溶质为0.2摩尔,现向其中通入二氧化碳气体.(1)若生成沉淀7.5克则通入的二氧化碳气体在标准状况下为多少升(2)若经分析反应后的混合物中含碳酸钙和碳酸氢钙 大家的灭火器都放在哪里? 假设你是守株待兔里的农夫,你提着兔子回到家.写一段你和妻子之间的对话用英语来说可以吗 异面直线夹角的求法?直线和平面夹角的求法?二面角的求法?两平面垂直的证法?3点或者4点共面的求证? 电荷守恒减物料守恒等于质子守恒嘛? 为何化学泡沫灭火器可扑救一般油质品、油脂等的火灾,但不能扑救醇、酯、醚、酮等引起的火灾 二面角α-ι-β的棱ι上有两点A、B分别在二面角的两个面所在的平面内作棱的垂线a,b,则异面直线a,b所成 质子守恒在数值上是否等于电荷守恒减物料守恒?如果不能,请说明不能的原因, 证明有些二面角是个平面角有什么意义啊? 小草和大树中破折号的意思是什么拜托了各位 精氨酸盐酸盐和精氨酸在用途上有哪些区别呢? 用羡慕.原谅.奉献.珍惜造句 要20个字以上分开的 现代人的压力来自哪里? 精氨酸是什么? 奉献是……奉献是……奉献是…… (感受) 排比 造句 现代人的压力一般来源于哪些方面?希望说明具体一些,比如“生活压力”,“工作压力”,那具体都是指什么呢? 什么食物含精氨酸?什么食物里含有大量精氨酸? 奉献这个词怎么造句 现代人的压力源自哪里? 请问如何补充精氨酸呢? 作为一名奉献型的女性造句 现代人的压力主要来自通货膨胀吗? 可以在加热时间相同的情况下,比较(),也可以在升高相同的温度下,比较() 情谊,同归于尽,势不可当,狞笑怎么造句?对的,奉献30分! 《牵着母亲过马路》写作 700字感想1- 发感情,发表议论,...请您们可以帮助我~ 金属的反应活性是什么?急用,拜托各位了!尽量详细一点,最好有例子和说明!拜托了! 奉献造句 声音在空气中的传播速度约为多少米每秒. 金属反应顺序一种金属放在酸与较不活泼金属的盐溶液中,先与酸反应还是先与较不活泼金属反应? 灵魂、平等、自尊、奉献、自由、感悟等造句 声音在空气中的传播速度大约是多少米每秒? 金属与硝酸反应产生气体是啥,这个有啥规律不?跟金属活性有没有关系?比如钠锌铁铜产生气体不一样吧? 用“芳馨、散发、奉献、精神、鸟语花香”造句 注:在没有单摆和滚摆时,请你找一些生活中常见的东西设计一个研究动能和重力势能相互转化的小实验,并说明:1.器材.2.安装和操作.3.说明所看到的现象.4.总结. 金属活动顺序和反应先后的关系 热爱的反义词是什么 试设计或制作一个动能与势能相互转化的装置. 用奉献造句 不仅动能和势能之间可以相互转化在一定条件下还可以-——与——,-——,——,等进行转化 设计实验验证:弹性势能可以转化为动能 奉献---造句如 如果你是一棵大树,就撒下一片阴凉; 命题“如果两个二面角的两个半平面分别对应垂直,那么这两个二面角相等或互补”的真假? 磁场会对放入其中的轻小物体产生力的作用, 组蛋白含有精氨酸和赖氨酸,为碱性蛋白质,那为何能与带负电荷的DNA结合呢?碱性蛋白,即-OH应该带负电荷呀,不应该与带正电荷的DNA结合吗?不理解中, 压力好大,现代人生活就只能这么累吗? 在大自然里,小草和大树都是上帝的安排 从这句话我看到了一个怎样的骚塞? 到底是盐分影响洋流还是洋流影响盐分?我对气象这类很感兴趣 但是我发现《后天》这部影片中曾经这么说过 是淡水的注入使得海水中盐含量变化,然后引起洋流的改变.而我老师则说是洋流 精氨酸置换突变成赖氨酸后对蛋白质功能的影响?最近从别人那里要的目的基因缺失突变体,不同的片段,测序发现每一段3‘端都有移码突变(与NCBI该基因mRNA序列比对后缺失一个碱基),很是郁 一个二面角的两个半平面分别垂直于另一个二面角的两个半平面,则两个二面角相等或互补? 日美拟明年将普天间空中加油机转往岩国中国“北斗”即将在泰国落地使用宁夏“10·14”灭门杀人案犯罪嫌疑中组部:干部离退休3年内不得到原管辖杭州一大妈在城市空地种2000余株罂中国网络媒体论坛宣言“让网络清朗”中航工业否认为2.7万名员工配备iP世界关注中国“关键性会议” 将为长远内罗毕火车与公交车相撞死伤数十人韩国议员呼吁韩朝积极合作解决开城问题印度长途巴士失火事故造成至少40人死刘延东会见美国英特尔公司首席执行官十八届三中全会将于11月9日至12日全国人大常委会五年立法规划公布 立法国际观察:监听丑闻凸显美国网络信息“美国国家情报总监暗示奥巴马绝对知道监美国情报总监称白宫早知晓监听 政府内李源潮会见欧洲客人李源潮会见欧洲客人全面深化改革 再创体制机制新优势“染缸”绍兴重手遏制纺织行业三大污染东道主选手终结者!德国组合夺女子沙滩今年工资怎么涨?山东公布企业工资指导山东淄博红白公事标准:随礼不坐席 份记者手记|买房看房价 房价看规划淄博一男子痴迷电子盗监控 改装自用触中国军团渐入佳境 金牌总数追平英国一个浪漫的胖子!刘国梁赛后为何亲吻戒一个浪漫的胖子!刘国梁赛后为何亲吻戒信新专辑启动筹备 美国演唱会秀经典老100岁时会干嘛?美国一老人驾机飞行向萍,热心慈善的深圳女人水为铃草为弦风为弓,顶级音乐家打造史导入用户初期流量,增添创业保险!UE神奇!双冠女飞人汤普森两年时间走入顶这一次,里约的跑道上真的没有了刘翔市民举报安全生产违法行为 奖励金最高五大房企扎堆药山片区 价值洼地获规划德甲18主帅预测冠军:14人选拜仁,今天快去加油!下半年成品油首次涨价官方:西安承办国足对叙利亚的主场比赛阎学通:用“周边命运共同体”突破安全
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘