Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   error (https://www.clubdelphi.com/foros/showthread.php?t=82125)

Hugoalgave 30-01-2013 05:06:29

error
 
2 Archivos Adjunto(s)
buenas noche la verdad estoy aprendiendo delphi desde cero y estoy tratando de hacer un programa de registro de visitantes, estoy usando fire bird y ems ibmanager pero me sale este error cuando quiero pegar el form que se llama visitantes muchisimas gracias por su atencion y gentil colaboracion, las imagenes las meti en un zip por que me pesaban mas de 40 k y como les digo estoy aprendiendo a progarmar desde cero y con delphi7 muchisimas gracias.

Casimiro Notevi 30-01-2013 09:45:30

Te recuerdo nuestra guía de estilo, gracias por tu colaboración :)

¡¡¡ No olvides poner títulos descriptivos !!!, "error" no describe nada :confused:

Neftali [Germán.Estévez] 30-01-2013 14:08:45

Estaría bien que pudieras poner una porción de código o el proyecto (aunque sea sólo la parte del formulario que falla) para poder hacer alguna prueba.

¿Si eliminas ese formulario del proyecto te sigue dando error?
¿Puedes probarlo?

Hugoalgave 31-01-2013 03:21:23

codigo
 
claro amigo neftali ya subo el codigo que llevo en .rar junto con la base de datos que estoy haciendo casimiro disculpame tienes toda la razon el nombre que puse esta mal no cometere ese error otra vez mucha gracias por tu correccion.

esta es residentes la cual tengo bien y no me bota ningun error
Código SQL [-]
unit REGISTRO2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, IBQuery, IBDatabase,
  IBCustomDataSet, Mask;

type
  TRESIDENTES = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    Residentes: TIBDataSet;
    Dresidentes: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RESIDENTES: TRESIDENTES;

implementation

uses REGISTRO5,unidaddatos;

{$R *.dfm}

procedure TRESIDENTES.Button1Click(Sender: TObject);
begin
CLOSE;
end;

procedure TRESIDENTES.Button2Click(Sender: TObject);
begin
 GRUP_FAMILIAR.show;
end;

procedure TRESIDENTES.FormShow(Sender: TObject);
begin
 residentes.open;
end;

procedure TRESIDENTES.FormCreate(Sender: TObject);
begin

end;

end.

y esta es de visitantes el cual me bota el error

Código SQL [-]
unit REGISTRO3;

interface

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

type
  TVISITANTES = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VISITANTES: TVISITANTES;

implementation

uses REGISTRO5,unidaddatos;

{$R *.dfm}

procedure TVISITANTES.Button1Click(Sender: TObject);
begin
CLOSE;
end;

procedure TVISITANTES.FormShow(Sender: TObject);
begin;
end;

procedure TVISITANTES.FormCreate(Sender: TObject);
begin

end;

end.

ecfisa 31-01-2013 04:38:10

Hola Hugoalgave.

Revisa que la propiedad Name del TDBEdit no este vacia (en blanco).

Si en el form existe solamente un componente (del mismo tipo) y no posee nombre, arrojará la excepción EClassNotFound: Dale un nombre.

Esto significa que si agregas otro TDBEdit en el mismo form, también debería desaparecer la excepción. Pero claro, esa no es la mejor solución ;).

Saludos.:)

Hugoalgave 31-01-2013 05:06:13

lo intente
 
Ecfisa de ante mano muchas gracias por tu colaboracion, hermanito lo intente pero me sigue generando el mismo error si miras mi primer comentario cuando lo compilo me sale el mensaje del tbedit, y despues que le doy aceptar el me apunta en azul a visitantes como lo muestra la foto en mi primer comentario, probe la solucion que me diste pero no me funciono...:(

ecfisa 31-01-2013 06:10:52

Hola Hugo.

Lo que te comenté en el mensaje anterior es un caso que provoca esa excepción, pero sin dudas no es el único. (Lamento que no fuera el problema ni la solución :()

En tu código no pareciera haber nada anormal, otro intento...

En el form TVISITANTES , agregá estas líneas antes del final del mismo:
Código Delphi [-]
...
implementation

uses REGISTRO5,unidaddatos;

{$R *.dfm}

...
// resto del código
...

initialization
  RegisterClass(TDBEdit);
end.

Saludos. :)

Neftali [Germán.Estévez] 31-01-2013 08:41:16

¿Puedes poner el contenido del DFM del formulario que te da error? (en modo texto)

De esa forma podemos probarlo en un proyecto vacío.

Hugoalgave 01-02-2013 04:00:49

muchas gracias
 
ecfisa revise y puse las lineas y si me funciono por fin el programa muchisimas gracias man enserio GRACIAS GIGANTES.


La franja horaria es GMT +2. Ahora son las 20:46:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi