Пример #1
0
        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);
            }
        }
Пример #2
0
        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);
            }
        }
Пример #3
0
        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");
            }
        }