Fórum Exemplo simples de Cadastro #537126
13/11/2015
0
Eu gostaria de saber se alguém pode colocar aqui pra mim um exemplo para eu resolver a seguinte questão:
Eu quero criar um cadastro simples de empresas e funcionários das mesmas...
Eu gostaria de fazer o seguinte: cadastrar as empresas e funcionários, e ao consultar a empresa, quero que sejam mostrados somente os funcionários cadastrados naquela determinada empresa...
Não sei se fui muito claro rsrs
Alguém pode colocar aqui um exemplo simples de como fazer isso? Sou iniciante em Delphi...
Desde já agradeço á todos :)
Misael
Curtir tópico
+ 0Post mais votado
13/11/2015
Nome/Razão Social:
Fantasia:
CPF/CNPJ:
IE:
Endereço:
Telefone:
Cidade:
Estado:
Cadastro funcionário:
Nome:
Nascimento:
Sexo:
CPF:
RG:
Função:
Salário:
Empresa:
O banco de dados ficaria assim (FIREBIRD):
CREATE TABLE TABELAEMPRESA (
CODIGO INTEGER NOT NULL,
NOMERAZAOSOCIAL VARCHAR (120) NOT NULL,
FANTASIA VARCHAR (100) NOT NULL,
CPFCNPJ VARCHAR (18) NOT NULL,
IE VARCHAR (12),
ENDERECO VARCHAR (120),
TELEFONE VARCHAR (12),
CIDADE VARCHAR (20),
ESTADO VARCHAR (20),
PRIMARY KEY (CODIGO));
CREATE GENERATOR ID_EMPRESA;
CREATE TABLE TABELAFUNCIONARIO (
CODIGO INTEGER NOT NULL,
NOME VARCHAR (30) NOT NULL,
NASCIMENTO DATE NOT NULL,
SEXO CHAR,
CPF VARCHAR (18) NOT NULL,
RG VARCHAR (11) NOT NULL,
FUNCAO VARCHAR (25),
SALARIO NUMERIC (18,2) NOT NULL,
EMPRESA INTEGER NOT NULL,
PRIMARY KEY (CODIGO));
CREATE GENERATOR ID_FUNCIONARIO;
Consulta que irá trazer os funcionários por cada empresa:
SELECT FUN.* FROM TABELAEMPRESA EMP INNER JOIN TABELAFUNCIONARIO FUN ON EMP.CODIGO = FUN.EMPRESA WHERE EMP.CODIGO = :CODIGO; // é o parâmetro
Espero ter ajudado.
Rafael Bosco
Gostei + 1
Mais Posts
13/11/2015
Misael
Gostei + 0
13/11/2015
Misael
Gostei + 0
01/12/2015
Misael
SELECT FUN.* FROM TABELAEMPRESA EMP INNER JOIN TABELAFUNCIONARIO FUN
ON EMP.CODIGO = FUN.EMPRESA
WHERE EMP.CODIGO = :CODIGO; // é o parâmetro
Gostei + 0
01/12/2015
Rafael Bosco
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)