Delphi 在dbgrideh中表格输入数据时有效性的检查(转)

出处：http://www.haogongju.net/art/1231860；

在数据库系统设计中经常要用到在表格中进行数据录入，如何判断在数据导入时的数据有效性呢？下面介绍几种常用的方法与大家交流。

方法一：Dbgrid是与Table，在Table的Column的OnSetText和OnValidate事件中处理。

1、在OnSetText中判断数据的合法性，如果不合法，在OnValidate处理，如果不合法则abort

2、抛出一个异常Raise,即可保证焦点不会丢失。

也可以在Table1.BeforePost里面处理，如果不符合要求，ShowMessage(""),然后Abort;

方法二：如果是Adoquery ,在Column的OnSetText和OnValidate事件中处理。

在OnValidate处理，如果不合法则abort。

procedure Tfrm_cginput.q_maind_dateValidate(Sender:
TField);

begin

if Sender.FieldName='d_date' then

if (Sender.AsDateTime>_DEnddate) or (Sender.AsDateTime<_DStartdate) then

begin

showmessage('日期超出范围');

abort;

end;

end;

方法三：

可以用DBGrid1ColExit事件进行。

procedure TForm1.DBGrid1ColExit(Sender: TObject);

begin

case DBGrid1.SelectedIndex of

0:if DBGrid1.DataSource.DataSet.Fields[0].value<>'我想要的值' then

于吗于吗。

1:

..

end;

end;

附加：

DBGridEH1.columns[i].OnUpdateData也可以

在DBGridEH1.columns[i].OnUpdateData;和在CDS.Fields[i].OnValidate进行校验的对比：

更新才触发，插入不触发；
插入，更新都触发；

使用第三方控件的事件实现；
使用delphi自带控件实现；

界面层上进行控制；
数据层进行控制；

控制数据能不能改的问题；
检查改了的数据是否合法的问题；

综上比较：行校验，是对数据的合法新进行判断，应该使用 CDS.Fields[i].OnValidate;

像权限控制，需要密码验证才能改数据的，应该使用DBGridEH1.columns[i].OnUpdateData

计算字段，肯定是在cds.fields[i].OnChage事件了。