摘要：
{*******************************************************}{ }{ 原生ADO }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uADO;interfaceuses Variants,ComObj;const adOpenDynamic = $00000002; adOpenStatic = $00000003; adLockOptimistic = $00000003; adLockBatch 阅读全文
摘要：
分析危机管理者对数据作分析，通常都会有不同的观察角度，以期通过这些角度来获得不同的信息，比如，表1是最常见的销售分析。 应该说，这个表算是做得不错了，它给出了各个分店在某一时间段里的综合经营情况。但如果要通过这张表去反映某段日期经营效益的详细情况，就只能把每天的经营情况打出来拼在一起去看了。这样，老总们就会说，太累。于是产生了以时间为主线索的分析表（见销售分析表2）。 这张表虽然将日期表达清楚了，但分店的信息又不全面，老总们还不满意，于是又产生了下一张表（见销售分析表3）。 这张表是以日期为线索的，除了稍长了一点以外，老总还挺满意，能不能以分店为线索呢？IT专家说... 阅读全文
摘要：
{*******************************************************}{ }{ 定时关闭各种对话框 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uTimerDlg;interfaceuses Windows, Messages, SysUtils, Classes, Forms, ExtCtrls;// 如果指定的时间没有操作对话框,则自动关闭procedure ResetDlgAutoClose;pr 阅读全文
摘要：
{*******************************************************}{ }{ 通用打印模块 } { }{ 版权所有 (C) 2008 咏南工作室（陈新光） }{ }{*******************************************************}unit uPrint;interfaceuses DBGridEh,PrnDbgeh,SysUtils,Graphics,Forms,Printers,windows;procedure Prnt(AGrid:TDBGridEh;AOwner:Tform;APageHead 阅读全文
摘要：
{*******************************************************}{ }{ 分组统计 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uGroup;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, CheckLst, D 阅读全文
摘要：
{*******************************************************}{ }{ 格式显示 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uFormatDisplay;interfaceuses DB,DBGridEh,SysUtils,Classes; { 设置数字或金额字段的显示格式 }procedure SetDisplayFormat(ADataset:TDataSet);{ 设置财务栏 }proc 阅读全文
摘要：
{*******************************************************}{ }{ 设置footer }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}//==============================================================================// 取得FOOTER的合计值pDbGrid.Columns[1].Footer.SumValue// 比如要将金 阅读全文
摘要：
{*******************************************************}{ }{ 导出Tdbgrideh数据 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uExport;interfaceuses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait;procedure ExpDbgridEh(gri 阅读全文
摘要：
{*******************************************************}{ }{ DES加解密算法 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit DESCrypt;interfaceuses SysUtils;function EnCrypt(aStr: string; acKey: string): string;function DeCrypt(aStr: string; acKey: string): 阅读全文
摘要：
{*******************************************************}{ }{ 公用函数 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uCommFunc;interfaceuses SysUtils, Forms, Windows, Controls, Messages, Dialogs, db, Classes, ComObj,IniFiles,ShellAPI,WinSock;//============== 阅读全文
摘要：
{*******************************************************}{ }{ 表格编辑 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{ }{*******************************************************}unit FormColSelect;interfaceuses SysUtils, Classes, Controls, Forms, Graphics,uCommFunc, StdCtrls, DBGridEh, CheckLst, Buttons, ComCtrls,. 阅读全文
摘要：
{*******************************************************}{ }{ 插件管理 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit untMPlg;interfaceuses Classes,Windows, Messages, SysUtils, Variants, Graphics, Controls, Inifiles,Forms,menus,dialogs;Type PDescPlg = ^T 阅读全文
摘要：
{*******************************************************}{ }{ 内存映像文件 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit untMapObj;interfaceuses Windows, SysUtils, Dialogs;procedure SetMappedObj(const AObj:Pointer);stdcall;function GetMappedObj:Pointer;st 阅读全文
摘要：
;数据库连接配置文件db.ini[current database]dbtype=access[sql server]database=wwateruserid=sapassword=server=192.168.0.177[access]server=./db1.mdbuserid=adminpassword=dbpass=[Oracle]server=userid=password=unit uADOFactory;interfaceuses SysUtils,ADODB,DB,IniFiles,Forms,Classes,ActiveX;const c_SqlSvrPrd='sq 阅读全文