clientunit1.pas

Delphi6分布式开发例程7 )

unit ClientUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  Corba, salary_c, salary_i, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
  { private declarations }
  protected
    // 声明CORBA接口变量
    ClientVar : ITaxCal;
    //CORBA初始化
    procedure InitCorba;
  { protected declarations }
  public
  { public declarations }
  end;

var
  Form1: TForm1;

implementation

 
{$R *.DFM}

procedure TForm1.InitCorba;
begin
  CorbaInitialize;
  //绑定CORBA服务器
  ClientVar := TITaxCalHelper.bind;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //CORBA初始化
  InitCorba;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //将总收入传送给CORBA服务器
  ClientVar.SetSalary(StrToFloat(Edit1.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //从CORBA服务器得到计算后的个人所得税
  Edit2.Text := FloatToStr(ClientVar.GetTax);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  //从CORBA服务器得到计算后的个人净收入
  Edit3.Text := FloatToStr(ClientVar.GetMySalary);
end;

end.