Mario Lopes

Ola Só posso permitir que o utilizador altere o valor dum campo de uma dbgrid se no outro campo estiver o valor '', ou seja trata-se de uma emissão de recibos apenas posso alterar o valor dos almoços se o recibo ainda não tiver sido emitido. Estou a utilizar o código seguinte mas parece não funcionar: if queryapagar.FieldByName('n_recibo').AsInteger>0 then begin MessageBox(Application.Handle, 'Já Existe um Recibo para este Valor. Não o pode Alterar!'+#13+'Para sair faça Esc', 'Gestão ATL', MB_ICONINFORMATION + MB_OK); sysutils.Abort; exit; end else begin queryapagar.FieldByName('valor_almocos').ascurrency:=queryapagar.FieldByName('n_almocos').asinteger*queryapagar.FieldByName('preco_almoco').ascurrency; queryapagar.FieldByName('total_recibo').ascurrency:=queryapagar.FieldByName('valor_almocos').asinteger+queryapagar.FieldByName('mensalidade').ascurrency+queryapagar.FieldByName('extra_valor').ascurrency; end; Ou seja o valor fica no campo da dbgrid. Ajuda por favor Mario Lopes

Boas Tenho várias vezes erros destes, quando faço post. Como posso saber se a minha dataset está ou não em insert mode, antes de fazer o post? Já agora isto acontece com uma query com request.live:=true Solução: procedure TForm1.Button5Click(Sender: TObject); begin if Trim(DBEdit1.text)= '' then ShowMessage('Campo em Branco') else if Table1.State in [dsEdit, dsInsert] then begin Table1.Post; DBEdit1.SetFocus; ShowMessage('Registro Salvo'); end; end.

Boa noite quando estou numa linha de uma dbgrid tenho que fazer um update e após o update a minha linha seleccionada é a primeira da dbgrid, correcto? Como fazer para guardar a memoria da linha onde estava antes do update e após o update voltar para lá e não para o inicio? obrigado Descobri queryapagar.RecNo:=2;

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin // pega o nome do campo Label1.Caption := DBGrid1.SelectedField.FieldName; // pega o conteudo do campo Label2.Caption := DBGrid1.Columns.Items[DBGrid1.selectedindex].Field.AsString; // mudar o valor do campo da celula clicada if DBGrid1.selectedindex = 1 then begin query1.Edit; DBGrid1.Columns.Items[DBGrid1.selectedindex].Field.AsString := 'XXXX'; query1.Post; end; end; abraço Obrigado Jonas

Boas Necessito de quando clicar numa célula de uma grid o valor de outra célula da mesma grid seja alterado. Mas isto só se clicar na célula cujo campo da base de dados é almoços. Como é que consigo saber em que campo, ou célula dbgrid estou a clicar? O código para alterar a outra célula é fácil: queryapagar.edit; dbgrid1.fields[4].ascurrency:=strtocurr('999'); queryapagar.post; Obrigado

Obrigado Resolveu o meu problema

Boas Como posso desenvolver um ficheiro de Help e colocá-lo no meu programa em delphi? Obrigado mario

Olá Tenho uma grid com apenas uma linha ligada a uma query. Para poder actualizar a grid a query está requestLive=true. Agora tudo funciona bem se a grid tiver mais que uma linha. Se a grid apenas tiver uma linha a actualização não é concretizada (como se a query não fizesse post). Alguém ajuda? Cumprimentos Mário Lopes

Recife, acho que você se atrapalhou um pouquinho por aqui. :D O post do Zolhos é de 2004 e foi ressucitado pelo colega Mario Lopes que por algum motivo fez um post sem relação com ele. Ainda a resposta ao Zolhos, a observação não é válida porque realmente ele utiliza um StringGrid e não um DBGrid, observe que ele trata o grid deste modo: grdProdIngredientes.cells[0,linhas], e esta propriedade está disponível apenas no StringGrid. ;) Mario Lopes, que tal você postar qual é este "...seguinte erro". Abraços Olá Cá está o sql correcto: queryinsere.sql.add('Insert Into apagar (Nome,data,total,ano_recibo,mes,bi) '+' Values (:nome,:data,:total,:ano_recibo,:mes,:bi)'); Cumprimentos Mário Lopes

Olá O sql seguinte retorna erro. Alguém dá uma ajuda? query1.close; query1.sql.clear; query1.sql.add('INSERT INTO custos_criancas (custo) VALUE ("teste")'); query1.ExecSql; Cumprimentos

Olá Como posso fazer para quando clicar duas vezes na listbox obter o item sobre o qual estou a clicar? Cumprimentos