Visual Basic 6 - ADO : Ponto de Vendas

Hoje vou apresentar um sistema completo com código fonte aberto para estudo.

Para os que estão iniciando no Visual Basic , esta fantástica ferramenta de desenvolvimento RAD, trago um exemplo bem simples de uma aplicação com acesso a uma base de dados Access. Um singelo ponto de vendas com as seguintes funcionalidades:

A aplicação é para os iniciantes, e, embora seja bem simples, cumpre o seu papel de mostrar como realizar diversas tarefas básicas com banco de dados usando ADO.

Assim temos que :

A conexão com  a base de dados é aberta no inicio da carga do programa no módulo .bas usando a procedure sub main:

Nota: a variável para a conexão é definida como Global no módulo: Global con As New ADODB.Connection

Sub main()

On Error GoTo erro

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos.mdb;Persist Security Info=False;Jet OLEDB:Database"

frmmain.Show
Exit Sub

erro:
MsgBox "Não foi possível localizar o banco de dados", vbCritical, "Erro Acesso a dados"

End Sub

Após abrir a conexão a aplicação trabalha com recordsets abrindo e efetuando filtros de dados , quando necessário, conforme o trecho de código a seguir :

...
Dim rs As New ADODB.Recordset
rs.Open "Produtos", con, adOpenDynamic, adLockPessimistic
rs.Filter = "itemcode='" & txtitemcode.Text & "'"
...

A tela principal da aplicação é a seguinte :

Nela você pode notar que é usado um controle ListView para exibir os itens e a sua totalização. Remos também um Label exibindo a hora atual.

Enfim , um prato cheio para os iniciantes sanar suas dúvidas e aprender fazendo suas próprias experiências e ajustes.

Pegue o projeto completo aqui : ptoVendas.zip

Nota: Tenha o cuidado de alterar a string de conexão no formulário frmtransacao.frm.

No site existem muitos artigos sobre ADO a seguir relaciona apenas alguns deles:

Migração ADO/DAO
Migração ADO/DAO - Abrindo uma Base de Dados
Migração ADO/DAO - Retornando e Alterando dados - Trabalhando com Recordsets
Migração ADO/DAO - Trabalhanco com Consultas e Consultas Parametrizadas
ADO - Usando Transações.
Validação e Critica de dados
Utilizando os objetos de Controle Vinculados da ADO
ADO-RDS KB
Erros ADO-OLEDB
ADO - Como usar o objeto Connection ?
Utilizando o controle MSFlexGrid e MSHFlexGrid com ADO
VB6 e ADO - Usando o Controle ListView e SQL
ADO - Obtendo informações sobre a fonte dos dados
Considerações sobre a migração DAO/Jet para ADO/Jet e Access 2000

Aguardo você no próximo artigo VB....

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

 

 

             Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter
 

Referências:

José Carlos Macoratti