u_login.~pas

1. 在IBConsole中添加两个用户LOGIN和MATER

unit u_login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, ExtCtrls, Mask;

type
  TF_login = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    i_server: TComboBox;
    i_passwd: TEdit;
    B_login: TBitBtn;
    B_cancel: TBitBtn;
    i_user: TMaskEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function GetLoginParams(var server, user, password:String):Boolean;

implementation

uses crypt;

{$R *.DFM}

function GetLoginParams(var server, user, password:String):Boolean;
var
  F_login:TF_login;
  passwd:String;
begin
  Result:=False;
  F_login:=TF_login.Create(Application);
  try
    if F_login.ShowModal=mrOk then
    begin
      server:=F_login.i_server.Text;
      user:=F_login.i_user.Text;
      passwd:=F_login.i_passwd.Text;
      passwd:=Copy(passwd+passwd, 1, 10);
      passwd:=Encrypt(passwd, 123);
      password:=passwd;
      Result:=True;
    end;
  finally
    F_login.Free;
  end;
end;

end.