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;
转载于:https://www.cnblogs.com/guangzhou11/p/8891365.html
delphi 用户可以点击格式修改进行模板修改相关推荐
- Linux 用户 和 用户组 管理 (添加、删除、修改)及说明
From:http://www.cnblogs.com/xd502djj/archive/2011/11/23/2260094.html 鸟哥官网 Linux 帐号管理与 ACL 权限设定:http: ...
- 使用 CSS 接收用户的点击事情并对相关节点进行操作
问题背景:使用纯 CSS 方案,实现导航栏tab切换 实现 Tab 切换的难点在于如何使用 CSS 接收到用户的点击事情并对相关的节点进行操作.即是: 如何接收点击事件 如何操作相关DOM 下面看看如 ...
- php 点击电话号码直接拨打,在网站上为手机用户提供”点击拨打电话”功能
原作者:Daniel.Pocock 如果有个简单的办法能够让手机用户在你的网站上直接拨打你的电话--仅仅需要在页面上添加一个HTML元素,你会做么? 实际上就是这么简单,简单到连WebRTC浏览器都不 ...
- 【秃头系列】-【本科生毕设论文格式Word】小修改和小问题
文章目录 01 - 小修改 1.1 - 修改正文字体和字号 1.2 - 修改正文行距 1.3 - 修改标题字体和字号 02 - 小问题 2.1 - 当发现首行没有缩进2字符 2.2 - 当发现有些删不 ...
- vue.js实现用户评论、登录、注册、及修改用户部分信息功能代码。
github效果在线预览 仓库地址: https://github.com/zhongyoucong/vuejs/ vue.js实现用户评论.登录.注册.及修改用户部分信息功能代码.效果图如下: 登入 ...
- 【Android项目实战 | 从零开始写app(十三)】实现用户中心模块清除token退出登录信息修改等功能
五一后,被ji金伤了,哇呜呜,还是得苦逼老老实实打工写代码,看下面吧 本篇实现效果: 实现登录用户名展示到用户中心页面上,并且页面有个人信息,订单列表,修改密码,意见反馈发送到服务端,前面登录后,通过 ...
- jpg格式图片分辨率怎样修改?怎么调节jpg图片的分辨率?
jpg格式图片分辨率怎样修改?最近收到很多小伙伴的私信问图图怎么调节jpg图片的分辨率,因为最近有很多小伙伴需要上传照片,照片的尺寸.大小都符合要求了但是还是一直无法上传成功,最后才知道是图片分辨率不 ...
- 更改计算机用户文件夹下主机名,Win10系统修改主机名、用户名称和密码、以及C盘中的用户文件夹名...
写在前面 近期重新安装了Ubuntu16.04系统,同时也修改了Windows10系统的用户名.密码,还有C盘用户文件夹名称.对于Linux和windows系统来说,修改名称基本都是三部分,主机名.用 ...
- Linux下,用户信息存储位置与格式,用户名,密码,用户id组id等存放文件位置
Linux下,用户信息存储位置与格式 用户信息文件: /etc/passwd文件中的内容,是由一行七位,用六个:分割的行组成的所有的用户信息配置文件, 这里面存放的用户信息虽然长短不一,但格式是固定的 ...
最新文章
- sql2005 Agent XPs 选项释义
- [转载]Mysql数据库千万级数据处理优化
- 量子信息先行者中科院院士郭光灿:“要把中国量子计算机卖到国外”
- 从呼叫中心到移动互联网的演进
- 前端性能优化(PC版)
- Excel 数据分析技巧
- 美团点评基于Storm的实时数据处理实践
- Mysql表用自增主键的选型
- 面向 Android 软件开发套件(SDK)的 x86 Android* 系统映像许可协议
- 如何强制修改vivado工程打开版本
- DNF游戏私服搭建过程
- PAT题集2019.6.25排名变动
- 随机过程 Class 3 条件期望
- 目前文字识别技术,主要应用在哪些场景?
- 【渝粤题库】陕西师范大学201931 唐诗研究 作业
- Android人脸检测功能和检测特效
- Flink源码剖析:回撤流
- FinTech头条丨神州信息分布式核心助力广西北部湾银行科技惠民,打造“广西自己的银行”!
- PhpStorm Unhandled exceptions错误解决
- wifi叹号android,Wifi出现感叹号怎么解决 Wifi故障解决方法【步骤】
热门文章
- Silverlight中需要用到模板选择器(DataTemplateSelector)的替代方案
- git 中遇到的错误及解决方法
- idea java mapper.xml文件sql黄色背景解决
- npm notice created a lockfile as package-lock.json. You should commit this file.
- python编写的心得_Python开发之我的小心得
- CCF CSSP202009-1称检测点查询
- 每天快走一小时,身体会有什么变化?
- 现在很多人都做自媒体,谈谈个人的一些想法
- 本科毕业找不到工作,是怎样的体会
- 有没有轻便又好用的CRM管理应用?