maxm.ro

BLZA CARA, MAS AGORA DEU ERRO DE SINTAXE NA CLAUSULA FROM DataModule1.ADOQryHistorico.close; DataModule1.ADOQryHistorico.SQL.Add('select * FROM historico WHERE codigo_cli_mov = '+EdtCodCli.Text+''); DataModule1.ADOQryHistorico.Open; ESSE AI O CODIGO... SE PUDER AJUDAR AGRADEÇO.....

tenho que deletar alguns dados aqui... Código: DataModule1.ADOQryHistorico.close; DataModule1.ADOQryHistorico.SQL.Text:='DELETE * FROM historico WHERE codigo_cli_mov = '+Edit3.Text+' ORDER BY codigo_mov'; DataModule1.ADOQryHistorico.Open; coloquei esse codigo ai pra fazer um teste mas não funcionou .... deu o seguinte erro ! Ponto e virgula Faltando no final da instru~ção SQL!!! verifiquei certinho mas parece não estar faltando nada... alguém sabe se é possiavel deletar desta forma ???? atenciosamente, ..max

cara, eu baixei aquele primeiro arquivo do site que você me passou, ai executei ele no meu pc, ele criou uma pasta na unidade c:/DELPHI com os arquivos do rx ai dentro..... só que no delphi não apareceu nada, ai tentei intalar tipo a quikReport mas não deu certo também ...

blza, baixei e instalei, e agora ??? onde foi parar ?

não tenho instalado esse rx, ai tentei a segunda opção que você me passou, só que deu o mesmo erro .... você acha que se instalar esse rx e usar o componente que você disse da certo ??? se der me diz ai como instalar ;....

ok, fiz o teste, só não funcionou: coloque com as alteração que você passou e deu o seguinte erro ! DataModule1.ADOQryDebtosvalor.Value := DataModule1.ADOQryDebtosvalor.Value - EdtValor; "operator not applicable to this operand type" a variavel EdtValor é um Edit ...

certo, agora apareceu no formato que eu queria, porém agora tenho um erro !!! esse campo que estou mudando para moeda recebe algumas alterações... ... se eu estiver somando ele aceita a soma de valores acima de 1000,00, mas se for diminuir ele não aceia com valores acima de 1000,00. ex: 1000,00 + 15,000 = 1015,00 --- isso funciona corretamente... mas quando vou fazer isso: 1015,00 - 5,00 = em vez de me retornar o valor 1010,00: ele da um erro: '1015,00' is not a valid floating point value! o calculo esta assim: DataModule1.ADOQryDebtosvalor.Value := DataModule1.ADOQryDebtosvalor.Value - StrToFloat(EdtValor.Text); espero que possas me ajudar, falou té mais;....

blza cara, ficou muito bom mesmo, obrigado pela ajuda!!! tenho o campo 'valor' do tipo Unidade monetaria no access, como faço para ele aparecer em forma de Moeda no delphi ? no access ele aparece certinho R$ 1,00, mas no delphi ta aparecendo '1' ... como faço para aparecer correto no delphi ?? falou té mais ....

blza cara, ficou bom... olha eu tenho um form com um PageControl: duas Page uma cadastro uma Verificação, como faço para aparecer somente uma pagina, tipo. quando abrir o form aparecer somente a pageVerificação, quando eu clicar em um botão aparecer a page Cadastro ??? tem como fazer isso ???

blza fle mesmo, mas só uma pergunta eu posso colocar o para a criação dele no form create ??? out tem quem ser em um botão ou menu ??

blza cara, funcionou corretamente.... só que to com outro problema aqui... em relação a criação de forms na memoria .... no programa que estou fazendo não optei por criar os componentes e destrir, agora to queredo fazer isso... só que não sei como fazer !! algeum pode me dar uma ajuda ai ??/? como criar e como tirar da memoria o formulario ? falou obrigado....

Ola Pessoal, sou novato no forum, e estou com um problema aqui! é oseguinte, quando eu clico em excluir um cliente selecionado ao invés de somente excluir ele tem que verificar na tabela de debtos se contas no nome no cliente: componentes para conexão: ADOQryClientes ADoqryDebtos o codigo que esta com problema éesse ai: procedure TFClientes.SBExcluirClick(Sender: TObject); var C_Cli, ab : integer; begin C_Cli := DataModule1.ADOQryClientescodigo.Value; FDebtos.DSDebtos.DataSet.First; while not FDebtos.DSDebtos.DataSet.Eof do begin If FDebtos.DSDebtos.DataSet.FieldByName('codigo_cli').Value = c_cli then begin ab := 1; Break; end; FDebtos.DSDebtos.DataSet.Next; end; // while if C_Cli = 0 then ShowMessage('Não Existem Clientes Cadastrados') else if (ab = 1) then begin ShowMessage('Clinte tem Debto Cadastrado'); end; if (ab = 0) then begin SBNovo.Enabled := true; SBSalvar.Enabled := false; SBNovo.Enabled := true; SBAlterar.Enabled := true; DBNavCadCli.Enabled := true; If application.MessageBox( 'Tem certeza de que deseja excluir este Cliente?','Informação',MB_YESNO)=mryes then DSClientes.DataSet.Delete; end; end; to usando access, e esse codigo ai num ta funcionando muito bem não, já mudei muita coisa mas não achei o problema. ta acontecendo o seguinte, ele ta verificando se tem algum debto correto, se por ex: eu estou no ultimo registro da tabela e clico para excluir, ele volta para o cliente que tem debtos e tenta excluir. se alguém sabe o prblema ou outro modo de fazer isso eu agradeço... atenciosamente ...max