ActiveDelphi

[thaita]

Prezados Tenho a tabela abaixo e estou tentando inserir um novo registro e quando vou salvar,
aparece a mensagem " is not valid integer value". Meu procedimento também segue abaixo.
Alguém pode me ajudar? Obrigado.


CREATE TABLE Pessoa (
Id INTEGER PRIMARY KEY AUTOINCREMENT,
TipoCadastro VARCHAR (30) NOT NULL,
Nome VARCHAR (50) NOT NULL,
DataNascReg DATE,
CPFCNPJ VARCHAR (1 NOT NULL,
Telefone VARCHAR (16) NOT NULL,
Cidade VARCHAR (40) NOT NULL,
Bairro_Distrito VARCHAR (50) NOT NULL,
Estado CHAR (2) DEFAULT MG,
Email VARCHAR (80),
Ativo CHAR (1),
DataInicio DATE,
DataFim DATE
);


procedure TPageCadastroPessoa.btnSalvarClick(Sender: TObject);
begin
if Trim(CbTipo.Text) = '' then
begin
CbTipo.SetFocus;
Application.MessageBox('O campo Tipo de pessoa não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if Trim(edtNome.Text) = '' then
begin
edtNome.SetFocus;
Application.MessageBox('O campo Nome não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if Trim(edtCpfCnpj.Text) = '' then
begin
edtCPFCNPJ.SetFocus;
Application.MessageBox('O campo CPF\CNPJ não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if Trim(edtTelefone.Text) = '' then
begin
edtTelefone.SetFocus;
Application.MessageBox('O campo Telefone não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if Trim(edtCidade.Text) = '' then
begin
edtCidade.SetFocus;
Application.MessageBox('O campo Cidade não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if Trim(edtBairro.Text) = '' then
begin
edtBairro.SetFocus;
Application.MessageBox('O campo Bairro\Distrito não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if Trim(cbAtivo.Text) = '' then
begin
cbAtivo.SetFocus;
Application.MessageBox('O campo Ativo não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
abort;
end;

if dmPessoas.cdsPessoas.State in [dsInsert] then
begin
dmPessoas.cdsPessoasid.AsInteger := StrToInt(EdtCodigo.Text);
end;
if dmPessoas.cdsPessoasTipoCadastro.AsString = ('Fornecedor') then
cbTipo.ItemIndex := 0
else if dmPessoas.cdsPessoasTipoCadastro.AsString = ('Parceiro Agrícola') then
cbTipo.ItemIndex := 1
else if dmPessoas.cdsPessoasTipoCadastro.AsString = ('Cliente') then
cbTipo.ItemIndex := 2
else dmPessoas.cdsPessoasTipoCadastro.AsString := (EmptyStr);
DMPessoas.cdsPessoasNome.AsString := edtNome.Text;
DmPessoas.cdsPessoasDataNascReg.AsDateTime := EdtDataNascReg.Date;
DMPessoas.cdsPessoasCpfCnpj.AsString := edtCpfCnpj.Text;
DMPessoas.cdsPessoasTelefone.AsString:= edtTelefone.Text ;
DmPessoas.cdsPessoasCidade.AsString := edtCidade.Text;
DMPessoas.cdsPessoasBairro_Distrito.AsString := edtBairro.Text;
DMPessoas.cdsPessoasEstado.AsString := edtEstado.Text;
DmPessoas.cdsPessoasEmail.AsString := edtEmail.Text;

if dmPessoas.cdsPessoasAtivo.AsString = ('S') then
cbAtivo.ItemIndex := 0
else if dmPessoas.cdsPessoasAtivo.AsString = ('N') then
cbAtivo.ItemIndex := 1
else
dmPessoas.cdsPessoasAtivo.AsString := (EmptyStr);
dmPessoas.cdsPessoasDataInicio.AsDateTime := edtDataInicio.Date;
dmPessoas.cdsPessoasDataFim.AsDatetime := edtDataFim.Date;

inherited;

end;