private void Btn_guardarp_Click(object sender, EventArgs e)
{
try
{
OdbcCommand cm;
cm = new OdbcCommand("{CALL InsertaPaciente(?,?,?,?,?,?,?,?,?,?,?,?)}", conexion.ObtenerConexion());
cm.CommandType = CommandType.StoredProcedure;
int idPaciente = Convert.ToInt32(Cmb_sangrep.SelectedValue);
/// int idPaciente = int.Parse(Cmb_sangrep.ToString());
// MessageBox.Show("idPaciente: " + Cmb_sangrep.SelectedValue);
OdbcParameter parametros = new OdbcParameter();
// OdbcParameter parametros = cm.Parameters.Add("RETURN_VALUE", OdbcType.Int);
cm.Parameters.AddWithValue("@nIdPaciente", Txt_expedientep.Text);
cm.Parameters.AddWithValue("@sNit", Txt_nitp.Text);
cm.Parameters.AddWithValue("@sNombre", Txt_nombrep.Text);
cm.Parameters.AddWithValue("@sDireccion", Txt_direccionp.Text);
cm.Parameters.AddWithValue("@sGenero", Cmb_sexop.Text);
cm.Parameters.AddWithValue("@dFechaDeNacimiento", Dtp_fechap.Text);
cm.Parameters.AddWithValue("@dFechaDeEmision", Dtp_fecha2p.Text);
cm.Parameters.AddWithValue("@iIdTipoDeSangre", idPaciente);
cm.Parameters.AddWithValue("@sAlergia", Txt_alergiasp.Text);
cm.Parameters.AddWithValue("@sRefiere", Txt_refierep.Text);
cm.Parameters.AddWithValue("@correo", Txt_correoP.Text);
cm.Parameters.AddWithValue("@telefono", Txt_telefonop.Text);
cm.ExecuteNonQuery();
MessageBox.Show("Paciente Ingresado Exitosamente", "Successful", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
Txt_expedientep.Clear();
Txt_nitp.Clear();
Txt_nombrep.Clear();
Txt_direccionp.Clear();
Cmb_sexop.ResetText();
Dtp_fechap.ResetText();
Dtp_fecha2p.ResetText();
Cmb_sangrep.ResetText();
Txt_alergiasp.Clear();
Txt_refierep.Clear();
Txt_correoP.Clear();
Txt_telefonop.Clear();
}
catch (Exception ex)
{
MessageBox.Show("No se pudo ingresar el registro.", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation);
}
}
private void Btn_eliminarp_Click(object sender, EventArgs e) //Eliminar paciente..................................
{
try
{
conexion.ObtenerConexion();
OdbcCommand cmd = conexion.ObtenerConexion().CreateCommand();
//Eliminar los datos del paciente de 4 tablas que guardan su información
cmd.CommandText = "delete from paciente where nIdPaciente = '" + Convert.ToInt32(Txt_expedientep.Text) + "'";
cmd.ExecuteNonQuery();
cmd.CommandText = "delete from telefono where nIdPaciente = '" + Convert.ToInt32(Txt_expedientep.Text) + "'";
cmd.ExecuteNonQuery();
cmd.CommandText = "delete from correo where nIdPaciente = '" + Convert.ToInt32(Txt_expedientep.Text) + "'";
cmd.ExecuteNonQuery();
//cmd.CommandText = "delete from tipodesangre where iIdTipoDeSangre = '" + Convert.ToInt32(Txt_expedientep.Text) + "'";
//cmd.ExecuteNonQuery();
MessageBox.Show("Paciente Eliminado Exitosamente", "Successful", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
//Limpiar todos los textbox / combobox
Txt_nombrep.Clear();
Txt_telefonop.Clear();
Txt_nitp.Clear();
Cmb_tipoSangrep.ResetText(); Cmb_tipoSangrep.Items.Clear();
Txt_direccionp.Clear();
Txt_correoP.Clear();
Txt_alergiasp.Clear();
Txt_refierep.Clear();
Cmb_sexop.ResetText(); Cmb_sexop.Items.Clear();
//Volver a habilitar todos los textbox / combobox
Pnl_eliminarP.Visible = false;
Txt_nombrep.Enabled = true;
Txt_telefonop.Enabled = true;
Txt_nitp.Enabled = true;
Cmb_tipoSangrep.Enabled = true;
Txt_direccionp.Enabled = true;
Txt_correoP.Enabled = true;
Txt_alergiasp.Enabled = true;
Txt_refierep.Enabled = true;
Cmb_sexop.Enabled = true;
}
catch (Exception ex)
{
MessageBox.Show("No se pudo eliminar el registro.", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation);
}
}
private void Btn_guardarp_Click(object sender, EventArgs e)
{
int num;
if (int.TryParse(Txt_expedientep.Text, out num))
{
Er_validar.SetError(Txt_expedientep, "");
}
else
{
Er_validar.SetError(Txt_expedientep, "Solo números se acepta");
}
if (Txt_expedientep.TextLength == 13)
{
Erp_errorP.SetError(Txt_expedientep, "");
try
{
//Procedimiento para ingresar datos del paciente
OdbcCommand cm;
cm = new OdbcCommand("{CALL InsertaPaciente(?,?,?,?,?,?,?,?,?,?,?,?)}", conexion.ObtenerConexion());
cm.CommandType = CommandType.StoredProcedure;
OdbcParameter parametros = new OdbcParameter();
int idPaciente = Convert.ToInt32(Cmb_sangrep.SelectedValue);
cm.Parameters.AddWithValue("@nIdPaciente", Txt_expedientep.Text);
cm.Parameters.AddWithValue("@sNit", Txt_nitp.Text);
cm.Parameters.AddWithValue("@sNombre", Txt_nombrep.Text);
cm.Parameters.AddWithValue("@sDireccion", Txt_direccionp.Text);
cm.Parameters.AddWithValue("@sGenero", Cmb_sexop.Text);
cm.Parameters.AddWithValue("@dFechaDeNacimiento", Dtp_fechap.Text);
cm.Parameters.AddWithValue("@dFechaDeEmision", Dtp_fecha2p.Text);
cm.Parameters.AddWithValue("@iIdTipoDeSangre", idPaciente);
cm.Parameters.AddWithValue("@sAlergia", Txt_alergiasp.Text);
cm.Parameters.AddWithValue("@sRefiere", Txt_refierep.Text);
cm.Parameters.AddWithValue("@correo", Txt_correoP.Text);
cm.Parameters.AddWithValue("@telefono", Txt_telefonop.Text);
cm.ExecuteNonQuery();
MessageBox.Show("Paciente Ingresado Exitosamente", "Successful", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
//Limpia todos los textbox y comboBox de la forma PACIENTE
Txt_expedientep.Clear();
Txt_nitp.Clear();
Txt_nombrep.Clear();
Txt_direccionp.Clear();
Cmb_sexop.ResetText();
Dtp_fechap.ResetText();
Dtp_fecha2p.ResetText();
Cmb_sangrep.ResetText();
Txt_alergiasp.Clear();
Txt_refierep.Clear();
Txt_correoP.Clear();
Txt_telefonop.Clear();
}
catch (Exception ex)
{
MessageBox.Show("No se pudo ingresar el registro.", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation);
}
}
else
{
Erp_errorP.SetError(Txt_expedientep, "Deben Ingresarse 13 dígitos");
}
}