Erro "Is not a valid integer values"

paulosergio.suporte · Janeiro 10, 2015

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