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 iremos criar o formulário de Cadastro de Manutenção, lembrando que o ao se abrir o Formulário de Controle de Manutenção e clicando no botão Novo irá se abrir o Controle de Manutenção, que estou disponibilizando o Layout como base da construção.

Vamos  primeiro analisar a tabela de TbControle, pois é ela que será a base de nosso programa.

Note que acrescentamos dois itens Clientes e  Veiculos  para  que no nosso formulário, possa aparecer o nome do Cliente e não seu código.  Então faça o seguinte.

Clique com o direito no Editor Field, e selecione  New Field

Na tela que se abre  digite os dados conforme figura.

Isso fará com que os dados da tabela cliente possa ser  mostrada na tabela Controle, Faça o mesmo procedimento para o item Veiculo.

Ainda no Data Module(DM), Agora na tabela(TBMaoObra)  abra o Field editor  MaoObra, e acrescente um item conforme imagem

a seguir na Tabela TBMaoObra, no evento OnCalcField, digite:

procedure TDM.TbMaoObraCalcFields(DataSet: TDataSet);

begin

tbMaoObra.FieldByName('Total').asfloat := (tbMaoObra.FieldByName('ValorMaoObra').AsFloat + tbMaoObra.FieldByName('ValorOrcamento').asfloat);

//Aqui estamos somando o valor da mão de obra com o valor do orçamento

end;

Já com data Module pronto, vamos para a construção do formulário.

Acrescente 2 panels, com a propriedade  align AlTop . e 01 TgroupBox com a propriedade Alig AlClient, altere seu nome para grbDados.

No panel1 altere seu caption para  Abertura de manutenção, configure a seu gosto e acrescente uma image  para melhorar o visual.

Clique em File/NewUnit , para podermos utilizar as tabelas do banco de dados

Abra o DataModule(DM)  , de um duplo clique na tabela TBControle, e arraste para o Panel2 os itens  Controle,Clientes e Veiculos.

Adicione mais 01 Panel dentro do  GroupBox(grbDados) e dentro deste  panel adicione 4 botões (TBitBtn)

Propriedades

 

Caption

Name

BtnEditar

Editar

 

btnCancelar

Cancelar

 

btnConfirmar

Confirmar

 

btnExcluir

Excluir

 

Para acrescentar uma imagem aos botões, localize a imagem no item Glyph

Adicione ao GroupBox, um  TDBGrid(Palheta DataControls) e altere seus dados conforme:

Propriedades

 

Nome

dbgDados

Dataset

DsMaoObra

Color

A seu gosto

 

De um duplo clique no dbGrid e acrescente os dados conforme imagen, formate os dados a seu gosto.

Vamos configurar os eventos dos botões , dando um clique duplo em cada um deles para podermos digitar suas ações.

procedure TFormContManutencao.btnEditarClick(Sender: TObject);

  Begin

  dm.TbControle.Edit;

  dm.TbMaoObra.Edit;

  dm.TbControle.Refresh;

  dm.TbMaoObra.Refresh;

  end;

procedure TFormContManutencao.btncancelarClick(Sender: TObject);

begin

dm.TbMaoObra.Cancel;

dm.TbControle.cancel;

close;

end;

procedure TFormContManutencao.btnConfirmarClick(Sender: TObject);

begin

if MessageDlg('Operação realizada com sucesso!'+#13+

'Obrigado pela preferencia.',mtInformation,[mbok],0)=mrOk

 then

 dm.TbControle.Edit;

 dm.TbControle.Post;

 close;

end;

procedure TFormContManutencao.btnExcluirClick(Sender: TObject);

begin

if MessageDlg('Tem certeza que deseja excluir:'+#13+

 dm.TbMaoObra.FieldByName('Orcamento').AsString + 'Da lista de Orcamento',

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

 then

 dm.TbMaoObra.Delete;

end;

Rodando o Formulário

Teste o sistema e abra o form Controle de Manutenção e clique no botão Novo para que abra o form Abertura de Manutenção, selecione o cliente e o veiculo e inicie a mão obra , note que o código ficará em branco , para evitar isso , exclua o item CodMaoObra, no editor de Colunas do DbGrid ou ao clicar no botão confirmar, irá aparecer o numero do código da Mão Obra por ser um  AutoIncremento.  Deixo isso como sua opção.

No próximo tutorial, irei criar o formulário de  Manutenções em andamento

Até lá
 
Cláudio medeiros dos Santos