Controle de Oficina Mecânica VIII

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

Neste tutorial irei dar sequencia na criação do formulário de Orçamentos em andamento e dando a baixa do mesmo.

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 Manutenção em Andamento, lembrando que o ao se abrir o Formulário iremos selecionar a Manutenção e clicar em Confirmar, o Total da despesa do Cliente será feito em outra aula, pois iremos retornar ao Data Module para prepararmos  os campos devidos. Então vamos lá.  abaixo o formulário parcialmente acabado.

Inicie um novo formulário e de a ele o nome de FormManutAndamento e salve com nome uFormManutAndamento.
 

Clique em File UseUnit, para criarmos um vinculo ao DataModule.

Acrescente  um Panel e inclua uma imagem a seu gosto (essa imagem retirei do site da Microsoft Brasil) e converti ela para jpeg de tamanho 80x80px)
Na sequencia abra o DataModule (DM) , clique duplo na TbControle, selecione o itens CodControle e Cliente e arraste para o form.
Delete os itens CodControle e Clientes e coloque dois DbTextBox(DataControls), pois os mesmo não serão editáveis.

Na sequencia  acrescente um DbGrid(Data Controls) e conecte-o ao DataModule (Ds.MaoObra)

 

Nome

Propriedades

 

Name

DBDados

Options

 

dgRowSelect=true

dgalwalsshow=true

dgMultSelect=true

De um duplo clique no dbGrid e configure-o conforme a imagemacima ou a seu gosto.

Acrescente dois Botões(BitBtn) e configure-os.
 
procedure TFormContManutAberto.btnConfrmarClick(Sender: TObject);

begin

dm.TbControle.Edit;

dm.TbControleDataDevolucao .Value:=date;

dm.TbControle.post;

MessageDlg('Manutenção realizada com Sucesso!'+#13+ ' entrega do Veiculo ok',

mtInformation,[mbOk],0);

Close;

end;

 

procedure TFormContManutAberto.btnCancelarClick(Sender: TObject);

begin

Close;

end;

 

No evento onClose do Form Digite:

 
procedure TFormContManutAberto.FormClose(Sender: TObject;

 var Action: TCloseAction);

begin

Action:=Cafree;

FormContManutAberto:=Nil;

end; 

 

Pronto  nosso  formulário já está funcionando,faça os teste e  no próximo tutorial iremos trabalhar no formulário Principal e preparar a base para criarmos o modo de cobrança.  Abaixo o visual do form principal que iremos icrementar no próximo tutorial.

 

 

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?