如何控制关键字段的重复输入及报错

homedsasad

homedsasad

2016-02-19 17:27

关注图老师设计创意栏目可以让大家能更好的了解电脑,知道有关于电脑的更多有趣教程,今天给大家分享如何控制关键字段的重复输入及报错教程,希望对大家能有一点小小的帮助。

  下面以一个实例来说明:在 ‘c:’ 下有一个数据库‘Renshi.dbf’,字段为:‘bianhao’;‘xingming’,类型为字符型,以关键字段‘bianhao’为索引字段,建立数据库的连接。

  我们用控件DBNavigator1、DataSource1、Table1、DBedit1、

  DBedit2、Table2来建立数据库的连接。其各属性为:

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)
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事件,程序如下:

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)
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下调试通过。

展开更多 50%)
分享

猜你喜欢

如何控制关键字段的重复输入及报错

编程语言 网络编程
如何控制关键字段的重复输入及报错

火柴如何订阅关键字

手机软件 应用软件
火柴如何订阅关键字

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

红点添加关键字

手机软件 应用软件
红点添加关键字

java 中的static关键字和final关键字的不同之处

编程语言 网络编程
java 中的static关键字和final关键字的不同之处

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

qq群怎么设置关键字 qq群设置关键字教程

软件教程
qq群怎么设置关键字  qq群设置关键字教程

static关键字的作用详解

编程语言 网络编程
static关键字的作用详解

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

在Word2010中邮件合并时合并到新文档

在Word2010中邮件合并时合并到新文档

Win 8.1新功能支持NFC打印及WiFi热点

Win 8.1新功能支持NFC打印及WiFi热点
下拉加载更多内容 ↓