delphi 用户可以点击格式修改进行模板修改
过程 TlistRepAdd.Btn_GCListRepEditClick
窗口 TlistRepAdd 补打流程单
1. 给用户权限 呈现出格式修改按钮
procedure TlistRepAdd.Btn_GCListRepEditClick(Sender: TObject);
begin
ListRep_SDForm_GC.Edit_ListRep(rep_3);
{$ENDIF}
ListRep_SDForm_5C.Edit_ListRep(aqPage.fieldbyname('list_no').asstring,aqPage.fieldbyname('tp_no').asstring,rep_5C);
{$ENDIF}
ListRep_SDForm_HJ.DesignReport;
{$ENDIF}
ListRep_SDForm_AM.DesignReport;
{$ENDIF}
end;
窗口 TListRep_SDForm_AM
过程 TListRep_SDForm_AM.QRDBText30Print
2.流程单加载,准备报表,显示报表
(FR_AM.LoadFromFile('ExReport\listRep_AM.fr3'); //记得名字要换 AM要换
FR_AM.PrepareReport;
FR_AM.ShowReport();
if flag = true then
begin
if aqStyle.RecordCount = 1 then // 一单一款
begin
if Style = 2 then
qr_bd.PreviewModal
else
begin
FR_AM.LoadFromFile('ExReport\listRep_AM.fr3');
FR_AM.PrepareReport;
FR_AM.ShowReport();
end;
//qr_AM_1.PreviewModal;
end;
if aqStyle.RecordCount > 1 then // 一单多款
begin
qr_AM_mul.PreviewModal;
if Style = 0 then
qr_3.PreviewModal // 普通单
else
qr_4.PreviewModal; // 链单
end;
end
else
begin
if aqStyle.RecordCount = 1 then // 一单一款
begin
if Style = 2 then
qr_bd.Print
else
qr_AM_1.Print;
end;
if aqStyle.RecordCount > 1 then // 一单多款
begin
qr_AM_mul.Print;
if Style = 0 then
qr_3.Print // 普通单
else
qr_4.Print; // 链单
end;
end;
end;
3. FR_AM: TfrxReport //声明
4.
procedure TListRep_SDForm_AM.DesignReport;
var FrFileNale:string;
begin
FrFileNale := GetCurrentDir + '\ExReport\ListRep_AM.fr3'; //读文件
FR_AM.LoadFromFile(FrFileNale);
FR_AM.DesignReport();
end;