Diseño de sistema en RED LAN

MartinS · #1 03-05-2012

Hola nuevamente:

esto:

Código Delphi [-]procedure TForm1.localidadesAfterPost(DataSet: TDataSet);  
begin    
  localidades.Transaction.CommitRetaining; // si dejo  DataSet.Transaction.CommitRetaining; no compila  
end;

estaria mal a mi entender si localidades es un IbTable ya que el commit se hace sobre el componente IbTransaction

Te voy a poner una unidad completa de un ejemplito bien sencillo sobre el alta de un cliente

Código Delphi [-]unit UAlta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Mask, DBCtrls;

type
  TPalta = class(TForm)
    BGrabar: TButton;
    BSalir: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    StatusBar1: TStatusBar;
    DBEdit5: TDBEdit;
    BNuevo: TButton;
    procedure FormShow(Sender: TObject);
    procedure BSalirClick(Sender: TObject);
    procedure BGrabarClick(Sender: TObject);
    procedure BNuevoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Palta: TPalta;

implementation

uses UDm;

{$R *.dfm}

procedure TPalta.BSalirClick(Sender: TObject);
begin
  Dm.Clientes.Cancel;
  Dm.Transaccion.RollbackRetaining;
end;

procedure TPalta.BGrabarClick(Sender: TObject);
begin
   Try
     Dm.ClientesID.AsInteger := 0;
     Dm.Clientes.Post;
     Dm.Transaccion.CommitRetaining;
     Dm.Clientes.Append;
     DBEdit1.SetFocus;
   Except
     Dm.Clientes.Cancel;
     Dm.Transaccion.RollbackRetaining;
     ShowMessage('Error de escritura');
   End;
end;

procedure TPalta.BNuevoClick(Sender: TObject);
begin
  Dm.Clientes.Append;
end;

procedure TPalta.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Dm.Transaccion.InTransaction then
    Dm.Transaccion.RollbackRetaining;
end;

procedure TPalta.FormShow(Sender: TObject);
begin
  DBEdit1.SetFocus;
end;

end.

Resumiendo:
Dm es un TDataModule
Clientes es un IbTable
Transaccion es un IbTransaction

Para que puedas actualizar en tiempo real por decirlo de alguna manera a todos los clientes vas a tener que crear un trigger que genere un evento, algo asi:

Código SQL [-]CREATE TRIGGER POST_NEW_REG FOR CLIENTES
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
  
  POST_EVENT 'new_reg';
END

que se disparara cada vez que se ingrese uno en este caso y capturar ese evento con el componente IBEvent para que realice la correspondiente actualizacion de la grilla.

En la unidad del TDataModule (Dm) puse esto:

Código Delphi [-]unit UDm;

interface

uses
  SysUtils, Classes,IniFiles,Forms,Dialogs, DB, IBDatabase, IBCustomDataSet,
  IBTable, IBEvents;

type
  TDM = class(TDataModule)
    Transaccion: TIBTransaction;
    BaseGeneral: TIBDatabase;
    Clientes: TIBTable;
    ClientesID: TIntegerField;
    ClientesAPELLIDOS: TIBStringField;
    ClientesNOMBRES: TIBStringField;
    ClientesFNAC: TDateField;
    ClientesDOMICILIO: TIBStringField;
    ClientesLOCALIDAD: TIBStringField;
    SClientes: TDataSource;
    IBEvents1: TIBEvents;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure IBEvents1EventAlert(Sender: TObject; EventName: string;
      EventCount: Integer; var CancelAlerts: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
Var BaseDeDatos: String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
   Begin
    Try
      BaseGeneral.DatabaseName := BaseDeDatos;
      BaseGeneral.Connected := True;
      Transaccion.Active := True;
      Clientes.Open;
  //    IBEvents1.Events.Clear;
  //    IBEvents1.Events.Add('new_reg');
  //    IBEvents1.RegisterEvents;
    Except
      ShowMessage('No se puede conectar el servidor...');
    End;
   End;
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  Transaccion.Active := False;
  BaseGeneral.Connected := False;
  Clientes.Close;
//  IBEvents1.UnRegisterEvents;
end;

procedure TDM.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
{  if EventName = 'new_reg' then
  Begin
  ShowMessage('Edito');
  SClientes.DataSet.Refresh;
  End;  }
end;

end.

Comentado esta el codigo para el IbEvent

Saludos.- y espero que vayamos orientando hacia alguna parte

[Delphius] · #2 03-05-2012

17) Vuelva a leer este hilo de atrás para adelante... quizá si lo hacemos "al verré" se entiende la cosa

Saludos,

pelikno · #3 03-05-2012

Cita:

Empezado por MartinS

Hola nuevamente:

esto:

Código Delphi [-]procedure TForm1.localidadesAfterPost(DataSet: TDataSet);  
begin    
  localidades.Transaction.CommitRetaining; // si dejo  DataSet.Transaction.CommitRetaining; no compila  
end;

estaria mal a mi entender si localidades es un IbTable ya que el commit se hace sobre el componente IbTransaction

Te voy a poner una unidad completa de un ejemplito bien sencillo sobre el alta de un cliente

Código Delphi [-]unit UAlta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Mask, DBCtrls;

type
  TPalta = class(TForm)
    BGrabar: TButton;
    BSalir: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    StatusBar1: TStatusBar;
    DBEdit5: TDBEdit;
    BNuevo: TButton;
    procedure FormShow(Sender: TObject);
    procedure BSalirClick(Sender: TObject);
    procedure BGrabarClick(Sender: TObject);
    procedure BNuevoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Palta: TPalta;

implementation

uses UDm;

{$R *.dfm}

procedure TPalta.BSalirClick(Sender: TObject);
begin
  Dm.Clientes.Cancel;
  Dm.Transaccion.RollbackRetaining;
end;

procedure TPalta.BGrabarClick(Sender: TObject);
begin
   Try
     Dm.ClientesID.AsInteger := 0;
     Dm.Clientes.Post;
     Dm.Transaccion.CommitRetaining;
     Dm.Clientes.Append;
     DBEdit1.SetFocus;
   Except
     Dm.Clientes.Cancel;
     Dm.Transaccion.RollbackRetaining;
     ShowMessage('Error de escritura');
   End;
end;

procedure TPalta.BNuevoClick(Sender: TObject);
begin
  Dm.Clientes.Append;
end;

procedure TPalta.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Dm.Transaccion.InTransaction then
    Dm.Transaccion.RollbackRetaining;
end;

procedure TPalta.FormShow(Sender: TObject);
begin
  DBEdit1.SetFocus;
end;

end.

Resumiendo:
Dm es un TDataModule
Clientes es un IbTable
Transaccion es un IbTransaction

Para que puedas actualizar en tiempo real por decirlo de alguna manera a todos los clientes vas a tener que crear un trigger que genere un evento, algo asi:

Código SQL [-]CREATE TRIGGER POST_NEW_REG FOR CLIENTES
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
  
  POST_EVENT 'new_reg';
END

que se disparara cada vez que se ingrese uno en este caso y capturar ese evento con el componente IBEvent para que realice la correspondiente actualizacion de la grilla.

En la unidad del TDataModule (Dm) puse esto:

Código Delphi [-]unit UDm;

interface

uses
  SysUtils, Classes,IniFiles,Forms,Dialogs, DB, IBDatabase, IBCustomDataSet,
  IBTable, IBEvents;

type
  TDM = class(TDataModule)
    Transaccion: TIBTransaction;
    BaseGeneral: TIBDatabase;
    Clientes: TIBTable;
    ClientesID: TIntegerField;
    ClientesAPELLIDOS: TIBStringField;
    ClientesNOMBRES: TIBStringField;
    ClientesFNAC: TDateField;
    ClientesDOMICILIO: TIBStringField;
    ClientesLOCALIDAD: TIBStringField;
    SClientes: TDataSource;
    IBEvents1: TIBEvents;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure IBEvents1EventAlert(Sender: TObject; EventName: string;
      EventCount: Integer; var CancelAlerts: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
Var BaseDeDatos: String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
   Begin
    Try
      BaseGeneral.DatabaseName := BaseDeDatos;
      BaseGeneral.Connected := True;
      Transaccion.Active := True;
      Clientes.Open;
  //    IBEvents1.Events.Clear;
  //    IBEvents1.Events.Add('new_reg');
  //    IBEvents1.RegisterEvents;
    Except
      ShowMessage('No se puede conectar el servidor...');
    End;
   End;
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  Transaccion.Active := False;
  BaseGeneral.Connected := False;
  Clientes.Close;
//  IBEvents1.UnRegisterEvents;
end;

procedure TDM.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
{  if EventName = 'new_reg' then
  Begin
  ShowMessage('Edito');
  SClientes.DataSet.Refresh;
  End;  }
end;

end.

Comentado esta el codigo para el IbEvent

Saludos.- y espero que vayamos orientando hacia alguna parte

Gracias martins, tenia las componentes IBEvent pero no sabia como utilizarlas bien igual que el trigger de la base !!!!!

MartinS · #4 03-05-2012

Bueno parece que vamos encontrando el rumbo. Igual los tengo comentados (Lo de IbEvents) porque no se cual es la razon que se queda pensando el sistema en red. Seguramente hay algo que estoy mal pero ya alguien va a comentar.

Saludos

pelikno · #5 03-05-2012

Cita:

Empezado por MartinS

Bueno parece que vamos encontrando el rumbo. Igual los tengo comentados (Lo de IbEvents) porque no se cual es la razon que se queda pensando el sistema en red. Seguramente hay algo que estoy mal pero ya alguien va a comentar.

Saludos

Cree los trigers pero el IBEvents no me los capta, puse el debuger y no pasa nunca, tengo seteada la databse en IBEvent, algo mas hay que hacer ?

MartinS · #6 03-05-2012

Hagamos una cosa: Pone el codigo del trigger y vemos porque no setee nada raro en el componente solo le asigne la Database, Tambien lo cree en el datamodule no se si tendra algo que ver.

A tener en cuenta:

Código SQL [-]CREATE TRIGGER POST_NEW_REG FOR CLIENTES
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
  
  POST_EVENT 'new_reg';
END

new_reg es el nombre del evento envia la base de datos y que captaremos, y en el evento OnEventAlert del IbEvents hacemos la pregunta

Código Delphi [-]procedure TDM.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName = 'new_reg' then
  Begin
  // ShowMessage('Nuevo registro');
  SClientes.DataSet.Refresh;
  End;  
end;

donde preguntamos si viene el evento new_reg hacemos el refresco del datasource que enlaza la grilla (Ojo parece que diferencia mayusculas de minusculas - Me pasó)

pelikno · #7 03-05-2012

Cita:

Empezado por MartinS

Hagamos una cosa: Pone el codigo del trigger y vemos porque no setee nada raro en el componente solo le asigne la Database, Tambien lo cree en el datamodule no se si tendra algo que ver.

A tener en cuenta:

Código SQL [-]CREATE TRIGGER POST_NEW_REG FOR CLIENTES ACTIVE AFTER INSERT POSITION 0 AS BEGIN POST_EVENT 'new_reg'; END

new_reg es el nombre del evento envia la base de datos y que captaremos, y en el evento OnEventAlert del IbEvents hacemos la pregunta

Código Delphi [-]procedure TDM.IBEvents1EventAlert(Sender: TObject; EventName: string; EventCount: Integer; var CancelAlerts: Boolean); begin if EventName = 'new_reg' then Begin // ShowMessage('Nuevo registro'); SClientes.DataSet.Refresh; End; end;

donde preguntamos si viene el evento new_reg hacemos el refresco del datasource que enlaza la grilla (Ojo parece que diferencia mayusculas de minusculas - Me pasó)

Código Delphi [-]procedure TCustomerData.IBEvents1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName = 'new_reg' then
begin
Umain.Form1.inmuebles.Refresh;
Umain.Form1.localidades.Refresh;
end;

MartinS · #8 03-05-2012

y el del trigger?

pelikno · #9 03-05-2012

Código SQL [-]CREATE OR ALTER TRIGGER LOCALIDADES_POS FOR LOCALIDADES
ACTIVE AFTER INSERT POSITION 0
AS
begin
  post_event 'new_reg';
end

este es el triger que cree con ibexpert en la tabla localidades

pelikno · #10 04-05-2012

Cita:

Empezado por MartinS

Bueno parece que vamos encontrando el rumbo. Igual los tengo comentados (Lo de IbEvents) porque no se cual es la razon que se queda pensando el sistema en red. Seguramente hay algo que estoy mal pero ya alguien va a comentar.

Saludos

Pudiste ver eso porque a mi me funciono bien !!

MartinS · #11 04-05-2012

Hola. Aun no, vi toda la documentación y parece que es como se hace. Hoy en la mañana (Hora de Argentina - ahora 17:24) hice una prueba y el cliente se moría pensando, creo que es el equipo o bien la red o el sistema operativo. igual no le di mucha importancia porque programado el componente pareciera que esta bien. Me postearon un par de sugerencia como habras visto pero es la documentacion que vi e implemente para resolver tu problema de actualizacion. Veremos que pasa.

Saludos.-

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Diseño de Sistema	magnu9	Varios	14	16-10-2007 05:27:53
Consulta con diseño de BD	Petolansa	Varios	7	11-08-2007 02:30:01
en diseño web	miamuxi	Conexión con bases de datos	6	19-01-2007 20:13:50
Diseño	pepelu1975	Varios	1	31-05-2004 09:55:36
duda en el diseño	wonder boy	SQL	3	31-03-2004 19:55:06