Como usar uma string do banco como comando no Delphi ???
Ola Galera....
Estou com uma dúvida que nem sei se têm como resolver.
Tenho um banco, e tenho uma tabela que guarda o nome do formulário
Bom, to dizendo isso tudo pq eu não terei um menu principal padrão, eu criarei ele em tempo de execução de acordo com cada´acesso de usuário
Daí eu vou criar o menu, só que eu preciso saber o que cada botão do submenu vai executar, e isso eu vou amarrar de alguma forma no banco.
Como eu faria pra ler o nome do form no banco e colocar dentro do click
do Submenu ???
Desde já Agradeço!!!
obs.: Eu poderia já deixar o comando de abertura do form dentro do banco ex:
if Frm_Clientes = Nil then
Begin
Frm_Clientes := TFrm_Clientes.Create(Application);
Frm_Clientes.Show;
End
Else
Frm_Clientes.Show;
Estou com uma dúvida que nem sei se têm como resolver.
Tenho um banco, e tenho uma tabela que guarda o nome do formulário
Bom, to dizendo isso tudo pq eu não terei um menu principal padrão, eu criarei ele em tempo de execução de acordo com cada´acesso de usuário
Daí eu vou criar o menu, só que eu preciso saber o que cada botão do submenu vai executar, e isso eu vou amarrar de alguma forma no banco.
Como eu faria pra ler o nome do form no banco e colocar dentro do click
do Submenu ???
Desde já Agradeço!!!
obs.: Eu poderia já deixar o comando de abertura do form dentro do banco ex:
if Frm_Clientes = Nil then
Begin
Frm_Clientes := TFrm_Clientes.Create(Application);
Frm_Clientes.Show;
End
Else
Frm_Clientes.Show;
Info.wtomfs
Curtidas 0
Respostas
Fer_nanda
26/05/2004
vc poderia deixar uma função genérica para isso, em uma unit biblioteca por exemplo, aí vc só altera o nome do parametro (formulário q deverá ser criado)
procedure CriarForm(Form: TForm)
begin
if form = nil then
form := Tform.create
else
form.Show;
end;
// e na hora de chamar..
CriarForm(frmCadastroClientes); //onde frmCadastroClientes vc buscaria do seu banco caso atenda suas condições definidas para o usuário.
Acho q isso pode te ajudar um pouco.
Até
procedure CriarForm(Form: TForm)
begin
if form = nil then
form := Tform.create
else
form.Show;
end;
// e na hora de chamar..
CriarForm(frmCadastroClientes); //onde frmCadastroClientes vc buscaria do seu banco caso atenda suas condições definidas para o usuário.
Acho q isso pode te ajudar um pouco.
Até
GOSTEI 0
Info.wtomfs
26/05/2004
Claro que ajuda Amigão....
Muito obrigado pela atenção...
Achei Muito boa a dica, mas como eu vou criar o menu em tempo de execução, como vou colocar a chamada do form na hora que o usuário clicar no submenu, pois como criei em tempo de execução aí complica pq não tenho nada programado no click de nenhum submenu....
Vc conhece alguma forma de eu conseguir assimilar isso ???
Valeu mais uma vez............
Muito obrigado pela atenção...
Achei Muito boa a dica, mas como eu vou criar o menu em tempo de execução, como vou colocar a chamada do form na hora que o usuário clicar no submenu, pois como criei em tempo de execução aí complica pq não tenho nada programado no click de nenhum submenu....
Vc conhece alguma forma de eu conseguir assimilar isso ???
Valeu mais uma vez............
GOSTEI 0
Info.wtomfs
26/05/2004
Detalhe, Não têm como associar uma string na variável TForm...
Ou Teria ???
Ou Teria ???
GOSTEI 0
Djjunior
26/05/2004
Faça um TypeCast tipo
TForm(´Nome´).create;
TForm(´Nome´).create;
GOSTEI 0
Info.wtomfs
26/05/2004
Dá erro!!!
GOSTEI 0
Bacalhau
26/05/2004
Estimados, eu perguntei isso aqui há um ano atrás e a resposta funcionou. Eu não sei onde está, mas uma pesquisa por ´TComponent´ deve resolver. Acho que foi o colega Zanela que deu a resposta.
abraço
bacalhau
abraço
bacalhau
GOSTEI 0