delphi中间件

摘要： procedure TForm1.blDxBarManager;var i: Integer;begin for i := 0 to dxBarManager1.ItemCount - 1 do begin if dxBarManager1.Items[i] is TdxBarButton then TdxBarButton(dxBarManager1.Items[i]).OnClick := dxBarButtonClick; end;end; 阅读全文

摘要： Var count, scount: integer; mynode: TTreeNode; mysubItem: TdxBarSubItem;Begin Inherited; For count := 0 To frmMainForm.MenuBar.ItemLinks.Count - 1 Do ... 阅读全文

摘要： procedure TForm1.dxBarManagerToDxNavBar;var i, j: Integer; item: TdxBarSubItem; group: TdxNavBarGroup; bar: TdxNavBarItem;begin dxNavBar1.Groups.Clear... 阅读全文

摘要： 添加组,添加项,并将项和组关联起来 procedure TForm2.cxButton1Click(Sender: TObject); var item: TdxnavbarItem; grp: Tdxnavbargroup; begin grp := dxnavbar1.Groups.Add; i 阅读全文

摘要： //先贴几个实用函数//16 进制 转 整形，这个在消息解码的时候经常要用到Function HexToInt(sTemp : String) : Integer ;VarV, i : Integer ;BeginHexToInt := 0 ;If sTemp = '' Then Exit ;If (sTemp[1]='0') And ((sTemp[2]='x') Or (sTemp[2]='X')) ThensTemp := Copy(sTemp, 3, Length(sTemp)-2) ;If sTemp = '&# 阅读全文

摘要： SOA甚至是所有软件人员的一个梦:将中间层再进行抽离，在中间层作一个跨技术架构的元数据和业务逻辑，使之成为跨技术架构的、可长期继承、并不断积累的企业业务库和最宝贵的信息资产，也就是面向服务的组件库，而且这个服务组件库也可以被其它企业复用，且不依赖于任何一种技术架构。夸张一点说，如果所有软件企业都使用SOA架构，那么世界软件业将会发生彻底的改变。显然，这样一个框架不是一种产品，也不仅仅是一种技术，而是一种解决问题的方法论SOA是一个伟大的思想，它试图定义一个大家（各种软件厂商）都"认"的、都"遵循"的法则，大家都使用这样的方法来进行互联互通，从而实现无界限 阅读全文

摘要： {ShowBalloonTip(Memo1, 1, '球形提示','Selonboy:'+#13#10+'Http://www.SelonSoft.com'+#13#10+'QQ:289161766', $00E8FFFF, clred);}unit BallTip;interfaceuses SysUtils,Windows,Controls,Graphics,Messages,CommCtrl;procedure ShowBalloonTip(Control: TWinControl; Icon: integer; Title 阅读全文

摘要： MVC架构是"Model-View-Controller"的缩写，中文翻译为"模型-视图-控制器"。MVC应用程序总是由这三个部分组成。Event(事件)导致Controller改变Model或View，或者同时改变两者。只要Controller改变了Models的数据或者属性，所有依赖的View都会自动更新。类似的，只要Controller改变了View，View会从潜在的Model中获取数据来刷新自己。视图(View)代表用户交互界面，对于Web应用来说，可以概括为HTML界面，但有可能为XHTML、XML和 MVC模式Applet。随着应用的复杂性 阅读全文

摘要： 对于Query一类的SQL查询控件来说，Macro宏替换功能真是一个好东西。比如，您可以设置一个叫ZTName的宏来代表当前帐套名称，这样所有需要添加帐套WHERE条件的地方，都可以使用这个宏来代替。其实不仅UniDAC提供了宏替换的功能，就算是十年以前的RxLib系列控件，也已经提供了类似的功能。但网上一直没有说明怎么使用这个功能，关于怎么应用这个功能就是找不到了。下面我就以一个简单的例子来说明一下使用方法：1、首先在UniConnection中找到Macros属性，并在里面添加ProjectName这个宏，宏的值为'OA管理系统'。2、要注意：如果要替换的值是一个字符串，那 阅读全文

摘要： 当你选择Oracle作数据库服务器时，客户端一般需要装一个肥硕的200M左右客户端，而且还要做连接配置，尤其是C/S模式，客户端多的时候非常不便。当然，网上也有一个10M左右的Oracle精简客户端，性能和稳定性和官方版差不多。Oracle还提供了Direct Mode（直连模式），只要你的客户端机子支持TCP/IP协议，完全可以不用安装Oracle客户端及其连接配置。幸运的是，UniDAC也提供了Direct Mode。只需要如下简单配置：1、在TUniConnection控件上点击右键，选择菜单“Connection Editor”，在弹出的对话框中选择分页“Options”，“Optio 阅读全文