全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2470
推到 Plurk!
推到 Facebook!

Unigui quick Report之下載報表QRP,RTF

 
cmj1498
一般會員


發表:5
回覆:8
積分:2
註冊:2007-04-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-08-24 12:07:30 IP:220.130.xxx.xxx 訂閱
procedure TMainServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
MimeTable.AddMimeType('QRP','QRP'); //加入下載檔案類別
MimeTable.AddMimeType('RTF','RTF'); //加入下載檔案類別
end;



procedure TFmAccTaxTemp.BtnRep1Click(Sender: TObject);
var rep:TQRPAbstractExportFilter;
Fn,ss,Ptype:String;
i:integer ;
Bk:TBookmark;
begin
pType:=UpperCase(Getsubstr(CbFnType.Items.Strings[CbFnType.ItemIndex],1,'('));
Fn:='Rep1201_' FormatDateTime('yyyymmddhhnnss',Now) '.' pType; //'.qrp';
if FmRep1=Nil then //FmRep 為Vcl Fomr
begin
Application.CreateForm(TFmRep1, FmRep1);
end;

FmRep1.Rep1.Prepare;
case GetStrSectionPos('QRP,RTF',pType,',') of
1:begin //QRP
FmRep1.Rep1.QRPrinter.Save(MainSm.LocalCachePath Fn);
end;
2:begin //RTF
FmRep1.Rep1.ExportToFilter( TQRrtfExportFilter.Create(MainSm.LocalCachePath Fn) );
end;
end;
UniSession.SendFile(MainSm.LocalCachePath Fn,Fn); //前端下載
end;

前端先裝QRP預覽程式
cmj1498
一般會員


發表:5
回覆:8
積分:2
註冊:2007-04-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-08-24 12:10:40 IP:220.130.xxx.xxx 訂閱

===================引 用 cmj1498 文 章===================
procedure TMainServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
MimeTable.AddMimeType('QRP','QRP'); //加入下載檔案類別
MimeTable.AddMimeType('RTF','RTF'); //加入下載檔案類別
end;



procedure TFmAccTaxTemp.BtnRep1Click(Sender: TObject);
var rep:TQRPAbstractExportFilter;
Fn,ss,Ptype:String;
i:integer ;
Bk:TBookmark;
begin
pType:=UpperCase(Getsubstr(CbFnType.Items.Strings[CbFnType.ItemIndex],1,'('));
Fn:='Rep1201_' FormatDateTime('yyyymmddhhnnss',Now) '.' pType; //'.qrp';
if FmRep1=Nil then //FmRep 為Vcl Fomr
begin
Application.CreateForm(TFmRep1, FmRep1);
end;

FmRep1.Rep1.Prepare;
case GetStrSectionPos('QRP,RTF',pType,',') of
1:begin //QRP
FmRep1.Rep1.QRPrinter.Save(MainSm.LocalCachePath Fn);
end;
2:begin //RTF
FmRep1.Rep1.ExportToFilter( TQRrtfExportFilter.Create(MainSm.LocalCachePath Fn) );
end;
end;
UniSession.SendFile(MainSm.LocalCachePath Fn,Fn); //前端下載
end;


Unigui Delphi最好的WEB APPLICATION,佈署exe,isapi沒有問題,IE要更新至IE8,有問題歡迎交流

系統時間:2024-03-28 17:46:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!