Controle de Oficina Mecânica VII

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Dando sequencia no programa, vamos neste tutorial criar o controle de manutenções em andamento

Controle de Oficina Mecânica

Atenção:  Por motivos particulares, esse tutorial só irá até a aula IX, não tem finalização..  
Neste tutorial vamos criar o Controle de Manutenção em andamentos, onde a finalidade deste formulário é apenas visualizar as manutenções que ainda estão em aberto, e com um duplo clique no nome do cliente, fazer a abertura da manutenção para confirmar o término do serviço.

Crie um novo formulário e salve-o com o nome de uManAndamento, configure esse  formulário

Propriedades

 

Name

FormManAndamento

Position

PoScreenCenter

Caption

Controle de Manutenções em Andamento

 

Clique em file/UseUnit, para conectarmos ao banco de dados.

Adicione ao formulário 02 Panels(Palheta Standard) e 01 TDbGrid (palheta  DataControls) e configure:

Propriedades

 

Panel1  -  Name

               -Align

Panel2 – Name

                Align

PnlMenu

Altop

Pnldados

AlTop

DbGrid – Name

               - Dataset

                - Options

               -Align

dbgDados

DsControle

 dgRowselect = true

AlClient

 

Configure o Panel1, alterando seu Caption para Manutenção em Andamento

Inclua uma imagem para melhorar o layout.

Configure o Caption2  utilizando um actionList, e crie a barra de menus com base no form principal.

Para o DbGrid, de um duplo clique  para que se abra o Editor de colunas e configure-o a seu gosto, não esquecendo que estamos trabalhando com o Nome do cliente

Os Eventos dos Botões

Abra o ActionList, e para o evento ActOk, digite:

procedure TFormManAberto.ActOkExecute(Sender: TObject);

begin

FormContManutAberto.showModal; //Form ainda não criado      

end;

Para o demais botões digite:

procedure TFormManAberto.ActCancelarExecute(Sender: TObject);

begin

Close;

end;

procedure TFormManAberto.ActSairExecute(Sender: TObject);

begin

    Close;

end;

Retorne ao formulário, e no evento Onclose do form digite:

procedure TFormManAberto.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=Cafree;

  FormManAberto:=Nil;

end;

Salve , e vamos fazer o teste para ver se tudo está correto.

Abra o Form Principal e no actionList , no item actEntrega digite:

procedure TFormPrincipal.ActEntregaExecute(Sender: TObject);

Begin

FormManAberto.ShowModal;

end;

Salve e teste nossa aplicação.

 

Pronto está terminado nosso formulário, no próximo tutorial iremos fazer a tela para darmos baixa na Manutenção, preparar o sistema para a cobrança do serviço.

Até lá

 

Cláudio Medeiros dos Santos

 
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?