CONTROLE DE OFICINA MECÂNICA
Clique com o direito no Editor Field, e selecione New Field
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.
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.
Propriedades |
|
Caption |
Name |
BtnEditar |
Editar |
|
btnCancelar |
Cancelar |
|
btnConfirmar |
Confirmar |
|
btnExcluir |
Excluir |
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.
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.