📄 如何控制关键字段的重复输入及报错.htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
如何控制关键字段的重复输入及报错
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
如何控制关键字段的重复输入及报错
</h2></font>
<h3>
山东巨力股份有限公司
<br>王来国
</h3>
</center>
<p><font color="#ffffff">----</font>
下面以一个实例来说明：在 ‘c:\’ 下有一个数据库‘Renshi.dbf’，字段为：‘bianhao’；‘xingming’，类型为字符型，以关键字段‘bianhao’为索引字段，建立数据库的连接。
<p><font color="#ffffff">----</font>
我们用控件DBNavigator1、DataSource1、Table1、DBedit1、
<p><font color="#ffffff">----</font>
DBedit2、Table2来建立数据库的连接。其各属性为：
<pre>
Table1.databasename:='c:\';
Table1.tablename:='renshi.dbf';
Table1.active:=true;
DataSource1.dataset:=table1;
DBNavigator1.datasource:=DataSource1;
</pre>
<p><font color="#ffffff">----</font>
编号：对应字段bianhaio; 姓名：对应xingming字段；
<pre>
dbedit1.datasource:=DataSource1;
dbedit1.datafield:='bianhao';
dbedit2.datasource:=DataSource1;
dbedit2.datafield:='xingming';
</pre>
<p><font color="#ffffff">----</font>
这样数据库的连接就建立好了。
<p><font color="#ffffff">----</font>
这里我们要求‘编号’为关键字段，不允许重复输入，为了控制输入的编号为唯一，我们在数据库变化时对Table1加入一个Beforepost事件，程序如下：
<pre>
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;
</pre>
<p><font color="#ffffff">----</font>
这样，就保证了‘编号’字段的唯一性，当重复输入时，计算机就会提示出错信息，并且该数据不能保存，只能进行修改或放弃保存操作。
<p><font color="#ffffff">----</font>
该程序在Delphi4.0下调试通过。
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -