ProgramSir-CSDN博客

转载 UniDAC使用

UniDAC细微之处见体贴。UniDAC有一些过人的方法或属性。比如，刷新单条记录（RefreshRecord）、多表更新的属性（UpdatingTable）、宏替换参数(Macros)、集成删除/新增/修改/刷新/锁定SQL语句、FetchRows，更让人称道的是引入了UpdateSQL组件。TUniTable、TUniQuery和TUniStoredProc是用来检索和编辑数据的UniDAC控...

2018-03-17 15:05:06 4172 1

原创但双方活动室冯浩男大夫山艰难地范晶男打算3

http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog.csdn.net/http://blog

2015-03-31 22:51:41 767

原创 fastreport 自动缩小字体以填充

1.procedure Memo8OnBeforePrint(Sender: TfrxComponent);begin while ((TfrxMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do begin TfrxMemoVi

2014-08-28 14:24:27 5046 1

转载 CXGrid的使用技巧

==========================================================================在主从TableView中根据主TableView得到对应的从TableView var ADetailDC: TcxGridDataController; AView: TcxCustomGridTableView; be

2014-07-23 15:24:58 614

转载 FastReport 金额转大写

function atoc(a: string): string;var string1, string2, string3, string4, ch1, ch2, s, s1, rmb: string; i, j, k, zero: Integer;begin string1 := '零壹贰叁肆伍陆柒捌玖'; string2 := '佰拾万仟佰拾亿仟佰拾万仟佰拾元

2014-07-23 15:20:18 2945

原创 fastreport 自动缩小字体以填允

1.procedure Memo8OnBeforePrint(Sender: TfrxComponent);begin while ((TfrxMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do begin TfrxMemoVi

2014-07-23 15:19:51 6832

原创 Delphi 中浮点比较的怪问题

今天遇着一个怪问题(Delphi 7)var sglBase,sglBase1,sglThis,sglB,sglUp,sglDown : double; //这里即使用Extended类型也是不行begin with cxGrd.datacontroller do //此处为cxgrid 网格控件 begin sglthi

2013-06-14 12:17:34 1454