Luis Ricardo

Só é preciso da um post. AdoTable1.Post; Da um post na tabela que os dados serão salvos no banco de dados Access 2003 ;D Me avise se funcionar.

Select f.funcionario, Sum(f.HorSai1-f.HorEnt1) AS SOMAHORA1, Sum(f.HorSai2-f.HorEnt2) AS SOMAHORA2 From tb_func f Group By Funcionario Order By Funcionario colocou esse tmb. Por que quando se da uma soma você precisa agrupar os dados. Neste caso precisamos agrupar por funcionarios. Tenta e me avisa.

Tem como você nos disponibilizar o programa. A única idéia que pude ter do que li é : você está usando ado não é? ? tipo da um close na table e depois abre de novo, ou refresh, possa ser que você alterou, mas no grid não foi atualizado. Espero ter ajudado. P.S: Fica melhor se nos disponibilizar o fonte hehe ^^"

Muito Obrigado. Funcionou. Sabe eu estava esquecendo de apontar para index do Check... Domo arigatou.

a ehhhhh hauauhua viajei ^^' e olha q eu trabalho hauua ^^" obrigado pela correção

Boa noite... Acredito eu. Estou com uma dúvida, na verdade não sei fazer. Eu estou usando o componente TCheckListBox, insere diversos itens nele. Aí eu criei dois botões um chamado UP, e outro DOWN, eles fazem o item subir ou descer de acordo com a necessidade do usuário. ;D. Só que quando eu clico no botão UP por exemplo eu perco o foco do CHECKLISTBOX no item que eu estava, e eu não quero ficar clicando no item do Checklist para toda vez ele se referenciar e o cara ir de novo e clicar no botão UP. Enfim quando o usuário apertar no UP ele movimentar o item sem perder o foco deste item, se ele apertar de novo ainda estará nele. Abaixo segue o meu botão UP. Já fiz de tudo. procedure TForm1.Button2Click(Sender: TObject); begin // affs não consigo me referenciar CheckListBox1.Selected[index]; if CheckListBox1.ItemIndex > 0 then begin index:= CheckListBox1.ItemIndex - 1; // index uma variavel do tipo private declarada no inicio da class FORM CheckListBox1.Items.Move( CheckListBox1.ItemIndex, CheckListBox1.ItemIndex - 1 ); FocusControl(CheckListBox1); CheckListBox1.Selected[index]; CheckListBox1.ItemEnabled[index]:= True; // CheckListBox1.State[index]:= cbChecked; CheckListBox1.SetFocus; // Forçando end; end;

O link está off. OBS: Verifiquei ... está funcionando Jhonas

Quando você fechar o formulario dos relatório você Elimina tudo que se refere a ele, pois não ira utiliza-lo ate chamalo de de novo. você vai no OnClose deste formulario e coloca : nomedoformulario := nil; e/ou Self.action := caFree; Não sei se isso ajuda. Mas seria bom tentar Boa sorte

ADOTable1.Locate('campo a ser consultado',componente de busca[um edit],[loCaseInsensitive,loPartialKey]); Outra maneira de se fazer isso sem se preocupar com minusculo ou maiuscula.

A primeira você desconsidera, por que eu estava vendo comparação com o FireBird, o mesmo possui a separação de dados entre datetime, time, date. Então eu fiz um banco de dados no Access rapidim. E fiz testes e só encontrei uma maneira de você pegar a hora; Ele traz a data neste molde : Ex.: 12/11/2008 11:55:00 Então você pega somente a hora. Essa idéia que tenho no momento ;D Copy(ADOTable1CAMPO.AsString, 11,6) -> retorna um valor string Ai voce pega esse valor e cria um novo campo dentro do bdgrid e joga para ele. e elimina o campo que esta vindo com data / hora Espero ter ajudado P.S: você ta usando ado ? tipo você tem q criar um novo campo e dentro do evento oncalc fields joga o valor do copy neste novo campo.

Yahh correto ^^

Qual o tipo de dado ao certo você estar usando ?? Por que temos date, time, timestamp ;D No aguardo.

Select f.funcionario, Sum(f.HorSai1-f.HorEnt1) AS SOMAHORA1, Sum(f.HorSai2-f.HorEnt2) AS SOMAHORA2 From tb_func f Group By Funcionario Order By Funcionario /** ... Depois tem que definir a data, isso é só incluir a clausula WHERE usando BETWEEN. Nestas linhas SQL ele soma as horas separadamente, se quiser ter as duas, é só depois somar OS CAMPOS [sOMAHORA1 e SOMAHORA2] */ P.S: Corrigido ... ahuuahuaau

Não entendi muito sua dúvida. Mas la vai: ^^ O componente quando se adiciona novos itens nele... se o tamanho não for suficiente para aparecer ele automaticamente se ajusta a necessidade do usuário... Fiz uns testes aqui e apareceu normalmente a barra de rolagens vertical. Me explique melhor .. att. ricardo

Concordo... Mas pode se utilizar uma outra opção tmb. Se você usa BDExpress então você pode usar as operações de POST, EDIT, DELETE, UPDATERECORD. Ai no Create ou no Show do Formulario você coloca ClientDataSet.UpdateRecord; Assim no momento que você colocar o focus em cima de qualquer dbedit ele não perde o valor recebido anteriormente. Mas como o carlos disse o correto seria isso mesmo que ele falow jogar na query, mas tmb tem outra forma, você pode guardar tudo em memoria no ClientDataSet, desta forma: ClientDataSetNOMEDOCAMPO.TIPODOCAMPO:= 'o valor a ser estabelecido' Espero ter ajudado de alguma forma... P.S : Sou novo no fórum nunca fui muito de participar de foruns mas resolvi entrar para ajudar ... qualquer duvida a mais fique a disposição.