frmlogin.pas

物流供应链管理系统

unit frmLogin;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TFormLogin = class(TForm)
    BtnLogin: TButton;
    BtnExit: TButton;
    LEdtUserId: TLabeledEdit;
    LEdtPassword: TLabeledEdit;
    Button1: TButton;
    RBUseList: TRadioButton;
    RBUseIP: TRadioButton;
    Button2: TButton;
    EdtIP: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure RBUseListClick(Sender: TObject);
    procedure RBUseIPClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BtnLoginClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    FIsLegal: Boolean;
    FUserRightList: string;
  public
    { Public declarations }
    function IsLegal: Boolean;//判断是否登录成功
    function GetUserId: string;//取得用户输入的用户名
    function GetPassword: string;//密码
    function GetUserRightList: string;//取得用户权限列表
  end;

var
  FormLogin: TFormLogin;

implementation
uses untConfig, frmEditAppServerList, dmLogin, CommonFunc;
{$R *.dfm}

procedure TFormLogin.Button1Click(Sender: TObject);
begin
  if (Sender as TButton).Caption = '高级(&A)>>' then
  begin
    self.Height := 250;
    (Sender as TButton).Caption := '高级(&A)<<';
  end
  else
  begin
    self.Height := 150;
    (Sender as TButton).Caption := '高级(&A)>>';
  end
end;

procedure TFormLogin.RBUseListClick(Sender: TObject);
begin
  EdtIP.Enabled := false;
end;

procedure TFormLogin.RBUseIPClick(Sender: TObject);
begin
  EdtIP.Enabled := true; 
end;

procedure TFormLogin.Button2Click(Sender: TObject);
var
  LDlg: TFormEditAppServerList;
begin
  LDlg := TFormEditAppServerList.Create(nil);
  LDlg.ShowModal;
  LDlg.Free;
end;

function TFormLogin.IsLegal: Boolean;
begin
  result := FIsLegal;
end;

function TFormLogin.GetUserId: string;
begin
  result := LEdtUserId.Text;
end;

function TFormLogin.GetPassword: string;
begin
  result := LEdtPassword.Text;
end;

function TFormLogin.GetUserRightList: string;
begin
  result := FUserRightList;
end;


procedure TFormLogin.BtnLoginClick(Sender: TObject);
var
  LDM: TLoginDM;
  LIP: string;
  v: OleVariant;
begin
  Caption := '正在登陆请稍后...';
  if (not CheckInput(LEdtUserId)) or
    (not CheckInput(LEdtPassword)) then
    Exit;
  if RBUseIp.Checked then
    if not CheckInput(EdtIp) then
    Exit;


  FIsLegal := false;
  SetUseAppServerList(RBUseList.Checked);
  if not RBUseList.Checked then
    SetSomeIP(Trim(EdtIP.Text));
  LDM := TLoginDM.Create(nil);
  GetLocalIP(LIP);
  if LDM.SocketConLogon.AppServer.Logon(Trim(LEdtUserId.Text), Trim(LEdtPassword.Text),
                                LIP,v) then
  begin
    FIsLegal := true;
    self.ModalResult := mrOK;
    FUserRightList := v;
  end
  else
  begin
    LCShowMessage('密码或用户名错误！');
  end;
  LDM.Free;
  Caption := '登陆';
end;

procedure TFormLogin.FormCreate(Sender: TObject);
begin
  RBUseList.Checked := GetUseAppServerList;
  RBUseIP.Checked := not GetUseAppServerList;
  EdtIP.Text := GetSomeIP;
end;

procedure TFormLogin.Button3Click(Sender: TObject);
begin
  self.ModalResult := mrOK;
  With TStringList.Create do
  begin
    add('SaleUserManage');
    add('SaleManageStockOutList');
    add('SaleGenerateStockOutList');
    add('SaleSysConfig');
    self.FUserRightList := text;
  end;
end;

end.