Tema: error
Ver Mensaje Individual
  #4  
Antiguo 31-01-2013
Avatar de Hugoalgave
Hugoalgave Hugoalgave is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 31
Reputación: 0
Hugoalgave Va por buen camino
Unhappy 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.

Última edición por Hugoalgave fecha: 31-01-2013 a las 03:33:07. Razón: me falto el programa
Responder Con Cita