anabon

esta dando erro nesta linha: O comando ApplyUpdates só é usado com um clientdataset? estou usando uma ADOTable e pesquisei e não consegui encontrar esse comando usado no ADOTable... desculpa se deixei de informar.....

Olá pessoal boa tarde.... Mais uma x peço a ajuda de vocês Tenho um form com alguns edits, DBEdits e uma stringgrid.... estou usando os seguinte codigo para salvar o problema é que as dbedits salvam normal, as edit salvam 3x e os dados do stringrid pula 3 registro pra depois salvar.... eu não consigo ver o porque... agradeço quem puder me ajudar

OBRIGADA AMIGO ... PROBLEMA RESOLVIDO.... TINHA TENTADO ALGO PARECIDO MAS ESTAVA FAZENDO ASSIM: drrrrrrrrrr.... :blush: mais uma x muito obrigada

Obrigada amigo pela dica, imagino que seja isso mesmo que esteja acontecendo o problema é que não sei como criar a rotina para resolver isso .... em vb eu fazia mais ou menos assim: Não vejo como fazer a mesma coisa em delphi... tentei o seguinte codigo: Mas ele só me mostra as data que estão digitadas no maskedit e não todas as datas desda data inicial até a final..... sei que é por causa da seleção não tem nehuma parte no codigo que mande ele pegar todas as datas >= a data inicial e <=# da data final.... como fazer isso em delphi? Uso o banco acess 2003, e como já dissi faço a consulta atraves de uma ADOQuery, desde já agradeço quem puder me ajudar....

Amigo muito obrigada, agora ele me dá o resultado, só não entendo porque ele me dá um resultado só tipo tenho dois resultados 26/10/11 e 01/03/2012, mas ele só me mostra o 26/10/11 porque? meu codigo fico assim: Desde já agradeço quem puder me ajudar ...

Boa tarde pessoal é o seguinte .. tenho um form com 2 DateTimePicker, um DataSource e um ADOQuery oque quero fazer é uma pesquisa com intervalo entre duas datas, não da nenhum erro mas a pesquisa me retorna vazia, só com o nome dos campos. Uso o banco acess 2003 na SQL da ADOQUERY estou usando o seguinte codi: SELECT * FROM a_receber WHERE data_vencimento between :dtini and :dtfin em um SpeedButton no evento onclick coloquei assim: procedure Tfrmcontas_areceber.SpeedButton5Click(Sender: TObject); begin begin With Query_Receber do begin Close; SQL.Clear; SQL.Add('SELECT * FROM a_receber WHERE data_vencimento between :dtini and :dtfin'); Parameters.ParamByName('dtini').Value := DateTimePicker1.date; Parameters.ParamByName('dtini').Value := DateTimePicker2.date; Open; end; end; end; Liguei o DataSource no ADOQuery e o DBGrid no DataSource Desde já agradeço quem poder me ajudar.... Forte Abraço

Afinal, quem está chamando quem?É uma tela com DBGrid que você chama outra tela para editar os dados deste com DBGrid; ou é uma tela de cadastro em que você chama outra tela com o DBGrid para selecionar alguma informação? Entenda, a atribuição ModalResult := mrOk fará com seu form feche - só isto. Afinal, quem está chamando quem? Sim era uma tela com um dbgrid que chamava outra dela para editar essa tela com a dbgrid..... Agradeço muito Micheus pela sua ajuda, mas já resolvi o problema separando os form.... fiz uma tela para visualização e no meu ainda separei a tela que cadastra, uma que edita e dentro dessa que edita eu chamo outro form para edição.... não sei se ficou certo... fiquem avontade para comentar.... Caso contrario problema resolvido..... Muito obrigada.....

Legal amigo Micheus ... muito obrigado pela dica..... Codigo arrumado... dica imprimida... :blush: O problema é que não to conseguindo pegar esses dados da DBGrid e mandar para o form frmeditar_apagar, tenho o codigo, sei que o metodo é esse mas infelizmente não sei como usa- lo, esse codigo que eu dissi a cima eu coloco no botão que chama o form para edição, no form de edição não tenho nada só o ModalResult := mrOk; no onchange do dbedit já tentei colocar esse mesmo codigo no oncreat do form de edição mas também não deu certo... Desde já agradeço que puder me ajudar ....

Olá pessoa boa tarde!!!! É o seguinte tenho um form de contas a pagar com uma AdoQuery, uma ADOTable, 1 DataSource, 2 editmask e 4 SpeedButton. Bem o problema é o seguinte quero selecionar uma determinada linha do dbgrid e jogar em um form com dbedits, onde posso editar os dados.... Estou usando o seguinte codigo no botão que chama o form onde vou editar: procedure Tfrmcontas_apagar.cmdeditarClick(Sender: TObject); begin with Tfrmeditar_apagar.Create(Self) do begin try ShowModal; finally if ModalResult = mrOk then begin if not(Table_APagar.State in [dsInsert, dsEdit]) then Table_APagar.Edit; frmeditar_apagar.txtnro_doc.text := Table_APagar.FieldbyName('nro_documento').AsString; //Table_Entregador.FieldByName('Placa').AsString := Table_Veiculo.FieldByName('Placa').AsString; end; end; end; end; end. No evento onchanche dos dbedits esou colocando assim ModalResult := mrOk;. Não dá nenhum erro mais sempre quando tento editar volta para o form frmcontas_apagar(form original)... Sei q tem algo de errado q estou fazenndo mais não consigo ve onde... Desde já agradeço que puder me ajudar!!!! Forte Abraço Ana Bon

Mais uma vez muito obrigada..... deu certo..... a quem possa ajudar segue abaixo o codigo que deu certo pra mim.... em algumas dbedit tive que fazer assim: obs: Amigo Jhonas agradeço pela sua paciencia e ajuda.... Se alguém tiver algum link ou uma dica que possa me ajudar de como salvar tudo isso agora eu agradeço abraço...

se voce estiver trazendo os dados de uma tabela e no campo voce guardou o valor como R$ 10,00, ocorera um erro: R$ 10,00 não é um ponto flutuante valido .... justamente por causa do "R$" onde deveria estar somente "10,00" observe que no código estamos usando apenas edits, então na hora de digitar os valores numericos, não pode ser digitado o R$ abraço Obrigada pela resposnta!!!! Entendi.... só que esse valor onde ta dando erro estou puxando da tabela e o campo ta em currency, na verdade é um lookup onde eu digito o codigo ele me responde descrição e valor unitario, o valor total é um campo calculado então também aparece R$..... Abraço

analizei o codigo e fui por etapas e percebi que o erro não ta ao inserir os dados e sim ao somar quantidade * valor unitarios = total. tirei essa linha do codigo e ele funcionou; ValorTotal := strtofloat(txtquant.Text) * strtofloat(txtvalor_un.Text); Só que na 4 coluna onde era para aparecer o total aparece 0.00, logo não tem como somar o total geral... eu estou somando também esses valor no evento OnCalfields da tabela com o codigo: Table_Pedidovalor_tot.Value:=Table_Pedidoquantidade.Value*Table_Pedidovalor_un.Value; tentei tirar essa linha mas ai não funciona nem uma e nem outra.... Desde já agradeço quem puder me ajudar.... abraço.... segue abaixo como ficou meu codigo com a ajuda do amigo Jhonas procedure TFormDisk_Entregas.cmdokClick(Sender: TObject); var ValorTotal, SomaTotal: Real; i: integer; begin cont:=cont+ 1; Grid_Entrega.RowCount:=cont+1; Grid_Entrega.cells[1,cont]:= txtdescricao.Text; Grid_Entrega.cells[2,cont]:= txtquant.Text; Grid_Entrega.cells[3,cont]:= txtvalor_un.Text; Grid_Entrega.cells[4,cont]:= txtvalor_tot.Text; ValorTotal := strtofloat(txtquant.Text) * strtofloat(txtvalor_un.Text); txtvalor_tot.Text:=floattostr(ValorTotal); Grid_Entrega.cells[4,cont]:= txtvalor_tot.Text; for i:=1 to Grid_Entrega.RowCount -1 do Somatotal:= Somatotal + strtofloat(Grid_Entrega.Cells[4,i]); Grid_Entrega.cells[4,cont]:= Formatfloat(',0.00',Somatotal); txtquant.Text := ''; txtdescricao.Text := ''; txtvalor_un.Text := ''; end;

Obrigada amigo pela ajuda .... mas continua dando erro....

olá pessoal bom dia.... Mais uma x peço a ajuda de vocês... È o seguinte tenho um form com StringGrid, quero incluir dados com valores moentario nele e depois somar uma coluna .... Nada que achei até agora deu certo... o codigo que estou usando é : Desde já agradeço que puder me ajudar!!!!! Forte Abraço!!!

Obrigada mais uma vez.... deu certo!!!!!!

Oi amigo .... obrigada pela dica ... mas o problema é que to passando o parametro assim: select * from cliente where telefone =:Ptelefone Depois to tentando busca o resultado no evento OnExit do Tedit procedure TFormDisk_Entregas.txtfoneExit(Sender: TObject); begin Query_Pedido.Close; Query_Pedido.ParamByName('Ptelefone').Value :=(txtfone.text); Query_Pedido.Open; end; end. Só que da erro na linha: Query_Pedido.ParamByName('Ptelefone').Value :=(txtfone.text); [Error] UnitDisk_Entregas.pas(133): Undeclared identifier: 'ParamByName' Desde já agradeço quem puder me ajudar......

Olá pessoa boa tarde.... Mais uma vez peço a ajuda de vocês , como já dissi em outro post, eu programava em vb, mas estou tentando passar meus sistema para delphi... Enfim... é o seguinte tenho um form com 6DBEdit, 1 ADOQuery onde no select dele eu coloquei assim: Select telefone, nome, endereço, complemento, bairro, cidade From cliente oque quero fazer é filtrar o telefone se este telefone estiver no cadastro então os dados automaticamente é preenchido nos outro DBEdit, caso não exista ele retorna uma label "Cliente não cadastro pressione a tecla f1 do seu teclado para o cadastro". Tenho algo parecido em vb e uso o codigo: Set RS = New ADODB.Recordset Set con = New ADODB.Connection con.Open (cnSQL) On Error Resume Next RS.Open "Select * from cliente where telefone = '" & Me.txtfone & "'", con, adOpenKeyset, adLockOptimistic If txtfone.Text <> RS!telefone Then labelinfo.Caption = "ATENÇÃO CLIENTE NÃO CADASTRADO, PRESSIONE A TECLA F1 PARA CADASTRO!!!", txtnome.Text = "" txtendereço.Text = "" txtbairro.Text = "" txtcidade.Text = "" cmdincluir.Enabled = True cmdpedido.Enabled = False txtnome.SetFocus Else RS.Close RS.Open "Select * from cliente where telefone = '" & Me.txtfone & "'", con, adOpenKeyset, adLockOptimistic txtnome.Text = RS!nome txtendereço.Text = RS!endereço txtbairro.Text = RS!bairro txtcidade.Text = RS!cidade cmdincluir.Enabled = False cmdpedido.Enabled = True cmdalterar.Enabled = True End If RS.Close ENFIM... a pegunta é... como faço isso em delphi? desde já agradeço que puder me ajudar..... abraço!!!!

É amigo tava mesmo... resolvi o problema com o seguinte codigo No form entregado que era oque recebe as informação eu coloquei with TFormVeiculo.Create(Self) do begin try ShowModal; finally if ModalResult = mrOk then begin if not(Table_Entregador.State in [dsInsert, dsEdit]) then Table_Entregador.Edit; Table_Entregador.FieldByName('veiculo').AsString := Table_Veiculo.FieldByName('codigo').AsString; Table_Entregador.FieldByName('Placa').AsString := Table_Veiculo.FieldByName('Placa').AsString; end; end; end; end; No OnDblClick do grid onde eu pego a informação eu coloquei assim: ModalResult := mrOk; acho que agora ta certo..... obrigada..... podem fechar o post...

Olá pessoal, boa tarde! Mas uma vez peço a ajuda de vocês!! Não tenho muita pratica em delphi, e peço desculpa se a resposta for muito obvia..... Bem eu tenho um form com um dbgrid e a ideia é colocar um botão em alguns form de cadastro dar um duplo click no dbgrid e ele retornar o valor da coluna selecionada para as dbedit... até ai tdo bem qr dizer até o 2° form esta tdo bem ... agora ta dando erro .. No VB quando eu tinha certeza do coigo que eu estav usando colocava nessas situação um On Error Next; no delphi tentei colocar um bloco try mas continuo dando erro.... o Codigo que estou usando é: procedure TFormVeiculo.DBGridVeiculoDblClick(Sender: TObject); begin try FormEntregador.Edit1.Text := DBGridVeiculo.Fields[0].AsString; FormEntregador.Edit2.Text := DBGridVeiculo.Fields[2].AsString; Close; FormMov_Produto.DBEditCodigo_Veiculo1.Text := DBGridVeiculo.Fields[0].AsString; FormMov_Produto.DBEditVeiculo1.Text := DBGridVeiculo.Fields[2].AsString; Close; FormControle_Combustivel.DBEditVeiculo_Comb.Text := DBGridVeiculo.Fields[0].AsString; FormControle_Combustivel.DBEditPlaca_Comb.Text := DBGridVeiculo.Fields[2].AsString; Close; except // exceção end; end; end. Por Favor alguém pode me ajudar???? desde já agradeço.... Abraço...

Olá boa tarde desculpe a demora..... o erro que da é esse: a linha que aponta o erro é : ADOQuery_apagar.SQL.Append(s)

Olá Jhonas boa noite.... Fiz conforme me indicou coloquei a Query e configurei ela... estou usando o banco acess por isso coloquei uma ADOquery, mas o codigo não passa dessa linha: Oque a de errado? Desde já agradeço abraço!!!!

Olá pessoal boa tarde.... Tenho usado esse forum a algum tempo para tirar minhas duvidas em VB6, a duas semana tenho tentado passar meus aplicativo em vb para delphi... tudo estava indo muito bem até que chequei em contas a pagar e a receber... Em vb para dar baixa em uma conta não paga uso o seguinte codigo? no delphi coloquei o seguinte codigo no evento on click do botão "dar baixa" Só que não passa dessa linha: If baixa.Text := '' then //nada foi digitado Alguém sabe me dizer onde ta o erro???? Desde já agradeço.....

Muito obrigada!!!! Já resolvi, foi só tirar a parte do codigo!!!! Podem encerrar por favor :rolleyes:

Boa tarde, não não quero colocar restrições porque já tenho, o problema é que eu gostaria que todas as janelas abrisse na frente do form principal,por exemplo: quando o usuario clicasse em cadastro de cliente ele abresse em cima do form principal, q ta acontecendo que mesmo q eu tenha um form MDI no programa quando eu chamo o form EX: cadastro de cliente junto com o codigo de restrição o form principal some.... se eu apenos chamo assim: formcadastro_cliente.show, ai sim que ele aparece enfrente ao form principal..... Desculpe mas não consigui publicar a imagem no forum.... Forte abraço!!!!

olá pessoal bom dia .... Estou desenvolvendo um sistema em que eu preciso que todas as janelas desse aplicativo abram em cima do frm principal, coloquei um form MDI só que só abre como eu quero quando so utilizo form.show, o problema é que tenho o login que verifica se aquele usuario pode ou não acessar aquela tela para isso uso o cod: todas x que uso esse codigo o frmprincipal some, quando tiro o codigo e apenas deixo frmcadastro_fornecedor.Show ele abre em cima do form principal como tem que c... Já tentei colocar na propriedade do form frmcadastro_fornecedor mdIChild = true, mas ai ele nem aparece... chamo ele e só fica o form principal.... PFV será que alguém pode me dizer o que estou fazendo de errado? não sei mais onde procura desde já agradeço!!!!