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.