Estou criando um sistema de podologia bem simples com duas áreas, uma sendo apenas para registrar o clientes e outra para todos os procedimentos que ele irá fazer.
A área de registro funcionar perfeitamente gravando e atualizando todos os dados.
Já na hora de alimentar a parte de procedimento que o paciente tratou como doença, dar erro e não vai para o banco de dados SQL Server.
SQL SERVE
create table tbl_Cliente
(
id_Cliente int primary key identity,
ds_Nome varchar(150) not null,
no_CPF varchar(20) not null,
ds_profissao varchar(100),
ds_Email varchar(100) not null,
n_Telefone varchar(20) not null,
n_Cel varchar(20) not null,
ds_Lougadouro varchar (150) not null,
n_Lougadouro varchar (10) not null,
ds_Bairro varchar(100) not null,
ds_Complemento varchar (150),
)
select * from tbl_Cliente
create table tbl_Anamnese
( id_Cliente int REFERENCES tbl_Cliente (id_Cliente),
id_Anamnese int primary key identity,
ds_PosicaoTrab varchar (20),
ds_TiposCal varchar(20),
ds_Tabagista varchar(10),
ds_Estilista varchar(10),
ds_PressaoArt char(5),
ds_Frecardiaca char(5),
ds_FreRespiratoria char(5),
ds_Glicose char(5),
ds_Altura char (3),
ds_Peso char(3),
ds_Imc char (10),
ds_Queixas varchar (50),
ds_HistoricoFami varchar (30),
ds_DoencasExist varchar (30),
ds_Acidentes varchar (30),
ds_Alergias varchar (20),
ds_Cirurgias varchar (20)
)
select * from tbl_Anamnese
CREATE VIEW vw_Anamnese
AS
SELECT
tbl_Cliente.id_Cliente,
tbl_Cliente.ds_Nome,
tbl_Cliente.no_CPF,
tbl_Anamnese.ds_PosicaoTrab,
tbl_Anamnese.ds_TiposCal,
tbl_Anamnese.ds_Tabagista,
tbl_Anamnese.ds_Estilista,
tbl_Anamnese.ds_PressaoArt,
tbl_Anamnese.ds_Frecardiaca,
tbl_Anamnese.ds_FreRespiratoria,
tbl_Anamnese.ds_Glicose,
tbl_Anamnese.ds_Altura,
tbl_Anamnese.ds_Peso,
tbl_Anamnese.ds_Imc,
tbl_Anamnese.ds_Queixas,
tbl_Anamnese.ds_HistoricoFami,
tbl_Anamnese.ds_DoencasExist,
tbl_Anamnese.ds_Acidentes,
tbl_Anamnese.ds_Alergias,
tbl_Anamnese.ds_Cirurgias
from tbl_Cliente left outer join tbl_Anamnese
on tbl_Cliente.id_Cliente = tbl_Anamnese.id_Anamnese
where tbl_Anamnese.id_Anamnese IS null
select * from vw_Anamnese
CÓDIGO DO BOTÃO ATUALIZAR
private void BntAlterar1_Click(object sender, EventArgs e)
{
{
try
{
string Pos_Trabalho = txtPTrabalho.Text;
string Tipo_Calcado = txtTCalcado.Text;
string Tabagista = txtTabagista.Text;
string Eletista = txtElitista.Text;
string Pressao = txtPressao.Text;
string Cardiaca = txtCardiaca.Text;
string Respiratoria = txtRespiratoria.Text;
string Glicose = txtGlicose.Text;
string Altura = txtAltura.Text;
string Imc = txtImc.Text;
string Queixas = txtQueixas.Text;
string Hist_Familia = txtHFamiliar.Text;
string Doencas_Pres = txtDoencasPre.Text;
string Acidentes = txtAcidentes.Text;
string Alergias = txtAlergias.Text;
string Cirurgias = txtCirurgias.Text;
string Peso = txtPeso.Text;
int cd = Convert.ToInt32(lblCodigo.Text);
cm.Parameters.Clear();
string strSql = "update tbl_Anamnese set ds_PosicaoTrab=@Pos_Trabalho, ds_TiposCal=@Tipo_Calcado, ds_Tabagista=@Tabagista, ds_Estilista=@Eletista, ds_PressaoArt=@Pressao, ds_Frecardiaca=@Cardiaca, ds_FreRespiratoria=@Respiratoria, ds_Glicose=@Glicose, ds_Altura=@Altura, ds_Peso=@Peso, ds_Imc=@Imc, ds_Queixas=@Queixas, ds_HistoricoFami=@Hist_Familia, ds_DoencasExist=@Doencas_Pres, ds_Acidentes=@Acidentes, ds_Alergias=@Alergias, ds_Cirurgias=@Cirurgias set @cd=SCOPE_IDENTITY()";
cm.CommandText = strSql;
cm.Connection = cn;
cm.Parameters.Clear();
cm.Parameters.Add("@Pos_Trabalho", SqlDbType.VarChar).Value = Pos_Trabalho;
cm.Parameters.Add("@Tipo_Calcado", SqlDbType.VarChar).Value = Tipo_Calcado;
cm.Parameters.Add("@Tabagista", SqlDbType.VarChar).Value = Tabagista;
cm.Parameters.Add("@Eletista", SqlDbType.VarChar).Value = Eletista;
cm.Parameters.Add("@Pressao", SqlDbType.VarChar).Value = Pressao;
cm.Parameters.Add("@Cardiaca", SqlDbType.VarChar).Value = Cardiaca;
cm.Parameters.Add("@Respiratoria", SqlDbType.VarChar).Value = Respiratoria;
cm.Parameters.Add("@Glicose", SqlDbType.VarChar).Value = Glicose;
cm.Parameters.Add("@Altura", SqlDbType.VarChar).Value = Altura;
cm.Parameters.Add("@Imc", SqlDbType.VarChar).Value = Imc;
cm.Parameters.Add("@Queixas", SqlDbType.VarChar).Value = Queixas;
cm.Parameters.Add("@Hist_Familia", SqlDbType.VarChar).Value = Hist_Familia;
cm.Parameters.Add("@Doencas_Pres", SqlDbType.VarChar).Value = Doencas_Pres;
cm.Parameters.Add("@Acidentes", SqlDbType.VarChar).Value = Acidentes;
cm.Parameters.Add("@Alergias", SqlDbType.VarChar).Value = Alergias;
cm.Parameters.Add("@Cirurgias", SqlDbType.VarChar).Value = Cirurgias;
cm.Parameters.Add("@Peso", SqlDbType.VarChar).Value = Peso;
cm.Parameters.AddWithValue("@cd", 0).Direction = ParameterDirection.Output;
cm.CommandText = "update tbl_Anamnese set id_Cliente=@cd";
cn.Open();
cm.ExecuteNonQuery();
cm.Parameters.Clear();
LimparCampos();
DesabilitaCampos();
MessageBox.Show("Dados do cliente foram salvos com sucesso!", "Atualização de Cliente", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception erro)
{
MessageBox.Show(erro.Message);
cn.Close();
}
finally
{
cn.Close();
}
}
}
