Fórum erro de execução #203036

Olá
Verifique se esse form tá usando a unit q aloja o objeto ´cetep´.

como faço para verificar se ele está usando esta UNIT

Primeiro, abra o formulário onde vc colocou esse componente q tem o nome cetep, dê um F12 e veja o nome da unit na guia.
Depois, volte pro form e veja na cláusula ´uses´ embaixo do nome ´implementation´ se o nome dessa unit aparece.
Esse erro q deu é pq o programa não tá achando o objeto q vc nomeou como ´cetep´.

Possuo as seguintes UNITS e CETEP é um nome de tabela e CadCetep é o nome da unit na qual eu desejo chamar a tabela cetep que está no data module que possui a UnitDM
Segue abaixo as units existentes: POia ainda não encontrei o erro

unit UnitSgf;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Buttons, DB;

type
TfrmSgf = class(TForm)
MainMenu1: TMainMenu;
Cetep: TMenuItem;
Etesc: TMenuItem;
Cooperativa: TMenuItem;
Utilitarios: TMenuItem;
Aplicativos: TMenuItem;
Ajuda: TMenuItem;
Sair: TMenuItem;
Cadastar1: TMenuItem;
Pesquisar1: TMenuItem;
Pesquisar2: TMenuItem;
Cadastrar2: TMenuItem;
Cadastrar3: TMenuItem;
Pesquisar3: TMenuItem;
Grafico1: TMenuItem;
ArquivoMorto1: TMenuItem;
MicrosoftWord1: TMenuItem;
MicrosoftExcel1: TMenuItem;
Manual1: TMenuItem;
FecharoSGF1: TMenuItem;
Calculadora1: TMenuItem;
BitBtn1: TBitBtn;
Senhas1: TMenuItem;
Sobre1: TMenuItem;
procedure btnfecharClick(Sender: TObject);
procedure FecharoSGF1Click(Sender: TObject);
procedure Cadastar1Click(Sender: TObject);
procedure Cadastrar2Click(Sender: TObject);
procedure Cadastrar3Click(Sender: TObject);
//procedure btnControleDeAcessoClick(Sender: TObject);
//procedure FecharoSGF1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmSgf: TfrmSgf;

implementation

uses UnitLogin, UnitDM, CadCetep,UnitCadEtesc,UnitCadCooprativa;

{$R *.dfm}

procedure TfrmSgf.btnfecharClick(Sender: TObject);
begin
Close; //Fecha o formulário
end;

//procedure TfrmSgf.btnControleDeAcessoClick(Sender: TObject);
//begin
// frmControleDeAcesso.Show; //Abre o formulário tornando-o visível
//end;

//procedure TfrmSgf.FecharSGF1Click(Sender: TObject);
//begin
// Close; //Fecha o programa SGF
//end;

procedure TfrmSgf.FecharoSGF1Click(Sender: TObject);
begin
close;
end;

procedure TfrmSgf.Cadastar1Click(Sender: TObject);
begin
FormCadastrarCetep.ShowModal;
end;

procedure TfrmSgf.Cadastrar2Click(Sender: TObject);
begin
FormCadastrarEtesc.ShowModal;
end;

procedure TfrmSgf.Cadastrar3Click(Sender: TObject);
begin
FormCadastrarCooperativa.ShowModal;
end;

end.



unit UnitLogin;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, db;

type
TfrmLogin = class(TForm)
lblNome: TLabel;
lblSenha: TLabel;
lblMensagem: TLabel;
btnOK: TButton;
btnCancelar: TButton;
edNome: TEdit;
edSenha: TEdit;
Image1: TImage;
pnlMensagem: TPanel;
procedure btnCancelarClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmLogin: TfrmLogin;
Contador:Integer;
implementation

uses UnitSgf, UnitDM;

{$R *.dfm}

procedure TfrmLogin.btnCancelarClick(Sender: TObject);
begin
frmSgf.close;
end;

procedure TfrmLogin.FormShow(Sender: TObject);
begin
edNome.SetFocus; // Ao abrier o formulário, o componente recebe o foco
end;

procedure TfrmLogin.btnOKClick(Sender: TObject);
Var
ValorSenha:TStringField;
begin
if not DM.TableUsers.FindKey([edNome.Text]) then
Begin
pnlMensagem.Caption:=´ Login Recusado, Usuário desconhecido...´;
inc(Contador);
if Contador=4 then
frmSgf.Close;
edNome.SetFocus;
Exit;
end;
ValorSenha:=DM.TableUsers.FindField(´senha´) as tstringField;
if ValorSenha.Value<>edSenha.Text then
begin
pnlMensagem.Caption:=´Login Recusado, Senha invalida...´;
inc(Contador);
if contador=4 then
frmSgf.Close;
edSenha.SetFocus;
Exit;
end;
frmSgf.Enabled:=True;
frmLogin.Release;
end;
procedure TfrmLogin.FormClick(Sender: TObject);
begin
edNome.SetFocus; //ao abrir o formulário o compenente recebe o foco.
end;

end.


unit CadCetep;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Buttons, Mask, db;

type
TFormCadastrarCetep = class(TForm)
lblNome: TLabel;
lblMatricula: TLabel;
lblDataNascimento: TLabel;
lblLocalNascimento: TLabel;
lblFiliacao: TLabel;
LblEstadoCivil: TLabel;
lblEndereco: TLabel;
lblNumero: TLabel;
lblComplemento: TLabel;
lblBAirro: TLabel;
lblCEP: TLabel;
lblTelefone: TLabel;
Label13: TLabel;
lblIdentidade: TLabel;
lblEmissor: TLabel;
lblData: TLabel;
lblTituloEleitor: TLabel;
lblSecao: TLabel;
lblZona: TLabel;
lblCTPS: TLabel;
lblSerie: TLabel;
lblCargo: TLabel;
lblSetor: TLabel;
lblDataAdmissao: TLabel;
lblContaCorrente: TLabel;
lblBanco: TLabel;
DBMemo2: TDBMemo;
Panel1: TPanel;
lblFerias: TLabel;
Label29: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
lblAgencia: TLabel;
DBMemo1: TDBMemo;
DBMemo3: TDBMemo;
lblObservacoes: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormCadastrarCetep: TFormCadastrarCetep;

implementation
Uses UnitDM,UnitSgf;
{$R *.dfm}

procedure TFormCadastrarCetep.FormCreate(Sender: TObject);
begin
Cetep.ACTIVE:=TRUE;
end;

end.


program faetec;

uses
Forms,
UnitSgf in ´UnitSgf.pas´ ,
UnitLogin in ´UnitLogin.pas´ ,
UnitDM in ´UnitDM.pas´ {DM: TDataModule},
CadCetep in ´CadCetep.pas´ ,
UnitCadEtesc in ´UnitCadEtesc.pas´ ,
UnitCadCooprativa in ´UnitCadCooprativa.pas´ ;

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TfrmSgf, frmSgf);
Application.CreateForm(TDM, DM);
Application.CreateForm(TFormCadastrarCetep, FormCadastrarCetep);
Application.CreateForm(TFormCadastrarEtesc, FormCadastrarEtesc);
Application.CreateForm(TFormCadastrarCooperativa, FormCadastrarCooperativa);
Application.Run;
end.



unit UnitCadCooprativa;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TFormCadastrarCooperativa = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormCadastrarCooperativa: TFormCadastrarCooperativa;

implementation

{$R *.dfm}

end.


unit UnitCadEtesc;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TFormCadastrarEtesc = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormCadastrarEtesc: TFormCadastrarEtesc;

implementation

{$R *.dfm}

end.

unit UnitDM;

interface

uses
SysUtils, Classes, DB, DBTables;

type
TDM = class(TDataModule)
TableUsers: TTable;
DataSourceUsers: TDataSource;
TableUsersNome: TStringField;
TableUsersSenha: TStringField;
DataSourceCetep: TDataSource;
TableCetep: TTable;
TableCetepMatricula: TStringField;
TableCetepNome: TStringField;
TableCetepData_De_Nascimento: TDateTimeField;
TableCetepLocal_De_Nascimento: TStringField;
TableCetepFiliacao: TStringField;
TableCetepEstado_Civil: TStringField;
TableCetepEndereco: TStringField;
TableCetepNumero: TStringField;
TableCetepComplemento: TStringField;
TableCetepBairro: TStringField;
TableCetepTelefone: TStringField;
TableCetepCep: TStringField;
TableCetepIdentidade: TStringField;
TableCetepOrgao_Emissor: TStringField;
TableCetepData_Expedicao: TDateTimeField;
TableCetepCPF: TStringField;
TableCetepPIS_PASEP: TStringField;
TableCetepTitulo_Eleitor: TStringField;
TableCetepSecao: TStringField;
TableCetepZona: TStringField;
TableCetepCTPS: TStringField;
TableCetepSerie: TStringField;
TableCetepCargo: TStringField;
TableCetepSetor: TStringField;
TableCetepData_Admissao: TDateTimeField;
TableCetepConta_Corrente: TStringField;
TableCetepBanco: TStringField;
TableCetepAgencia: TStringField;
TableCetepFerias: TMemoField;
TableCetepProcessos_e_etc: TMemoField;
TableCetepObservacoes: TMemoField;
TableCetepFoto: TBlobField;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DM: TDM;

implementation

uses UnitSgf, UnitLogin, CadCetep;
{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
frmSgf.Show;
frmLogin:=TfrmLogin.Create(Self);
frmLogin.Show;

end;

end.

Olá Ana
Segundo as units q vc me passou, a tabela no Delphi está com o nome de TableCetep.
Então, faça assim:

Sucesso.