https://www.youtube.com/watch?v=Wxlo3c8tm88
Nessa aula vou mostrar como incluir Pessoas.
HReadSeekFirst(pessoas,cpf,EDT_Cpf)
IF HFound(pessoas) THEN
Info("Ja existe essa pessoa")
ELSE
HReset(pessoas)
//pessoas.pessoasID -> esse é automatico a id
pessoas.cpf=EDT_Cpf
pessoas.nome=EDT_Nome
pessoas.data_nascimento=EDT_Data_nascimento
pessoas.celular_ddd=EDT_Celular_ddd
pessoas.celular=EDT_Celular
pessoas.telefone_ddd=EDT_Telefone_ddd
pessoas.telefone=EDT_Telefone
pessoas.email=EDT_Email
pessoas.endereco=EDT_Endereco
pessoas.cidade=EDT_Cidade
pessoas.bairro=EDT_Bairro
pessoas.peso=EDT_Peso
pessoas.Plano_saudeID=COMBO_Plano_saudeID
HAdd(pessoas) //poderia usar tambem hsave()
EDT_Cpf="" //limpar dados
EDT_Nome=""
EDT_Data_nascimento=""
EDT_Celular_ddd=""
EDT_Celular=""
EDT_Telefone_ddd=""
EDT_Telefone=""
EDT_Email=""
EDT_Endereco=""
EDT_Cidade=""
EDT_Bairro=""
EDT_Peso=""
COMBO_Plano_saudeID=0
Info("Gravado Pessoa")
END
Blog - Curso Exames /001/... Criando Projeto
Blog - Curso Exames /002/... Analise Tabela Pessoas/Pacientes
Blog - Curso Exames /003/... Tabela Plano Saude
Blog - Curso Exames /004/... Tabela Status Exames
Blog - Curso Exames /005/... Tabela Modalidade Exames
Blog - Curso Exames /006/... Tabela Exames
Blog - Curso Exames /007/... Tabela Exames/Fotos e Imagens
Blog - Curso Exames /008/... Tabela Pessoas/Foto-Convenio
Blog - Curso Exames /009/... Linkar as tabelas
Blog - Curso Exames /010/... Conferir Conexão Banco Hyperfile
Blog - Curso Exames /011/... Fazer Gerar Todo Sistema
Blog - Curso Exames /012/... WEBDEV - Fazer Gerar Todo Sistema
Blog - Curso Exames /013/... Windev Mobile 20 - Inicio do Programa Agendamento
Blog - Curso Exames /014/... WindevMobile 20 - Menu
Blog - Curso Exames /015/... Analise - Revisando Campos para Combox
Blog - Curso Exames /016/... WindevMobile 20 - Criando TAbela e Looper Pessoas/Perfil
Blog - Curso Exames /017/... WindevMobile - Incluir Pessoas
Nenhum comentário:
Postar um comentário