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;

巴特西

delphi 用户可以点击格式修改进行模板修改

最新文章

热门文章