untmemberlogin.pas

来自「实达企业在线EOL源码」· PAS 代码 · 共 78 行

unit untMemberLogin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OButton, jpeg, ExtCtrls, fcLabel;

type
  TfrmMemberLogin = class(TForm)
    Image10: TImage;
    Label2: TLabel;
    Label3: TLabel;
    OfficeButton1: TOfficeButton;
    edtUserName: TEdit;
    edtPassword: TEdit;
    fcLabel8: TfcLabel;
    fcLabel1: TfcLabel;
    procedure OfficeButton1Click(Sender: TObject);
    procedure edtPasswordKeyPress(Sender: TObject; var Key: Char);
    procedure edtUserNameKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMemberLogin: TfrmMemberLogin;

implementation

uses dmMain, untLocal, dmESaleOrder;

{$R *.DFM}

procedure TfrmMemberLogin.OfficeButton1Click(Sender: TObject);
begin
  with dmMainSQL.cdsCheck do
  begin
    Active := False;
    CommandText := 'select VendCustCode from Pub_InterCompany where VendCustCode = '''
      +Trim(edtUserName.Text)+'''';
    CommandText := CommandText + ' and WebMemberCode = '''+trim(edtPassword.Text)+'''';
    CommandText := CommandText + ' and CompanyCode = '''+trim(sCompanyCode)+'''';
    CommandText := CommandText + ' and IsMember = '''+'1'+'''';
    Active := True;
    if Eof then
      Application.MessageBox('没有该用户或者密码错误！','提示',
         MB_OK + MB_DEFBUTTON1)  
    else
    begin
      sName := edtUserName.Text;
      //增加纪录
      eSaleOrderData.InsertSaleOrderM;
      eSaleOrderData.ApplyData;
      ModalResult := mrOk;
    end
  end;
end;

procedure TfrmMemberLogin.edtPasswordKeyPress(Sender: TObject;
  var Key: Char);
begin
 //登录
  if key = #13 then
    OfficeButton1.OnClick(sender);
end;

procedure TfrmMemberLogin.edtUserNameKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    edtPassword.SetFocus;
end;

end.