clientunit1.~pas

Delphi6分布式开发例程 :)

unit ClientUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ServerApp_TLB;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    MyVar:IComPlus;  //定义接口变量
    { Private declarations }
  public
    procedure login(loginflag:ShortInt); //功能设置
    { Public declarations }
  end;

var
  Form1: TForm1;
  flag: ShortInt;//功能设置标识

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyVar := CoComPlus.CreateRemote('luzz');//创建COM+对象，luzz为机器名
   flag := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     login(flag);
     if(flag = 0)then
     begin
       flag := MyVar.Verify(Edit1.Text,Edit2.Text);//用户名与口令检查
       if(flag = 0) then
         Edit3.Text := '登陆错误，请重试！'
       else
       begin
         Edit3.Text := '登陆成功，你可以应用计算功能！';
         Edit1.Text := '请输入数值1！';
         Edit2.Text := '请输入数值2！';
         login(flag); //登陆成功，切换为计算功能界面
       end;
     end
     else
     begin
       Edit3.Text := IntToStr(MyVar.Cal(StrToInt(Edit1.Text),
          StrToInt(Edit2.Text))); //计算功能
     end;


end;

procedure TForm1.login(loginflag: ShortInt);
begin
//功能界面设置
   if(loginflag = 0) then
   begin
     Label1.Caption := '用户名：';
     Label2.Caption := '口  令：';
     Label3.Caption := '信  息：';
     Button1.Caption:= '登  陆：';
     Edit2.PasswordChar := '*'; //设置为口令字符显示
   end
   else
   begin
     Label1.Caption := '数值 1：';
     Label2.Caption := '数值 2：';
     Label3.Caption := '结  果：';
     Button1.Caption:= '计  算：';
     Edit2.PasswordChar := #0;//取消口令字符显示
     Edit1.SetFocus;
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

end.