Ir para conteúdo
Fórum Script Brasil

Alex Freitas

Membros
  • Total de itens

    26
  • Registro em

  • Última visita

Sobre Alex Freitas

Perfil

  • Gender
    Male

Alex Freitas's Achievements

0

Reputação

  1. Boa Noite... Resolvi utilizar um banco de dados Access, para realizar os cálculos, no caso de cálculos "comuns" funciona beleza, mas quando coloco um valor tipo ( 0,03599 ), exibe uma mensagen de erro, EZeroDivide. É possível realizar um cálculo com valores deste tipo... iniciando por 0,0?... desde já agradeço.
  2. Pirambu! Certo, o cálculo funcionou... Obrigado pela ajuda. Mais preciso de mais uma ajudinha... Gostaria que me desse uma dica, de como deixar os valores com um formato do tipo Currency, com duas casas decimais. Ex.: 1.200,45.
  3. Bom criei um form em minha aplicação que usarei para realizar alguns cálculos. A form está montada da seguinte forma. Edit1 ( nele quero digitar um valor no formato R$ 0,00). Edit2 ( nele quero digitar um segundo valor no mesmo formoto R$ 0,00). Edit3 ( nele quero digitar um valor do tipo 0,0000). Edit4 ( nele quero que saia o resultado). e um Botão que usareia para calcular. Queria realizar o seguinte calculo: No evento OnClick do botão. Edt4 = Edit1 - Edit2 * 20% / Edit3; Deve ser bem simples mais estou quebrando a cara, alguém pode me ajudar?
  4. Boa tarde!! Criei uma aplicação para gerar o relatório de acordo com os dodos digitado em um Edit e 2 DateTimePicker, só que ao clicar no botão, o relatório em quick Reports é gerado, mais não apresenta nenhum dado, mesmo tendo dados para apresentar. O código que estou usando é o seguinte: procedure TFrmRelCorretor.BitBtn1Click(Sender: TObject); var Inicio,Final:string; begin If DateTimePicker2.Date < DateTimePicker1.Date Then begin ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!'); DateTimePicker2.Date := DateTimePicker1.Date; end Else begin Inicio := DateToStr(DateTimePicker1.Date); Final := DateToStr(DateTimePicker2.Date); QueryPE.Close; QueryPE.SQL.Clear; QueryPE.SQL.Add('SELECT * FROM Clientes WHERE DatadePagamento >=:pInicial and DatadePagamento <=:pFinal and (Clientes.Corretor) In ('''+EdtCampo.Text+''')'); QueryPE.Parameters.ParamByName('pInicial').Value := StrToDate(inicio); QueryPE.Parameters.ParamByName('pFinal').Value := StrToDate(final); QueryPE.Open; FrmRel1.QuickRep1.Preview; FrmRelCorretor.Close; End End; End. alguém pode me ajudar, ou até mesmo melhorar o código
  5. Consegui resolver o erro. O problema foi resolvido quando eu troquei a formato da data em meu banco de dados que é em Access 2003, o formato estava como Data Abreviada, e alterei para Data Completa resolvendo o problema. Porem está acontecendo que a consulta não filtra os dados digitados, exibe todo o conteúdo do BD. Fiz alguma coisa errada ou falta alguma coisa?
  6. Este erro eu consegui resolver, a sua dica funcionou, muito obrigado, Porém gerou um novo erro... "Project xxxxxxxx.exe raised exception class EOleException with message 'Objeto Parameter definido incorretamente. As informações são inconsistentes ou incompletas'. Process stopped. Use Step or Run to continue." Porque está acontecendo este erro??
  7. Gente estou tentando criar uma aplicação que faz uma consulta à uma tabela em Access 2003 e posteriormente gere um relatório em QuickReports, A minha Form de pesquisa está montada com um Edit, 2 DateTimePicker, e 1 botão para Ok e um Cancelar, e uma ADOQuery para fazer a ligação com a tabela... No evento onclick do Botão 1 digitei o seguinte código para a pesquisa. procedure TFrmRelCorretor.BitBtn1Click(Sender: TObject); Var Inicio, Final : String; begin If DateTimePicker2.Date < DateTimePicker1.Date then Begin ShowMessage('Intervalo de datas inválido, a data inicial é menor que a data final!'); DateTimePicker2.Date := DateTimePicker1.Date; end else begin Inicio := DateToStr(DateTimePicker1.Date); Final := DateToStr(DateTimePicker2.Date); QueryPesCorretor.Close; QueryPesCorretor.SQL.Clear; QueryPesCorretor.SQL.Add('Select * From Clientes Where DataCadastro >=: PInicio and DataCadastro <=: PFinal and Clientes.Corretor = '''+EdtCampo.Text+''''); QueryPesCorretor.Parameters.ParamByName('PInicio').Value := StrToDate(Inicio); QueryPesCorretor.Parameters.ParamByName('PFinal').Value := StrToDate(Final); QueryPesCorretor.Open; FrmRelPorCorretor.QuickRep1.Preview; FrmRelCorretor.Close; end end; end. Porem quando a aplicação é execultada, sai o seguinte erro: Project AutoControle.Exe Raised exception class EdatabaseError with message 'QueryPesCorretor: Parameter 'PInicio' Not Found. Process stopped.... Por favor me ajudem a resolver este erro...
  8. Boa tarde! O codigo que tentei foi o seguinte porem não funcionou... unit UBkpRst; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ComCtrls, StdCtrls, FileCtrl, ExtCtrls; type TFrmBkpRst = class(TForm) RadioGroup1: TRadioGroup; DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; Animate1: TAnimate; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmBkpRst: TFrmBkpRst; implementation {$R *.dfm} procedure TFrmBkpRst.SpeedButton1Click(Sender: TObject); begin Animate1.Visible := True; Animate1.Active := True; //ativa a animação If RadioGroup1.ItemIndex = 0 then begin CopyFile(PChar(Application.ExeName)+('\Cadastros.mdb'), PChar(DirectoryListBox1.Directory); end end; end. Será que tem como mudar isso???
  9. Eu não iniciei o código, so criei e organizei a Form, preciso que vocês me auxiliem em desenvolver o código para fazer a copia de segurança.
  10. Banco de dadas que estou usando é Access 2003
  11. Bom dia. Gente preciso de uma ajuda. Estou criando em minha aplicação um tela de Backup, porem não sei ne por onde criar o código para para funcionar. a minha form é a seguinte unit UBkpRst; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ComCtrls, StdCtrls, FileCtrl, ExtCtrls; type TFrmBkpRst = class(TForm) RadioGroup1: TRadioGroup; DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; Animate1: TAnimate; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; private { Private declarations } public { Public declarations } end; var FrmBkpRst: TFrmBkpRst; implementation {$R *.dfm} end. Estudei um pouco e vi que geralmente faz com o CopyFile, mais não consegui construir o código. desde já agradeço.
  12. Obrigado Jonas pela Dica, vou fazer o teste e volto a postar assim que terminar.
  13. Olá, preciso de uma ajuda de vocês... Estou criando uma aplicação onde exibe os dados em uma DBGrid, e logo abaixo há um campo DBEdit, para alterar a sua situação, é um cadastro de vendas... Gostaria que a linha do DGrid mudasse de cor de acordo com a situação informada. Por exemplo: Se tiver pago cor verde se tiver vencida de cor vermelha. alguém sabe como fazer isso?
  14. Boa tarde! Uso uma conexão ADOQuery para fazer conexão com os dados da mina tabela e assim gerar um relatório em quick reports, na tabela há uma relatório do tipo "ValordoCheque" e eu queria que no final do relatório saisse a soma de todos os valores desta coluna, não sei nem por onde começar , alguém pode me ajudar??? desde já agradeço... há e o banco de dados é Access...
×
×
  • Criar Novo...