function XXXXXFrom.CheckData(Sender: TObject): Boolean;
var
tmpcds:TfwClientDataset;
begin
Result:=False;
tmpcds:=TfwClientDataset.Create(nil);
try
tmpcds.CopyFromDataSet(fcdsImport);
tmpcds.First;
while not tmpcds.Eof do
begin
if Trim(tmpcds.FieldByName('LICENSE').AsString)='' then
begin
TbsUtilFunc.ShowMsg('XXX不能为空,请重新填写导入!');
exit;
end;
if Trim(tmpcds.FieldByName('REPORT_MAN').AsString)='' then
begin
TbsUtilFunc.ShowMsg('XXX不能为空,请重新填写导入!');
exit;
end;
if Trim(tmpcds.FieldByName('RECORD_MAN').AsString)='' then
begin
TbsUtilFunc.ShowMsg('XXX不能为空,请重新填写导入!');
exit;
end;
tmpcds.Next;
end;
finally
FreeAndNil(tmpcds);
end;
Result:=True;
end;
delphi循环校验数据集
猜你喜欢
转载自blog.csdn.net/weixin_39428938/article/details/89947487
今日推荐
周排行