António Roberto Software

a.roberto@mail.telepac.pt

Aula de 20 de Janeiro de 2003

Desenvolvimento da solução SolLoja (continuação):  Início do Caso de Utilização Comprar Produto

• Foi adicionado um novo método à classe BDLoja

  • Public Sub ActualizarQuantidadeProduto(ByVal CodigoProduto As Integer, ByVal VariacaoNaQuantidade As Integer)
    • actualiza a quantidade em stock de um determinado produto  
    • UPDATE Produtos
          SET QuantidadeStock = QuantidadeStock + VariacaoNaQuantidade
      WHERE IDProduto = CodigoProduto

• O método Comprar da classe Produto sofreu alterações:

  • o nível de acesso passou de Public para Friend

    • Friend Sub Comprar(ByVal Quantidade As Integer)
    • o método é acessível no projecto onde está definida a classe, mas é inacessível no resto da solução
      • CliLoja utiliza objectos da classe Produto, mas apenas pode consultar as suas propriedades
      • CliLoja enviará a mensagem Comprar para um objecto da classe Loja 

  • foi acrescentada a linha:

    • BD.ActualizarQuantidadeProduto(CodProduto, -Quantidade)
      • actualiza na base de dados a quantidade em stock do produto
• Foi adicionado o método Comprar à classe Loja
  • Public Sub Comprar(ByVal CodigoProduto As Integer, ByVal Quantidade As Integer)
• A classe CliLoja sofreu alterações:
  • foram adicionados novos controls à User Interface
  • construiu-se a resposta ao evento Click no botão btnComprar

Diagrama de sequência de Comprar Produto:

Código fonte obtido no final da aula:

Nome da Solução	Tipo	Código Fonte
SolLoja	Windows Application + Class Library	SolLoja20Janeiro

Nota: para a solução correr no seu computador, tem de actualizar a Connection String no construtor da classe BDLoja.