F�rum Interbase aspx. #66060

14/08/2007

Estou criando uma aplica��o de teste em Asp.Net para aprender um pouco mais, a aplica��o � simplesmente um implementa��o de telas de cadastro e coisas b�sicas em cima do banco employee do interbase.

Como se eu fosse implementar a aplica��o para essa empresa fict�cia e ent�o usar esse conhecimento para projetos futuros.

At� a� tudo bem , n�o tem nenhum mist�rio nesse tipo de implementa��o.
Por�m est�o ocorrendo alguns problemas, que est�o sendo at� bem vindos para o aprendizado.

1- Quando eu tento incluir um novo usu�rio, ele aparentemente inclui tudo normalmente, s� que nem o IB Expert e nem o IB Console mostram os dados, mas quando eu tento incluir os mesmos dados denovo, ele apresenta erro de chave prim�ria como se esses dados existissem e na inclus�o n�o cai em nenhuma exce��o.

S�o duas fun��es de inclus�o nesta tela uma para a tabela de Usu�rios e outra na Employee, j� que o cara se cadastra na aplica��o como empregado, apartir da tela de entrada.

Segue os c�digos das fun��es:

Clique do bot�o cadastrar.

procedure TWebForm1.btnCadUser_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    setUser;
    setEmployee;

    Response.Redirect(�../home.aspx�);
  except
    on E:Exception do
      lblExcept.Text := e.Message;
    end;
end;

setUser

procedure TWebForm1.setUser;
begin
  Conn.Open;
  try
    cmdInsUser.Parameters[�LOGIN�].Value := txtCadLogin.Text;
    cmdInsUser.Parameters[�PASS�].Value := txtCadSenha.Text;
    cmdInsUser.Parameters[�EMAIL�].Value := txtEmail.Text;

    cmdInsUser.ExecuteNonQuery;
  finally
    Conn.Close;
  end;
end;

setEmployee

procedure TWebForm1.setEmployee;
begin
  Conn.Open;
  try
    try
      cmdInsEmployee.Parameters[�FIRST_NAME�].Value := txtFirstName.Text;
      cmdInsEmployee.Parameters[�LAST_NAME�].Value := txtLastName.Text;
      cmdInsEmployee.Parameters[�PHONE_EXT�].Value := txtPhoneExt.Text;
      cmdInsEmployee.Parameters[�HIRE_DATE�].Value :=  Convert.ToDateTime(txtHireDate.Text);
      cmdInsEmployee.Parameters[�DEPT_NO�].Value := ddlDepartNo.SelectedValue;
      cmdInsEmployee.Parameters[�JOB_CODE�].Value := ddlJob.SelectedValue;
      cmdInsEmployee.Parameters[�JOB_GRADE�].Value := ddlJobGrade.SelectedValue;
      cmdInsEmployee.Parameters[�JOB_COUNTRY�].Value := ddlCountry.SelectedValue;
      cmdInsEmployee.Parameters[�SALARY�].Value := Convert.ToDecimal(txtSalary.Text);


      cmdInsEmployee.ExecuteNonQuery;
    except
      on e:exception do
        lblExcept.Text := e.Message;
    end;
  finally
    Conn.Close;
  end;
end;

2- Quando uso o Magic Ajax na minha tela de login, n�o consigo ler a tabela de login... � como se n�o houvessem dados na tabela, mas eles est�o l� e sendo digitados corretamente na consulta.
� s� tirar o AjaxPanel e tudo funciona que � uma beleza.

Segue o m�todo que usei para o bot�o de login:

procedure TWebForm1.btnLogin_Click(sender: System.Object; e: System.EventArgs);
var
  rd : BdpDataReader;
begin
  Conn.Open;
  try
    try
      cmdCheckPass.Parameters[�LOGIN�].Value := txtLogin.Text;
      cmdCheckPass.Parameters[�PASS�].Value := txtSenha.Text;

      rd := cmdCheckPass.ExecuteReader;

      if rd.Read then
      begin
        FormsAuthentication.RedirectFromLoginPage(txtLogin.Text,false);
      end
      else
      begin
        lblExcept.Text := �USU�RIO OU SENHA INV�LIDOS�;
      end;
    except
      on e:Exception do
        lblExcept.Text := e.Message;
    end;
  finally
    Conn.Close;
  end;
end;

Se algu�m tiver alguma luz, Por favor me ajudem.

Knight_of_wine

Curtir t�pico

+ 0

Responder