Controle de Oficina Mecânica V

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
 (3)  (0)

Dando sequencia ao programa, vamos neste tutorial desenvolver o controle de Manutenção.

Controle de Oficina Mecânica

Neste tutorial iremos criar o formulário de Controle de Manutenção, lembrando que o projeto em si, vem de várias dicas vindo das Revistas e Vídeo Aulas da Devmedia.  Estou utilizando como base no Formulário de Manutenção um programa que vi de controle de Locadora, que no momento não me lembro o nome do desenvolvedor. Mas todo o mérito do layout não deverá ser dado a mim, apenas estou utilizando-o como forma didática.  E demonstrando as várias utilidades de uma aplicação. Então vamos lá.

Crie um novo formulário, clicando em File/NewForm  de o nome de uFormOrcamento, e salve com o nome uContManutenção

Clique em File /Use Unit, para criar a conexão ao banco de dados.

Acrescente ao Form 01 Panel (Guia Standard) e em suas propriedades altere.

Propriedades

 

Nome

PnlMenu

Caption

Controle de Manutenção

Align

AlTop

 

 

Crie o Menu conforme imagem, utilizando o formPrincipal como base. 

Adicione ao Formulário um TStatusBar e altere suas propriedades para:

Propriedades

 

Name

StsRodape

ShowHint

true

 

Adicione um TDBGrid(Palheta DataControls)  ao centro do formulário e altere suas propriedades para:

Propriedades

 

Name

dbgdados

Align

Alclient

Dataset

DSControle

Options

dgRowSelect = true

 

De um duplo clique no DbGrid e acrescente  os dados da tabela clicando em  Add All Field

Acrescente os dados conforme figura e configure o dbGrid  a seu gosto. Salve e voltando ao formulário, vamos

Configurar os Botões

Selecione o Action List e no evento de cada botão  digite:

procedure TFormOrcamento.ActNovoExecute(Sender: TObject);

begin

dm.TbControle.Insert;

dm.TbControleDataEntrada.Value:=date;

dm.TbControleDataPrevista.Value:=Date+2; //estou acrecentando 2 dias para a entrega do orçamento, aqui fica a seu dispor o controle de dias

dm.TbControle.Post;

formContManutencao.ShowModal; //Formulário ainda não criado

end;

procedure TFormOrcamento.ActAlterarExecute(Sender: TObject);

begin

FormContManutencao.showModal; 

end;

procedure TFormOrcamento.ActExcluirExecute(Sender: TObject);

begin

 if MessageDlg('Tem certeza que deseja  Excluir:'+#13+dm.TbControle.FieldByName('Clientes').AsString +  'Da lista de Manutenção',

 mtInformation,[mbYes,MbNo],0)=mrYes

 then

 dm.TbControle.Delete;

end;

procedure TFormOrcamento.ActSairExecute(Sender: TObject);

begin

 Close;

end;

Retorne ao Formulário, e no evento Onclose, digite:

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

begin

Action:=Cafree;

 FormOrcamento:=nil;

end;

Obs:A idéia aqui , quando o cliente entrar com o veiculo, será feito seu cadastro e aberto um Controle de Manutenção, este formulário, não será editável, apenas mostrará os veículos que estão em manutenção e que já foram entregues. 

Então ,vamos alterar nosso  DbGrid, na aba events no item  OndblClick  digite:

procedure TFormOrcamento.DBGDadosDblClick(Sender: TObject);

begin

formContManutencao.showmodal;

end;

Testando o Formulário

Abra o Formulário Principal, e no  evento do ActionList digite:

procedure TFormPrincipal.ActOrcamentoExecute(Sender: TObject);

begin

 FormOrcamento.showModal;

end;

Salve e teste o Formulário.

No próximo Tutorial, vamos  criar o Cadastro de Manutenção

Até lá

Cláudio

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