Enviar dados para uma tabela via sql...

Question

Programa para lanhouseEnviar dados para uma tabela via SQL quando o usu�rio logar na m�quina enviar a hora inicial, servico escolhido, Nome de usu�rio e quando ele fechar o programa preciso enviar a h...

Anonymous · Answer

Sugiro que vc crie um campo identificador �nico no arquivo Logs, para que vc possa recuper�-lo e manipul�-lo adequadamente:

query1.Text := �insert into logs ( [b:2a25000691]codlog[/b:2a25000691],nom_usuario, servico, hora_inicial) values
([b:2a25000691]:codlog[/b:2a25000691],:nomecampo, :nomeservico, :hora_inicial)�;

//CodLogAtual ser� a vari�vel global
CodLogAtual := MaxCodLog+1;//Maxcodlog ser� uma fun��o que retornar� o m�ximo codlog do arquivo
query1.ParamByName(�CODLOG�).AsInteger := CodLogAtual;
query1.ParamByName(�NOM_USUARIO�).AsString := EditUsuario.Text;
query1.ParamByName(�SERVICO�).AsString := EditServico.Text;
query1.ParamByName(�HORA_INICIAL�).AsDateTime := Time;
query1.ExecSql;

onde na sa�da:

query1.Text := �update logs set hora_final=:hora_final
where codlog=:codlog�;
query1.ParamByName(�HORA_FINAL�).AsDateTime := Time;
query1.ParamByName(�CODLOG�).AsInteger := CodLogAtual;
query1.ExecSQL;