zoukankan      html  css  js  c++  java
  • RM报表,点击保存,为何每次都显示 另存为的对话框?

    function TRMDesignerForm.FileSave: Boolean;
    var
      lSaved: Boolean;
      lFileName: string;
    begin
      Result := False;
      if DesignerRestrictions * [rmdrDontSaveReport] <> [] then Exit;
    
      if not FCodeMemo.ReadOnly then
        Report.Script.Assign(FCodeMemo.CreateStringList);
    
      UseDefaultSave := True;
      if (not (csDesigning in Report.ComponentState)) and (RMDesignerComp <> nil) and
        Assigned(RMDesignerComp.OnSaveReport) then // 自定义保存
      begin
        lFileName := CurDocName; lSaved := True;
        RMDesignerComp.OnSaveReport(Report, lFileName, False, lSaved);
        if lSaved then
        begin
          Modified := False;
          CurDocName := lFileName;
          Result := True;
        end;
      end;
    
      if (not Result) and UseDefaultSave then
      begin
        if AnsiCompareText(FCurDocName, RMLoadStr(SUntitled)) <> 0 then //关键是这里,当报表文件名 是默认的
        begin
          Report.SaveToFile(FCurDocName);
          Modified := False;
          SetOpenFileMenuItems(FCurDocName);
          Result := True;
        end
        else
          Result := FileSaveAs;  //关键是这里,当报表文件名 是默认的
    end; if Result then begin ClearUndoBuffer; ClearRedoBuffer; end; end;
  • 相关阅读:
    valgrind的使用
    php开启gzip压缩
    scrapy
    今天几个bug的排查过程
    awk使用多个分割符
    有用的url
    图片延迟加载
    用中间表提高互联网程序的开发效率
    百度技术沙龙
    vs2005/.NET2.0 控件演示之 文件上传 《FileUpload》
  • 原文地址:https://www.cnblogs.com/CodeGear/p/4550334.html
Copyright © 2011-2022 走看看