unigui 导入导出数据
導入:首先要用TUniFileUpload將文件從客戶端上傳至服務(wù)端,然后完成導入。
TUniFileUpload上傳文件的演示代碼:
UniFileUpload1.Execute;
UniFileUpload1.ScreenMask.Target := Self;
UniFileUpload1.ScreenMask.Enabled := True;
使用TQImport3XLS導入上傳文件的演示代碼:
映射數(shù)據(jù)集字段和EXCEL列之間的關(guān)系:
QImport3XLS1.Map.Clear;
QImport3XLS1.Map.Add('empId=A2-COLFINISH');
QImport3XLS1.Map.Add('empName=B2-COLFINISH');
執(zhí)行導入:
procedure TfrmEmployee.UniFileUpload1Completed(Sender: TObject;
AStream: TFileStream);
begin
inherited;
QImport3XLS1.FileName := UniFileUpload1.FileName;
QImport3XLS1.Execute;
end;
?
導出:首先將數(shù)據(jù)導出為文件,然后將文件從服務(wù)端下載至客戶端,再在客戶端打開文件。
使用TQExport4XLS導出數(shù)據(jù)的演示代碼:
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;
?
總結(jié)
以上是生活随笔為你收集整理的unigui 导入导出数据的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: VS和Eclipse自动注释比较
- 下一篇: 使用 AngularJS NodeJS