Programa Dividido em modulos.

Delphi

29/10/2004

Estou comecendo a desenvolver um sistema e gostaria de faze-lo da seguinte maneira. Criaria uma tela principal que funcionaria como padrao, e nao precisaria ta mechendo mais nele, e as demais aplicacoes como cadastro de clientes, produtos e enfim seriao os modulos. A pergunta e: Como faço para criar esta aplicacao, sendo uma principal e as demais em modulos?


Abraços.. :oops: :lol:


Deltakronos

Deltakronos

Curtidas 0

Respostas

Rgfreire

Rgfreire

29/10/2004

Crie o seu Form principal e modifique a propriedade FormStyle para fsMDIForm(Formulario mae) e os demais formularios vc coloca a mesma propriedade como fsMDIChild(filhos da mae...rsrsrsrs). Em Project - Options, deixe somente o Form principal em Auto-Create Forms e os demais direcione para Available Forms.

Com essa estrutura vc poderá ter um modulo principal e os demais modulos abrindo dentro do principal..


Att,
Rodrigo Freire e Alexandre Bernardo.


GOSTEI 0
Quadrado

Quadrado

29/10/2004

Eu criei um programa principal com tela mias caprichada e alguns botões para chamar os módulos, inclusive passando parâmetros para o programa chamado, fazendo checagem de senha, login com o mesmo funcionário que logou no principal, através de um BitBtn:

procedure TFormPrincipal.bbFaturaClick(Sender: TObject);
var
   nData : integer;
begin
   nData := Round(Now);

   nErro := WinExec(PChar(cDirServer+´Exec\Faturamento.exe ´+IntToStr(nData)+´ ´+
         IntToStr(fmLogon.nFuncAtivo)+´ ´+fmLogon.cSenhaUser+´ ´+
         fmLogon.cNomeMaquina), SW_SHOW);
   if nErro <= 31 then { Se ocorreu erro... }
      ShowMessage(´Erro ao executar o programa.´);
end;


e depois no programa chamado

   try
      if ParamStr(1) = ´´ then
         fmLogon.ShowModal
      else
         if not fmLogon.LogonSistema(StrToInt(ParamStr(2)) ,
                              ParamStr(3) {Senha do func},
                              ParamStr(4) {Nome maquina},
                              fmLogon.nAplicativo {nr aplicativo}) then
            Application.Terminate;
   except
      Application.Terminate;
   end;


fmLogon é o meu formulário para identificação do usuário e a função LogonSistema realiza um série de checagens específicas de cada sistema

Boa sorte !


GOSTEI 0
POSTAR