Controle de Oficina Mecânica
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.
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.
Cláudio Medeiros dos Santos