Crie um banco de dados no programa Microsoft Access.
Dê um nome a este banco de dados, como exemplo usaremos ?Cadastro de Clientes?.
Escolha o local a ser salva. Para este exemplo usamos ?C:\Meus documentos\Meus programas\Banco de dados\Cadastro de Clientes.mdb?
Crie uma tabela com os seguintes campos
Nome, Endereço, Telefone.
Todos com tipo de dados Texto.
Salve sua tabela.
Dê a ela o nome de ?Clientes?.
Inclua alguns registro (preencha com alguns dados).
Feche seu banco de dados.
Atenção se você estiver usando o Access 2000 talvez tenha que converter seu banco de dados para um a versão anterior
Inicie o Visual Basic.
Iniciar/ Programas/ Microsoft Visual Basic 6/ Visual Basic 6
Selecione o projeto padrão (StandardEXE), e clique no botão Abrir
Insira mais um formulírio (MDIForm1). Project/Add MDIForm.
Insira os objetos no ?form1?.
Data,
Text1
Text2
Text3
Label1
Label2
Label3
Command1
Command2
Defina as propriedades de uma só vez de todos Textbox
Selecione todos de uma vez arrastando o cursor do mouse sobre todos.
Width = 3000
Height = 360
Isso caso você queira tamanhos iguais para as caixas de texto
Definas as propriedades dos rótulos (Label).
Selecione todos rótulos.
Width = 1000
Height = 360
Defina as propriedades do botões (Commandbutton).
Selecione todos botões.
Width = 1000
Height = 360
Defina as propriedades:
Form1
Name = clientes
Caption = Cadastro de Clientes
MDIChild = True
MDIForm1
Name = cadastro
Caption = Cadastro de Clientes
Data
Caption = Cadastro de Clientes
DatabaseName = ? C: \Meus documentos\ Meus programas\Banco de dados\Cadastro de Clientes. mdb?. Procure pelas pastas o banco de dados criado no Access.
Width = 360
Height = 3000
RecordsedType = 0 ? Table
RecordSource = Clientes
Text1
Name = txt1
Text = deixe em branco
DataSource = Data1
DataField = Nome
Text2
Name = txt2
Text = deixe em branco
DataSource = Data1
DataField = Endereço
Text3
Name = txt3
Text = deixe em branco
DataSource = Data1
DataField = Telefone
Label1
Name = lbl1
Caption = Nome
Label2
Name = lbl2
Caption = Endereço
Label3
Name = lbl3
Caption = Telefone
Command1
Name = cmd1
Caption = &Incluir
Command2
Name = cmd2
Caption = &Excluir
Salve seu projeto agora.
File/Save Project.
Dê um nome. Exemplo CadastroDeClientes.
Rode seu programa.
Run/Start
Antes de iniciarmos a construção dos códigos para os botões vamos mudar a forma de carregamento do programa.
Clique em Project/Project1 Properties...
Clique em Startup Objetct. Selecione cadastro (MDIForm) e clique em ?OK?.
Rode novamente o programa.
Notou que o formulírio para incluir e excluir cadastro não aparece.
Porque às vezes você não quer cadastrar um cliente quer ver um relatório ou uma consulta.
Então selecione o formulírio ?cadastro? (MDIForm).
Clique no Menu Editor na barra de ferramentas
Defina:
Caption = Arquivo
Name = mnuarquivo
Clique em Netx.
Dê um clique na seta para direita, defina.
Caption = Abrir
Name = mnuabrir
Clique em OK.
Clique no menu que você acabou de criar no formulírio cadastro (MDIForm).
Clique em abrir.
Digite o seguinte código.
clientes.Show
Selecione agora o form (clientes).
Dê um clique duplo no botão Incluir (cmd1) e digite o seguinte código.
Data1.Recordset.AddNew
Dê um clique duplo no botão Excluir (cmd2) e digite o seguinte código.
Data1.Recordset.Delete
Faça os testes necessírios.
Rode o programa.
Run/Start.
Salve o projeto e crie um executível.
File/Make CadastroDeClientes.exe...
Erros podem ocorrer tanto ao incluir ou excluir registros.
Para isso anote o número do erro que aparecer retorne ao projeto e siga as instruções clicando no botão Help.
espero ter ajudado...
0 comentários:
Postar um comentário