unigui导出TMS.Flexcel【5】

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-313.unigui的session【1】2018-05-024.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-20

6.unigui导出TMS.Flexcel【5】2018-08-13

7.unigui+fastreport 打印【4】2018-08-118.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-2510.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-0111.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-0212.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-0213.学习unigui【20】unistringGrid2024-02-2714.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-0325.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

 参考代码

procedure TUniFrmeWebEmbedBase.ExportData;
 //导出到excel
var
  FlexCelImport1: TExcelFile;
  i, rowindex, colindex: Integer;
  ms : TMemoryStream;
begin
  { 检查数据集 }
  if Assigned(cdsMain) and cdsMain.Active then
  try
    { 创建Excel文件 }
    FlexCelImport1 := TXlsFile.Create(true);//NewFile(1);
    FlexCelImport1.NewFile(1);

//  FlexCelImport1.SupportsXlsx := True;
//  FlexCelImport1.NewFile(WorkSheetCount, TExcelFileFormat(2) );  //2 = v2010, 1 = v2007, 0 = v2003
//  FlexCelImport1.ActiveSheet := 1;

    cdsMain.First;
    { 第一行为标题 }
    rowindex := 1;
    colindex := 1;
    for i := 0 to cdsMain.FieldCount -1 do
      { 只导出数据集中可视的字段 }
      if cdsMain.Fields[i].Visible then
      begin
        FlexCelImport1.SetCellValue(rowindex, colindex,cdsMain.Fields[i].DisplayLabel);
        inc(colindex);
      end;
    { 依次导出数据 }
    while not cdsMain.Eof do
    begin
      { 增加一行 }
      inc(rowindex);
      colindex := 1;
      for i := 0 to cdsMain.FieldCount -1 do
        { 只导出数据集中可视的字段 }
        if cdsMain.Fields[i].Visible then
        begin
          { 时间和日期字段需要单独出来一下，否则出来的都是浮点数 }
          if cdsMain.Fields[i].DataType in [ftDate, ftDateTime, ftTime, ftTimeStamp] then
            FlexCelImport1.SetCellValue(rowindex, colindex, cdsMain.Fields[i].AsString)
          else
            FlexCelImport1.SetCellValue(rowindex, colindex, cdsMain.Fields[i].Value);
          inc(colindex);
        end;
      { 下一条 }
      cdsMain.Next;
    end;
    FlexCelImport1.PrintLandscape := true;
   // FlexCelImport1.
    { 创建内存流 }
    ms := TMemoryStream.Create;
    try
      { 将Excel保存到内存流 }
      FlexCelImport1.save(ms);
      ms.Position := 0;
      { 将数据流发送到客户端，同时指定下载文件名，非常简单 }
      UniSession.SendStream(ms, 'usegear.xls' );
    finally
      ms.Free;
    { 清理内存 }
      FlexCelImport1.Free;
    end;
  except
    on E : Exception do
      FlexCelImport1.Free;
  end;
end;


参考：
http://forums.unigui.com/index.php?/topic/4197-unigrid-dataset-to-xlsx-export-using-tms-flexcel-an-example/?hl=excel

https://www.cnblogs.com/ChinaEHR/p/4012113.html
一并感谢。

 

调用

procedure TUniFrmeWebEmbedBase_authoManage.act_ExportExecute(Sender: TObject);
begin
  cdsMain.Data := Unit_dm.DataModule1.getTabeldata('select * from SM_role') ;
  inherited;
end;

效果

 

 

 

这里

TUniFrmeWebEmbedBase_authoManage = class(TUniFrmeWebEmbedBase)

TUniFrmeWebEmbedBase = class(TUniFrame)