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
