Alguem me ajuda cadastro de usuario para miha empresa
Boa tarde , eu ja conheço o delphi e ja mexi algumas vezes nele mais nada muito avançado..
estou procurando no google mais não vi nada igual como eu quero fazer..
preciso fazer um aplicativo que eu cadastre os meus funcionarios
Centro e Madureira
Macelo x Henrique
Vanessa x Sander
Fabiola x Andreia
Esses usuarios ficariam numa tabela e a cada 15 dias eles tem que comparecer a minha empresa para fazer processo..
alguem tem alguma ideia e pode me ajudar
estou procurando no google mais não vi nada igual como eu quero fazer..
preciso fazer um aplicativo que eu cadastre os meus funcionarios
Centro e Madureira
Macelo x Henrique
Vanessa x Sander
Fabiola x Andreia
Esses usuarios ficariam numa tabela e a cada 15 dias eles tem que comparecer a minha empresa para fazer processo..
alguem tem alguma ideia e pode me ajudar
Sander Fernandes
Curtidas 0
Respostas
Raimundo Pereira
29/08/2015
Sander, bom dia,
Exemplo:
Tabela_Funcionarios.
Campos
VAR FALTAS:INTEGER;
NOME_
RG_
CÓDIGO_
OBS_
DT_COMPARCER_
DT_ATUAL
COMPARECEU_
STATUS_
Você pode realizar um for para atualizar o campo DT_ATUAL, e verificar se o funcionário compareceu ou não.
FALTAS:=0;
Tabela_Funcionarios.CLOSE;
Tabela_Funcionarios.OPEN;
Tabela_Funcionarios.FIRST;
IF NOT Tabela_Funcionarios.EOF THEN
REPEAT
Tabela_Funcionarios.EDIT;
Tabela_Funcionarios.DT_ATUAL.ASSTRING:=STRTODATE(NOW);
IF
(Tabela_Funcionarios.FIELBYNAME('DT_COMPARCER_').ASSTRING)
=
(Tabela_Funcionarios.FIELBYNAME('DT_ATUAL').ASSTRING)
AND
Tabela_Funcionarios.FIELBYNAME('COMPARECEU_').ASSTRING)<>'S'
THEN
BEGIN
Tabela_Funcionarios.FIELBYNAME('STATUS_').ASSTRING='NÃO COMPARECEU NO DIA';
FALTAS:=FALTAS+1;
END;
Tabela_Funcionarios.POST;
Tabela_Funcionarios.NEXT;
UNTIL Tabela_Funcionarios.EOF;
if faltas>0 then
begin
SHOWMESSAGE(Processamento Finalizado, Total de Faltas )+inttostr(faltas);
end
else
begin
SHOWMESSAGE(Processamento Finalizado, Todos compareceram no dia ));
end;
end;
Sander, o código acima nem foi testado, fiz aqui na hora é apenas uma ideia de como você pode realizar.
Podendo melhorar o código de acordo a sua necessidade.
Outra coisa, terá que rodar esta rotina no final do dia .
Terá que ter um form de cadastro de funcionário para ir marcando a presença do mesmo.
Me dar retorno.
Exemplo:
Tabela_Funcionarios.
Campos
VAR FALTAS:INTEGER;
NOME_
RG_
CÓDIGO_
OBS_
DT_COMPARCER_
DT_ATUAL
COMPARECEU_
STATUS_
Você pode realizar um for para atualizar o campo DT_ATUAL, e verificar se o funcionário compareceu ou não.
FALTAS:=0;
Tabela_Funcionarios.CLOSE;
Tabela_Funcionarios.OPEN;
Tabela_Funcionarios.FIRST;
IF NOT Tabela_Funcionarios.EOF THEN
REPEAT
Tabela_Funcionarios.EDIT;
Tabela_Funcionarios.DT_ATUAL.ASSTRING:=STRTODATE(NOW);
IF
(Tabela_Funcionarios.FIELBYNAME('DT_COMPARCER_').ASSTRING)
=
(Tabela_Funcionarios.FIELBYNAME('DT_ATUAL').ASSTRING)
AND
Tabela_Funcionarios.FIELBYNAME('COMPARECEU_').ASSTRING)<>'S'
THEN
BEGIN
Tabela_Funcionarios.FIELBYNAME('STATUS_').ASSTRING='NÃO COMPARECEU NO DIA';
FALTAS:=FALTAS+1;
END;
Tabela_Funcionarios.POST;
Tabela_Funcionarios.NEXT;
UNTIL Tabela_Funcionarios.EOF;
if faltas>0 then
begin
SHOWMESSAGE(Processamento Finalizado, Total de Faltas )+inttostr(faltas);
end
else
begin
SHOWMESSAGE(Processamento Finalizado, Todos compareceram no dia ));
end;
end;
Sander, o código acima nem foi testado, fiz aqui na hora é apenas uma ideia de como você pode realizar.
Podendo melhorar o código de acordo a sua necessidade.
Outra coisa, terá que rodar esta rotina no final do dia .
Terá que ter um form de cadastro de funcionário para ir marcando a presença do mesmo.
Me dar retorno.
GOSTEI 0
Sander Fernandes
29/08/2015
Essa tabela Tabela_Funcionarios eu uso qual componente ?
tem algum exemplo na internet ja criado ^?
tem algum exemplo na internet ja criado ^?
GOSTEI 0
Raimundo Pereira
29/08/2015
Boa tarde,
Sander, no uso do componente depende muito do banco de dados que você vai usar [Firibird,Acess,Java,Mysql].
Depois que decidir o tipo de banco de dados você pesquisa.
Agora se tiver com bastante dificuldade, pode pesquisar exemplos de códigos fontes e moldar a aplicação ao seu perfil.
Sander, no uso do componente depende muito do banco de dados que você vai usar [Firibird,Acess,Java,Mysql].
Depois que decidir o tipo de banco de dados você pesquisa.
Agora se tiver com bastante dificuldade, pode pesquisar exemplos de códigos fontes e moldar a aplicação ao seu perfil.
GOSTEI 0