delphi中间件

摘要： 首先要设SimpleObjectBroker的loadBalanced的属性为True，并保证所有的应用服器已向SimpleObjectBroker注册，当客户端应用程序查觉原来的应用服器出现故障后立刻调用TSimpleObjectBroker的SetConnectedStatus(False)通知TSimpleObjectBroker应用服务器发生故障，然后调用GetComputerForProgID要求TSimpleObjectBroker查找另外一台提供相同服务的应用程序服务器给客户端应用程序只要把XXXConnection的ObjectBroker属性设为某个SimpleObjectB 阅读全文

摘要： function ParamsToVariant(Params: TParams; Macro, Compatible: Boolean): Variant;var I: Integer; Tmp: Variant;begin if (Params.Count = 0) then Result := Null else begin Result := VarArrayCreate([0, Params.Count - 1], varVariant); for I := 0 to Params.Count - 1 do with Params[I] do begin if Compatible 阅读全文

摘要： procedure TBaseForm.SetControlCaptions(Container: TWinControl);var I: Integer; sCaption, sNewCaption, sLanguage: string; T: TRttiType; P: TRttiProperty;begin if AppConfig.Language = lgOrigal then Exit; T := TRttiContext.Create.GetType(Container.ClassInfo); P := T.GetProperty('Caption'); if P 阅读全文

摘要： unit uBaseForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TPoint = record x: Integer; y: Integer; end; TMinMaxInfo = record ptReserved: TPoint; ptMaxSize: TPoint; ptMaxPosition: TPoint; ptMinTrackSize: TPoint; ptMaxTrackSize: TPoint; end; TW 阅读全文

摘要： function TForm15.CreateBand(View: TcxGridDBBandedTableView; BandCaption, ParentBandCaption: String): TcxGridBand;var band: TcxGridBand;begin Result :=... 阅读全文

摘要： type TMYDBControler = class(TcxDBTreeListDataController);procedure TForm15.Button1Click(Sender: TObject);var AParentKeyValue: Variant;begin AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value; ADOTable1.Append; TMYDBControler(cxDBTreeList1.DataController).DBParentFiel 阅读全文

摘要： 表格内嵌编辑控件 阅读全文

摘要： procedure Import(SourceDS, DestDS: Tadoquery);var sFileName, sTableName: string; sl: TStringList; i: integer; conn: TADOConnection; dialog: TOpenDialog;begin dialog := TOpenDialog.Create(Application); if not dialog.Execute then Exit; try sFileName := dialog.FileName; conn := TADOConnection.Create(.. 阅读全文

摘要： uses Printers txtPrinterName.Items.Assign(Printer.Printers); frxReport1.LoadFromFile(AppConfig.ReportPath + ReportId + '.fr3'); frxReport1.PrintOptions.Printer := txtPrinterName.Text; frxReport1.PrintOptions.ShowDialog := False; frxReport1.PrintOptions.Copies := StrToInt(txtCopies.Text); frx 阅读全文

摘要： unit uSelect;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FindDM, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, DB;type TSelect = class(TForm) TFindFrames1: TFindFrames; DBGrid1: TDBGrid; Panel1: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; DataSour 阅读全文