Menu desplegable con SQLServer
buenos dias
estoy con un proyecto de la universidad y necesito hacer el menú pero los campos deben de tomarse desde SQL Server y utilizando ciclo repetitivos y tener 2 campos en mi base de datos uno con el nombre del objeto y el otro para el padre y los hijos
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Menus;
type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
Menu: TMainMenu;
a: TMenuItem;
b: TMenuItem;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var
nombre: string;
begin
Menu:= TMainMenu.Create(Self);
ADOQuery1.First;
a:= TMenuItem.Create(Self);
a.Caption:= (ADOQuery1.FieldByName('frutas').AsString);
Menu.Items.Add(a);
ADOQuery1.First;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f1').AsString);
a.Add(b);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f2').AsString);
a.Add(b);
ADOQuery1.First;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f3').AsString);
a.Add(b);
ADOQuery1.Next;
a:= TMenuItem.Create(Self);
a.Caption:= (ADOQuery1.FieldByName('frutas').AsString);
Menu.Items.Add(a);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f1').AsString);
a.Add(b);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f2').AsString);
a.Add(b);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f3').AsString);
a.Add(b);
ADOQuery1.Next;
a:= TMenuItem.Create(Self);
a.Caption:= (ADOQuery1.FieldByName('frutas').AsString);
Menu.Items.Add(a);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f1').AsString);
a.Add(b);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f2').AsString);
a.Add(b);
ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f3').AsString);
a.Add(b);
end;
end.
|