PDA

Ver la Versión Completa : Problema de principiante


fox
05-12-2007, 11:25:08
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.


-------------------------------------------------------------
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.-------------------------------------------------------------------

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 (http://neftali.clubdelphi.com/images/ResaltarSintaxisDelphi.png).
¿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.
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource:=DataModule1.Datasource1;
end;


Pero al ejecutar da este error.
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.