frmuserloginunit.pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmUserLoginUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, Buttons, wwdblook,
  DB, DBClient;

type
  TfrmUserLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtPWD: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    wwUser: TwwDBLookupCombo;
    cdsSQL: TClientDataSet;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Passed:boolean;
   // procedure  changePWD(USR:STRING);
  public
    { Public declarations }
  end;

var
  frmUserLogin: TfrmUserLogin;

implementation

uses dmUnit;



{$R *.dfm}

procedure TfrmUserLogin.FormCreate(Sender: TObject);
begin

  passed:=False;
end;

procedure TfrmUserLogin.BitBtn1Click(Sender: TObject);
var
  pwd:string;
  compno:string;
begin
  if wwUser.Text='' then exit;
  compNO:=dm.cdsCOMP.Fieldbyname('compno').AsString;
  if  dm.MakePWD(trim(edtPWD.Text))=dm.cdsPSWD.fieldbyname('pwd').AsString then
    begin
      passed:=True;
      dm.Login:=True;
      dm.USR:=dm.cdsPSWD.fieldbyname('USR').Asstring;
      dm.COMP_BOSS :=dm.cdsPSWD.Fieldbyname('COMP_BOSS').AsString='T';
      dm.COMPNO:=dm.cdsPSWDCOMPNO.AsString;
      dm.zt:=dm.cdsCOMPCOMPNO.AsString;
      close;
    end
  else
    begin
      Application.MessageBox('你输入密码错误','输入错误',MB_OK);
      edtPWD.SetFocus;
    end;
end;

procedure TfrmUserLogin.BitBtn2Click(Sender: TObject);
begin
  passed:=False;
  dm.Login:=False;
  close;
end;

procedure TfrmUserLogin.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if passed then
     modalResult:=mrOK
  else
     modalResult:=mrCancel;   
end;



end.