Lançamento de notas em vb

Páginas: 7 (1614 palavras) Publicado: 8 de junho de 2012
'Importação das bibliotecas de acesso a dados e matematica
Imports System.Data.OleDb
Imports System.Math


Public Class frmLancamentoNota

' instancia da classestring seleciona materia

' declara um objeto da classe connection
Dim cnnnota As New Connection()

Public actualkey As Short ' chave atual

Dim intTipoOperacao As Integer ' tipo de operação
Dimlastkey As Short ' última chave


Dim selaluno As String 'string seleciona aluno
Dim selmat As String 'string seleciona materia

Dim mensagem As String 'para configurar as mensagens

Private Sub habilitar()
'sub rotina que habilita os controles


cboRA.Enabled = True
cboAluno.Enabled = True
cboMateria.Enabled = TruecboSemestre.Enabled = True


TxtAV1.Enabled = True
txtAV2.Enabled = True
TxtAV3.Enabled = True
'coloca o foco na combo RA
cboRA.Focus()

End Sub

Private Sub desabilitar()
'sub rotina para desabilitar controles
cboRA.Enabled = False
cboAluno.Enabled = False
cboMateria.Enabled = FalsecboSemestre.Enabled = False



TxtAV1.Enabled = False
txtAV2.Enabled = False
TxtAV3.Enabled = False


End Sub


Private Sub limpa()
'sub rotina para limpar os controles



cboRA.SelectedIndex = -1
cboAluno.SelectedIndex = -1
cboMateria.SelectedIndex = -1
cboSemestre.SelectedIndex = -1TxtAV1.Clear()
txtAV2.Clear()
TxtAV3.Clear()



End Sub


Private Sub locreg(ByVal pchave As Integer)
'sub rotina para localizar registro



Dim sqlcmd As String
' seleciona oúltimo registro inserido

If pchave = 0 Then
sqlcmd = "sect top 1 * from notas order by codigo desc"

Else
sqlcmd = "select *from notas where codigo = " & Trim(Str(pchave))

End If

'prepara o command
cnnnota.Cmd.CommandText = sqlcmd

'tratamento de exceções

Try

cnnnota.Dtr = cnnnota.Cmd.ExecuteReader

actualkey = 0
If cnnnota.Dtr.Read() Then
'preenche os controles
'outra forma de acessar os dadosnas tabelas, passando o nome do campo
actualkey = CShort(cnnnota.Dtr("CODIGO"))
cboRA.SelectedValue = cnnnota.Dtr("CODALUNO")
cboAluno.SelectedValue = cnnnota.Dtr("CODALUNO")
cboMateria.SelectedValue = cnnnota.Dtr("codmateria")
cboSemestre.Text = cnnnota.Dtr("SEMESTRE")
TxtAV1.Text =Format(cnnnota.Dtr("NOTA1"), "0.0")
txtAV2.Text = Format(cnnnota.Dtr("NOTA2"), "0.0")
TxtAV3.Text = Format(cnnnota.Dtr("NOTA3"), "0.0")


cboRA.Refresh()

Else

limpa()

End If

Catch ex As Exception
'trata as exceptions
MessageBox.Show("exception!" & vbCrLf & ex.ToString,"MEDIA UNINOVE", MessageBoxButtons.OK, MessageBoxIcon.Error)

Finally
cnnnota.Dtr.Close()

End Try

End Sub

Private Function arredonda(ByVal notas)

'para arredondamento da nota
Dim newnota As String
Dim nota As Double

newnota = ""
'substituindo a virgula por ponto
nota = Val(notas.replace(",", "."))Dim diferenca As Double
'para calcular a diferença entre a parte fracionária e a parte inteira da média
diferenca = nota - Int(nota)
'formata o numero com 1 casa decimal
newnota = FormatNumber(Int(nota), 1)

If diferenca > 0 And diferenca 0.5 And diferenca < 0.999 Then
newnota = Round(Int(nota) + 1.0, 1)

End If...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Notas de Lançamento do iPhone
  • Vb
  • Relatório de participação em palestra sobre o lançamento da nota fiscal eletrônica
  • vb
  • Apostila de vb
  • calculadora em vb
  • Funções de vb
  • Lançamentos

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!