关注图老师设计创意栏目可以让大家能更好的了解电脑,知道有关于电脑的更多有趣教程，今天给大家分享如何控制关键字段的重复输入及报错教程,希望对大家能有一点小小的帮助。
【 tulaoshi.com - 编程语言 】
下面以一个实例来说明：在 ‘c:’ 下有一个数据库‘Renshi.dbf’，字段为：‘bianhao’；‘xingming’，类型为字符型，以关键字段‘bianhao’为索引字段，建立数据库的连接。
我们用控件DBNavigator1、DataSource1、Table1、DBedit1、
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）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.Table1BeforePost(DataSet: TDataSet);beginwith table2 dobegindatabasename:=c:;tablename:=renshi.dbf;indexfieldnames:=bianhao;if not active then open; {判断数据库是否打开}Refresh; {刷新数据库}setkey; {设置数据库为搜索状态}fieldbyname(bianhao).asstring:=dbedit1.text;{设置输入的编号 字段内容为搜索的标准}gotokey;{移动到搜寻的记录上，完成搜索}if gotokey then{如果找到搜索的记录，则gotokey返回true}beginshowmessage(输入的编号已存在！请重新输入);abort; {终止该操作}end;end;end;这样，就保证了‘编号’字段的唯一性，当重复输入时，计算机就会提示出错信息，并且该数据不能保存，只能进行修改或放弃保存操作。
该程序在Delphi4.0下调试通过。
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）来源:https://www.tulaoshi.com/n/20160219/1615242.html
看过《如何控制关键字段的重复输入及报错》的人还看了以下文章 更多>>
