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