Programa Dividido em modulos.

Question

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 aplicaco...

Rgfreire · Answer

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.

Quadrado · Answer

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 !

F�rum Programa Dividido em modulos. #256623