login.pas

漳大图书馆管理系统利用Delphi6.0和MS Server2000为主要开发工具

unit login;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  IdWinsock,ExtCtrls;
type
  TFm_login = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    i:integer;
    function get_computernm:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_login: TFm_login;

implementation

uses main, data;



{$R *.dfm}

procedure TFm_login.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TFm_login.Button1Click(Sender: TObject);
var
    vrt:olevariant;
begin
    Fm_data.Socket.AppServer.autho(Edit1.text,get_computernm,'10.1.104.186',Edit2.Text,vRt);

    if(vrt ='T')  then
    begin
            loged := true;
            close;
    end
    else
    begin
        i := i+1;
        Messagedlg('Invalid User Or Password!',mterror,[mbok],0);
       Edit1.SetFocus;
        if(i>=3) then
        application.Terminate;
    end;
    //loged:=TRue;
    //close;
end;

function TFm_login.get_computernm:string;
var
  pcComputer: PChar;
  dwCSize: DWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
  result := '';
  GetMem(pcComputer, dwCSize);

  try
    if Windows.GetComputerName(pcComputer, dwCSize) then
      Result := pcComputer;
  finally
    FreeMem(pcComputer);
  end;
end;

procedure TFm_login.FormCreate(Sender: TObject);
begin
if not (fm_data.Socket.Connected) then
    fm_data.Socket.Connected:=true;
i:=1;
end;

end.