導入：首先要用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;

?

總結

以上是生活随笔為你收集整理的unigui 导入导出数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。