摘要: {*******************************************************}{ }{ 定时关闭各种对话框 }{ }{ 版权所有 (C) 2007 咏南工作室(陈新光) }{ }{*******************************************************}unit uTimerDlg;interfaceuses Windows, Messages, SysUtils, Classes, Forms, ExtCtrls;// 如果指定的时间没有操作对话框,则自动关闭procedure ResetDlgAutoClose;pr 阅读全文
posted @ 2008-03-30 09:16 delphi中间件 阅读(436) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 通用打印模块 } { }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uPrint;interfaceuses DBGridEh,PrnDbgeh,SysUtils,Graphics,Forms,Printers,windows;procedure Prnt(AGrid:TDBGridEh;AOwner:Tform;APageHead 阅读全文
posted @ 2008-03-30 09:15 delphi中间件 阅读(1378) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 分组统计 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uGroup;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, CheckLst, D 阅读全文
posted @ 2008-03-30 09:12 delphi中间件 阅读(808) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 格式显示 }{ }{ 版权所有 (C) 2007 咏南工作室(陈新光) }{ }{*******************************************************}unit uFormatDisplay;interfaceuses DB,DBGridEh,SysUtils,Classes; { 设置数字或金额字段的显示格式 }procedure SetDisplayFormat(ADataset:TDataSet);{ 设置财务栏 }proc 阅读全文
posted @ 2008-03-30 09:10 delphi中间件 阅读(605) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 设置footer }{ }{ 版权所有 (C) 2007 咏南工作室(陈新光) }{ }{*******************************************************}//==============================================================================// 取得FOOTER的合计值pDbGrid.Columns[1].Footer.SumValue// 比如要将金 阅读全文
posted @ 2008-03-30 09:09 delphi中间件 阅读(2704) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 导出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加解密算法 }{ }{ 版权所有 (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中间件 阅读(329) 评论(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) 编辑
摘要: {*******************************************************}{ }{ 表格编辑 }{ }{ 版权所有 (C) 2007 咏南工作室(陈新光) }{ }{ }{*******************************************************}unit FormColSelect;interfaceuses SysUtils, Classes, Controls, Forms, Graphics,uCommFunc, StdCtrls, DBGridEh, CheckLst, Buttons, ComCtrls,. 阅读全文
posted @ 2008-03-30 09:04 delphi中间件 阅读(1743) 评论(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) 编辑