计算机毕业设计客户端功能介绍：
以下是引用片段： procedure TDBDJF.btnSaveClick(Sender: TObject);
begin
if FncHeaderCheck = False then
Exit
else
begin
PrcCCDJSave;
ProBtnSetEnabled ;
end;
end;
procedure TDBCXF.PrcPrint(value: Integer);
var
StrRptName : string ;
StrExcelName:string ;
begin
StrRptName := G_RptPath + C_RptCCTJ;
StrExcelName := G_XlsPath + C_XlsCCTJ;
if VHCDataModel.cdts_CCTJ.Active = False then
begin
Exit;
end;
with Form1 do
begin
frReport1.LoadFromFile(StrRptName);
frDBDataSet1.DataSet := VHCDataModel.cdts_CCTJ;
frDBDataSet2.DataSet := VHCDataModel.cdts_CCTJD;
if value = 0 then //导出到EXCEL
begin
frReport1.LoadFromFile(StrRptName);
if frReport1.PrepareReport then
frReport1.ExportTo(frXMLExcelExport1,StrExcelName);
end;
if value = 1 then //打印预览
begin
frReport1.ShowReport;
end;
if value = 2 then //打印
if frReport1.PrepareReport then
frReport1.PrintPreparedReportDlg;
end;
|
<责任编辑：计算机毕业设计网(http://www.xiaoniu168.com)>