Saludos:
Programo en delphi XE con sqlserver 2008, estoy haciendo un sistema de reservas para restaurantes
necesito me sugieran una idea para obtener el objeto Mesa sin necesidad de hacer una búsqueda de los padres, me explico.
Tengo un TPageControl padre de todos en el están los nombre de los restaurantes. todo se crea en tiempo de corrida dependiendo de lo que hay en las base de datos.
dentro de ese TPageControl padre con los restaurantes están en cada TtabSheet otro TPageControl con los nombres de los horarios.
y dentro de cada horario en cada TTabSheet están los componentes mesas que son Tgroupbox.
Todo lo creo en tiempo de corrida y tengo control del nombre de cada cosa, por ejemplo todos los rstaurantes les llamo 'R' + Idrestaurante
en cada Ttabsheet tengo el nombre de 'S' + el Id_seating, y en las mesas que estan dentro de cada uno de esos las llamo 'M' + Id_mesa
Entonces mi pregunta es la siguiente como cada componente lo creo en tiempo de corrida para identificar una mesa, tengo que hacer una búsqueda primero
por el abuelo TPageControl de los restaurantes a ver por el findcontrol en que seating estó (Hora), después tengo que buscar en el padre seating con el findcontrol cual es la mesa.
Entonces hay alguna forma de encontrar un objeto dentro de varios directamente con el nombre que no sea haciendo busquedas con el findcontrol por el padre. Porque de esta forma lo encuentra pero tengo como tres niveles de búsquedas, ya que la mesa no tiene como padre los horarios sino otro nivel mas abajo con un ScrolBox que le puse dentro para poder desplazar las mesas en una forma visual.
Como se que nadie lee sin ejemplos les pongo como creo los restaurantes,despues los seating y luego las mesas en tiempo de corrida:
quisiera entonces una forma de poder encontrar una mesa teniendo su nombre sin necesidad que hacer primero busquedas por sus abuelos y padres.
Código Delphi
[-]
procedure TForm1.AdicionaRestaurantes;
var
NewGB: TcxGroupBox; s: string; sc: TScrollBox; q: tsqlquery;
TabInd: Integer;
NombreTab: string;
begin
q := tsqlquery.Create(nil);
with q do
begin
SQLConnection := datamodule2.SQLCon;
sql.add('SELECT * from restaurantes');
ExecSQL;
open;
first;
while not eof do
begin
NombreTab := 'R' + FieldByName('id').asstring;
AddPaginas(FieldByName('restaurante').asstring, NombreTab,
PageControlRestaurantes, TabInd);
AddSeating(TabInd, FieldByName('id').asinteger);
next;
end;
free;
end;
end;
procedure TForm1.AddPaginas(ACaption, Nombre: string; AControl: TcxPageControl;
var indice: Integer);
var
NewPage: TcxTabSheet;
begin
NewPage := TcxTabSheet.Create(AControl.Owner);
NewPage.PageControl := AControl;
NewPage.Caption := trim(ACaption);
NewPage.Name := Nombre;
indice := NewPage.TabIndex;
end;
procedure TForm1.AddSeating(TabI, idREs: Integer);
var
PS: TcxPageControl; q: tsqlquery;
NewGB: TcxGroupBox; TabSeatingInd: Integer;
NombreTab: string;
begin
PS := TcxPageControl.Create(nil);
PS.Parent := PageControlRestaurantes.Pages[TabI];
PS.align := alclient;
PS.LookAndFeel.SkinName := dxSkiniMaginary.SkinNames[0];
q := tsqlquery.Create(nil);
with q do
begin
SQLConnection := datamodule2.SQLCon;
sql.add(' SELECT ' + ' dbo.Seating.Seating,' +
' dbo.SeatingXRestaurantes.Id_Restaurante,' +
' dbo.SeatingXRestaurantes.id AS idSxR,' +
' dbo.SeatingXRestaurantes.id_seating ' + ' FROM ' +
' dbo.SeatingXRestaurantes ' +
' INNER JOIN dbo.Seating ON (dbo.SeatingXRestaurantes.id_seating = dbo.Seating.id)'
+ ' WHERE ' + ' dbo.SeatingXRestaurantes.Id_Restaurante = ' +
IntToStr(idREs));
ExecSQL;
open;
first;
while not eof do
begin
NombreTab := 'S' + FieldByName('idSxR').asstring;
AddPaginas(FieldByName('seating').asstring, NombreTab, PS, TabSeatingInd);
AddMesas(PS, TabSeatingInd, idREs, FieldByName('idSxR').asinteger);
next;
end;
free;
end;
end;
procedure TForm1.AddMesas(Padre: TcxPageControl;
TabSeating, idREs, idSea: Integer);
var
sc: TScrollBox;
q: tsqlquery;
NewGB: TcxGroupBox;
TabSeatingInd: Integer;
IDSeaxRes: string;
begin
sc := TScrollBox.Create(nil);
sc.Parent := Padre.Pages[TabSeating];
sc.align := alclient;
sc.ParentBackground := true;
IDSeaxRes := Rightstr(Padre.Pages[TabSeating].Name,
Length(Padre.Pages[TabSeating].Name) - 1);
sc.Name := 'S' + IDSeaxRes;
q := tsqlquery.Create(nil);
with q do
begin
SQLConnection := datamodule2.SQLCon;
sql.add('SELECT * from capacidad where id_SxR = ' + IDSeaxRes);
ExecSQL;
open;
first;
while not eof do
begin
AddMesa(sc, FieldByName('Id_capacidad').asinteger,
FieldByName('NoMesa').asinteger, FieldByName('tipomesa').asinteger,
FieldByName('posx').asinteger, FieldByName('posy').asinteger);
next;
end;
free;
end;
end;
procedure TForm1.AddMesa(sc: TScrollBox; IDCapa, NoMesa, tipoM, xx,
yy: Integer);
var
t: TcxGroupBoxMy; p: TcxImage;
l: tpicture; s: string;
i: Integer; espacios: string;
Caracteres: Integer;
begin
t := TcxGroupBoxMy.Create(nil);
espacios := '';
with t do begin
Estado := false;
PaxTotal := tipoM;
PaxReservados := 0;
PosicionX := xx;
PosicionY := yy;
Numero := NoMesa;
id := IDCapa;
Seating := (sc.Parent as TcxTabSheet).Caption;
IdSeating := StrToInt(Rightstr((sc.Parent as TcxTabSheet).Name,
Length((sc.Parent as TcxTabSheet).Name) - 1));
Restaurante := ((sc.Parent as TcxTabSheet)
.Parent.Parent as TcxTabSheet).Caption;
IdRestaurante :=
StrToInt(Rightstr(((sc.Parent as TcxTabSheet)
.Parent.Parent as TcxTabSheet).Name,
Length(((sc.Parent as TcxTabSheet).Parent.Parent as TcxTabSheet)
.Name) - 1));
Parent := sc;
top := xx;
left := yy;
Height := 76;
Width := 86;
style.LookAndFeel.SkinName := dxSkinStardust.SkinNames[0];
name := 'M' + IntToStr(IDCapa);
Caracteres := 16 - Length(IntToStr(NoMesa));
Caracteres := Caracteres - Length(IntToStr(tipoM - PaxReservados));
for i := 1 to Caracteres do
espacios := espacios + ' ';
Caption := 'M' + IntToStr(NoMesa) + espacios +
IntToStr(tipoM - PaxReservados);
end;
p := TcxImage.Create(nil);
with p do begin
picture := cxImage1.picture;
Parent := t;
style.TransparentBorder := false;
align := alclient;
Properties := cxImage1.Properties;
s := trim(GetImagenMesaIni(tipoM));
picture.Graphic.LoadFromStream(Almacen.ItemByName(s).AsStream);
end;
end;