摘要: {*******************************************************}{ }{ ADO数据泵 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}//==============================================================================// batCopy 先删除已存在的表,再创建新表,再往表中增加数据// batAppend 往已存在的表中追加数据/ 阅读全文
posted @ 2008-01-24 09:20 delphi中间件 阅读(289) 评论(0) 推荐(0) 编辑
摘要: //==============================================================================// if mark=0 then Tform.show else Tform.showmodal//==============================================================================procedure OpenChildForm(FormClass:TFormClass;var Form:TForm;Mark:Integer=0);begin if Mark=0 阅读全文
posted @ 2008-01-24 09:09 delphi中间件 阅读(171) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 记录筛选 }{ }{ 版权所有 (C) 2007 咏南工作室(陈新光) }{ }{*******************************************************}unit uKingFilter;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, db;typ 阅读全文
posted @ 2008-01-24 09:07 delphi中间件 阅读(273) 评论(0) 推荐(0) 编辑
摘要: {*******************************************************}{ }{ 通用线程类 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uThread;interfaceuses Clas... 阅读全文
posted @ 2008-01-24 09:06 delphi中间件 阅读(345) 评论(0) 推荐(0) 编辑