zoukankan      html  css  js  c++  java
  • delphi循环校验数据集

    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;
    --------------------- 
    作者:无名小卒菜 
    来源:CSDN 
    原文:https://blog.csdn.net/weixin_39428938/article/details/89947487 
    版权声明:本文为博主原创文章,转载请附上博文链接!
  • 相关阅读:
    cocos2d多语言互调之一---lua调java
    vue 组件
    封装 XMLHttpRequest
    Ajax 请求
    jq 显示和隐藏 计时器
    jq 动画DOM及其操作
    jq 表单提交
    jq 事件绑定
    js 一些实用的封装和兼容
    工厂、原型、混合模式
  • 原文地址:https://www.cnblogs.com/jijm123/p/11301066.html
Copyright © 2011-2022 走看看