| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3267555
建立时间:2005年6月6日 |
| |
|
 [delpih编程]mygeneration做的一个模板，备忘
软件技术
吕向阳 发表于 2009/10/18 16:57:05 |
＜％
ｏｎ ｅｒｒｏｒ ｒｅｓｕｍｅ ｎｅｘｔ
Ｄｉｍ ｄａｔａｂａｓｅ
Ｄｉｍ ｏｂｊＴａｂｌｅ
Ｄｉｍ ｏｂｊＣｏｌｕｍｎ
Ｄｉｍ ｉｎｔＬｐ
Ｄｉｍ ｂＩｎＦｉｒｓｔ
Ｄｉｍ ｓｔｒＰｒｏｃＮａｍｅ
Ｄｉｍ ｂＨａｓＣｏｍｐｕｔｅｄ
Ｄｉｍ ｓｔｒＷｈｅｒｅＣｌａｕｓｅ
Ｄｉｍ ｓｔｒＷｈｅｒｅＡｎｄ
Ｄｉｍ ｓｔｒＷｈｅｒｅＦｉｅｌｄｓ
Ｄｉｍ ｓｔｒＣｏｍｍａ
Ｄｉｍ ｔａｂｌｅＮａｍｅｓ
Ｄｉｍ ｔａｂｌｅＮａｍｅ
Ｄｉｍ ｂｕｆｆｅｒ
Ｄｉｍ ｗｒｉｔｅＴｏＤａｔａｂａｓｅ
Ｓｅｔ ｄａｔａｂａｓｅ ＝ ＭｙＭｅｔａ．Ｄａｔａｂａｓｅｓ（０）
Ｓｅｔ ｔａｂｌｅＮａｍｅｓ ＝ ｉｎｐｕｔ．Ｉｔｅｍ（＂ｌｓｔＴａｂｌｅｓ＂）
ｗｒｉｔｅＴｏＤａｔａｂａｓｅ ＝ ｉｎｐｕｔ．Ｉｔｅｍ（＂ｃｈｋＢｏｘ＂）％＞
ｕｎｉｔ ｕａｌｌｃｌａｓｓ；
ｉｎｔｅｒｆａｃｅ
ｕｓｅｓ Ｗｉｎｄｏｗｓ， Ｍｅｓｓａｇｅｓ；
< |
|
|
[delpih编程]DELPHI组件源码别到处放
软件技术
吕向阳 发表于 2009/9/22 21:05:00 |
自己编写的一个delphi组件，因为多次改动，多次重装delphi ,各版本
的组件源码到处放。一开始，自己没有意识到这个问题的严重性，直到
今天，因为自己对原有的源码进行了修改完善，但始终调试不能成功，
多次将组件从控件管理中删除出来后重增加也不行。但代码确信没有问
题。
此时通过链接发现，在程序中插入的组件源码并不在修改后的文件上，
这才知道，源码的到处放的后果是这样的。花了一个多小时，才知道这
个问题。
将众多的源码版本删除，只留下自己正在编辑的那一个，问题解决。
|
|
|
[delpih编程]having 的用法
软件技术
吕向阳 发表于 2009/9/19 22:59:07 |
QRYA.close;
QRYA.sql.clear;
QRYA.sql.add('select max(cls_ssy_qkqt_all.ssy) as ssy,max(ssy.name) as ssyname
,sum(cls_ssy_qkqt_all.qk) as qk ,sum(cls_ssy_qkqt_all.qt) as qt from
cls_ssy_qkqt_all ,ssy');
QRYA.sql.add('where ssy.id=cls_ssy_qkqt_all.ssy');
QRYA.sql.add('group by cls_ssy_qkqt_all.ssy');
QRYA.sql.add('having sum(cls_ssy_qkqt_all.qk)>0 or sum(cls_ssy_qkqt_all.qt)>0');
======
原来用having qk时一直不通过，尽管上面qk表示sum(cls_ssy_qkqt_all.qk)的别名了，access
不承认。 |
|
|
[delpih编程]union 连接出现的例外情况
软件技术
吕向阳 发表于 2009/9/19 22:41:26 |
A库
AA,BB,CC ...等字段
B库
AA,BB,CC ...及其他字段
使用select语句进行联合：
select aa,bb,cc from a
union
select aa,bb,cc from b
经反复测试绝大部分时候正确，但如果表里面有AA,BB,CC均相同的记录有多条
时，只按一条处理。
搞得摸不到头脑，最后在查询中都加入了一个关键字段（不可重复值），问题解决
结论:select语句中，当使用union联合查询时，如果查询的所有字段值均相同的记录视为一条
处理。注意此处陷井。
|
|
|
[delpih编程]dbgrideh数字字段不显示零值
软件技术
吕向阳 发表于 2009/9/17 18:26:16 |
procedure Tfmssyreturn.DBGrid3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if Column.FieldName = 'pay1' then
if Column.Field.AsInteger = 0 then
TDBGrid(Sender).Canvas.FillRect(Rect);
if Column.FieldName = 'pay2' then
if Column.Field.AsInteger = 0 then
TDBGrid(Sender).Canvas.FillRect(Rect);
if Column.FieldName = 'sl' then
if Column.Field.AsInteger = 0 then
TDBGrid(Sender).Canva |
|
|