Clique em File UseUnit, para criarmos um vinculo ao DataModule.
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.
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:
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