Delphi开发
文章平均质量分 73
ProgramSir
Delphi,VB,MSSQL
展开
-
FastReport打印固定行
在FastReport 4.X版本通过。1.添加两个Band 一个是主数据和CHild(与主数据一样的空白带格子)。2.生成Page事件(OnManualBuild)。3.代码如下(红色为输入的代码)。var i:Integer; maxRow原创 2011-04-09 09:38:00 · 1605 阅读 · 0 评论 -
DLL Alt+Tab问题的非正规解决方法
贴一下,以前看别人的问题,别人总结出来的东西:最近在公司写一个外壳程序,调用DLL插件把FORM嵌入到EXE中的一个PANEL中,其中遇到了不少的问题,大部分已经解决,还有几个至今没有找到解决方法,有待研究,也希望知道解决方法的富翁共享一下研究成果. 以下列出的转载 2011-08-23 08:34:51 · 750 阅读 · 0 评论 -
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 · 1489 阅读 · 0 评论 -
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 · 7044 阅读 · 0 评论 -
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 · 2989 阅读 · 0 评论 -
CXGrid的使用技巧
==========================================================================在主从TableView中根据主TableView得到对应的从TableView var ADetailDC: TcxGridDataController; AView: TcxCustomGridTableView; be转载 2014-07-23 15:24:58 · 643 阅读 · 0 评论 -
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 · 5304 阅读 · 1 评论 -
UniDAC使用
UniDAC细微之处见体贴。UniDAC有一些过人的方法或属性。比如,刷新单条记录(RefreshRecord)、多表更新的属性(UpdatingTable)、宏替换参数(Macros)、集成删除/新增/修改/刷新/锁定SQL语句、FetchRows,更让人称道的是引入了UpdateSQL组件。TUniTable、TUniQuery和TUniStoredProc是用来检索和编辑数据的UniDAC控...转载 2018-03-17 15:05:06 · 4360 阅读 · 1 评论