评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

商品销售管理系统论文(一)毕业论文(7)

2013-06-01 01:23 ck(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    B_halt: bool;
    I_logo: integer;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  LoginForm: TLoginForm;

implementation

uses MainUnit, LogoUnit;

{$R *.dfm}

procedure TLoginForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
  S_temppass: string;
begin
  inherited;
  if b_halt then
  begin
    query_pass.Close;
    query_pass.Free;
    application.Terminate;
    exit;
  end
  else b_halt := true;
  S_temppass := E_password.text;
  USERNAME := L_name.Caption;
  if (E_id.Text = '') or (L_name.Caption = '未知用户') then //用户名为空
  begin
    messagedlg('用户错误', mterror, [mbok], 0);
    E_id.SetFocus;
    canclose := false;
    exit;
  end //end if
  else //用户名非空
  begin
    with query_pass do
    begin
      first;
      while not eof do //检查用户名与密码
      begin
        if (USERNAME = fieldbyname('USERname').asstring) and
          (S_tempPass = fieldbyname('Psd').asstring) then
        begin
          USERRIGHTSNAME := fieldbyname('rightsname').AsString;
          USERRIGHTS := fieldbyname('rights').AsString;

          break;
        end;
        next;
      end; //end while
      if eof then //用户名与密码不符
      begin
        inc(I_logo);
        if I_logo >= 3 then
        begin
          messagedlg('您已尝试超过 3 次，系统将停止运行！', mterror, [mbok], 0);
          query_pass.Close;
          query_pass.Free;
          application.Terminate;
        end
        else
        begin
          messagedlg('用户名与密码不符，请检查后重新输入。' + #13 + #13
            + '你还有 ' + inttostr(3 - I_logo) + ' 次机会！', mterror, [mbok], 0);
          e_password.SetFocus;
          e_password.SelectAll;