MENU DINÂMICO - DELPHI 7
BOA TARDE
ALGUEM PODE ME AJUDAR SOBRE MENU DINAMICO NO DELPHI 7.
NÃO SEI NADA SOBRE ISSO.
FIZ UMA TABELA NO BANCO DE DADOS E CADASTREI TODAS AS ROTINAS QUERO QUE APARECE SOMENTE ESSA ROTINA CADASTRADA PARA OS USUARIOS.
ATT.
JOÃO ANTONIO
ALGUEM PODE ME AJUDAR SOBRE MENU DINAMICO NO DELPHI 7.
NÃO SEI NADA SOBRE ISSO.
FIZ UMA TABELA NO BANCO DE DADOS E CADASTREI TODAS AS ROTINAS QUERO QUE APARECE SOMENTE ESSA ROTINA CADASTRADA PARA OS USUARIOS.
ATT.
JOÃO ANTONIO
João Françozo
Curtidas 0
Respostas
Bruno Leandro
26/03/2014
Como esta a estrutura da sua tabela e qual componente de menu seria
GOSTEI 0
João Françozo
26/03/2014
Bom dia
Estou usando o MainMenu.
Quero que aparece no menu somente os que tiver cadastro nessa tabela.
CREATE TABLE [dbo].[tbRotina](
[Cod_rotina] [char](8) NOT NULL,
[Modulo] [char](30) NULL,
[Tabelas] [varchar](50) NULL,
[Descricao] [varchar](100) NULL,
[Visivel] [char](1) NULL,
[Verifica_direito] [char](1) NULL,
CONSTRAINT [PK_Rotina] PRIMARY KEY CLUSTERED
(
[Cod_rotina] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, FILLFACTOR = 90) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
Estou usando o MainMenu.
Quero que aparece no menu somente os que tiver cadastro nessa tabela.
CREATE TABLE [dbo].[tbRotina](
[Cod_rotina] [char](8) NOT NULL,
[Modulo] [char](30) NULL,
[Tabelas] [varchar](50) NULL,
[Descricao] [varchar](100) NULL,
[Visivel] [char](1) NULL,
[Verifica_direito] [char](1) NULL,
CONSTRAINT [PK_Rotina] PRIMARY KEY CLUSTERED
(
[Cod_rotina] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, FILLFACTOR = 90) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
GOSTEI 0
Diego Bastos
26/03/2014
Olá amigo, utilize FindComponent(), onde, dentro de ('menu liberado') estará o registro de cada item do menu nessa tabela que vc apresentou.
GOSTEI 0