login_u.pas

delphi实现 webservice的例子.有服务端和客户段 利用xml交互.

unit Login_U;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ProductBinding,Variable_U,IniFiles  ;

type
  TaLoginForm = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    edtCode: TEdit;
    edtPassword: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);

    procedure SaveConfig;
    procedure edtCodeKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   function Login:Boolean;
var
  aLoginForm: TaLoginForm;

implementation

uses clientcfg_u,comfun;

{$R *.dfm}
procedure TaLoginForm.SaveConfig;
var iniFile: TIniFile;
    path: array[0..1024] of Char;
    e:PChar;
begin
  StrPCopy( path,Application.ExeName );
  e := StrRScan( path,'\' );
  if e<>nil then e[0] := #0;
     IniFile := TIniFile.Create(Path+'\Client.ini');
  try
     inifile.WriteString('Client','UserID',edtCode.text);
  finally
     IniFile.Free;
  end;
  end;
procedure TaLoginForm.btn1Click(Sender: TObject);
begin
 aClentcfgForm :=TaClentcfgForm.Create(nil);
 aClentcfgForm.ShowModal;
 FreeAndNil(aClentcfgForm);
end;

procedure TaLoginForm.btn3Click(Sender: TObject);
begin
  ModalResult :=IDCANCEL;
end;

function Login:Boolean;
begin
    aLoginForm :=TaLoginForm.Create(nil);
    aLoginForm.ShowModal;
    if(aLoginForm.ModalResult<>IDOK) then Result:=False else Result :=True;
  end;
procedure TaLoginForm.btn2Click(Sender: TObject);
var
  ResultXml:WideString;
  msg :TReturnMsg;
begin
  if ClientCFG.ServiceURL='' then
   begin
    btn1Click(nil);
    exit;
   end;
 if edtCode.Text='' then
  begin
    exit;
    MessageForm('客户代码不能为空','提示',mtInformation,[mbOK]);
  end;
 try
   ResultXml :=GetService.Login(CreateLoginXML(edtCode.Text,edtPassword.Text));
   msg:=GetResultMsg(ResultXml);
   if msg.ResultCode='1' then
   begin
    ModalResult :=IDOK;
    SaveConfig;
    ClientCFG.UserID :=edtCode.Text;
   end else
    MessageForm('验证失败,'+msg.ResultDesc,'提示',mtInformation,[mbOK]);
 except on e:Exception do
   MessageForm(e.Message,'提示',mtInformation,[mbOK]);
  end;
end;

procedure TaLoginForm.FormShow(Sender: TObject);
begin
  ClientCFG.ServiceURL :=ReadConfig;
end;

procedure TaLoginForm.edtCodeKeyPress(Sender: TObject; var Key: Char);
begin
 MyKeyPress(Self,key);
end;

end.