Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-04-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 225
Poder: 14
darkamerico Va por buen camino
Thumbs up Cargar un TdxTreeView (Nodos y SubItems) desde BD MYSQL en XE10 - resuelto

Saludos amigos, aqui les dejo este fragmento de código, espero les sirva

Código Delphi [-]
procedure TfrmMain.FormActivate(Sender: TObject);
var
  Node : TTreeNode;
  i,numitems:integer;
begin
  dm.q_Rubro.Close;
  dm.q_Rubro.Open;
  i:=0;
  while not dm.q_Rubro.Eof do
  begin
    tree.Items.Add(nil,dm.q_Rubro.FieldByName('idrubro').AsString+'.'+
                       dm.q_Rubro.FieldByName('tituloABR').AsString);
    tree.Items.Item[i].Selected:=true;

    dm.q_ItemsXRubro.Close;
    dm.q_ItemsXRubro.Params[0].AsInteger:=dm.q_Rubro.FieldByName('idrubro').AsInteger;
    dm.q_ItemsXRubro.Open;

    numitems:=0;
    while not dm.q_ItemsXRubro.Eof do
    begin
      Node:=tree.Items.AddChild(tree.Selected,dm.q_ItemsXRubro.FieldByName('idrubroitem').AsString+'.'+
                                              dm.q_ItemsXRubro.FieldByName('item').AsString);
      dm.q_ItemsXRubro.Next;
      Inc(numitems);
    end;
    dm.q_Rubro.Next;
    i:=i+numitems+1;
  end;

La estructura de las tablas rubro y rubroItem es la siguiente:

Código SQL [-]
CREATE TABLE `scoring_rubro` (
  `idrubro` int(11) NOT NULL,
  `titulorubro` varchar(255) DEFAULT NULL,
  `tituloABR` varchar(50) DEFAULT NULL,
  `puntaje_max` float DEFAULT NULL,
  PRIMARY KEY (`idrubro`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Código SQL [-]
CREATE TABLE `scoring_rubroitem` (
  `idrubroitem` int(11) NOT NULL,
  `idrubro_fk` int(11) DEFAULT NULL,
  `item` varchar(255) DEFAULT NULL,
  `puntaje` float DEFAULT NULL,
  PRIMARY KEY (`idrubroitem`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Saludos
Responder Con Cita
  #2  
Antiguo 21-04-2016
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
Thumbs up

Gracias por compartir

Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cargar dbcombobox desde una tabla en mysql asdberna Conexión con bases de datos 4 05-04-2013 21:43:06
Tlistview editar los subitems DarkBlue Varios 2 24-05-2011 20:19:45
Edita SubItems de ListView MAXIUM Varios 2 31-12-2008 16:43:26
Cargar imágenes desde JAVA en MySQL david.rguez JAVA 1 14-02-2007 14:36:19
Agregar subitems a un ListView nax OOP 3 30-11-2004 21:45:55


La franja horaria es GMT +2. Ahora son las 15:58:13.


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
Copyright 1996-2007 Club Delphi