Fórum SISTEMA COMERCIAL, APRESENTANDO ERRO ALGUÉM PODE AJUDAR, NÃO COMPILA... #431971

FECHEI O SISTEMA NA SEXTA FEIRA TUDO CERTINHO, AGORA EXATAMENTE HOJE DIA 2/01/2013 O BICHO PEGOU AO ABRIR E TENTAR COMPILA-LO ELE
APRESENTA O SEGUINTE ERRO.

MENSAGEM DE ERRO
---------------------------------------------------------------------
project commerce.exe raised excepition class eread error with message
invalid property balue, use step or run to continue.

---------------------------------------------------------------------
QUANDO DOU CONTRO F2 ELE VOLTA NA TELA DO DELPHI NA CONPILAÇÃO E MOSTRA QUE A SEGUINTE LINHA ESTA COM ERRO LINHA ABAIXO
DEMARCADA.
----------------------------------------------------------------------

program COMMERCE;

uses
Forms,
U_PRINCIPAL in 'U_PRINCIPAL.pas' ,
Udm_DADOS in 'Udm_DADOS.pas' {DM_DADOS: TDataModule},
U_Cidades in 'U_Cidades.pas' ,
U_SOBRE in 'U_SOBRE.pas' ,
U_Bairro in 'U_Bairro.pas' ,
U_Logradouro in 'U_Logradouro.pas' ,
U_CARGOS in 'U_CARGOS.pas' ,
U_CLIENTES in 'U_CLIENTES.pas' ,
u_funcionarios in 'u_funcionarios.pas' ,
URELCIDADES in 'URELCIDADES.pas' ,
U_consulta_cidade in 'U_consulta_cidade.pas' ,
U_SPLACH in 'U_SPLACH.pas' ,
U_Fornecedores in 'U_Fornecedores.pas' ,
U_ESTOQUE in 'U_ESTOQUE.pas' ,
U_ICMS in 'U_ICMS.pas' ,
U_IPI in 'U_IPI.pas' ,
U_ISS in 'U_ISS.pas' ;

{$R *.res}

begin
Application.Initialize;
Application.Title := 'COMMERCE';
Application.CreateForm(TFRM_PRINCIPAL, FRM_PRINCIPAL);
Application.CreateForm(TDM_DADOS, DM_DADOS); "ERRO NESTA LINHA"
Application.Run;
end.


ALGUEM PODE ME AJUDAR?
SEGUE ABAIXO OS CODIGO DO DM_DADOS QUE PODE ESTAR O ERRO.



unit Udm_DADOS;

interface

uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBTable, IBQuery;

type
TDM_DADOS = class(TDataModule)
IBD_DADOS: TIBDatabase;
IBTrans: TIBTransaction;
IBT_cidades: TIBTable;
DS_CIDADES: TDataSource;
IBT_BAIRRO: TIBTable;
DS_BAIRRO: TDataSource;
IBT_BAIRROBAIR_CODIGO: TIntegerField;
IBT_BAIRROBAIR_NOME: TIBStringField;
IBT_LOGRADOURO: TIBTable;
IBT_LOGRADOUROLOG_CODIGO: TIntegerField;
IBT_LOGRADOUROLOG_NOME: TIBStringField;
DS_LOGRADOURO: TDataSource;
IBT_CARGOS: TIBTable;
DS_CARGOS: TDataSource;
IBT_CARGOSCARG_CODIGO: TIntegerField;
IBT_CARGOSCARG_NOME: TIBStringField;
IBT_CARGOSCARG_NIVEL: TIBStringField;
IBT_CLIENTES: TIBTable;
DS_CLIENTES: TDataSource;
IBT_CLIENTESCLI_CODIGO: TIntegerField;
IBT_CLIENTESCLI_NOME: TIBStringField;
IBT_CLIENTESCLI_FANTASIA: TIBStringField;
IBT_CLIENTESCLI_ENDERECO: TIntegerField;
IBT_CLIENTESCLI_NUMERO: TIBStringField;
IBT_CLIENTESCLI_BAIRRO: TIntegerField;
IBT_CLIENTESCLI_CIDADE: TIntegerField;
IBT_CLIENTESCLI_UF: TIBStringField;
IBT_CLIENTESCLI_NASC: TDateTimeField;
IBT_CLIENTESCLI_DATACAD: TDateTimeField;
IBT_CLIENTESCLI_ID: TIBStringField;
IBT_CLIENTESCLI_CNPJ: TIBStringField;
IBT_CLIENTESCLI_RG: TIBStringField;
IBT_CLIENTESCLI_FONE: TIBStringField;
IBT_CLIENTESCLI_FAX: TIBStringField;
IBT_CLIENTESCLI_CELULAR: TIBStringField;
IBT_CLIENTESCLI_OBS: TIBStringField;
IBT_CLIENTESCLI_TELEITOR: TIBStringField;
IBT_CLIENTESCLI_ZONA: TIBStringField;
IBT_CLIENTESCLI_SECAO: TIBStringField;
IBT_CLIENTESCLI_FOTO: TIBStringField;
IBT_CLIENTESCLI_EMAIL: TIBStringField;
IBT_CLIENTESCLI_CONTATO: TIBStringField;
IBT_FUNCIONARIOS: TIBTable;
IBT_FUNCIONARIOSFUNC_CODIGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NOME: TIBStringField;
IBT_FUNCIONARIOSFUNC_ENDERECO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NUMERO: TIBStringField;
IBT_FUNCIONARIOSFUNC_BAIRRO: TIntegerField;
IBT_FUNCIONARIOSFUNC_CIDADE: TIntegerField;
IBT_FUNCIONARIOSFUNC_CPF: TIBStringField;
IBT_FUNCIONARIOSFUNC_RG: TIBStringField;
IBT_FUNCIONARIOSFUNC_NASC: TDateTimeField;
IBT_FUNCIONARIOSFUNC_ADM: TDateTimeField;
IBT_FUNCIONARIOSFUNC_FONE: TIBStringField;
IBT_FUNCIONARIOSFUNC_CELULAR: TIBStringField;
IBT_FUNCIONARIOSFUNC_EMAIL: TIBStringField;
IBT_FUNCIONARIOSFUNC_FOTO: TIBStringField;
IBT_FUNCIONARIOSFUNC_CARGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_TITULO: TIBStringField;
IBT_FUNCIONARIOSFUNC_ZONA: TIBStringField;
IBT_FUNCIONARIOSFUNC_SECAO: TIBStringField;
IBT_FUNCIONARIOSFUN_MAE: TIBStringField;
IBT_FUNCIONARIOSFUNC_PAI: TIBStringField;
IBT_FUNCIONARIOSFUNC_ESTCIVIL: TIBStringField;
DS_FUNCIONARIOS: TDataSource;
IBT_FUNCIONARIOSFUNC_UF: TIBStringField;
DsSqlConsCidades: TDataSource;
SqlConsCidades: TIBQuery;
SqlConsCidadesCID_CODIGO: TIntegerField;
SqlConsCidadesCID_CIDADE: TIBStringField;
SqlConsCidadesCID_UF: TIBStringField;
SqlConsCidadesCID_CODRAIS: TIBStringField;
IBT_CLIENTESCLI_MAE: TIBStringField;
IBT_CLIENTESCLI_PAI: TIBStringField;
IBT_CLIENTESCLI_CONJUGE: TIBStringField;
IBT_cidadesCID_CODIGO: TIntegerField;
IBT_cidadesCID_CIDADE: TIBStringField;
IBT_cidadesCID_UF: TIBStringField;
IBT_cidadesCID_CODRAIS: TIBStringField;
IBT_cidadesCID_CEP: TIBStringField;
IBT_CLIENTESCLI_CEP: TIntegerField;
IBT_FUNCIONARIOSFUNC_CEP: TIntegerField;
IBT_CLIENTESCLI_CPF: TIBStringField;
IBT_CLIENTESCLI_IE: TIBStringField;
IBT_FORNEC: TIBTable;
DS_FORNEC: TDataSource;
IBT_FORNECFORNEC_CODIGO: TIntegerField;
IBT_FORNECFORNEC_NOME: TIBStringField;
IBT_FORNECFORNEC_END: TIntegerField;
IBT_FORNECFORNEC_NUMERO: TIBStringField;
IBT_FORNECFORNEC_BAIRRO: TIntegerField;
IBT_FORNECFORNEC_CIDADE: TIntegerField;
IBT_FORNECFORNEC_UF: TIBStringField;
IBT_FORNECFORNEC_CNPJ: TIBStringField;
IBT_FORNECFORNEC_IE: TIBStringField;
IBT_FORNECFORNEC_REPRESENTANTE: TIBStringField;
IBT_FORNECFORNEC_TELEFONE: TIBStringField;
IBT_FORNECFORNEC_FAX: TIBStringField;
IBT_FORNECFORNEC_CELULAR: TIBStringField;
IBT_FORNECFORNEC_CEP: TIBStringField;
IBT_FORNECFORNEC_EMAIL: TIBStringField;
IBT_FORNECFORNEC_CADASTRO: TDateTimeField;
IBT_FORNECFORNEC_FOTO: TIBStringField;
IBT_FORNECFORNEC_OBS: TIBStringField;
IBT_ICMS: TIBTable;
DS_ICMS: TDataSource;
IBT_ICMSICMS_CODIGO: TIntegerField;
IBT_ICMSICMS_VALOR: TIBBCDField;
IBT_IPI: TIBTable;
IBT_ISS: TIBTable;
DS_IPI: TDataSource;
DS_ISS: TDataSource;
IBT_IPIIPI_CODIGO: TIntegerField;
IBT_IPIIPI_VALOR: TIBBCDField;
IBT_ISSISS_CODIGO: TIntegerField;
IBT_ISSISS_VALOR: TIBBCDField;
IBT_ESTOQUE: TIBTable;
DS_ESTOQUE: TDataSource;
IBT_ESTOQUEESTCOD_ESTOQUE: TIntegerField;
IBT_ESTOQUEESTCOD_ENAN13EST: TIBStringField;
IBT_ESTOQUEESTCOD_PARALELO: TIBStringField;
IBT_ESTOQUEEST_PRODUTO: TIBStringField;
IBT_ESTOQUEEST_UNIDADE: TIBStringField;
IBT_ESTOQUEEST_TIPO: TIntegerField;
IBT_ESTOQUEEST_ULTFONEC: TIntegerField;
IBT_ESTOQUEEST_ULTCOMPRA: TDateTimeField;
IBT_ESTOQUEEST_PRCCUSTO: TIBBCDField;
IBT_ESTOQUEEST_PRCVENDA: TIBBCDField;
IBT_ESTOQUEEST_MARKUP: TIBBCDField;
IBT_ESTOQUEEST_OBS: TIBStringField;
IBT_ESTOQUEEST_DATACAD: TDateTimeField;
IBT_ESTOQUEEST_DATAULTCOMP: TDateTimeField;
IBT_ESTOQUEESTCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_ARREDONDA: TIBBCDField;
IBT_ESTOQUEEST_SECAO: TIntegerField;
IBT_ESTOQUEEST_ATIVO: TIBStringField;
IBT_ESTOQUEEST_QTDATUAL: TIBBCDField;
IBT_ESTOQUEEST_PROD_SERV: TIBStringField;
IBT_ESTOQUEEST_BAIXA: TIBStringField;
IBT_ESTOQUEEST_CONTROLADO: TIBStringField;
IBT_ESTOQUEEST_GRADE: TIntegerField;
IBT_ESTOQUEEST_COR: TIBStringField;
IBT_ESTOQUEEST_MINIMO: TIBBCDField;
IBT_ESTOQUEEST_MAXIMO: TIBBCDField;
IBT_ESTOQUEEST_FRACAO: TIBBCDField;
IBT_ESTOQUEEST_COMISSAO: TIBBCDField;
IBT_ESTOQUEEST_TRCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_TRDESCONTO: TIBStringField;
IBT_ESTOQUEEST_TRCONVENIO: TIBStringField;
IBT_ESTOQUEEST_ICMS: TIntegerField;
IBT_ESTOQUEEST_ISS: TIntegerField;
IBT_ESTOQUEEST_IPI: TIntegerField;
IBT_ESTOQUEEST_SUBISTITUICAO: TIBStringField;
IBT_ESTOQUEEST_CODIFISCAL: TIntegerField;
IBT_ESTOQUEEST_AVISTA: TIBStringField;
IBT_ESTOQUEEST_PRAZO: TIBStringField;
IBT_ESTOQUEEST_SITE: TIBStringField;
IBT_ESTOQUEEST_CONVENIO: TIBStringField;
IBT_ESTOQUEEST_MAX_V: TIntegerField;
IBT_ESTOQUEEST_MAX_P: TIntegerField;
IBT_ESTOQUEEST_FOTO: TIBStringField;
IBT_ESTOQUEEST_FIADO: TIBStringField;
IBT_ESTOQUEDES_AVISTA: TIBBCDField;
IBT_ESTOQUEDES_APRAZO: TIBBCDField;
IBT_ESTOQUEDES_SITE: TIBBCDField;
IBT_ESTOQUEDES_CONV: TIBBCDField;
IBT_ESTOQUEDES_MAX_V: TIBBCDField;
IBT_ESTOQUEDES_MAX_P: TIBBCDField;
IBT_SECAO: TIBTable;
IBT_TIPO: TIBTable;
DS_SECAO: TDataSource;
DS_TIPO: TDataSource;
IBT_ICMSCODFISCPTA: TIBStringField;
procedure IBT_cidadesAfterPost(DataSet: TDataSet);
procedure IBT_BAIRROAfterPost(DataSet: TDataSet);
procedure IBT_logradouroAfterPost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
procedure confirma_dados;

{ Public declarations }
end;

var
DM_DADOS: TDM_DADOS;

implementation

uses U_Bairro, U_Cidades, U_Logradouro;

//uses U_Cidades;

// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos

procedure TDM_DADOS.confirma_dados;
begin
if IBTrans.intransaction then
IBTrans.CommitRetaining
else
IBTrans.RollbackRetaining;
end;

// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos

// uses U_Cidades;

{$R *.dfm}

procedure TDM_DADOS.IBT_cidadesAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;

procedure TDM_DADOS.IBT_BAIRROAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;

procedure TDM_DADOS.IBT_logradouroAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;

procedure TDM_DADOS.DataModuleCreate(Sender: TObject);
begin

end;

GALERA É O SEGUINTE SE TIVER QUE PAGAR EU PAGO MAIS AJUDA AI

JOAOCARLOSVIEIRADOSSANTOS@HOTMAIL.COM

NAO CONSIGO RESOLVER A DOIS DIAS