clientfr.~pas

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· ~PAS 代码 · 共 102 行

unit ClientFr;


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBClient, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, MConnect,
  ComCtrls, Series, TeEngine, TeeProcs, Chart, DBChart, ObjBrkr;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Events: TClientDataSet;
    Label3: TLabel;
    Label4: TLabel;
    ShowEvents: TButton;
    Bevel1: TBevel;
    RemoteServer: TDCOMConnection;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    Button1: TButton;
    SimpleObjectBroker1: TSimpleObjectBroker;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure ShowEventsClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.FormCreate(Sender: TObject);
begin
  { Initialize the edit controls with some dates so the user can
    just click the button to see some data }

end;

procedure TForm1.ShowEventsClick(Sender: TObject);
var
  sMachine : string;
begin
  try
      Events.Close;
      Events.Params.ParamByName('Start_Date').AsDateTime :=datetimepicker1.date;
      Events.Params.ParamByName('End_Date').AsDateTime :=datetimepicker2.date;
      Events.Open;
  except
    on Exception do
    begin
      try
        RemoteServer.Connected := False;
        SimpleObjectBroker1.SetConnectStatus
          (RemoteServer.ComputerName, False);
      finally
        try
          sMachine := SimpleObjectBroker1.GetComputerForProgID
            (RemoteServer.ServerName);
          RemoteServer.ServerGUID := sMachine;
          RemoteServer.Connected := True;
          Events.Close;
          Events.Params.ParamByName('Start_Date').AsDateTime :=datetimepicker1.date;
          Events.Params.ParamByName('End_Date').AsDateTime :=datetimepicker2.date;
          Events.Open;
        except
          on EBrokerException do
          begin
            ShowMessage ('无法连接服务器。');
            Events.Cancel;
          end;
        end;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Series1.Rotate(3);
end;

end.