ayuda con grids y bases de datos

[ecfisa]

En cada uno de esos casos creo, se necesitaria un reloj que haga la consulta o no? Yo estoy tratando con varios dataset como dijo el otro compañero y utilizando el evento afterrefresh que no se utilizar pero estoy investigando XD

Hola pedrolazarus.

De ese modo, cuando un registro de TABLA1 esté seleccionado, automáticamente serán seleccionados todos los que estén en relación con él en TABLA2 y lo mismo para TABLA3.

Hablando visualmente, cuando selecciones un registro en el DBGRid1 (mesas) automáticamente se mostrarán los registros dependientes en DBGrid2(clientes) y DBGRid3(productos) que corresponden a la mesa seleccionada.

Es decir que no veo la necesidad de usar un Timer, excepto claro, que desearas hacer una especie de demo que cada determinado tiempo seleccione una mesa aleatoriamente.

Saludos.

[pedrolazarus]

Empezado por ecfisa

Hola pedrolazarus.

De ese modo, cuando un registro de TABLA1 esté seleccionado, automáticamente serán seleccionados todos los que estén en relación con él en TABLA2 y lo mismo para TABLA3.

Hablando visualmente, cuando selecciones un registro en el DBGRid1 (mesas) automáticamente se mostrarán los registros dependientes en DBGrid2(clientes) y DBGRid3(productos) que corresponden a la mesa seleccionada.

Es decir que no veo la necesidad de usar un Timer, excepto claro, que desearas hacer una especie de demo que cada determinado tiempo seleccione una mesa aleatoriamente.

Saludos.

Esto hice:

Cadena_SQL:='CREATE  TABLE  IF NOT EXISTS "main"."mesas" ("id" INTEGER PRIMARY KEY,"mesa" VARCHAR(30),"ocupado" VARCHAR(30));';
Sqlite3Dataset1.SQL:=Cadena_SQL;
Sqlite3Dataset1.ExecSQL;

Cadena_SQL:='CREATE  TABLE  IF NOT EXISTS "main"."cliente" ("nombre" VARCHAR(30), "rif" VARCHAR(30),"id_mesa" INTEGER,"id_factura" INTEGER);';
Sqlite3Dataset1.SQL:=Cadena_SQL;
Sqlite3Dataset1.ExecSQL;

Cadena_SQL:='CREATE  TABLE  IF NOT EXISTS "main"."factura" ("id" INTEGER PRIMARY KEY,"producto" VARCHAR(30),"precio" INTEGER,"rif_cliente" VARCHAR(30));';
Sqlite3Dataset1.SQL:=Cadena_SQL;
Sqlite3Dataset1.ExecSQL;

Sqlite3Dataset1 para la tabla mesa

Sqlite3Dataset2 para cliente

Sqlite3Dataset3 para factura

Cada uno con su respectivo datasource.

Ahora no entendi lo que dijiste acerca de relacionar los datasourse por lo que en el reloj hice

Sqlite3Dataset2.close;
Sqlite3Dataset2.SQL:='SELECT * FROM cliente where id_mesa="'+mesa+'";';
Sqlite3Dataset2.ExecSQL;
Sqlite3Dataset2.Open;

Sqlite3Dataset3.close;
Sqlite3Dataset3.SQL:='SELECT * FROM factura where id="'+nfactura+'";';
Sqlite3Dataset3.ExecSQL;
Sqlite3Dataset3.Open;

donde mesa y nfactura son variables que toman un valor respectivo

Pero me gustaria entenderlo asi como tu lo dices

==============================================================================
EDITO Y AGREGO

El componente Sqlite3Dataset3 no trae la opcion de datasource a diferencia de utilzar componentes zeos

[ecfisa]

Hola.

El componente Sqlite3Dataset3 no trae la opcion de datasource a diferencia de utilzar componentes zeos

La verdad que no conozco ese componente y si no cuenta con la propiedad DataSource tal vez no sea posible aplicar lo que te sugerí.

Saludos.

[pedrolazarus]

Empezado por ecfisa

Hola.


La verdad que no conozco ese componente y si no cuenta con la propiedad DataSource tal vez no sea posible aplicar lo que te sugerí.

Saludos.

Bueno ahora utilizo esto con zeos

coloque en el form un zconexion, tres query y tres source

query1 datasource1
query2 datasource2
query3 datasource3


al primer query le coloque solo conexion=zconexion

al segundo query igual conexion=zconexion y en datasourse=datasource1

al tercer query igual conexion=zconexion y en datasourse=datasource2


realizo la consulta en el form asi Siguiendo los mismos datos que deje mas arriba de como cree la base de datos

ZQuery1.SQL.Text:='SELECT * FROM mesas';
ZQuery1.ExecSQL;
ZQuery1.Open;

ZQuery2.SQL.Text:='SELECT * FROM cliente where id_mesa=id';
ZQuery2.ExecSQL;
ZQuery2.Open;

Esto me tira el siguiente error "no such column Id"

Por lo tanto no inicia el programa

EDITO Y AGREGO
=======================================================
Me falto colocarle las comillas a id id_mesa="id"

Me mustra la tabla mesas pero cuando seleciono otro registro por ejemplo mesa id=2 que esta ocupada y tiene cliente no hace nada o no se mustra nada en la grid

EDITO Y AGREGO
=======================================================
Tambien lo hice metiendo el codigo de seleccion en cada uno de los query y activando el query en el form igual muestra las mesas pero no muestra los datos en la grid 2 (la grid 2 tiene el datasourse2)

[ecfisa]

Hola pedrolazarus.

En principio cambiaría:

Código Delphi [-]
ZQuery1.SQL.Text:='SELECT * FROM mesas';
ZQuery1.ExecSQL;
ZQuery1.Open;

ZQuery2.SQL.Text:='SELECT * FROM cliente where id_mesa=id';
ZQuery2.ExecSQL;
ZQuery2.Open;

Por:

Código Delphi [-]
ZQuery1.SQL.Text:='SELECT * FROM mesas';
ZQuery1.Open;

ZQuery2.SQL.Text:='SELECT * FROM cliente where id_mesa=id';
ZQuery2.Open;

El método ExcecSQL, ejecuta consultas que no devuelven un resultado como CREATE TABLE, INSERT, DELETE y UPDATE.

Saludos.

[pedrolazarus]

Empezado por ecfisa

Hola pedrolazarus.

En principio cambiaría:
Código Delphi [-]ZQuery1.SQL.Text:='SELECT * FROM mesas'; ZQuery1.ExecSQL; ZQuery1.Open; ZQuery2.SQL.Text:='SELECT * FROM cliente where id_mesa=id'; ZQuery2.ExecSQL; ZQuery2.Open;

Por:
Código Delphi [-]ZQuery1.SQL.Text:='SELECT * FROM mesas'; ZQuery1.Open; ZQuery2.SQL.Text:='SELECT * FROM cliente where id_mesa=id'; ZQuery2.Open;

El método ExcecSQL, ejecuta consultas que no devuelven un resultado.

Saludos.

Jajaja, antes de que respondieras estaba por postear la respuesta y esta era:

Empezado por pedrolazarus

Me respondo a mi mismo XD, gracias ecfisa, fuiste de mucha ayuda, con los componentes de zeos salio a la primera como dijiste las relaciones sin utilizar reloj.

[pedrolazarus]

Me respondo a mi mismo XD, gracias ecfisa, fuiste de mucha ayuda, con los componentes de zeos salio a la primera como dijiste las relaciones sin utilizar reloj.