2008年3月30日
工厂模式之数据工厂
摘要： ;数据库连接配置文件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中间件 阅读(316) 评论(0) 推荐(0)
2008年3月20日
人生哲理
摘要： 爱过的人，，如同失贞，，，因为能对自己不忠夫帝皇之人，囚山水以为家，孤独时亦不可拿天下作陪伟大的人，热爱遥远的心思和震动的直觉，追求寄制一切的平衡，，笃信擎制天地的能力,,如果走得太远，，终难骗自一生凡夫之人，怀大悲者谓之愚善，自闭者更难有所学人类智慧，不过见多说多的艺术,, 为人之俗，人皆有之，,,世上之事大抵如此很多的女人，爱与嫁是二件完全不一样的事，，她宁可嫁给一个喜欢她的人，而不是她喜欢的人,,,很多男人，，，开始爱上一个女人，只因他发现某个其它男人也要爱这个女的开始，，男女的结合， 必求双方性情相互平衡，反而，太相似的人是无法结合的,,爱与怨念，皆生来不停，少年激进，青年已有老志，最 阅读全文
posted @ 2008-03-20 10:34 delphi中间件 阅读(220) 评论(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中间件 阅读(481) 评论(0) 推荐(0)
字符串函数大全
摘要： 标题　: 【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean;$[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text 阅读全文
posted @ 2008-03-20 10:25 delphi中间件 阅读(401) 评论(0) 推荐(0)
2008年3月14日
对象合成复用之策略模式
摘要： 对象合成：通过获得对其它对象的引用而在运行期动态定义的。在一个新的对象里面使用一些已有的对象，使之成为新对象的一部分，新的对象通过向这些对象的委派责任达到复用已有功能的目的。以策略模式举例：type TStrategy=class(TObject)//抽象策略 public procedure Hello;virtual;abstract; end; TConcreteStrategyA=class(TStrategy)//具体策略A public procedure Hello;override; end; TConcreteStrategyB=class(TStrategy)//具体策.. 阅读全文
posted @ 2008-03-14 13:02 delphi中间件 阅读(259) 评论(0) 推荐(0)
类继承复用之适配器模式
摘要： 以类的适配器模式为例：type ITarget=interface//目标 procedure Hello; Procedure Hello2; end; TAdaptee=class(TInterfacedObject)//被适配者一 public procedure Say; end; TAdaptee2=class(TInterfacedObject)//被适配者二 public procedure Tell; end; TAdapter=class(TAdaptee,ITarget)//适配器(多重继承) public procedure Hello; procedure ... 阅读全文
posted @ 2008-03-14 13:01 delphi中间件 阅读(211) 评论(0) 推荐(0)
宽接口和窄接口
摘要： 宽接口：IInterFace1=interface //方法列表end;窄接口：对象接口，接口声明和类相似，但不能直接实例化，也不能自己实现它们的方法，而是由支持接口的类来提供实现。type TStrategy=class(TObject)//抽象策略 public procedure Hello;virtual;abstract; end; TContext=class(Tobject)//上下文 private FStrategy:TStrategy;//引用已有的对象(窄接口) Procedure SetStrategy(Value:TStrategy); public proc... 阅读全文
posted @ 2008-03-14 12:59 delphi中间件 阅读(564) 评论(0) 推荐(0)
面向过程的命令模式
摘要： {*******************************************************}{ }{ 命令模式的简化 }{ }{ 版权所有 (C) 2008 陈新光 }{ }{*******************************************************}...type TFormHycx = class(TForm... 阅读全文
posted @ 2008-03-14 12:58 delphi中间件 阅读(254) 评论(0) 推荐(0)
面向过程的门面模式
摘要： {*******************************************************}{ }{ 业务逻辑一 }{ }{ 版权所有 (C) 2008 陈新光 }{ }{*******************************************************}unit Hello1;interfaceuses Dialo... 阅读全文
posted @ 2008-03-14 12:56 delphi中间件 阅读(211) 评论(0) 推荐(0)
面向过程的ado建造者模式
摘要： {*******************************************************}{ }{ ADO数据工厂 }{ }{ 版权所有 (C) 2008 咏南工作室 }{ }{*******************************************************}unit uDataFactory;interfaceuses SysUtils,ADODB,DB,Classes,uCommFunc,ActiveX;{ 生成连接对象 }function GetADOConn(Owner:TComponent;AProvider:Integer=1) 阅读全文
posted @ 2008-03-14 12:54 delphi中间件 阅读(255) 评论(0) 推荐(0)