在Delphi中如何动态更改DBGrid的颜色
DBGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
constRect:TRect;DataCol:
Integer; Column: TColumn; State: TGridDrawState);
begin
if Table1.FieldByName('Population').AsInteger> 20000000 then
DBGrid1.Canvas.Font.Color := clBlue;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
上面的例子是简单的，但是你可以根据自己的需要扩充，例如字体也变化等，甚至你可以调用画圆的函数在数字上画上一个红色的圆圈。
定义网格背景颜色
在 Form1 上放置 DBGrid1 、Query1、DataSource1 三个数据库组件，设置相关的属性，
使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下
代码，然后运行程序，就可以看到神奇的结果了。本代码在 Windows98、Delphi5.0 环境下调
试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
constRect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState); var i :integer;
begin
ifgdSelected in State then Exit;
// 定义表头的字体和背景颜色：
for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
begin
(Sender as TDBGrid).Columns[i]https://www.doczj.com/doc/9115368528.html, :='宋体'; // 字体
(Sender as TDBGrid).Columns[i].Title.Font.Size :=9; // 字体大小
(Sender as TDBGrid).Colum ns[i].Title.Font.Color :=$000000ff; // 字体颜色( 红色)
(Sender as TDBGrid).Col umns[i].Title.Color :=$0000ff00; // 背景色( 绿色)
end;
// 隔行改变网格背景色：
if Query1.RecNo mod 2 = 0 then
(Sender as TDBGrid).Can vas.Brush.Color := clInfoBk //定义背景颜色
else
(Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); // 定义背景颜色
// 定义网格线的颜色：
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
with (Sender as TDBGrid).Canvas do // 画 cell 的边框
begin
Pen.Color := $00ff0000; //定义画笔颜色( 蓝色)
MoveTo(Rect.Left, Rect.Bottom); // 画笔定位
LineTo(Rect.Right, Rect.Bottom); // 画蓝色的横线
Pen.Color := $0000ff00; //定义画笔颜色( 绿色)
MoveTo(Rect.Right, Rect.Top); // 画笔定位
LineTo(Rect.Right, Rect.Bottom); // 画绿色的竖线 end;
end;
Delphi中ComPort通信中的数据处理 1.串口通信的基本原理： 一般计算机与外部设备通讯有两种方式： 并行传送（Parallel ）：一次的传输量为8个位（1字节），通过并行端口，如打印机 串行传送（Serial ）：一次只传输1个位，通过串行端口，如RS-232 位与字节的概念： 二进制中的每一位0和1，被叫做一个位，每8个位构成一个字节 一个字节中最右面的位被称为第0位，最左面的位被称为第7位。 传输过程中的字节类型：一般有两种。 1.文本（字符字母、标点符号等）在计算机中存储时，每个不同的字符都用不同的数值来表示。这些数值的范围通常在0-127或0-255范围。 7位：ASCII码，每个字节留一个备用位 8位：前128个遵循ASCII码规则，其余的128个用来做扩展字符、数字符号、图形字符等编码。 2.二进制数据： 某些可执行指令文件和图形图像文件就是以二进制形式而不是ASCII码形式存储的。 一个数据可用二进制形式存储，可以占多个字节。在通信领域，常常把这种类型的资料叫做二进制数据。 今天要讲的就是有关二进制数据的处理方法。 几个概念： 波特率：每秒所能产生的最大电压状态改变率（一秒钟可以振荡的次数）bps 通信双方必须要取得一样的通信速度。原始信号经过不一样的波特率取样后，所得的结果完全不一样，如取样速度只有原来一半时，信号被跳着取样，数据因此错误。 数据位：有5,6,7,8四种 停止位：在奇偶位（选择有奇偶校验）或数据位（选择无奇偶校验）之后发送或接收的停止位。停止位的长度可在1、1．5或2位三者中选择）。 奇偶校验位：数据传输之后是可供选择的奇偶校验位发送和接收。奇偶位的状态取决于选择的奇偶校验类型。如果选择奇校验，则该字符数据中为1的位数与校验位相加，结果应为奇数。可选奇，偶或无。 如果要保证通讯畅通。通讯双方以上4项设置必须一致。 一个字节是8位，数据位可以7位，然后一位校验位就8位了。 这些参数可以自己设置。但是如果要保证通讯畅通。通讯双方以上4项设置必须一致。 2.Delphi中串口通信常用的常用控件 进行串口通讯可以用Windows的Api函数： Delphi的Windows.pas单元文件中已经将Win32 API均声明进去，因此在Delphi 里面使用API时只要在uses 区段中加入Windows，使其引用该单元文件即可。
2019-2020年教科版信息技术基础必修《制作网站——网页中动态效果的制作》 1课时教案附教学反思 教学目标： 1．知识目标 (1）理解动态网页与网页动态效果的区别。 (2）掌握网页动态效果的制作。 2．技能目标 掌握“插入”菜单中“组件”命令的使用，使得网页增添动态效果。 3．情感目标 通过学生自主学习网页动态效果的制作，形成积极、主动的学习气氛，激发学生的学习兴趣，培养学生的探究意识和创新能力。 教学重、难点： 1．重点：滚动字幕、交互式按钮等动态效果的制作与Flash的插入。 2．难点：各种效果对象的属性设置。 3．关键：动态效果制作中应图文并茂、色彩和谐、动静适宜。 教学方法：自主探究式学习、任务驱动式教学。 教学准备： 具有动态效果的网页，包括滚动字幕、交互式按钮和FLASH的插入 教学过程： 1．引入 老师打开静态网页和加有动态效果的网页，请学生感受它们的不同。学生观察、比较两张网页，指出它们的不同点。师生共同分析网页，引入新课的学习。 2．新授 任务1 滚动字幕的制作 教师巡视，个别给予指导。 学生完成任务后，展示作品，并演示操作。小结设置滚动字幕的关键点： 文本的大小、字体、颜色等。 表现方式。 运动方向。 背景色的设置。 任务2 交互式按钮的制作 教师巡视，个别给予指导。 学生展示作品，演示操作，小结制作交互式按钮的关键点： 按钮文本的设置。 按钮的颜色、背景色以及效果等。 图片按钮。 任务3 网页中插入一个Flash动画 教师巡视，个别给予指导。 学生展示作品，演示操作，小结插入Flash动画的关键点： Flash显示窗口的大小调整。 预览模式下才能看到Flash效果。 插入Flash后的网页保存。 学生参照教材内容完成网页动态效果制作，并比较分析其他同学的作品，对照自己的作品加以完善。
批最近刚刚做完一个项目，使用到了ＲＡＶＥ进行报表设计，在使用中也查阅了很多资料，但总觉得网上的资料过于分散，而且都不是很全面，所以决定将如何在Delphi 7中使用RAVE报表写成几篇文章，由于本人从小语文学得不好，不是写作高手，这次也是第一次写这样的文章。希望看到这篇文章的网友能多提意见，欢迎大家指教。可以给我留言。言归正传，在我们要给用户编写的软件中往往需要生成各种各样的报表,报表是数据库中数据的最终表现形式，在Delphi 6以前，编写报表都在使用Qusoft公司的Quick report，而且在Delphi中集成了Quick report。在Borland Delphi? 7 Studio 集成开发环境（IDE）的控件面板中取消了Quick report项，取而代之以Nevrona公司Rave Reports项，且在Tools中有Rave Designer 5.0 。 打开Rave Designer 5.0，我们可以如图所示的一个报表设计界面，开发人员可以开发出符合用户要求的报表来，而且这个报表的设计、使用与Delphi集成开发环境几乎是完全的一样，这可能是Rave与其它的报表组件最大的外观上的不同。 我在使用中下载了Rave Reports v5.1.3，你可以在这里或者这里下载，在写这篇文章时，上面上已经发布了Rave Reports 6.0，不过文章还是以Rave Reports v5.1.3为准。打开Delphi，可以控件面板看到如图： Delphi7下的Rave 打开Tools中的Rave，看到的报表设计界面如图：
Rave5的报表设计界面 一、Rave5的报表设计界面 首先，介绍一下Rave的报表设计器的各组件和相关的属性。Rave Designer集成开发环境的界面包括标题栏、菜单栏、快捷工具栏、组件栏和一些窗口： ·标题栏显示了当前的工程名，位于最上部。 ·菜单栏，一些功能可通过菜单栏的菜单命令实现。 ·快捷工具栏为位图按钮，一些常用的菜单命令用这些按钮实现。 ·报表组件栏分页显示各种组件（Standard、Report、Zoom、Colors、Lines、Fills、Fonts、Drawing、Bar Code、Alignment），在利用Rave开发应用程序的过程中，正确、合理地使用组件非常重要。用它可设计
Delphi存取SQL SERVER2000中存取图片 解决数据库中图片的问题，关键技术如下： 在数据库上使用Image二进制字段保存，使用Stream流的方式。 创建文件流： Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate); Word_FileStream.Position:=0; 保存到数据库的Image字段： TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream); 从数据库读取文件到本地硬盘： TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream); 释放文件流： Word_FileStream.Free; Server中该字段的数据类型是Image,在Access中该字段的数据类型是OLE对象。... 既然你已经用TDBImage控件使用Picture.LoadFromFile装入了图片，只要该图片字段和TDBimage控件相连了，直接用adodataset.post,就保存到了数据库。 如果没有相连，可以直接用Tblobfield(adodataset.fields[字段名]).loadfromfile从文件中读，或Tblobfield(adodataset.fields[字段名]).loadfromstream从stream中读， 要读出该字段内容，用相应的savetofile,savetostream就行了 注意如果是jpeg图片，要引用jpeg单元，即：uses jpeg; 综合以上，既能识别bmp又识别读jpeg，我把代码修改如下： （建议用image，不要用dbimage控件，因为该控件只能识别bmp格式图片） （程序已调试，运行正确delphi7 + sql server 2000） 我的数据库是这样的： id varchar(50) name varchar(50) pic image(16) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls; type TForm1 = class(TForm) DataSource1: TDataSource; ADOQuery1: TADOQuery;
常用报表工具对比 目前市场上主流的报表工具有，IBM公司的Cognos、SAP公司的BO、润乾公司的润乾报表等等。 1、Cognos Cognos公司的产品是由一系列的功能模块组合而成的套件，包括如下一些模块： Powerplay Enterprise Server——是PowerPlay企业级的服务器。由应用服务器和Web 服务器组成。可在Internet、广域网和局域网上发布Cubes并作为在线分析运行平台。 Impromptu Web Report—— WEB界面的报表制作和发布的专业平台。 Scenario ——系统提供的ETL工具。 4Thought——建模与预测模块，采用神经网络技术。 Impromptu——是企业级、交互式数据库查询和报表生成工具，提供查询、报表功能，针对关系型数据。 Powerplay——提供OLAP分析功能，针对多维数据PowerCube（Cognos的多维数据结构）。在Powerplay中可以钻取到Impromptu中。这是Cognos公司的集成平台。 Transformer——是一个OLAP服务器。主要用来创建模型，帮助你组织数据，将不同数据源的数据整合到PowerCube当中，形成多维数据源。 Cognos Upfont ——网络集成的门户 Upfont Access ——负责权限的设置与验证
2、BO BusinessObjects Explorer Reporter 查看、刷新、计划、分发和打印全客户文档，创建新查询和文档，OLAP 的旋转和切片以及钻取功能。 Designer 允许universe 设计者创建、管理和分发universes. universe 用日常商业商业术语代表数据结构，属于语义层 Supervisor 允许管理员进行权限管理 BusinessQuery Excel 加载项，使用BusinessObjects universe, 支持关系型和多维数据库(OLAP) BusinessMiner 发现并处理数据中的隐含关系 企业级服务器产品包括: Infoview WebIntelligence (Reporter 和Explorer) 是BusinessObjects 基于WEB的决策支持系统。Broadcast Agent 制定自动发布文档的定时机制。
《给网页中添加动态效果》教学设计【教学课题】 初中信息技术下第11单元设计主题网站中第2节第4部分《给网页中添加动态效果》 教材分析：本节内容属于网站制作的美化部分，对于学生来说，这部分的内容生动活泼是对他们前段时间所有的学习的一个巩固，学生很有兴趣，做好后也很有成就感。 学情分析：学生在前面的学习中，已经学会了如何制作网页，按照书本上的要求也制作出了两张网页，学生对自己的劳动成果感到了满意，对自己也充满了信心。所以他们急于把网页增添动态效果，有了较强的学习的主动性。 【教学目标】 1．知识目标 理解动态网页与网页动态效果的区别。 掌握网页动态效果的制作的技巧。 2．技能目标 能在网页设计时根据需要适当加入flash影片、滚动字幕、交互式按钮等特效；培养学生网页设计的审美能力、互动协作能力、创新能力。 3．情感目标 通过学生自主学习网页动态效果的制作，形成积极、主动的学习气氛，激发学生的学习兴趣，培养学生的探究意识和创新能力。 【教学重点、难点及对策】 1．重点：滚动字幕、交互式按钮等动态效果的制作与Flash的插入。 2．难点：各种效果对象的属性设置。 3．对策：针对本课时操作性强的特点，强调学生创作的过程，在这个过程中通过教师的引导和学生的相互观摩比较，利用因特网自主学习给网页添加更多特效。 教学进程如下：作品演示观摩——教师引导——学生创作——小组交流评选——展示总结。 【教法和学法分析】 本课教学采用“以学生为中心的网络教学模式”，充分发挥网络教学的优势，努力为学习者创设一个张扬个性共同提高的学习环境。 本课考虑到学习者的个体差异，采用高效率的“各取所需”的学习方法——即事先准备好各个知识点的教学片断——用Flash CAM录制好示范操作过程。学生如有知识盲点可以点击相关链接查看相应内容——获得即时的帮助与指导。
最近在做一个Delphi的发货清单的打印程序，其中涉及到需要计算清单的小计和总计的功能，文字难以表达清楚，上图吧： 报表第一页的小计计算当前页面的商品价格总和，总计目前和小计一样是计算截止到当前页面的所有商品的金额和，下图为最后一页： 这下大家明白了吧，就是要实现这样的报表。 废话不多说了，开始讲解我的思路： 1.既然要计算小计，就是每页的金额和了，加入ReportMachine的计算文本框（TRMCalcMemoView），然后设置要汇总的字段值为数据字段“factSum”，然后选择计算文本框的属性面板中的“CalcOptions”选中“统计Brand”为要汇总的主项数据，统计类型为“合计（Sum）”，如图所示：
2.最难的部分就是总计 的计算，这不能简单的用计算文本框就能解决的，于是不得不用ReportMachine 的代码来处理，也就是在总计的文本框的OnBeforePrint事件中计算之前的小计文本框的值的和，然后赋值给总计文本框显示，先看下设计的报表： 红色文字为两项总计的文本框的Name属性值。下面是ReportMachine中自定义的OnBeforePrint事件函数代码如下： unit Report; var lValue,tValue: Double;//lValue=金额总计 tValue=税额总计 procedure Memo1_OnBeforePrint(Sender: TObject); begin lValue:=lValue+CalcMemo1.CalcValue; //CalcMemo1为金额小计的文本框 TRMMemoView(Sender).Memo.Text := lValue;
Delphi中用FastReport制作报表 报表作为系统信息的典型输出形式之一，是大多数应用系统非凡是MIS系统的重要功能。是否具有一个良好的打印功能，往往从一定程度上关系到系统的成败。Delphi有很强的报表功能，但是它的报表功能还不能满足我们的需要。于是许多Delphi高手相继推出了不少优秀的报表控件（模块），作为QuickReport的补充，其中FastReport就是一个代表。 FastReport综合了QuickReport和Re portBuilder的优点，个头小，速度快，并带有全部源码。笔者在开发一个药品治理系统时，用FastReport2.51成功制作出了和药品验收单、药品调拨单一模一样的表单式报表。下面给朋友们介绍一下。 FastReport2.51下载地址：http //https://www.doczj.com/doc/9115368528.html,/soft/8805.Html。 报表的需求分析 在医院工作的朋友都知道，药品入库时要填写药品验收单，药房工作人员领取药品时要填写药品调拨单。笔者单位使用的药品验收单和调拨单不是专用的，而是通用的商品验收单和调拨单。与百货业、电信系统使用的报表不同，它的外形为条形，每张固定可填五种药品，内容包括发货单位、发货单号、收货单位、品名、规格、单位、价格、金额等，一式三联。 综上所述，我们可以把报表设计的需求归纳如下： 1. 大小为：长21cm，宽10cm； 2. 每张可以打印5种药品，表单下面有本页小计。 3. 多于5种药品时开始新一张表单的打印，不足5种药品时要用空行补足。 报表设计 1.打开FastReport的报表设计器，按照图1设计出“药品验收单”。 另外，InHJ、OutHJ、CaHj、LineCount这几个变量分别表示“入库合计”、“出库合计”、“差价合计”和“数据总行数”，在程序中将对这几个变量赋值。 2.按F11键，调出对象查看器，选中Band2，在它的OnBeforPrint事件中输入如下代码： begin if LINE# -1<>0and LINE# -1mod 5=0then begin showBand Child1 showBand band1 end
SAP报表编辑器->Report Painter Concept of Report Painter->概念 这里所指的Report Painter是SAP ECC产品中的一个报表开发工具，中文名为报表绘制器。经常与Report Painter一同提出的Report Writer是其前身，原应用于SAP R/3产品中，后升级为Report Painter。 Application Scope for Report Painter->适用范围 主要用于财务模块（FICO Module）报表的开发，也可用于少量SD/MM/PP模块的主数据类报表的开发。使用该工具开发报表，每次需基于系统已有的一个数据库表，因此开发出的报表数据是在一个模块内的，如可开发资产负债表、费用明细报表。 Features of Report Painter->特点 ?不需要编程，报表取数逻辑简单，工具使用技巧易于掌握，适用于SAP模块顾问，特别是财务顾问使用。 ?取数来源明确。用于取数的数据库表是已知的。下表为可用于报表开发的数据库表： ?
?有专业知识要求。对于主要的应用，财务报表的开发，如开发资产负债表，需具备会计知识的同时需结合企业的会计科目设置情况，进行报表开发。 Major Element of Report Painter->主要元素 ?报表（Tcode:GRR1~GRR3/GR34），即开发的对象，主要开发工作在这里完成，如报表行、列各栏位的内容、取数，报表格式等。 ?方式(Tcode: GRR4~GRR6)，分别定制报表行和列的栏位内容、格式等。 ?实用程序，分为目录和传送两部分: 目录(Tcode:GR3L/GR5L)，可通过报表或报表组运行开发的报表； 传送(Tcode:GR37/GR57/GRR7…)，主要是对开发的报表按照报表组、报表、模块的方式将开发技术数据从系统导出或者导入，实现报表不同client间的传输。 ?报表编写器，是Report Painter的主要内容，包括集、变量、指标、标准格式、库、报表、报告组。 集(Tcode:GS01~GS04)，以数据库表的一个字段为基础，可设置层级、引用变量，作为报表直接取数的一个来源。通常一个集指代数据表的一个纬度，可自 定义。 变量(Tcode:GS11~GS14)，以数据库表的一个字段为基础，作为报表直接取数的一个来源，可较灵活的自定义。
CSDN - 专家门诊 - Delphi 图形处理/多媒体问题 推荐 | 保存 | 关闭窗口 主题：由Delphi中的图像灰度化代码看基本图像处理～～～ 作者： ehom (？！) 等级： 信誉值： 190 所属论坛： Delphi 图形处理/多媒体 问题点数： 33 回复次数： 23 发表时间： 2003-02-27 12:48:11Z [基础篇] 首先看一段实现24位色图像灰度化转换的代码 procedure Grayscale(const Bitmap:TBitmap); var X: Integer; Y: Integer; R,G,B,Gray: Byte; Color: TColor; begin for Y := 0 to (Bitmap.Height - 1) do begin for X := 0 to (Bitmap.Width - 1) do begin Color := Bitmap.Canvas.Pixels[X,Y]; R := Color and $FF; G := (Color and $FF00) shr 8; B := (Color and $FF0000) shr 16; Gray := Trunc(0.3 * R + 0.59 * G + 0.11 * B); Bitmap.Canvas.Pixels[X,Y] := Gray shl 16 or Gray shl 8 or Gray; end end end; {这段代码效率是非常低的，但可以方便我们理解同时一些问题} Delphi的帮助中对TColor已经有了详细的描述，这可以方便我们理解上面的代码！ 首先看： R := Color and $FF;
p p t怎么做出动态效果出来 如果说图片比文字生动，那么动态效果就看起来更加有感觉了。以下是学习啦小编为您带来的关于p p t制作动态效果的方法，希望对您有所帮助。 p p t制作动态效果的方法 首先我们新建个p p t之后打开，在左侧幻灯片工具栏出，右键点击即可出现添加幻灯片 之后我们点击页面上方工具栏上的动画 此时会出现很多的动态效果，注意要先点击下我们的幻灯片，然后点击上面的动画，此时我们的幻灯片预览到你点击的效果 如果你觉得这些都不太好，你可以点击右边向下的小箭头 此时为所有的幻灯片效果，你点击一个你喜欢的即可 同时我们也可以调教我们动画播放的速度和声音，点击切换声音、切换速度那的小箭头即可选择你想要的声音和速度。 使用p p t软件制作缩放动画效果的方法 新建一个p o w e r p o i n t文档，利用回车键创建一个新
的幻灯片，删除幻灯片上面的文本框。 使用p p t软件制作缩放动画效果的操作方法 点击菜单插入艺术字，插入两行艺术字分别为缩放，基础缩放，这里代表p p t里面的两种动画效果。 选中艺术字缩放，点击菜单动画缩放，适当调整时间、缩放大小，在这里我们可以看见缩放是从字体的中心进行缩放的，是全部字一起出现的。 选中艺术字基础缩放，点击菜单动画基础缩放，适当调整时间、缩放大小，这种基础缩放是从幻灯片的中心开始缩放的。 双击右边动画窗口里面的基础缩放效果，弹出窗口后，设置动画文本，如果设置为整批发送，字体就是一起缩放的，如果设置为按字母，字体就是一个一个出现的。 当我们在设置图片的基础缩放时，我们可以利用菜单动画效果选项，在这里可以设置我们想要的效果。
字段名、字段数不确定时，用FastReport4 动态生成报表 Delphi xe3 + FastReport4.14.1 ADOConnection,ADOQuery,DatasetProvider,ClientDataSet,DataSource,FrxDBDataset1,FrxReport屬性設置，不在這裡詳述。 效果圖：
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Datasnap.Provider, Data.Win.ADODB, Data.DB, Datasnap.DBClient, frxClass, frxPreview, frxDesgn, frxDBSet; type TForm1 = class(TForm) ADOConnection1: TADOConnection; DataSource1: TDataSource; ClientDataSet1: TClientDataSet; ADOQuery1: TADOQuery; DataSetProvider1: TDataSetProvider; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; frxDBDataset1: TfrxDBDataset; frxDesigner1: TfrxDesigner; frxPreview1: TfrxPreview; frxReport1: TfrxReport; Button3: TButton; procedure Button1Click(Sender: TObject);
( ).报表绘制器Report Painter 在谈Report Painter前,做一个心理测试,假设你在肉摊市场发现一把锈刀,你会想到什么? A.屠夫用过的杀猪刀. B.疱丁用过的宰牛刀. C.以上纯属扯淡,就一把普通得不能再普通刀. 啊,你选C?肯定?确定?确信? 恭喜你回答正确,正确答案就是C,此类所谓的心理测试本来就是瞎扯淡的. (1).基本概念. 如图1,在SPL菜单或相关信息系统目录下都可以找到Report painter的相关事务码, 首先明白Report painter的几个基本概念 (1)报表绘制器(Report Painter)和报表编写器(Report Writer) 简单理解,Report Painter是Report Writer的升级版. 使用Report Painter的GRR1制造报表比Report Writer的GR31要简单的多,不信你使用GR31画几个报表出来看看. (2).集(Set) 集(合):顾名思义意思就是报表中用到的一些常量或变量的组合. 集的种类: 基本集|单维集|多重集|指标集. 注: 实际上,成本中心组利润中心组科目组等在建立后就会自动产生一个同名的基本集,如果该组下又有子组,则其自动成为单维集,它们的组类型分别是”成本中心组”,”利润中心组,”科目组”等,你可以使用KSH1建立一个成本中心组,然后使用GS03显示出这个基本集,然后再在该成本中心组下挂一个子组,则其又变成了单维集,其子组下面没有孙组,则该子组成了一个基本集,这些集可直接用在绘制报表中. 简单理解,基本集只包括值和值间隔,单维集则包括基本集和其它单维集.
第ｚ１卷第１期２０００年１月微计算机应用ＭＩＣＲＯＣＯＭＰＵＴＥＲＡＰＰＬＩＣＡＴＩＯＮＳＶ０１．２１，Ｎｏ．１Ｊａｎ．，２０００ Ｄｅｌｐｈｉ中ＪＰＥＧ图像对象的使用技巧” 袁梅字 （云簿ｊ二韭大学｝｝彝祝系琵鹱６５００５１） 擒鬟；本文以实倒介绍如何把婵ＥＧ图像数据写入数据库申并显示以及如何读写ＪＰＥＧ图像数 据文件．另外．还说明了其他编褴语言如何利用ＪＰＥＧ图像对象。 装镰词：ＪＰＥＧ压缩Ｄｅｌｐｈｉ １前意 ＪＰＥＧ（ＪｏｉｎｔＰｈｏｔｏｇｒａｐｈｉｃＥｘｐｅｒｔｓＧｒｏｕｐ）是连续惫诞耱壹藿像懿垂嚣稼壤，基广泛痉曩于｝｝算机秘通信锈域，铡魏电褫阉像悉雅、多媒诲遥信、多媒体计算梳、图像数据瘁等。ＪＰＥＧ的一个最著特点是它的压缩比相辫高，在无可见失真的情况下，可达到１０：１刘２０：１。文献［１］在ＰｏｗｅｒＢｕｉｌｄｅｒ中实现了把ＢＭＰ文件襻＾数据库中并显示，佩缺点是没有压缩过的图像数据占用数据库过大的警间。文献［２］实现了ＪＰＥＧ的压缩算法，并且应用到数据库中，但要每一位程序员都用Ｃ＋十来编ＪＰＥＧ的服雅子铡程，浪费精力最没宥必要。而Ｄｅｔｐｈｉ３、Ｄｅｌｐｈｉ４是支持ＪＰＥＧ戆，照ＪＰＥＧ标准过于复杂，｛嚣虽除Ｄｅｌｐｈｉ静斑线帮动静摄步有壹拜簿襞掰它的资辩，这绘应掰程穿燕带来了穰多塞溪。势越，奉文结合鑫蠢瓣缡程经验，奔绍如何在Ｄｅｌｐｈｉ中使用ＪＰＥＧ对象。 ２ＪＰＥＧ对象 ＴＪＰＥＧＩｍａｇｅ是在Ｄｅｌｐｈｉ中封装的ＪＰＥＧ图像，它支持对ＪＰＥＧ压缩图像数据的读和写。在计算机系统中，我们使用ＴＪＩ，ＥＧＩｍａｇｅ对静止图像压缩秘解压缩。ＴＪＰＥＧＩｍａｇｅ采用ＴＪＰＥＧＤａｔａ对象熬实婀孛翦数援，这些数据包含了褰燕懿ＪＰＥＧ数据漂，劳纛不蕤黪袭。ＴＪＰＥＧＩｍａｇｅ有一内部静包含ＪＰＥＧ图像的位图，蠹２５６龟，它积ＪＰＥＧ的数攥渫一祥是更凄的。ＴＪＰＥＧＩｍａｇｅ对象有不步属性和方法，这些属性和方法决定如何读写ＪＰＥＧ数据。２．１ＴＪＰＥＧＩｍａｇｅ的主要属性 （１）ＣｏｍｐｒｅｓｓｉｏｎＱｕａｌｉｔｙ（压缩质量）属性。该属性用于设置ＪＰＥＧ图像的聪嫡质量。它只用于写（臌缩），而不用于读（鼹聪缩）ＪＰＥＧ图像。该属性的类型是ＴＪＰＥＧＱｕａｌｉｔｙＲａｎｇｅ，为从１到１００辩数。ＴＪＰＥＧＱｕａｌｉｔｙＲａｎｇｅ秘蓬越大，图像静臻璧邈毫，僵銎像文｛孛静疑废也越长。 本文予１９９９一懈一１６收到。１９９９一０６—２ｌ收到修改穑。 ＊本文获蠢南工业大学校立基金资助。 万方数据
Delphi的图形处理 Delphi的图形处理......................................................................................................- 1 - 第一章图像处理在可视化编程中的作用及其应用价值.................................- 2 - 第二章图像处理函数.......................................................................................- 2 - 2.1 为什么选择Delphi..............................................................................- 2 - 2.2 Delphi中用于图形处理的类...............................................................- 2 - 2.3 GDI及Canvas类简介.........................................................................- 4 - 第三章基本图像处理算法.............................................................................- 13 - 3.1柔化和锐化处理.........................................................................................- 13 - 3.2 图像混合(透明度)效果..............................................................................- 19 - 3.3 转为灰度图像............................................................................................- 22 - 3.4 对比度调整和反色处理.............................................................................- 23 - 3.5 亮度的调整................................................................................................- 25 - 3.6 浮雕效果....................................................................................................- 28 - 3.7 马赛克效果................................................................................................- 31 -
《给网页中添加动态效果》教案 【教学课题】 初中信息技术下第11单元设计主题网站中第2节第4部分《给网页中添加动态效果》 教材分析：本节内容属于网站制作的美化部分，对于学生来说，这部分的内容生动活泼是对他们前段时间所有的学习的一个巩固，学生很有兴趣，做好后也很有成就感。 学情分析：学生在前面的学习中，已经学会了如何制作网页，按照书本上的要求也制作出了两张网页，学生对自己的劳动成果感到了满意，对自己也充满了信心。所以他们急于把网页增添动态效果，有了较强的学习的主动性。 【教学目标】 1．知识目标 理解动态网页与网页动态效果的区别。 掌握网页动态效果的制作的技巧。 2．技能目标 能在网页设计时根据需要适当加入flash影片、滚动字幕、交互式按钮等特效；培养学生网页设计的审美能力、互动协作能力、创新能力。 3．情感目标 通过学生自主学习网页动态效果的制作，形成积极、主动的学习气氛，激发学生的学习兴趣，培养学生的探究意识和创新能力。 【教学重点、难点及对策】 1．重点：滚动字幕、交互式按钮等动态效果的制作与Flash的插入。 2．难点：各种效果对象的属性设置。 3．对策：针对本课时操作性强的特点，强调学生创作的过程，在这个过程中通过教师的引导和学生的相互观摩比较，利用因特网自主学习给网页添加更多特效。 教学进程如下：作品演示观摩——教师引导——学生创作——小组交流评选——展示总结。 【教法和学法分析】 本课教学采用“以学生为中心的网络教学模式”，充分发挥网络教学的优势，努力为学习者创设一个张扬个性共同提高的学习环境。 本课考虑到学习者的个体差异，采用高效率的“各取所需”的学习方法——即事先准备好各个知识点的教学片断——用Flash CAM录制好示范操作过程。学生如有知识盲点可以点击相关链接查看相应内容——获得即时的帮助与指导。
delphi里自带有打印相关控件吗？怎么实现呀？打印dagrid表内容，或者说memo，Listbox,或者几个edit的内容。谢谢 uses printers var lines:integer; prntext:system.text; begin if printdialog1.execute then try assignprn(prntext); //将PRNTEST分配给打印机 rewrite(prntext); //调用REWRITE函数，为输出打开已分配的文件 printer.canvas.font:=memo1.font; //把当前MEMO1的字体指定给打印对象的CANVAS的字体属性 for lines:=0 to memo1.lines.count-1 do begin writeln(prntext,memo1.lines[lines]); end; //把MEMO的内容写到打印机对象 system.close(prntext); //关闭打印文件 except abort; end; end; ===================== 在网上看到好多第三方的打印控件 我想问 ReportBuilder ReportMachine QuickReport FastReport
这几种打印控件的优缺点 哪个最好用，哪个并发简单快捷? 这些都是报表工具，用来制作报表的，偶们公司现正在用FastReport，感觉还凑合，虽然有不少Bug，但是都还可以通过其它方法解决或避免。 听网友们说QuickReport还像还可以，但是说实话，这些由国外开发的报表工具有时候你会发现并不适合国内的需求，很令人郁闷，所以无论使用哪一个，都要有被其郁闷的心理准备。话又说回来，用这种东西，必需要有钻研精神，hoho，这样才能更快更好的掌握其特点和使用方法，遇到的问题也就迎刃而解了 =============================== 1.用Delphi编写打印程序的窍门 如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。 1.获取显示当前打印机的分辨率 Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：Show Message(+inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSX))+chr(13)++inttostr(Ge tDeviceCaps(printer.Handle,LOGPIXELSY)));结果就一目了然了。 2.将结果直接送到打印机 Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。 3.尽量不要使用AssignPrn 尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。 4.用打印机的点数做度量单位 如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printer.Canvas.rectangle(0,0,360,720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出0.6英寸宽、1.2英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printer.Handle,LOGPIXELSX);PointY :=GetDeviceCaps(printer.Handle,LOGPIXELSX);printer.Canvas.rectangle(0,0,PointX*1 ,PointY*2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。 5.添加打印程序单元 尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。(湖北杨德军)
图像处理基本知识彩色变灰度 把一图由彩色变成灰度,也就是把每个像素的RGB各分量变为相同的,就成了灰度图像了 pf24bit 模式下 用BMP 的ScanLine 可以读取每一行的RGB数据.得到的是一个指针 字节顺序是B,G,R 亮度Y = 0.229R + 0.587G + 0.114B 这个公式相当重要.以后很多图像处理都要用到它. 方法1: 方法一很简单,把RGB各分量相加,计算平均值,再设为新的RGB 方法2: 找出RGB 各分量中最大的.再设成新的RGB 值 方法3: 根据工式: Y = 0.229R + 0.587G + 0.114B 算出亮度. 新的RGB 各分量都为这个值. (个人认为第三种方法比较科学) 代码: (方法一. 其它方法类似) bmp := TBitmap.Create; Bmp.Assign(Image1.Picture.Bitmap); bmp.HandleType :=bmDIB; bmp.PixelFormat := pf24bit; for j := 0 to bmp.Height -1 do begin p := bmp.ScanLine[j]; for i := 0 to Bmp.Width - 1 do begin gray1 :=Byte( (p[i*3] + p[i*3+1] + p[i*3+2]) div 3); p[i*3] := gray1; p[i*3+1]:= gray1; p[i*3+2] := gray1; end; end; Image2.Picture.Bitmap.Assign(bmp);
bmp.free; ============================== 二值化: 与灰度不同,二值化只有两种颜色.一般在做一些识别时用得比较多. 方法: 1, 计算出像素的亮度, 定义一个亮度阈值. 2. 亮度大于这个阈值的像素,颜色为白, 小于这个阈值的像素,颜色为黑. ======================================= 亮度调节 取各个像素的RGB值,按比例加/减一个增量. 也许用亮度公式来算出这个比例,比较科学. 按一定比例,把部分的RGB 提升,一部分下降. ================================-==== Gamma校正 (不太明白用在哪里.) 分别把RGB 设为Min(255, round(255 * Power((OldValue / 256), 0.45))); NewValue := 255 乘(OldValue /256) 的 0.45 次方 ====================== 反色 各分量取反. ====================== 爆光 小于128的取反
手把手教你打造页面DuangDuang动态效果 在电商设计中，动态效果已经被广泛的应用。一个好的页面的动态效果往往能起到吸引更多的顾客，增进与顾客的沟通，在购物的过程中得到更加新奇好玩的体验。本次分享的是一个大促页面的动态效果制作。希望大家看过后，能学会然后让自己的页面动起来。 正文： 在电商设计中，动态效果已经被广泛的应用。一个好的页面的动态效果往往能起到吸引更多的顾客，增进与顾客的沟通，在购物的过程中得到更加新奇好玩的体验。本次分享的是一个大促页面的动态效果制作。希望大家看过后，能学会然后让自己的页面动起来。 一、设计思路 首先设计这个动态效果的思路是在设计的过程中逐步完善的。一开始有这个想法的出现是因为想在平面设计中融入自己的新创意，所以就有了制作动态页面的想法。店铺本身的风格是好玩有趣，所以开始围绕着这个风格去收集制作页面的动态元素。 二、动态原理 本次的动态效果主要是通过gif动图来实现的，先讲一下gif动图的原理。gif动图就是将一张张相近的图按照每秒钟12或24张或更多的速度播放，使人眼产生错觉看到它动，所以这个动态太效果的制作，会涉及较多的gif动图教程。 三、开始制作 1.前期工作 前期工作主要是构思页面最终想要的表现效果，进行设计灵感的收集和对页面中所要用到的gif图的制作。如果将整个页面细化拆分开就可以发现页面所用到的都是很简单的小元素，例如一些小圆形、小矩形都是自己制作的，很少用到现有的素材。先看最终效果。
①Gif图1—1212（具体操作参照图文） (本文原创作者：大麦电商，转载请保留)
这个动图效果在本个页面中起到了最主要的作用，很直观的表现从双十二的活动主题，也是最为复杂的一个。 制作步骤：首先在Ps中新建一个1920*700的文档。选择“HoratioDBol”字体打出“1 2“这个样式的图案，调整文字图案到合适大小，再通过复制图案图层并轻移图层使”12“表现出3D立体效果。