unigui 导入导出数据
导入:首先要用TUniFileUpload将文件从客户端上传至服务端,然后完成导入。
TUniFileUpload上传文件的演示代码:
UniFileUpload1.Execute;
UniFileUpload1.ScreenMask.Target := Self;
UniFileUpload1.ScreenMask.Enabled := True;
使用TQImport3XLS导入上传文件的演示代码:
映射数据集字段和EXCEL列之间的关系:
QImport3XLS1.Map.Clear;
QImport3XLS1.Map.Add('empId=A2-COLFINISH');
QImport3XLS1.Map.Add('empName=B2-COLFINISH');
执行导入:
procedure TfrmEmployee.UniFileUpload1Completed(Sender: TObject;
AStream: TFileStream);
begin
inherited;
QImport3XLS1.FileName := UniFileUpload1.FileName;
QImport3XLS1.Execute;
end;
导出:首先将数据导出为文件,然后将文件从服务端下载至客户端,再在客户端打开文件。
使用TQExport4XLS导出数据的演示代码:
procedure TfrmEmployee.btnExportClick(Sender: TObject);
var
f: string;
begin
inherited;
f := '职员档案.xls';
QExport4XLS1.FileName := f;
try
QExport4XLS1.Execute;
except
QExport4XLS1.Execute;
end;
MainForm.uniApplication.UniSession.SendFile(f, f);
end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/4417441.html