Fórum Alguem me ajuda cadastro de usuario para miha empresa #530197

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.

Essa tabela Tabela_Funcionarios eu uso qual componente ?

tem algum exemplo na internet ja criado ^?

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.