本站首页    管理页面    写新日志    退出


«August 2025»
12
3456789
10111213141516
17181920212223
24252627282930
31


公告
================

注会练习软件
http://www.cpasoft.com.cn
我的注会软件官网

http://blog.163.com/abc7105@126/

 

 


哈哈,热爱快“过气”的DELPHI


我的分类(专题)

日志更新

最新评论

留言板

链接

Blog信息
blog名称:注册会计师(注会)练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265523
建立时间:2005年6月6日




[delpih编程]动态建立数据库,找不到可安装的ISAM 的解决
软件技术

吕向阳 发表于 2009/6/13 21:16:40

找不到可安装的ISAM ,特别要注意大小写。

var
str, filename: string;
CreateAccess: OleVariant;
begin
str := formatdatetime('yyyymmdd', now);
filename := extractfilepath(application.ExeName);
if lastpos('\', filename) = length(filename) then
filename := filename + str + '.md'
else
filename := filename + '\' + str + '.md';
filename := stringreplace(filename, '\', '+',
[rfreplaceall]);
filename := stringreplace(filename, '+', '\\',
[rfreplaceall]);

CreateAccess := CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.Oledb.4.0;Data
Source=' + filename);
CreateAccess := Unassigned;
end;

这里已改正确了
一直提示找不到可安装的ISAM
===========
问题出在这。
'Provider=Microsoft.Jet.Oledb.4.0;Data Source=' + filename);
仔细的检查看了一下数据链接字符串,改为正确大小写就可以了,分号
也不能漏。


阅读全文(863) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]如何查询其他数据库内的表(IN子句实例)?【转贴】
软件技术

吕向阳 发表于 2009/6/13 9:47:26

如何查询其他数据库内的表(IN子句实例)? function addtitle(){ var straddtitle = "如何查询其他数据库内的表(IN子句实例)?"; if (straddtitle.length!==0){ document.title=document.title + "《" + straddtitle + "》;专题号:71FAB21E17DC"; } }   专题地址: http://www.access911.net/?kbid;71FAB21E17DC   简述:如何查询其他数据库内的表(IN子句实例)?   阅读前需掌握:   难度等级: 等级未评定  

阅读全文(5041) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]用 TStringList 模拟 "将字符串转换为变量的功能" 【转自万一博客】
软件技术

吕向阳 发表于 2009/6/11 21:00:55

用 TStringList 模拟 "将字符串转换为变量的功能" - 回复 "flq_
00000" 和 "外来天客" 的问题
问题来源:
http://www.cnblogs.com/del/archive/2008/09/03/989467.html#
1306651
--------------------------------------------------------------
------------------


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
str1 = 'aaa';
str2 = 'bbb';
var
List: TStrings;
begin
List := TStringList.Create;
List.Add(str1 + '=123');
List.Add(str2 + '=456');

ShowMessage(List.Values['aaa']); {123}
ShowMessage(List.Values['bbb']); {456}

List.Free;
end;

end.


阅读全文(1103) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]做一个天涯论谈只看楼主的收藏按钮
软件技术

吕向阳 发表于 2009/6/10 14:54:45

你只须在你的IE收藏夹,随便建一个快捷方式,然后在在其上点右键选设置其属性,在属性对话框中的网址一行中复制进去以下代码 替换原网址。

window.location.href='http://www.tianyatool.com/cgi-bin/action.pl?url='+location.href

的代码。(一定要求是一行,当中不能有回车换行,否则复制进去的内
容不全的。

以后你就可在你浏览天涯网页的时候只看楼主了。 ===
  只看楼主

阅读全文(1072) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]ACCESS数据库的几个问题
软件技术

吕向阳 发表于 2009/6/5 21:43:14

有编程中遇到的几个小问题,解决心得如下
1.update 语句时,如果
A b c
10 10
20
15 15

UPDATE DB set c=a+b
执行这样语句的结果是
A b c
10 10 20
20 0
15 15 30
明显就是当相加的字段中任一个为空时,则结果为空
没办法,只能转折一下

update db set b=0 where b is null
将B字段中为空的字段先置为0 ,再来执行上一句就不行有问题了

2.ACCESS的时间问题
access时间字段格式最长为yyyy-mm-dd hh-nn-ss
而delphi 中的now 字段最长为 yyyy-mm-dd hh-nn-ss-mm
此时如果用
adotable1.fieldbyname('sj').asdatetime=now则出错

相应的解决方法

adotable1.fieldbyname('sj').asstring=format('yyyy-mm-dd hh-nn-ss',now)
如果是sql语句也是一样的道理






阅读全文(4046) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]注会考试练习软件最新升级
软件技术

吕向阳 发表于 2009/6/5 11:01:41

2009.06.05最近更新
1.加入每门功课的笔记本功能,供学员自己记载做笔心得及搜集的资料
2.加入计时功能(平时不关注时间,考试时,时间是不够用的哦)
3.直接计算功能,在做每题笔记框时可直接进行计算回车得到结果
4.加入对题目修改功能,对重点语句标示,可一目了然,反复记忆
5.加入答案清空重做功能
6.修正评分错误
7.加入2009年若干最新题库,加入风险管理题库(陆续加入中)   功能演示视频

下载请进:http://www.whzysoft.cn/zkks.rar

阅读全文(940) | 回复(0) | 编辑 | 精华 | 删除
 





站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.375 second(s), page refreshed 144756028 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号