摘要：
{*******************************************************}{ }{ ADO数据工厂 }{ }{ 版权所有 (C) 2008 咏南工作室 }{ }{*******************************************************}unit uDataFactory;interfaceuses SysUtils,ADODB,DB,Classes,uCommFunc,ActiveX;{ 生成连接对象 }function GetADOConn(Owner:TComponent;AProvider:Integer=1) 阅读全文
摘要：
{*******************************************************}{ }{ ADO数据泵 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}//==============================================================================// batCopy 先删除已存在的表，再创建新表，再往表中增加数据// batAppend 往已存在的表中追加数据/ 阅读全文
摘要：
//==============================================================================// if mark=0 then Tform.show else Tform.showmodal//==============================================================================procedure OpenChildForm(FormClass:TFormClass;var Form:TForm;Mark:Integer=0);begin if Mark=0 阅读全文
摘要：
{*******************************************************}{ }{ 记录筛选 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uKingFilter;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, db;typ 阅读全文
摘要：
{*******************************************************}{ }{ 通用线程类 }{ }{ 版权所有 (C) 2008 咏南工作室（陈新光） }{ }{*******************************************************}unit uThread;interfaceuses Clas... 阅读全文
摘要：
procedure openMoneyBox(sPort: string = 'lpt1');var tf: textfile; begin try assignfile(tf, sPort); rewrite(tf); writeln(tf, chr(27) + chr(112) + chr(0) + chr(18) + chr(22)); finally closefile(tf); end; end; 阅读全文
摘要：
//四舍五入加强版，可指定到小数后几位function RoundPlus(Value: Extended;Length: Integer): Extended; procedure Set8087CW(NewCW: Word); asm MOV Default8087CW,AX FNCLEX FLDCW Default8087CW end;const RoundUpCW = $1B32;var OldCW : Word; s: string;begin if Length = 0 then s := '0' else s := '0.' + Repl(' 阅读全文
摘要：
记下在CSDN上的第一篇笔记{*******************************************************}{ }{ 陈新光 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit Unit1;in... 阅读全文