怎么检验数据的合法性?(20分)

  • 主题发起人 主题发起人 agamomnon
  • 开始时间 开始时间
A

agamomnon

Unregistered / Unconfirmed
GUEST, unregistred user!
用sql语句将各个edit中的值插入为一条新的记录,但我要怎么做才能检验
这些字段值的合法性呢?比如:判断某个edit中的内容是否合法。
另外,如果我要检验该值是否与另一个表里的记录相匹配又要怎么做呢?
 
try
...
except
...
end;
 
if 值不行 then
begin
showmessage('不行');
abort();
end;
 
我的意思是怎么去做到判断那个值不行,比如:判断edit1.text的值是int应该怎么写,
另外,还要判断这个值是否在另外一个表的某个字段中。
 
>判断edit1.text的值是int应该怎么写,
在Edit1的onKeyPress中
if not (key in ['0'..'9',#8,'.']) then
key := #0;


>判断这个值是否在另外一个表的某个字段中
我觉得这样可以用ComboBox等从另一个表中LookUp来呵
这样保证不出错,而且对用户来操作都方便
 
if not (key in ['0'..'9',#8,'.']) then
key := #0;
对不起,我想问一下,这个表示什么意思?
 
在KeyPress事件中,KEY传过来的是Virtual key values
#8表示删除鍵

上面就是,当按键不是0-9,小数点,删除鍵时,忽略其输入
这样就保证输入的是、数字有关的了
当然
你还可以加以控制

 
呵呵,太谢谢了
 
后退
顶部