F
freddy_lei
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
frreport1.DesignReport;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
//frreport1.loadfromfile('E:/KINGLONGERP_SOP/study/PRO/新建文件夹/fp.frf');
frReport1.LoadFromFile(extractfilepath(application.ExeName)+'/fp.frf');
frReport1.showreport;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//frReport1.ExportTo(frOLEExcelExport1,'FILEPATH:/FILE.XLS');
//frReport1.ExportTo(frOLEExcelExport1,'d:/123.XLS');
end;
为测试功能我做了三个按钮,但转EXCEL的时候,一按就死机,就问这是什么问题啊!!!!小弟我没有多少分,刚学不好意思啊!!!
begin
frreport1.DesignReport;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
//frreport1.loadfromfile('E:/KINGLONGERP_SOP/study/PRO/新建文件夹/fp.frf');
frReport1.LoadFromFile(extractfilepath(application.ExeName)+'/fp.frf');
frReport1.showreport;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//frReport1.ExportTo(frOLEExcelExport1,'FILEPATH:/FILE.XLS');
//frReport1.ExportTo(frOLEExcelExport1,'d:/123.XLS');
end;
为测试功能我做了三个按钮,但转EXCEL的时候,一按就死机,就问这是什么问题啊!!!!小弟我没有多少分,刚学不好意思啊!!!