Fórum Como usar uma string do banco como comando no Delphi ??? #234407
26/05/2004
0
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
Curtir tópico
+ 0Posts
26/05/2004
Fer_nanda
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
26/05/2004
Info.wtomfs
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
28/05/2004
Info.wtomfs
Ou Teria ???
Gostei + 0
28/05/2004
Djjunior
TForm(´Nome´).create;
Gostei + 0
28/05/2004
Info.wtomfs
Gostei + 0
31/05/2004
Bacalhau
abraço
bacalhau
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)