Ir para conteúdo
Entre para seguir isso  
paulosergio.suporte

Erro "Is not a valid integer values"

Recommended Posts

Boa noite galera.

 

Pelo titulo do post já deu pra perceber que sou bem iniciante. já estou há 5 dias estudando esse código e resolvendo os erros de compilação que aparecem. Agora o código não apresenta erro na compilação porém na hora de inserir os dados no banco ele apresenta esse erro:

 

"Is not a valid integer values"

 

Já revirei o código e o banco e não consigo resolver.

Segue o código:

 

unit UnitPrincipal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls;
type
TfrmPrincipal = class(TForm)
abas: TPageControl;
tabCadastroClientes: TTabSheet;
txtCliente: TLabeledEdit;
txtAgencia: TLabeledEdit;
txtConta: TLabeledEdit;
txtGerente: TLabeledEdit;
txtRamo: TLabeledEdit;
txtCNPJ: TLabeledEdit;
txtlogradouro: TLabeledEdit;
txtnumero: TLabeledEdit;
txtComplemento: TLabeledEdit;
txtBairro: TLabeledEdit;
txtCidade: TLabeledEdit;
txtCEP: TLabeledEdit;
txtsegmento: TLabeledEdit;
txtSocio1: TLabeledEdit;
txtSocio2: TLabeledEdit;
txtSocio3: TLabeledEdit;
txtSocio4: TLabeledEdit;
Inserir: TBitBtn;
Cancelar: TBitBtn;
txtTelefone1: TLabeledEdit;
txtTelefone2: TLabeledEdit;
txtTelefone3: TLabeledEdit;
txtTelefone4: TLabeledEdit;
procedure txtnumeroKeyPress(Sender: TObject; var Key: Char);
procedure txtCNPJKeyPress(Sender: TObject; var Key: Char);
procedure txtAgenciaKeyPress(Sender: TObject; var Key: Char);
procedure txtTelefone1KeyPress(Sender: TObject; var Key: Char);
procedure txtTelefone2KeyPress(Sender: TObject; var Key: Char);
procedure txtTelefone3KeyPress(Sender: TObject; var Key: Char);
procedure txtTelefone4KeyPress(Sender: TObject; var Key: Char);
procedure conectaDb();
procedure FormShow(Sender: TObject);
procedure CancelarClick(Sender: TObject);
procedure inserircliente(clientePr: String; logradouroPr: String; numeroPr: Integer; bairroPr: String; cidadePr: String; cepPr: Integer; complementoPr: String;
cnpjPr: Integer; agenciaPr: Integer; contaPr: Integer; gerentePr: String; ramoPr: String; segmentoPr: String; socio1Pr: String; socio2Pr: String; socio3Pr: String; socio4Pr: String; telefone1Pr: Integer; telefone2Pr: Integer; telefone3Pr: Integer; telefone4Pr: Integer);
procedure InserirClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrincipal: TfrmPrincipal;
implementation
uses Modulodados;
{$R *.dfm}
procedure TFrmPrincipal.inserirCliente(clientePr: String; logradouroPr: String; numeroPr: Integer; bairroPr: String; cidadePr: String; cepPr: Integer; complementoPr: String; cnpjPr: Integer; agenciaPr: Integer; contaPr: Integer; gerentePr: String; ramoPr: String; segmentoPr: String; socio1Pr: String; socio2Pr: String; socio3Pr: String; socio4Pr: String; telefone1Pr: Integer; telefone2Pr: Integer; telefone3Pr: Integer; telefone4Pr: Integer);
begin
WITH dmDados.query DO
BEGIN
Close;
SQL.Clear;
SQL.Add('INSERT INTO tblClientes (NOME_EMPRESA,' +
'AGENCIA,' +
'CONTA,' +
'NOME_GER,' +
'DES_SEGMENTO,' +
'RAMO_ATIVIDADE,' +
'CNPJ_COMPLETO,' +
'LOGRADOURO,' +
'NUMERO,' +
'COMPLEMENTO,' +
'BAIRRO,' +
'CIDADE,' +
'COD_CEP,' +
'NOME_SOCIO_EQFX_1,' +
'NOME_SOCIO_EQFX_2,' +
'NOME_SOCIO_EQFX_3,' +
'NOME_SOCIO_EQFX_4,' +
'FONE1,' +
'FONE2,' +
'FONE3,' +
'FONE4)' +
' VALUES(:clientePr,:logradouroPr,:numeroPr,:bairroPr,:cidadePr,' +
':cepPr,:complementoPr,:cnpjPr,:agenciaPr,:contaPr,:gerentePr,:ramoPr,:segmentoPr,:socio1Pr,:socio2Pr,:socio3Pr,:socio4pr,:telefone1Pr,:telefone2Pr,:telefone3Pr,:telefone4Pr)');
Parameters.ParamByName('clientePr').Value := clientePr;
Parameters.ParamByName('logradouroPr').Value := logradouroPr;
Parameters.ParamByName('numeroPr').Value := numeroPr;
Parameters.ParamByName('bairroPr').Value := bairroPr;
Parameters.ParamByName('cidadePr').Value := cidadePr;
Parameters.ParamByName('cepPr').Value := cepPr;
Parameters.ParamByName('complementoPr').Value := complementoPr;
Parameters.ParamByName('cnpjPr').Value := cnpjPr;
Parameters.ParamByName('agenciaPr').Value := agenciaPr;
Parameters.ParamByName('contaPr').Value := contaPr;
Parameters.ParamByName('gerentePr').Value := gerentePr;
Parameters.ParamByName('ramoPr').Value := ramoPr;
Parameters.ParamByName('segmentoPr').Value := segmentoPr;
Parameters.ParamByName('socio1Pr').Value := socio1Pr;
Parameters.ParamByName('socio2Pr').Value := socio2Pr;
Parameters.ParamByName('socio3Pr').Value := socio3Pr;
Parameters.ParamByName('socio4Pr').Value := socio4Pr;
Parameters.ParamByName('telefone1Pr').Value := telefone1Pr;
Parameters.ParamByName('telefone2Pr').Value := telefone2Pr;
Parameters.ParamByName('telefone3Pr').Value := telefone3Pr;
Parameters.ParamByName('telefone4Pr').Value := telefone4Pr;
ExecSQL;
END;
ShowMessage('Inserido com Sucesso!');
end;
procedure TfrmPrincipal.conectaDb();
var
diretorioDb : String;
begin
diretorioDb := ExtractFilePath(ParamStr(0));
IF FileExists(diretorioDb + 'BANCO_CONSULT1.mdb') then
begin
IF dmDados.bdCon.Connected = false THEN
BEGIN
dmDados.bdCon.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=C:\Program Files (x86)\Borland\Delphi7\Projects\BANCO_CONSULT1.mdb;Persist Security Info=True';
dmDados.bdCon.Connected := true;
END
ELSE
dmDados.bdCon.Connected := false;
end
else
ShowMessage('Banco de Dados não Encontrado!') ;
end;
procedure TfrmPrincipal.txtnumeroKeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.txtcnpjKeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.txtagenciaKeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.txtTelefone1KeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.txtTelefone2KeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.txtTelefone3KeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.txtTelefone4KeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (Key in ['0'..'9',#8]) THEN
Key := #0;
end;
procedure TfrmPrincipal.FormShow(Sender: TObject);
begin
conectaDb;
end;
procedure TfrmPrincipal.CancelarClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmPrincipal.InserirClick(Sender: TObject);
begin
inserirCliente(txtCliente.Text,txtLogradouro.Text,StrToInt(txtNumero.Text),txtBairro.Text,txtCidade.Text,StrToInt(txtCEP.Text),txtComplemento.Text,StrToInt(txtCNPJ.Text),StrToInt(txtAgencia.Text),StrToInt(txtConta.Text),txtGerente.text,txtRamo.Text,txtSegmento.Text,txtSocio1.Text,txtSocio2.Text,txtSocio3.Text,txtSocio4.Text,StrToInt(txtTelefone1.Text),StrToInt(txtTelefone2.Text),StrToInt(txtTelefone3.Text),StrToInt(txtTelefone4.Text));
end;
end.
Alguém pode me dar uma ajudinha????

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pela mensagem apresentada, algum dos seus campos numéricos está recebendo um valor não numérico... por exemplo, um espaço em branco não é um número... reveja a forma como está preenchendo os dados no formulário e confira se o problema não está na conversão de algum dos dados de string para número.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.