2008年3月30日
设置dbgrideh的footer
摘要： {*******************************************************}{ }{ 设置footer }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}//==============================================================================// 取得FOOTER的合计值pDbGrid.Columns[1].Footer.SumValue// 比如要将金 阅读全文
posted @ 2008-03-30 09:09 delphi中间件 阅读(2703) 评论(0) 推荐(0) 编辑
导出/导入Tdbgrideh数据
摘要： {*******************************************************}{ }{ 导出Tdbgrideh数据 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uExport;interfaceuses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait;procedure ExpDbgridEh(gri 阅读全文
posted @ 2008-03-30 09:08 delphi中间件 阅读(891) 评论(0) 推荐(0) 编辑
DES加解密算法
摘要： {*******************************************************}{ }{ DES加解密算法 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit DESCrypt;interfaceuses SysUtils;function EnCrypt(aStr: string; acKey: string): string;function DeCrypt(aStr: string; acKey: string): 阅读全文
posted @ 2008-03-30 09:07 delphi中间件 阅读(323) 评论(0) 推荐(0) 编辑
公用函数
摘要： {*******************************************************}{ }{ 公用函数 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uCommFunc;interfaceuses SysUtils, Forms, Windows, Controls, Messages, Dialogs, db, Classes, ComObj,IniFiles,ShellAPI,WinSock;//============== 阅读全文
posted @ 2008-03-30 09:05 delphi中间件 阅读(491) 评论(0) 推荐(0) 编辑
dbgrideh设置可显示列
摘要： {*******************************************************}{ }{ 表格编辑 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{ }{*******************************************************}unit FormColSelect;interfaceuses SysUtils, Classes, Controls, Forms, Graphics,uCommFunc, StdCtrls, DBGridEh, CheckLst, Buttons, ComCtrls,. 阅读全文
posted @ 2008-03-30 09:04 delphi中间件 阅读(1739) 评论(0) 推荐(0) 编辑
插件框架
摘要： {*******************************************************}{ }{ 插件管理 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit untMPlg;interfaceuses Classes,Windows, Messages, SysUtils, Variants, Graphics, Controls, Inifiles,Forms,menus,dialogs;Type PDescPlg = ^T 阅读全文
posted @ 2008-03-30 08:57 delphi中间件 阅读(545) 评论(0) 推荐(0) 编辑
DLL共享主窗口的ADOCONNECTION
摘要： {*******************************************************}{ }{ 内存映像文件 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit untMapObj;interfaceuses Windows, SysUtils, Dialogs;procedure SetMappedObj(const AObj:Pointer);stdcall;function GetMappedObj:Pointer;st 阅读全文
posted @ 2008-03-30 08:24 delphi中间件 阅读(460) 评论(0) 推荐(0) 编辑
工厂模式之数据工厂
摘要： ;数据库连接配置文件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 阅读全文
posted @ 2008-03-30 08:09 delphi中间件 阅读(307) 评论(0) 推荐(0) 编辑
2008年3月20日
人生哲理
摘要： 爱过的人，，如同失贞，，，因为能对自己不忠夫帝皇之人，囚山水以为家，孤独时亦不可拿天下作陪伟大的人，热爱遥远的心思和震动的直觉，追求寄制一切的平衡，，笃信擎制天地的能力,,如果走得太远，，终难骗自一生凡夫之人，怀大悲者谓之愚善，自闭者更难有所学人类智慧，不过见多说多的艺术,, 为人之俗，人皆有之，,,世上之事大抵如此很多的女人，爱与嫁是二件完全不一样的事，，她宁可嫁给一个喜欢她的人，而不是她喜欢的人,,,很多男人，，，开始爱上一个女人，只因他发现某个其它男人也要爱这个女的开始，，男女的结合， 必求双方性情相互平衡，反而，太相似的人是无法结合的,,爱与怨念，皆生来不停，少年激进，青年已有老志，最 阅读全文
posted @ 2008-03-20 10:34 delphi中间件 阅读(211) 评论(0) 推荐(0) 编辑
汉化DBNavigator
摘要： procedure CHNDBNavigator(ADBNavigator:TDBNavigator);var i:Integer;begin with ADBNavigator do for I := 0 to ComponentCount - 1 do if Components[I] is TNavButton then begin case TNavButton(Components[I]).Index of nbFirst: TNavButton(Components[I]).Caption := '首笔'; ... 阅读全文
posted @ 2008-03-20 10:28 delphi中间件 阅读(463) 评论(0) 推荐(0) 编辑