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

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

奥巴马筹款网站的制作过程 国内芯片厂商发力4G 新岸线2013年将推LTE方案 CMDN Club 23期:开放平台和O2O移动产品开发 花旗调低Apple股票评级 不信iPhone5会卖得好 2012年Linux Journal读者选择奖结果公布 百度云SiteApp:三步轻松创建移动网站 Twitter跨数据中心图片存储系统Blobstore解析 摩托罗拉携手中国移动发布Intel Inside智能机新锋丽i MT788 第五届“英特尔杯”全国大学生软件创新大赛圆满落幕 Appro推出液冷超级计算机 Dell:曾敦促微软WinRT放弃Windows品牌 IE10十大优点:渲染页面比Chrome快8% 法国电信:开放平台下的O2O移动产品怎么玩? 客如云创始人彭雷:寻找O2O“失落的半圆” 中国电信宋鹏飞:天翼开放平台的服务及架构解析 W3C小组宣布:HTML5标准制定完成 还记得DUQU吗?起因可能是Windows中存在了20多年的漏洞! API管理的五大规则 Google也节能:挖角美能源部Arun Majumdar博士 预测:云计算领域的5大变革 CTO俱乐部:移动信息化的创新实践及互联网创业 核心组图曝光:BlackBerry 10明年1月30日发布 “蛐蛐儿”创始人朱连兴:音频二维码的技术实现和应用场景 信恩科技创始人林兴陆:QR Code二维码的前世今生 2012移动开发工具盘点:傻瓜式游戏工具引擎 《福布斯》发布年度“未来之星” 扎克伯格上榜 Cloudera透露Impala发行版新功能及开源计划 Nokia落寞身影下 三星成为全球最大手机厂商 乐视网CTO:智能电视,一个诱人的议题 SeatGeek:Web设计师如何转型iOS开发? IE10支持HTML5标准拖放 如何清楚TImage控件内的图像? 明天去参加MS的VS发布会,不知他的技术讲座会是什么? 哪里有中文的《Inside C#》 在win2000下如何调用拨号网络 拨号拨通了,ping不通是什么回事? 有什么办法可以给 Label 控件加上句柄? *******怎样实现将一幅图像进行局部放大???****** com和dcom在编码实现上的区别是??? 我要做毕业设计,请有经验的高手们进来看看! import com.bitmechanic.sql???? 顺便问一下,西安哪里有好的电脑书卖 快救救我的硬盘吧!各位大虾! manager server出错! ORACLE数据库的表放在哪里?扩展名是什么? 拨号拨通了,ping不通是什么回事? windows 下时钟的那种输入是怎样实现的,进来看看,在线守候,立即加分 sos 十万火急,请大侠指教 转让书刊* 谁能帮帮我的这个问题?对与VECTOR的问题? 有什么好的软件在不格盘的情况下分区 游戏引擎和3d真实感图形渲染器源代码和开发文档出售 急急急!!!:::请问ATX电源没有主板如何启动工作?(现在有个ATX电源,一个光驱,想听听cd ,可不知道如何加电?) 求救 ! 关于sql 的问题 我只问一个扩展名和文件位置(在线等候) linux急救 白给分---请问改变字体 java小问题 游戏引擎和3d真实感图形渲染器源代码和开发文档出售 主 题:要用vc做报表(含mschar图形内容),用什么控件好? linux急救!!!!! 谁能提供求矩阵的秩的算法,高分相送。 高分求书!! 关于Client/Server系统的问题 TStringGrid中设置颜色的问题!! 迷惘 不该在此问的问题,希望你们能帮我!!!进来看看吧!!! 谁有系统开发的功能定义(function spec.)样例? SB其实是外来语 数据表里的数据排序问题。(ADO) 谁知道怎样进入 WWW.MICROSOFT.COM 的原代码区? 我想学vc++请问我该看什么书? 读密码(*****)的软件有哪些?(答对就有分) 如何重复使用自己以前开发的库文件*.pbl文件? 关于用DELPHI6的WebSnap开发网络应用程序的讨论 为什么在线程里,在以CString做为返回值的函数总出错? 哪位大哥能指点迷津? 采用中文变量名或者过程名或者函数名有没有什么副作用? 怎么用udp协议发送信息? bdk1.1 WinXp和Win2000对等网的连接 石油机械名词翻译问题burst and collapse在石油机械中该怎样翻译 第一个字和第四个字是反义词的四字词比如死里逃生、寡不敌众.好的给十五分! 我爱大海作文400~450字多了不采纳,懂不 如图,CD是圆o的直径,AB为弦,CD与AB交于点E,且AB=24cm,CE=8cm.求圆o的半径 已知A、B、C为球面上三点,AC=BC=6,AB=4,球心O与△ABC的外心M的距离等于球半径的一半,求这个球的表面积和体积. 紧急!英文辩论赛面对面交流比写信及发邮件更好正方~辩题:Is face-to-face communication better than other types of communication,such as letters and emails?紧急~最好在3.15日前回复~还有,最好是全英文的.辩论共 英语翻译我在一个记录片中,看到如下翻译,为了实施这次进攻,最高大本营向前线派遣了超过一百万军队,3600辆坦克和自行火炮,一万支步枪,由康斯坦丁·康斯坦丁诺维奇·罗科索夫斯基元帅指 已知过球面上的三点A'B'C的截面到球心O的距离等于球半径的一半,且AB=BC=CA=3cm,求球的体积和表面积? 面对面交流的好处英文 如图所示,已知AB为圆O,CD是弦,且AB垂直CD于点E.连接AC、OC、BC.若EB=8cm,CD=24cm,求圆O的面积 球面上有A、B、C三点,AB=2根号3,BC=2根号6,CA=6,若球心到平面ABC的距离为4,则球的表面积为具体点哦 我们应该面对面交流用英语怎么说 主席和困难两个词语翻译成英语 大海作文300字以上 我的理想(300来字)要求1:理想是什么,要求2:是什么启发你有了这个理想,要求3:该怎样去实现这个理想我希望自己写的,不要复制!,3Q! 初二数学若5+11平方根的小数部分为a,5—11的平方根的小数部分为b,求a+b的值 大海作文时间顺序的300字最多6分钟.时间顺序,就是开头完了之后,第二段:早上,怎么怎么怎么地.第三段:中午,怎么怎么怎么地.第四段:晚上,怎么怎么怎么地.完了结尾.不一定非得按这个格 当x什么时分式x减1分之x有意义 已知√7+5的小数部分为A,11-√7的小数部分为B,求A+B和A-B的值 如果我是大海 作文 300~450字 要 有开头 有结尾 我们去看海写作背景 身高145零米的小华,要过平均水深110零米的小河到底有没有危险? 若5+√11的小数部分为a,5—√11的小数部分为b,求a+b的值 规则作文400字 生态平衡是指什么 若5+√11的小数部分为a,5-√11的小数部分为b,求a²-b²的值? 已知球的半径为根号5,球面上有A,B,C三点,如果AB=AC=2,BC=2根号3,则球心到平面ABC的距离 什么是生态平衡 寒假里的新鲜事作文.500字以上 缪误的意思? 生态平衡是指 《寒假新鲜事》 荒缪什么意思 “生态平衡”是指什么 将标有220V,40W和220V,60W的甲,乙两白炽灯串联在220V的电路中,则( )灯较亮;若将甲,乙两灯并联在220V电路中,则( )灯较亮. 纤陌纵横哪个字错了 三相电能表电流互感器接线正确,但电压线圈的电压没有对应接在产生电流的那相上,此时电表到转,为什么?也就是说电压线圈与电流线圈不是接在同一相上,为什么会到转,请从理论给予解答. 一次测得5人平均身高比其中3高人身高矮2厘米,另外两人的平均身高为166厘米.5人平均身高是多少厘米(讲解 酒醉错杀了郑贤弟,酒醒逼走了缪先生是什么意思 我新开酒店有三相电度表40安一块.220伏40安电表一块.负荷在76千瓦左右.还要增加多大的三相表才能安全用.其中照明20千瓦.三相空调29匹.220伏空调6匹半.厨师电器30千瓦.敬请师傅给予指导. 文言文在线翻译 山川相缪,郁乎苍苍,此非猛德之困于周郎者乎 帮我找一个“事实胜于雄辩,科学战胜缪误”的故事, 电能表超负荷会不会是电表度数走的快 翻译:此非孟德之困于周郎者乎 我的理想六年级作文 250字 心理挑战英文怎么说 西望夏口,东望武昌,山川相缪,郁乎苍苍中的乎是什么意思? 我的理想作文250字当明星的 我要挑战你 英文怎么写 “山川相缪,郁乎苍苍”的“乎”字究竟是什么用法?该如何理解有的版本是用于感叹句或祈使句,译为“啊”“呀”,有的版本则是放在形容词词尾,译为“……的样子” 作文我终于见到了大海450字 一点一横长、一撇撇到大西洋、十八加十八、有人不想做人、猜一个字 已知球面上过ABC三点的截面和球心的距离是球半径的一半,且AB=BC=CA=2,则球的表面 初二作文《海》或《看海》800字 已知AB是圆O的直径,CD是弦,且AB垂直CD,如果EB等于8CM,CD等于24CM,求圆O的直径 已知过球面上ABC三点的截面和球心的距离等于半径的一半且AB=BC=CA=2则球面面积是 写大海的文章450字 急 如图,AB为圆O的直径,弦CD⊥AB于E,已知AB=20,EB=2,求CD的长. 含有一对反义词的四字词有哪些?要多一些的,最好有很多。 作文看海,要看海联想到回忆的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘