delphi中间件

摘要： Lifecycle 三种属性： Session、Invocation、Server如果乱用这三种属性，你的服务程序有可能崩溃，数据混乱，内存占用大，效率低等问题！下面我对这三种属性的使用环境逐一介绍：1. Session说明：这是delphi2010中默认属性，也是delphi推荐设置。Session会为每个来自客户端的链接，建立一个线程来实例化。实例化是什么概念呢？就是这个线程把所有你将要用到的类、函数等等都建立好了，等待你客户端直接使用。这个线程和实例化并不释放，直到客户端中断连接。如果有300个客户端，那么你的服务器将会有300线程和实例，对服务器硬件和内存是个考验。适用环境：这个设置是 阅读全文

摘要： //author: cxg{ For example :procedure TForm1.ComboBox1Change(Sender: TObject);begin SetActiveLanguage(ComboBox1.Text);end;procedure TForm1.FormCreate(Sender: TObject);begin ComboBox1.Items.AddStrings(SearchLanguagePack);end;}unit uLanguage;interfaceuses Windows, Messages, SysUtils, Classes, Graphics 阅读全文

摘要： 有很多朋友认为，datasnap 2010 只可以与DBX 捆绑在一起，而如果是想用ADO的话，哪就得放弁DATASNAP 2010 了，这个想法是错误的，datasnap 2010 是调用了DBX 库中的一些相关的东西，也就是我们如果用ADO来连接目标库的话，哪么我们还是需要USES DBX相关的单元，但是这并不影响我们使用ADO新版本也不是完全都如意，如果你还在用SQL SERVER 2000的话，哪么你想用DBX的话，你的客户端必需要装到sql server 2008的客户端，否则，一系列的错误，会搞的你不知是什么一回事！用了delphi 2010 的新的datasnap后，我们可以对 阅读全文

摘要： //author: cxg//操作cxgridunit myCxGrid;interfaceuses SysUtils, ComCtrls, Forms, Messages, Windows, ExtCtrls, StdCtrls , Graphics, Controls, Dialogs, Classes, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView 阅读全文

摘要： View_Client.DataController.Summary.FooterSummaryValues[0],//得到值View_Client.DataController.Summary.FooterSummaryTexts //得到显示文字View_Client.DataController.Summary.FooterSummarys //得到合计对象 阅读全文

摘要： 1.简单介绍：cxGrid右下方的cxGrid1Level1是表示Grid表的层，cxGrid可以有多层，这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2，右击cxGrid1Level2，可以选择Create View , Add level 或者Delete Level。Add level可以增加子Level，Create View里面可以选择很多不同总类的View。其中 1)DB Table可以和数据库连接的View，更一般的DBGrid类似，它比 阅读全文

摘要： object FormChart: TFormChart Left = 106 Top = 175 Width = 758 Height = 485 Caption = '图形分析' Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '宋体' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnClose = FormClose 阅读全文

摘要： uses cxLookAndFeelPainters; type TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); end;{ TMyCxGrid }class procedure TMyCxGrid.DrawIndicatorCell(Sender: TcxGridTableView; ACan 阅读全文

摘要： procedure CreateSumFooter(cxTableView: TcxGridDBTableView; const fieldList: string);var i: Integer; f: TcxGridDBTableSummaryItem; l: TStringList;begin l := TStringList.Create; l.DelimitedText := fieldList; l.Delimiter := ','; cxGrid1DBTableView1.OptionsView.Footer := True; for i := 0 to cxGr 阅读全文

摘要： 把cxGridView里OptionsView选项中的两项修改成如下 OptionsView.Indicator = True OptionsView.IndicatorWidth = 40//宽度在customDrawIndicatorCell事件中填写procedure TForm1.cxGri... 阅读全文