Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)
-   -   Problema de principiante (https://www.clubdelphi.com/foros/showthread.php?t=51070)

fox 05-12-2007 11:25:08

Problema de principiante
 
Estoy empezando con esto del Lazarus y tengo un pequeño problema.

Estoy generando una aplicacion que tiene dos formularios, uno de ellos es un form y el otro es un datamodule. En el datamodule tengo unos cuantos compenentes
basededatos
transaction
tabla
datasource

Y en el form tengo un dbgrid. El data module esta en el uses del form, pero la prodiedad -datasource- del dbgrid no me muestar el data source del datamodule.

¿Que debo hacer para que esto me funcione?

Os envio el codigo fuente de los dos formularios. Gracias.


-------------------------------------------------------------
Código Delphi [-]
unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Unit2,
  DbCtrls, DBGrids;

type

  { TForm1 }

  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

initialization
  {$I unit1.lrs}

end.
-------------------------------------------------------------------

Código Delphi [-]
unit Unit2; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Dialogs, Interbase, db;

type

  { TDataModule1 }

  TDataModule1 = class(TDataModule)
    Datasource1: TDatasource;
    IBDatabase1: TIBDatabase;
    IBQuery1: TIBQuery;
    IBTransaction1: TIBTransaction;
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  DataModule1: TDataModule1; 

implementation

initialization
  {$I unit2.lrs}

end.
----------------------------------------------------

Neftali [Germán.Estévez] 05-12-2007 12:51:51

Por favor utiliza TAG's de Delphi cuando coloques código.
¿Si colocas el nombre a mano en el formato Unidad.Nombre no funciona?

fox 05-12-2007 15:33:59

Estando en diseño, en el inspector de objetos, la propiedad datasource del dbgrid esta a (none).
y aqui no deja poner el formato unidad.nombre.


Esto si que lo deja poner.
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource:=DataModule1.Datasource1;
end;


Pero al ejecutar da este error.
Cita:

Project raised exception class 'External SIGSEGV'

fox 11-12-2007 15:47:46

¿Por favor no hay nadie que me pueda ayudar con esto?, he estado buscando algo por internet, pero no me funciona nada de lo que e visto.
Incluso al pasar codigo delphi a lazarus hace algunas cosas raras y no consigue lincar las tablas que le pongo en el datamodule con los grids que le pongo en el form.

Gracias.


La franja horaria es GMT +2. Ahora son las 23:10:08.

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