过程 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 用户可以点击格式修改进行模板修改的更多相关文章

  1. Xcode模板修改

    本小节知识点: 修改项目模板 修改类的头部信息 1.修改项目模板 项目模板就是创建工程的时候选择的某一个条目, Xcode会根据选择的条目生成固定格式的项目 例如想创建一个命令行项目就选择Comman ...

  2. ASP.NET MVC5 网站开发实践(二) Member区域 - 用户部分(3)修改资料、修改密码

    在上一篇博客中实现了用户的注销和登录,其实代码里落了点东西,就是用户登录要更新最后一次登录时间和登录IP,这次补上.今天做修改资料和修改密码,TryUpdateModel是新用到的东西. 目录: AS ...

  3. 论DELPHI三层的数据序列格式的变化

    论DELPHI三层的数据序列格式的变化 要窥三层的数据序列格式,我们可以通过观察DELPHI官方的客户端内存表. 早先流行的是TClientDataSet,它的Data和Delta属性的数据类型都是: ...

  4. 使用 CSS 接收用户的点击事情并对相关节点进行操作

    问题背景:使用纯 CSS 方案,实现导航栏tab切换 实现 Tab 切换的难点在于如何使用 CSS 接收到用户的点击事情并对相关的节点进行操作.即是: 如何接收点击事件 如何操作相关DOM 下面看看如 ...

  5. iOS之防止用户重复点击Button(按钮)问题

    在项目中,我们往往会遇到这样的问题:因为网络较慢的原因,用户会不耐烦的一直去点击按钮,这样导致的结果时:相关代码一遍一遍的被重复执行,如果按钮的事件是网络请求的话,这样又导致一种网络请求的循环.所以我 ...

  6. asp.net中如何防止用户重复点击提交按钮

    asp.net中如何防止用户重复点击提交按钮   asp.net 中防止因为网速慢等影响交互的问题导致用户可能点击多次提交按钮,从而导致数据库中出现多条重复的记录,经过亲自验证在网上找的方法,找到两个 ...

  7. jquery动画效果中,避免持续反应用户的连续点击

    一.某些动画效果中,避免持续连续反应用户的连续点击(这标题真不好描述) 意思就是指用户点击速度很快,完成一次效果的时间不能很快结束的话,就会出现用户不点击了,效果还在持续.看下面例子就明白了,手风琴效 ...

  8. MySql数据库基础操作——数据库、用户的创建,表的制作、修改等

    MySql 是一款使用便捷.轻量级的数据库.因为他体积小.速度快.安装使用简单.开源等优点,目前是使用最广泛的数据库.目前位于Oracle甲骨文公司旗下.那今天我们就来介绍一下数据库的基本操作.具体介 ...

  9. C#截取用户的点击事件的代码

    在代码过程中中,把做工程过程中常用的代码备份一下,如下代码内容是关于C#截取用户的点击事件的代码,应该是对大家也有好处. private void SomeControl_KeyDown(object ...

随机推荐

  1. JUC源码分析-集合篇(九)SynchronousQueue

    JUC源码分析-集合篇(九)SynchronousQueue SynchronousQueue 是一个同步阻塞队列,它的每个插入操作都要等待其他线程相应的移除操作,反之亦然.SynchronousQu ...

  2. JAVA集合--Iterator接口

        本文首发于cartoon的博客     转载请注明出处:https://cartoonyu.github.io/cartoon-blog     上一篇文章中我在集合元素的遍历中已经有涉及到I ...

  3. python面试题之多线程好吗?列举一些让Python代码以并行方式运行的方法

    答案 Python并不支持真正意义上的多线程.Python中提供了多线程包,但是如果你想通过多线程提高代码的速度,使用多线程包并不是个好主意.Python中有一个被称为Global Interpret ...

  4. JVM调优参数设置?

    -Xms20M 表示设置堆容量的最小值为20M,必须以M为单位 -Xmx20M 表示设置堆容量的最大值为20M,必须以M为单位.将-Xmx和-Xms设置为一样可以避免堆自动扩展.大的项目-Xmx和-X ...

  5. Java支持的数据类型有哪些?什么是拆装箱?

    Java中有八种基本数据类型以及引用类型 基本数据类型: byte(1字节),short(2字节),int(4字节),long(8字节),char(2字节),boolean(不确定,取值是true/f ...

  6. 【转】从SOA到微服务,企业分布式应用架构在云原生时代如何重塑

    摘要: SOA 采用中心化的服务总线架构,解耦了业务逻辑和服务治理逻辑:微服务架构回归了去中心化的点对点调用方式,在提升敏捷性和可伸缩性的同时,也牺牲了业务逻辑和服务治理逻辑解耦所带来的灵活性. 为了 ...

  7. element ui设置表格表头高度和每一行的高度

    填坑记录:今天用element ui的表格组件做用户信息展示,直接拉取的官网的代码过来,发现表头和每一行都太高了,如下: 因为第一次使用element ui的表格组件,不太清楚会遇到这样的坑,以为能轻 ...

  8. python cv2 恢复手机图片

    找到可以恢复的手机图片 矩阵相乘 mat() {} 量化表 8*8 矩阵 与     2 4 2   2    16 16 16后面都是16的8*8矩阵相乘 计算变化的位是否可恢复 单独一张jpg的计 ...

  9. 用jQuery,ajax,实现三级联动封装JS的文件

    // JavaScript Document $(document).ready(function(e) { //找到ID=SANJI的DIV,造三个下拉扔进去 var str = "< ...

  10. NX二次开发-UF_MODL_ask_point_containment获取一个点是在体(面,边)的边界内部,外部,还是边界上

    NX9+VS2012 #include <uf.h> #include <uf_modl.h> #include <uf_curve.h> #include < ...