Fórum Retirar Executavel da memória [delphi7] #503591

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
// ativa a tabela
M.IBQuery21.Open;    

// verifica se os campos coincidem,
 // tanto na tabela, quanto nas edits



if M.IBQuery21.Locate('USER', edit1.Text, [ ]) and
M.IBQuery21.Locate('PASS', edit2.Text, [ ]) then
begin
// fecha a tabela
M.IBQuery21.Close();
// mostra outro form
form1.Show;




// esconde o atual
Self.Hide;
edit1.Clear;
edit2.Clear;
end
// se os campos forem vazios
Else if (edit1.Text = '') and (edit2.Text= '') then
Begin
// mostra mensagem
ShowMessage('Preencha os campos login e senha!');
edit1.SetFocus;
end
else  // campos nao conferem
begin
// campos nao conferem
ShowMessage('Usuario ou senha inválidos!');
edit1.Clear;
edit2.Clear;

end;
FreeAndNil(Form2);


end;