Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

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

×

Informação importante

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