基于字段的有效性验证.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 18 行

基于字段的有效性验证:
procedure TFrom1.aavalidate(sender:TField);
var
 T:ttable;
begin
T:=ttable.create(nil);
t.databasename:=table1.databasename;
t.tablename:=table1.tablename;
t.open;
t.setkey;
t.fieldbyname((sender as Tfield).fieldname).asstring:=(sender as Tfield).value;
if t.getokey then begin //如果在原来的数据表中找到了输入的数据
 messagedlg('重复',mterror,[mbok],0);
table1.cancel;//取消刚才的输入
end;
t.close;
t.free;
end;