DBGrid中columns有个onUpdateData 事件procedure TFrm_CountBlance.DBGridColumns0UpdateData(Sender: TObject; var Text: String; var Value: Variant; var UseText, Handled: Boolean); var Str_Date : String; begin
Str_Date := Text; //判断是不是日期值 自定义IsDate if not IsDate(Str_date) then begin Application.MessageBox('请输入有效的8位日期值(例: 20020901)!','系统提示',Mb_OK+MB_IconInformation); abort; end; ......... end;
这个里面最好是显示
显示出来后要修改呀,新增呀,那不是跟输入数据一样的吗?
var Text: String; var Value: Variant; var UseText, Handled: Boolean);
var
Str_Date : String;
begin
Str_Date := Text;
//判断是不是日期值 自定义IsDate
if not IsDate(Str_date) then
begin
Application.MessageBox('请输入有效的8位日期值(例: 20020901)!','系统提示',Mb_OK+MB_IconInformation);
abort;
end;
.........
end;
===============================
用第三方控件DBGridEh代替DBGrid在输入日期字段时会用日期弹出选择