delphi中间件

摘要： 随着“金盾工程”建设的逐步深入和公安信息化的高速发展，公安计算机应用系统被广泛应用在各警种、各部门。与此同时，应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀，一些大规模的系统，如人口系统的数据甚至超过了1000万条，可谓海量。那么，如何实现快速地从这些超大容量的数据库中提取数据（查询）、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决的难题。在以下的文章中，我将以“办公自动化”系统为例，探讨如何在有着1000万条数据的MS SQL SERVER数据库中实现快速的数据提取和数据分页。以下代码说明了我们实例中数据库的“红头文件”一表的部分数据结 阅读全文

摘要： DLL直接返回对象时是有可能出错的，这是因为程序和DLL用了不同的VCL，就是相当于一个接口的不同实例，所以只要是从DLL里返回VCL相关的对象都会出错。有两种方法可以解决：1、在Controls单元的implementation前面声明一个GetControlAtom方法{...}implementationfunction GetControlAtom: Pointer;begin Result := @ControlAtom;end;然后在DLL里实现并导出以下两个过程procedure DLLInitialize(App : TApplication; Scr : TScreen; R 阅读全文

摘要： procedure TForm1.openForm(aFormClass: TFormClass; aOwner: TWinControl);begin with AFormClass.Create(aOwner) do begin ManualDock(aOwner); WindowState := wsMaximized; Align := alClient; Show; end;end; 阅读全文

摘要： 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 阅读全文