| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266214
建立时间:2005年6月6日 |
| |
|
 [delpih编程]用计算器快速算出年金现值系数
软件技术
吕向阳 发表于 2009/5/21 19:14:18 |
注会考试总会用到年金现值系数之类的，怎么用计算器快了，介绍一个
方法：
拿年息12%，10年期的为例
一看12%，就想到是1.12,
1）按“1.12” 数字出来，再按“^"符号，这表示乘方，再按"10",后
按“=” （==这已经复利终值系数）
2）再按“X-1”（是x的负一次方，就是求倒数，是计算器上的一个按
键，不是X减1）,接着按"="
3）再按 "-1"（减号和1）,接着按"=",
4）最后再按“/”(除号）"0.12" （利息），最后按“=”就是了，只
不过是个负数，不要这个负号就是年金现值系数了。
用熟了很快。
|
|
|
[delpih编程]从webbrowser离开跳到edit 焦点无法得到的问题
软件技术
吕向阳 发表于 2009/5/16 16:00:15 |
表单上有webbrowser控件，想编程用热键回到edit1控件时，
edit1焦点无法得到。
代码如下：
if (msg.LParamHi = vk_escape) then
begin
edit1.Clear;
edit2.SetFocus;
end;
没办法，只有先跳到另一个控件上，再跳到目标控件。
if (msg.LParamHi = vk_escape) then
begin
edit1.Clear;
edit2.SetFocus;
edit1.SetFocus;
end;
|
|
|
[delpih编程]利用delphi自带控件发送带有附件的邮件（以163邮箱为例）【转】
软件技术
吕向阳 发表于 2009/5/15 18:31:20 |
利用delphi自带控件发送带有附件的邮件（以163邮箱为例）
首选添加TIdSMTP和TIdMessage控件。
procedure TForm1.Button1Click(Sender: TObject);
begin
smtp := TIdSMTP.Create(nil);
smtp.AuthenticationType := atLogin;
smtp.Host := 'smtp.163.com';
smtp.Username := '###'; //用户名
smtp.Password := '******'; //密码
msgsend := TIdMessage.Create(nil);
msgsend.Recipients.EMailAddresses := 'liang0_0@tom.com'; //收
件人地址(多于一个的话用逗号隔开)
msgsend.From.Text := '###@163.com'; //自己的邮箱地址
msgsend.Subject := 'test'; //邮件标题
msgsend.Body.Text := RichEdit1.Text; //邮件内容
TIdAttachment.Create(msgsend.MessageParts, 'C:\temp\1.jpg');
//添加附件
try
smtp.Connect();
try
smtp.Authenticate;
smtp.Send(msgsend);
ShowMessage('发送成功');
except
ShowMessage('邮件发送失败');
end;
except
ShowMessage('无法连接邮件服务器！');
end;
smtp.Disconnect;
end;
|
|
|
[delpih编程]webbrowser将选中文字加下划线或删除线等
软件技术
吕向阳 发表于 2009/5/15 9:16:51 |
with webbrowser1.Document as IHTMLDocument2 do
begin
// execCommand('underline', true, 1);//下划线
execCommand('StrikeThrough', false, 1);//删除线
execCommand('Bold', False, 1);
execCommand('FontSize', False, 5);
execCommand('ForeColor', False, 'blue');
webbrowser1.ExecWB(OLECMDID_SAVE,
OLECMDEXECOPT_DONTPROMPTUSER);
end;
|
|
|
[delpih编程]access多表更新,子查询及其日期查询技巧 【转贴】
软件技术
吕向阳 发表于 2009/5/12 9:02:44 |
本文说说在access程序开发中常用的技巧，本文将会提供大家用access
实现的多表更新，子查询和日期查询技巧。
1>多表更新
update nct1_totalcollect t,nc_cantoncode c set t.lv=c.leveled
where c.cantoncode=t.cantoncode
2>子查询
ACCESS支持外连接,但不包括完整外部联接,如支持
LEFT JOIN 或 RIGHT JOIN
但不支持
FULL OUTER JOIN 或 FULL JOIN
3>日期查询
注意:ACCESS中的日期时间分隔符是#而不是引号
Select * From Tab1 Where [Date]>#2002-1-1#;
在DELPHI中我这样用
SQL.Add(Format(
'Select * From Tab1 Where [Date]>#%s#;',
[DateToStr(Date)]));
ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移
方便和兼容,建议用单引号作为字符串分隔符.
本文来自: IT知道网(http://www.itwis.com) 详细出处参考：
http://www.itwis.com/html/database/access/20080902/2330.html
|
|
|