Form no modo Arquivar
Quinta-feira, 20 de Agosto de 2015.
Desenvolvimento de Software – Mobile.
Décima Primeira aula do professor Marcelo.
Função Alterar
Fazer: 1º Tela / 2º Tab e Enter / 3º Caracteres Maiúsculos / 4º Centralizar a Tela / 5º Desabilitar o botão Excluir / 6º Retirar Maximizar e Minimizar do Form / 7º Preencher ZEROS à esquerda no campo Registro / 8º Verificar os campos vazios antes de arquivar / 9º Arquivar / 10º Fazer o Banco de dados no Access na versão 2002-2003 / 11º Unir o Banco de Dados com o sistema / 12º Puxar dados (buscar dados a partir do Form e não no BD) / 13º Alterar: Para Alterar devemos escrever uma verificação (para Arquivar/Alterar) no Form, usando If Then Else (ver o código do Form abaixo, linhas em negrito) e escrever no Class a função para alterar os dados (ver o código do Class abaixo, linhas em negrito).
Todo Formulário deve ter os botões: Arquivar, Excluir e Sair.
Crie um Sistema com os seguintes campos:
Atributos para o form
Registro: 1 Label e 1 TextBox
Aluno: 1 Label e 1 TextBox
Turma: 1 Label e 1 TextBox ou 1 ComboBox
Turno: 1 Label e 1 TextBox
Configurar as propriedades (em Properties) de todos os objetos.
Banco de Dados
Abra o aplicativo Microsoft Access: escolha a opção Banco de Dados em Branco, escolha o diretório C (crie uma pasta com o nome Banco dentro em C), dê um nome ao arquivo e escolha o tipo 2002-2003, dê ok e clique em criar. Pronto, o arquivo criado foi gravado dentro da pasta Banco.
Clique com o botão direito em Tabela e clique em Modo Disign. A seguir, nomeie a tabela. Em Nome do Campo, nomeie com os atributos: Registro (Numero), Aluno (Texto, Tamanho 50), Turma (Texto, Tamanho 5), Turno (Texto, Tamanho 5). A seguir, salve e feche o Access.
Conectando o Banco de Dados com o Sistema
Para colocar um novo módulo chamado Class, proceda: na guia Project >> Add Class … >> Class (em Templates) >> Name: (nomeie a Class) >> Add. Pronto. Veja os códigos do Form e do Class abaixo:
Para ver o número de linhas no código proceda:
1 Tools
2 Options…
3 Text Editor
3 Basic
4 Editor
5 No quadro ao lado escolha: Line numbers
Código do Form 1
Public Class Form1
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
TextBox3.Focus()
End If
End Sub
Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
Button1.Focus()
End If
End Sub
Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
Button2.Focus()
End If
End Sub
Private Sub Button2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
Button3.Focus()
End If
End Sub
Private Sub Button3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button3.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
TextBox1.Focus()
End If
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If TextBox1.Text = “” Then TextBox1.Focus() : Exit Sub
Dim cod As Integer = TextBox1.Text
TextBox1.Text = String.Format(“{0:D5}”, cod)
‘——————————————-
Dim puxar1 As Alunos
puxar1 = New Alunos(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
Dim puxar2 As Alunos
puxar2 = New Alunos
puxar2.puxar(puxar1)
‘Colocando os Dados do Banco de Dados nos Campos
TextBox2.Text = puxar1.yaluno
TextBox3.Text = puxar1.yturma
TextBox4.Text = puxar1.yturno
‘Verificando se tem algum nome sendo importado do Banco de Dados
‘Se tiver ele troca o nome do botão 1 para ALTERAR
‘Se não tiver o nome do botão ficará como ARQUIVA
If puxar1.yaluno = “” Then
Button1.Text = “&Arquivar”
Else
Button1.Text = “&Alterar”
End If
End Sub
Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
TextBox2.Text = UCase(TextBox2.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = “” Or TextBox1.Text = “0” Then
MsgBox(“Preencha o campo Registro”, MsgBoxStyle.Exclamation, “Aviso…”)
TextBox1.Focus()
End If
If TextBox2.Text = “” Or TextBox2.Text = “0” Then
MsgBox(“Preencha o campo Aluno”, MsgBoxStyle.Exclamation, “Aviso…”)
TextBox2.Focus()
End If
If TextBox3.Text = “” Or TextBox3.Text = “0” Then
MsgBox(“Preencha o campo Turma”, MsgBoxStyle.Exclamation, “Aviso…”)
TextBox3.Focus()
End If
If TextBox4.Text = “” Or TextBox4.Text = “0” Then
MsgBox(“Preencha o campo Turno”, MsgBoxStyle.Exclamation, “Aviso…”)
TextBox4.Focus()
End If
‘————————————–
Dim obj As New Alunos
Dim gravou As Boolean
If Button1.Text = “&Alterar” Then
gravou = obj.alterar(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
Else
gravou = obj.gravar(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
End If
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
Button1.Text = “&Arquivar”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
Form no modo Alterar
Código do Class
‘Importando as bibliotecas
Imports System.Data
Imports System.Data.OleDb
Public Class Alunos
‘Variável de Conexão
Dim strcon As String
‘Variável dos Campos do Banco de Dados
Public yregistro As Integer
Public yaluno As String
Public yturma As String
Public yturno As String
‘Criando um Construtor de Conexão
Public Sub New()
strcon = “Provider=Microsoft.Jet.OleDB.4.0;Data Source=C:\banco\alunos.mdb”
End Sub
‘Criando um Construtor para Preencher as Variáveis com y
Public Sub New(ByVal xreg As Integer, ByVal xalu As String, ByVal xtur As String, ByVal xturno As String)
yregistro = xreg
yaluno = xalu
yturma = xtur
yturno = xturno
End Sub
‘Criando Função para Gravar no Banco de Dados
Public Function gravar(ByVal xreg As Integer, ByVal xalu As String, ByVal xtur As String, ByVal xturno As String) As Boolean
Dim gravou As Boolean
Dim conn As New OleDbConnection(strcon)
Dim comando As New OleDbCommand
Dim sql As String = “insert into Nome(registro,aluno,turma,turno) values(@registro,@aluno,@turma,@turno)”
comando = New OleDbCommand(sql, conn)
comando.Parameters.Add(“@registro”, OleDbType.Integer).Value = xreg
comando.Parameters.Add(“@aluno”, OleDbType.VarChar, 50).Value = xalu
comando.Parameters.Add(“@turma”, OleDbType.VarChar, 5).Value = xtur
comando.Parameters.Add(“@turno”, OleDbType.VarChar, 5).Value = xturno
conn.Open()
gravou = comando.ExecuteNonQuery
End Function
‘Puxando os Dados do Banco de Dados
Public Function puxar(ByVal kregis As Alunos)
Dim conn As New OleDbConnection(strcon)
Dim comando As New OleDbCommand
Dim dr As OleDbDataReader
Dim sql As String = “select * from nome where registro=@registro”
comando = New OleDbCommand(sql, conn)
comando.Parameters.Add(“@registro”, OleDbType.Integer).Value = kregis.yregistro
conn.Open()
dr = comando.ExecuteReader
‘Limpando as Variáveis
kregis.yaluno = “”
kregis.yturma = “”
kregis.yturno = “”
Do While dr.Read
kregis.yaluno = dr.Item(“aluno”)
kregis.yturma = dr.Item(“turma”)
kregis.yturno = dr.Item(“turno”)
Exit Do
Loop
End Function
‘Alterando os Dados do Banco de Dados
Public Function alterar(ByVal xreg As Integer, ByVal xalu As String, ByVal xtur As String, ByVal xturno As String) As Boolean
Dim gravou As Boolean
Dim conn As New OleDbConnection(strcon)
Dim comando As New OleDbCommand
Dim sql As String = “update Nome set aluno=@aluno,turma=@turma,turno=@turno where registro=” & xreg
comando = New OleDbCommand(sql, conn)
comando.Parameters.Add(“@aluno”, OleDbType.VarChar, 50).Value = xalu
comando.Parameters.Add(“@turma”, OleDbType.VarChar, 5).Value = xtur
comando.Parameters.Add(“@turno”, OleDbType.VarChar, 5).Value = xturno
conn.Open()
gravou = comando.ExecuteNonQuery
End Function
End Class
Reduzir para Compreender
¬¢£³²¹