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

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

IBM Rational首席技术官:DevOps是一门哲学 Mozilla联手黑莓推进Web安全技术,推出开源测试平台Minion 苹果如何培养SOHO一族高效工作 再造Ruby:CryENGINE 3.5游戏引擎特性详解 Eclipse基金会涉足物联网,M2M标准是否已获东风? SDN部署前必须考虑的7个事项 【云先锋 40】初创公司DataStax:专注于Cassandra,三年融资8370万美元 内容创作工具的革新:Facebook前CTO推文字处理应用Quip 微软为Android手机推出Office 仅面向Office 365用户开放使用 编程、创业、开源感悟——SDCC 2013讲师云风专访 原生广告:移动推广的热门新宠 隐私之战:金山手机毒霸宣布开放安全检测平台 世界人民的头上有张监控大网——Xkeyscore 美国“监控门”情报收集系统 X-Keyscore 技术揭秘 为啥REST如此重要? 并非PHP Frameworks而是WordPress让PHP更加流行! Twitter Bootstrap深受开发者喜爱的11大理由 假如3D打印机也有“撤销”键 大数据的游戏运营:不能起死回生,只能锦上添花 15个步骤创立技术公司,并收获千万用户(一) 红帽再发力 将MongoDB整合到Linux系统 ZestFinance:前谷歌CIO创立的机器学习+大数据分析公司 7月份浏览器份额:IE仍最受欢迎 Chrome成最大赢家 2013 Q2 Android手机出货量再创新高 iPhone三年来新低 如何一个人打造日PV百万的网站架构——SDCC 2013讲师曹力专访 【一周观察】动辄9位数以上的投资,云数据中心缺口巨大! 硬件创业到底有多火? 知名网站分享:PHP代替Perl,Redis置换MySQL,日处理过亿PV 涨姿势了:Unity CEO聊如何玩转开发者生态 移动周报:再造Ruby女神背后的开发故事 超算什么都弱爆了:模拟一秒人脑计算需要8.3万处理器40分钟 请问斑竹及所有人,怎样得到QuickReport的总页数? Websphere3.5的一个BUG.希望有人反对.多谢.. 什么是DAMAP的对象 哪里有 winpcap 或 libnet 及其他网络编程辅助包下载? 谁能提供PSP文档?最好是Humphrey的那本书! 代码出现bebug.请大家帮我找!!!! TO:net_lover(孟子E章),详情请入内! 有谁用过DEV express系列的dxdbgrid??它是如何把一个文本文件txt读到dxdbgrid1.columns[i]的picklist中去,作为picklist的内容的啊? 我想在Linux下做数据库开发,用什么数据好? 我的pws可能出了问题,那位高手能解决一下 关于控制winamp 各位同行你们有这个的源程序吗(Cacio DT-900数据采集器) Html Help 制作方法 luodi(无知者无畏), 请进: 我用shell(app.path+"\mdac.exe"),来调用微软数据访问控件2.0,提示出错:命令行语法错误, 求救:如何将剪贴板中的内容放到image控件上 how to get the sytax of customer user object ? jsp中的打印问题 pb中有没有类似iif之类的语句 大虾们,怎样将String 类型转换成float 请问在及时战略中,怎么实现寻路的 我想在状态栏显示时间,有没有属性可以让时间自动变化,而不用其它辅助控件? 不会没人愿意回答这个问题吧,都贴第二次了!! 吃西瓜 我在注冊自創構件時總是出錯,請各位幫忙解決. 关于ado连接sybase的问题,紧急求救!!!(我的最高分了) 29分:flexcell定位 请教一下,关于Delphi COM类型库的问题 大家来谈谈申奥成功对我们的影响吧,我想知道怎么利用这个契机大赚一笔 各位谁喜欢“后街男孩”??喜欢的给分! 请问在DBGRID中改变当前选定行的颜色? 我想在DataSourceDataChange()中实现。 客户端怎么与服务器端通信 为什么我在窗口里修改了一个记录的图片字段后,在数据窗口内不能正常显示? 我要在RedLinux71下安装WEB服务器软件,请部如何做? 如何计算某年某月的天数和每天对应的星期 help!!! 为什么我的D6在编译时出现错误:“Fatal Error QuickRpt.pas(23):File not found:'Dsgnintf.dcu' 帝国时代之农民搞笑版……哈哈 如何用DEBUG的命令取消cmos密码!!!急急急! 请教一个Redhat安装的问题 该死的创新virba128…… 急!!!给tripofdream(梦之旅)和能解决全文检索的高手! 有台WIN95机器启动是时出错缺文件mtrr.vxd,udf.vxd谁能帮我! 对于BMP图象的旋转(90、180)的处理。用BitBlt()能否实现。 《Windows网络编程技术》例子中的一个问题。 急!各位帮忙!!!!!!!!!!! 这个java程序有什么问题吗? 那能下载win2000profesional? oracle sql语句高手请进,为什么这句话无法执行,好像上了锁,来解一下吧! 有谁真正的用ado结合oracle做开发。 一个clientsocket的问题!当serversocket没有启动时,clientsocket总是有个弹出提示,如何不显示这个提示? Redhat下如何安装电视卡? 如图:一个圆柱体被截去5厘米后,圆柱的表面积减少了31.4平方厘米,求原来圆柱的表面积是一个圆柱体被截去5厘米后,圆柱的表面积减少了31.4平方厘米,求原来圆柱的表面积是多少?图没标圆柱 圆锥体的表面积公式 一个圆柱体的侧面积是50.24平方厘米,高和底面半径相等,这个圆柱体的表面积是多少平方厘米?算式和结果, 一个圆柱体,如果把它的高截短了3厘米,表面积就减少了94.2立方CM,体积就减少了多少立方厘米 圆锥体的表面积的公式是什么? 一个圆柱体的侧面积是100.48平方厘米,高和底面半径相等,这个圆柱体的表面积是多少? 一个圆柱的高是10cm,若高减少4cm,则表面积减少125.6平方cm,求圆柱体的体积? 圆柱体的体积 容积公式一个圆柱体 长585毫米 直径是35毫米 求体积 容积 另一个是长度560毫米 直径23毫米 求体 容积 最好有公式 体积与容积是一个意思吗? 一个圆柱体,如果高增加1cm,表面积就增加50.24平方厘米.这个圆柱的底面积是多少?我是说表面积不是侧面积 从一个圆柱上截下一个高10cm小圆柱体.表面积比原来减少了188.1平方cm截下的圆柱的体积是多少 圆锥,圆柱体表面积体积公式 一个圆柱体的高减少2厘米,表面积就减少50.24平方厘米.圆柱体底面面积是多少? 一个底面直径是8cm,高是16cm圆柱体从中间劈开后得到的图形,这个图形的表面积是多少? 在推导圆柱体公式过程中,拼出的长方体表面积比圆柱大20平厘米,圆柱体侧面积是多少? 一个圆柱体,如果它的高增加2厘米,它的表面积就增加50.24平方厘米,这个圆柱体的底面半径是多少? 一个底面直径是8cm,高是16cm的圆柱,如果它的高增加了10cm,它的表面积是多少? 球的表面积公式推导过程个位同志,球的表面积公式到底是如何推出的,为何我推了几次都是 S=π平方*R平方,原理是先割成1个半球,再把这个半球割成无数个小三角形,小三角形的底之和即为圆周 一个圆柱的高增加4厘米表面积增加50.24平方厘米,求圆柱体的底面积 一个底面直径是8cm,高是16cm圆柱体从中间劈开后得到的图形,这个图形的表面积是多少?,说清每步 圆柱形表面积的公式是什么? 一个圆柱体的高是5厘米,若高增加3厘米,圆柱的表面积就增加37.68,原来圆锥体的体积是多少立方厘米 把长2米的圆柱体木料锯成两段,表面积增加了6平方米,原来这个圆柱体的体积是() 把一个底面周长为31.4分米的圆柱体的高减少三分之一,表面积就减少了125.6平方分米,原来圆柱体的体积是多少立方分米 把高10厘米的圆柱沿底面直径切开,拼成一个近似的长方体,表面积就增加了60平方厘米,圆柱体的体积的多少 把一个高8分米的圆柱体割拼成一个与圆柱体等底等高的近似长方体后,表面积增加了24平方分米,把一个高8分米的圆柱体割拼成一个与圆柱体等底等高的近似长方体以后,表面积增加了24平方分 一个圆柱体,底面周长6.28分米,将他平均切成4块,求每块的体积和表面积 圆柱体底面直径4厘米,分成若干份拼成一个长方体,长方体表面积比圆柱体表面积增加40厘米,求长方体体积 把一个高8分米的圆柱体割拼成一个与圆柱体等底的近似长方体后,表面积增加24平方分把整个过程写下来 一个圆柱体高8厘米,底面周长25.12厘米.现在沿着它的直径垂直切开,表面积增加了【 】 将一个直径10CM的圆柱体沿直径平均切成若干份,拼成一个长方体,表面积增加了20平方厘米圆柱体的体积是多 把一个高8分米的圆柱体割拼成一个与圆柱体等底的近似长方体后,表面积增加24平方分米,原来圆柱体体积是多少 一个圆柱体底面周长28.26厘米,高10厘米,求表面积、体积 把一个底面直径20厘米圆柱体的底面分成若干个相等的扇形,拼个长方体,表面积增加了400平方求圆柱体的体积 把一个高8dm的圆柱体,割拼成一个等底的近似长方体,表面积增加了24平方分米,圆柱体体积是多少? 一个底面周长和高相等的圆柱体如果高降低1厘米他的表面积就要减少6.28平方厘米这个圆柱体的体积是多少?我意思不懂 把高10厘米的圆柱沿底面直径切开,拼成一个近似的长方体,表面积就增加了60平方厘米,圆柱体的体积是多少60平方厘米,圆柱体的体积是多少立方厘米 圆柱体表面积公式是什么? 一个圆柱体底面周长和高相等,如果高缩短了2厘米,表面积就减少6.28平方厘米,求这个圆的体积. 将一个圆柱体切开后拼成一个近似的长方体,表面积增加了6平方厘米,已知长方体高是3厘米,求圆柱体的体积我是新人, 求所有计算公式!和所有简算,还有求长方体正方体圆柱体圆锥体的表面积公式的体积公式!(包括字母公式)圆锥不求表面积.计算公式如:axb=bxa 一个底面周长和高相等的圆柱体,如果高降低1厘米,它的表面积就要减少6.28平方厘米,这个圆柱体的体积是多 长方体与圆柱体体积相等,长方体表面积比圆柱体表面积大48,求圆柱体体积圆柱体的高为6分米,把圆柱体底面分成若干个相等的扇形,然后拼成等底等高的长方体,长方体的表面积比圆柱体 圆柱体体积公式(字母)急.55555555 一个圆柱体的底面周长和高相等,如果高缩短3厘米,则表面积比原来减少94.2平方厘米,求原来圆柱体的体积?现在回答 长方体、正方体、圆柱体在表面积相等的情况下,哪个体积更大?(要做过测验的)怎样才能判定哪个体积更大 用怎样的方式 谁有具体数据?测量过的?有算式也可以 求圆柱体和圆锥体体积的公式 一个圆柱体底面周长和高相等.如果高缩短了2厘米,表面积就减少6.28平方厘米.求这 正方体、长方体、圆柱体、圆锥体、球体的表面积和体积各是多少? 圆柱体,圆锥体的表面积和容积公式分别是什么?请大家讲清楚点,还有我想知道这个公式几年级教的啊?答案能清晰点不,譬如圆柱体1 表面积2 容积(体积)圆锥体1 表面积2 容积(体积) 在一个地面直径为4分米的圆柱体上截去一个高2分米的小圆柱体,原来圆柱体的表面积减少( )平方米 在体积相等的情况下,正方体,圆柱体,长方体那个表面积最小? 圆锥体 体积 表面积 面积公式 圆柱体 体积 表面积 面积公式看好了 6个公式 从一个高1米,底面直径为4分米的圆柱体上,截下一个高2分米的小圆柱体,原来圆柱体的表面积减少了多少平方分 把一个圆柱体切割后拼成近似的长方体,它的体积怎么样表面积怎样 若上面圆柱表面积展开图中侧面的长是25.12cm,宽是10cm.本这个圆柱的表面积. 圆锥体表面积公式用字母表示(并把每个字母代表什么讲一下)谢~ 一个圆柱体的底面直径和高都为10分米,这个圆柱体的表面积是多少平方分米? 一个高为10cm的圆柱,如果他的高增加2cm,那么它的表面积就增加125.6平方厘米,求原来圆柱的表面积. 圆锥体的表面积的计算公式? 一个圆柱体的侧面积是50.24CM2,高恰好与底面半径相等,这个圆柱体的表面积是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn