2006年11月_jinzhili

12月 11月 10月 07月 06月 05月 04月 03月 02月 01月

原创控制小数位的另一种方法

利用Str这个函数可以很灵活的来控制小数位，例：它会进行四舍五入var s:string; value : double;begin value := 25.367; str(value:0:2,s); self.caption := s;

2006-11-30 17:46:00 761

原创从DLL中返回一个接口对象

从DLL中返回一个接口对象添加一个Unit单元把类的对外要用到的自定义类型以及接口对象的声明都写上，比如单元名称：unitMyInterface ISendEmail = interface(IInterface) function getEmailType: TEmailType; function getPassWord_pop3: WideString;

2006-11-18 09:33:00 1783

原创拖动窗体

拖动窗体 ReleaseCapture; SendMessage(Handle,WM_SYSCOMMAND,$f012,0); 示例：procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; SendMessage(Handle,WM_

2006-11-13 15:52:00 622

原创得到任务栏的高度

当Form.BorderStyle = bsNone时，最大化会把任务栏给盖住 procedure TForm1.InImage3DblClick(Sender: TObject);begin if TForm(TImage(Sender).parent).WindowState=wsMaximized then begin TForm(TImage(Sender).Parent)

2006-11-13 15:49:00 913

转载窗口自己激活自己

const LSFW_LOCK = 1; LSFW_UNLOCK = 2; function LockSetForegroundWindow(uLockCode: DWORD): BOOL; stdcall;var Form1: TForm1;implementation function LockSetForegroundWindow; external user3

2006-11-13 13:28:00 2335

原创解决：不能用163发邮件，用pop3收邮件显示乱码

收发邮件程序：新建一个工程1.解决163不能发信从C:/Program Files/Borland/Delphi7/Source/Indy目录中找到IdSMTP.pas 将SendCmd(RSET); 注释掉，重新编译，然后覆盖 1.1 C:/Program Files/Borland/Delphi7/Source/Indy中的IdSMTP.pas 1.2 C:/Pr

2006-11-08 17:38:00 4377

转载 DBGridEh自动适应列宽

自动调整列的宽度function DBGridRecordSize(mColumn: TColumnEh): Boolean;{ 返回记录数据网格列显示最大宽度是否成功 }begin Result := False; if not Assigned(mColumn.Field) then Exit; mColumn.Field.Tag := Max(mColumn.Field.Tag, T

2006-11-04 16:16:00 3654

原创 EhLib实现自动编号功能

先进行以下设置DBGridEh1.SumList.active := true;DBGridEh1.SumList.VirtualRecords := true;然后增加一列，不要关联字段增加以下代码procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Co

2006-11-03 17:58:00 1937 1

原创保存数据时，发生截断字符的解决方法

保存数据时，发生截断字符的解决方法：关于在SQL Server 存储过程中判断的一点发现在进行Insert into 进行添加数据时，如果单用 @@ERROR 进行判断是不准确的。如果发生了输入信息超过了字段所定义的长度时，用 @@ERROR 尤其是在进行主从表添加时，如果这个错误发生在细表当中，这时就会产生很奇怪的情况，主表的单号是正确产生了，但是一看细表确没有信息。也没有相应的提示。在存储

2006-11-03 11:02:00 2187

原创使用SQL Server 2000 设计数据库时会产生的设计错误

使用SQL Server 2000 设计数据库时会产生的设计错误在一个表内不能有多个varchar(8000) 或者 nvarchar(4000) 的字段。只能有一个因为，在SQL Server 中行是按页来进行存储的。一个页是8K，一行数据是不能拆分成多个页进行存储。解决的办法有：1. 拆分成多个表。2. 使用Text字段。Text是可以存储2G的。

2006-11-03 10:48:00 707