delphi 5企业级解决方案及应用剖析011.PDFVIP

下载 第11章 统计分析模块 统计分析模块是电子商务货物配送系统中使用频率最高的模块，该模块为其他各有关业 务部门提供公共的查询、统计服务，以支持业务分析与决策。考虑到实际使用该模块跨系统、 跨区域且统计分析模型复杂多变等特点，为此我们采用多层结构，使用了多层结构下的参数 化 查 询技 术 ，尽 量 使客 户端 瘦 下来 ， 以便 能 利用 Delphi 5 的ActiveX Form 技 术在 I n t e r n e t / I n t r a n e t 网上发布使用。同时我们还充分考虑到网络带宽和系统健壮性等问题，用 M I D A S技术实现了自动容错和平衡服务器负载。虽然在这里我们仅仅剖析了一个小小的例子， 但其设计思想却可以让读者有足够的发挥想像力的空间。 11.1 多层结构下的参数化查询 在多层结构下，通过设置参数化查询可以把复杂的查询业务集中在查询服务器上，这样 就能够将客户端查询程序做得很“瘦”，而且脱离对 B D E 的依赖。当客户程序通过 T C l i e n t D a t a S e t组件的P a r a m s属性设置参数时，这些参数会自动传递给查询服务器上的 T Q u e r y 组件，并由该组件完成客户端的查询请求，然后将结果返回给客户端显示给用户。 为此我们首先需要创建查询服务器程序。稍后将会发现其实这里并不需要编写很多代码， 开发人员完全可以将主要精力集中在编写查询用的 S Q L语句上。 创建查询服务器程序同前面创建M I D A S应用服务器程序的过程类似，这里，我们要在远程 数据模板中放置执行查询用的T Q u e r y组件E v e n t s ，并写入带参数的S Q L查询语句，如图 11 - 1 - 1、 11 - 1 - 2所示。然后，为E v e n t s 的P a r a m s属性设置两个参数S t a r t _ D a t e和E n d _ D a t e 。 鼠标点击这里打开 SQL语句输入框 图11-1-1 放置Tquery组件Events ，写入SQL查询语句 第11章 统计分析模块 329 下载 图11-1-2 为Events 的Params属性设置两个参数 为了进一步统计连接查询服务器的客户机数目以及查询的次数，我们还设计了计数器程 序，以便在查询服务器激活后显示，如图 11 - 1 - 3所示。 由于在创建远程数据模块时将实例方式设为 c i M u l t i I n s t a n c e ，所以每当有一个客户连接到查询服 务器时就会产生该数据模块的一个新实例，这样根据 该数据模块的实例数就可以判断当前服务的客户数量 了。下面是数据模块单元的初始化代码。 initialization 图11-1-3 查询服务器的计数器功能 TComponentFactory.Create （ComServer, TSetParam, Class_SetParam, ciMultiInstance）; end. 每当创建一个实例时， O n C r e a t e事件都能使实例数加一，同样，当客户退出，该实例释 放时，计数器减一。 procedure TSetParam.SetParamCreate （Sender: TObject）; begin { 更新当前服务客户计数器，新增实例加一} MainForm.UpdateClientCount （1）; end; procedure TSetParam.SetParamDestroy （Sender: TObject）; begin { 更新当前服务客户计数器，释放实例减一} MainFo