form não reconhece datamodule

[fernando_vip]

Boa noite,

Estou com uns problemas com meu sistema, já q sou iniciante rs vamos lá:

estou usando em meu sistema um datamodule(DM) e nas outras telas da aplicação como cadastros de clientes e produtos eles fazem referencia ao DM, contudo ao tentar colok campos de uma outra tbl em outro form ele diz:

"Form 'FrmCadFuncionarios' is not usingform 'UDM', do you wishto use this form? YES NO CANCEL"

Ai qd clik em YES ele emite a seguinte msg:

"Form 'DM' was not found in the current project"

O q fazer para resolver este problema?

Grato

[Duduh_Capixaba]

Acesse o DataModule (Shift+F12) e visualize sua Unit (F12). Qual o nome da Unit do DataModule (nome da aba da Unit)? Acrescente este nome ao uses do seu formulário.

Se não der certo, é porque o seu DataModule não está presente no seu projeto. Para adicioná-lo, vá em Project > Add to Project (Shift+F11) e abra o arquivo .PAS referente ao seu DataModule.

Para ter certeza de que seu DM realmente não está relacionado ao seu projeto, vá em Project > Remove from Project. Se o Form "DM" que o Delphi está procurando não estiver na lista de Forms, você deverá adicioná-lo como expliquei acima.

[fernando_vip]

Amigo

"Para ter certeza de que seu DM realmente não está relacionado ao seu projeto, vá em Project > Remove from Project. Se o Form "DM" que o Delphi está procurando não estiver na lista de Forms, você deverá adicioná-lo como expliquei acima. "

eu conferi e realmente o form UDM.PAS está veiculado ao projeto contudo está dando o mesmo erro, vou postar o cod do form e do data module beleza?

UCadFuncionarios:

unit UCadFuncionarios;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, Buttons, StdCtrls, ExtCtrls, DBCtrls, ComCtrls;

type

TFrmCadFuncionarios = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

Label1: TLabel;

EdtValorCampo: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

DBNavigator3: TDBNavigator;

StatusBar1: TStatusBar;

procedure SpeedButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrmCadFuncionarios: TFrmCadFuncionarios;

implementation

uses UDM;

{$R *.dfm}

procedure TFrmCadFuncionarios.SpeedButton3Click(Sender: TObject);

begin

FrmCadFuncionarios.Close;

end;

end.

UDM:

unit UDM;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM = class(TDataModule)

Conexao: TADOConnection;

Tab_Clientes: TADOTable;

Tab_Categorias: TADOTable;

Tab_Fornecedores: TADOTable;

Tab_Funcionarios: TADOTable;

Tab_ItemVenda: TADOTable;

Tab_Produtos: TADOTable;

Tab_Usuarios: TADOTable;

Tab_Venda: TADOTable;

Ds_Tab_Clientes: TDataSource;

Ds_Tab_Categorias: TDataSource;

Ds_Tab_Fornecedores: TDataSource;

Ds_Tab_Produtos: TDataSource;

Ds_Tab_Funcionarios: TDataSource;

Ds_Tab_ItemVenda: TDataSource;

Ds_Tab_Usuarios: TDataSource;

Ds_Tab_Venda: TDataSource;

Tab_ClientesCliCodigo: TAutoIncField;

Tab_ClientesCliNome: TWideStringField;

Tab_ClientesCliEnd: TWideStringField;

Tab_ClientesCliCep: TWideStringField;

Tab_ClientesCliCid: TWideStringField;

Tab_ClientesCliEst: TWideStringField;

Tab_ClientesCliNumFone: TWideStringField;

Tab_ClientesCliEmail: TWideStringField;

Tab_ClientesCliDoc1: TWideStringField;

Tab_ClientesCliDoc2: TWideStringField;

Tab_ClientesCliContato: TWideStringField;

Tab_CategoriasCatCodigo: TAutoIncField;

Tab_CategoriasCatDesc: TWideStringField;

Tab_FornecedoresForCodigo: TAutoIncField;

Tab_FornecedoresForRazao: TWideStringField;

Tab_FornecedoresForEnd: TWideStringField;

Tab_FornecedoresForCid: TWideStringField;

Tab_FornecedoresForEst: TWideStringField;

Tab_FornecedoresFoCep: TWideStringField;

Tab_FornecedoresForCont: TWideStringField;

Tab_FornecedoresForNumFone: TWideStringField;

Tab_FornecedoresForHomPag: TWideStringField;

Tab_FuncionariosFunCodigo: TAutoIncField;

Tab_FuncionariosFunNome: TWideStringField;

Tab_FuncionariosFunEnder: TWideStringField;

Tab_FuncionariosFunCep: TWideStringField;

Tab_FuncionariosFunCid: TWideStringField;

Tab_FuncionariosFunEst: TWideStringField;

Tab_FuncionariosFunNumFone: TWideStringField;

Tab_FuncionariosFunDatAdm: TDateTimeField;

Tab_FuncionariosFunSalario: TBCDField;

Tab_ItemVendaItVeID: TAutoIncField;

Tab_ItemVendaItVeVenda: TIntegerField;

Tab_ItemVendaItVeProduto: TIntegerField;

Tab_ItemVendaItVeValorUnitario: TBCDField;

Tab_ItemVendaItVeDescontoItem: TBCDField;

Tab_ItemVendaQtde: TIntegerField;

Tab_ProdutosProdID: TAutoIncField;

Tab_ProdutosProdCategoria: TIntegerField;

Tab_ProdutosProdCodigo: TWideStringField;

Tab_ProdutosProdNome: TWideStringField;

Tab_ProdutosProdPrecoVenda: TBCDField;

Tab_ProdutosProdQtdeEst: TIntegerField;

Tab_ProdutosProdUnidade: TWideStringField;

Tab_ProdutosProdFornecedor: TIntegerField;

Tab_UsuariosUsuCodigo: TAutoIncField;

Tab_UsuariosUsuNome: TWideStringField;

Tab_UsuariosUsuApelido: TWideStringField;

Tab_UsuariosUsuSenha: TWideStringField;

Tab_UsuariosUsuDpto: TWideStringField;

Tab_UsuariosUsuNivel: TIntegerField;

Tab_VendaVendID: TAutoIncField;

Tab_VendaVendCliente: TIntegerField;

Tab_VendaVendDtVenda: TDateTimeField;

Tab_VendaVendValorProdutos: TBCDField;

Tab_VendaVendDesconto: TBCDField;

Tab_VendaVendAcrescimo: TBCDField;

Tab_VendaVendFrete: TBCDField;

Tab_VendaVendQtde: TIntegerField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

{$R *.dfm}

end.

Grato pela ajuda Duduh_Capixaba

[Duduh_Capixaba]

Não tem nada de errado no código. Tente retirar o DM do projeto e adicioná-lo de novo. Tá estranho isso aí!

[fernando_vip]

Eu fiz isso e continua o mesmo problema :(

O q pod ser entaum ????

[Duduh_Capixaba]

As opções estão se esgotando, mas, veja se na pasta onde você está salvando seu projeto, existem os arquivos: UDM.dcu, UDM.ddp, UDM.dfm, UDM.pas.

[fernando_vip]

há sim, por isso num entendo, tá tudo lá

[Duduh_Capixaba]

Minhas sugestões se acabaram Fernando... Tente começar um outro projeto seguindo a mesma linha do seu projeto principal: um DM e um Form. Adicione alguma coisa no DM, faça a ligação entre eles e compile. Analise os dois projetos para ver se há algo faltando.

É isso que eu faço quando não encontro a saída para um erro, começo tudo de novo, mas sem desistir do projeto que está em andamento. Assim eu posso comparar um com o outro pra verificar se algo está faltando. Boa sorte!

[fernando_vip]

vou fazer isso, muito obrigado pelas dicas, se eu achar o erro vou postar aki p na próxima podermos saber o q fazer, rs :)

Abraços