| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265499
建立时间:2005年6月6日 |
| |
|
 [delpih编程]改进的trackbar控件
软件技术
吕向阳 发表于 2009/5/25 14:03:29 |
unit utrackbar;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TmyTrackBar = class(TTrackBar)
private
FOldValue: Integer;
FOnmyChange: TNotifyEvent;
procedure WMLButtonDown(var Message: TWMLButtonDown);
message
WM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TWMLButtonUp); message
WM_LBUTTONUP;
published
property OnmyChange: TNotifyEvent read FOnmyChange write
FOnmyChange;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('lxy', [tmytrackbar]);
end;
procedure TmyTrackBar.WMLButtonDown(var Message:
TWMLButtonDown);
begin
FOldValue := Position;
inherited;
end;
procedure TmyTrackBar.WMLButtonUp(var Message: TWMLButtonUp);
begin
inherited;
if Assigned(FOnmyChange) and (FOldValue <> Position) then
begin
FOnmyChange(Self);
end;
end;
end.
|
|
|
[delpih编程]随机提取记录的SQL例子
软件技术
吕向阳 发表于 2009/5/22 22:37:21 |
随机提取10条记录的例子：
SQL Server：
Select Top 10 * From 表 Order By NewID()
Access
Select Top 10 * From 表 Order By Rnd(ID)
Rnd(ID) 其中的ID是自动编号字段，可以利用其他任何数值来完成，比
如用姓名字段(UserName)
Select Top 10 * From 表 Order BY Rnd(Len(UserName))
MySql：Select * From 表 Order By Rand() Limit 10
|
|
|
[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;
|
|
|