【Delphi報表開發】FastReport
今天开始研究FastReport。
以下是动态创建FASTREPORT的DEMO
var
Page: TfrxReportPage;
Band: TfrxBand;
DataBand: TfrxMasterData;
Memo: TfrxMemoView;
begin
{ clear a report }
frxReport1.Clear;
{ add a dataset to the list of ones accessible for a report }
frxReport1.DataSets.Add(frxDBDataSet1);
{ add a page }
Page := TfrxReportPage.Create(frxReport1);
{ create a unique name }
Page.CreateUniqueName;
{ set sizes of fields, paper and orientation by default }
Page.SetDefaults;
{ modify paper's orientation }
Page.Orientation := poLandscape;
{ add a report title band}
Band := TfrxReportTitle.Create(Page);
Band.CreateUniqueName;
{ it is sufficient to set the «Top» coordinate and height for a band }
{ both coordinates are in pixels }
Band.Top := 0;
Band.Height := 20;
{ add an object to the report title band }
Memo := TfrxMemoView.Create(Band);
Memo.CreateUniqueName;
Memo.Text := 'Hello FastReport!';
Memo.Height := 20;
{ this object will be stretched according to band's width }
Memo.Align := baWidth;
{ add the masterdata band }
DataBand := TfrxMasterData.Create(Page);
DataBand.CreateUniqueName;
DataBand.DataSet := frxDBDataSet1;
{ the Top coordinate should be greater than the previously added band's
top + height}
DataBand.Top := 100;
DataBand.Height := 20;
{ add an object on master data }
Memo := TfrxMemoView.Create(DataBand);
Memo.CreateUniqueName;
{ connect to data }
Memo.DataSet := frxDBDataSet1;
Memo.DataField := 'xm';
Memo.SetBounds(0, 0, 100, 20);
{ adjust the text to the right object's margin }
Memo.HAlign := haRight;
{ show the report }
frxReport1.ShowReport;
FastReport问题整理
http://blog.163.com/ex_plus/blog/static/1795953220090811151264/
FastReport 程序员手册
http://www.evget.com/zh-CN/Info/ReadInfo.aspx?id=9451
通用打印模块。
在系统中经常需要用到对已经得到的数据集，进行打印。为此特意�
相关文档：
var
arrChar : array [0..4] of Char;
b : Byte;
s : string;
begin
s := 'Test';
Move(Pointer(s)^, arrChar, Length(s)); //string to array of char
ShowMessage(arrChar);
b := Ord(s[1]); //First byte string to one single byte
......
问题背景：
公司希望使用Magento来进行接单，而后把订单导入到一个ERP系统中(订单处理引擎)。
问题：
在使用WebService从Magento中获取Payment信息时，信用卡是被加密的(法律规定不允许在数据库中存储信用卡的明文信息)！
......
Delphi中Format字符串说明
function Format(const Format: string; const Args: array of const):
string;
Format字符串说明：
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
格式化字符串必须以%开头
(2) [index ":"]
索引指的是Args参数列表中要显示的每一项的序号。比如：Args是
......
from : http://zhyhero.googlepages.com/heartset
file:0 前言
本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。
file:1 准备工作part1
& ......
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！
使用Hashtable,查找和删除复杂度都是常数级别的!
type
PPHashItem = ^PHashItem;
......
