?? 基于字段的有效性驗證.txt
字號:
基于字段的有效性驗證:
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -