Ir para conteúdo
Fórum Script Brasil
  • 0

form não reconhece datamodule


fernando_vip

Pergunta

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

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...