none
Tela de Presença(Chamada) de Alunos RRS feed

  • Pergunta

  • Boa noite. Estou com essa dificuldade por que não sou muito fera em VB. É um sistema assim: É uma tela com dois DataGrid e dois buttons. No DataGridView da esquerda, é puxado o nome dos alunos da tabela "Membros". Ao clicar no botão "Presente" ou "Ausente", ele vai pro dataGridView da direita, listado como presente ou ausente. Só que eu gostaria que os nomes  fossem alternando, por exemplo, primeiramente vai aparecer o membro de "Id " 1, ao clicar em Presente ou Ausente, muda para o próximo registro, Membro de "Id" 2, e assim sucessivamente, e depois Cadastrar isso na tabela Presença. Como trabalho O.O, essa é a classe chamada "Presença" (Cod_Presença), (Id_Membro),e eu possuo uma classe "Membros"(Nome,Id,Endereco,Rg,etc) e uma classe de Conexão já feitos. O Código parou por aqui:

    Public Class frmPresença
        Dim mem As New Membros
        Dim ds As New DataSet

        Private Sub frmPresença_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ds = mem.MostrarMembros
            dgvMembros.DataSource = ds.Tables(0)

            dgvPresente.Columns.Add("Nome", "NOME")
            dgvPresente.Columns.Add("Rg", "RG")
            dgvPresente.Columns.Add("Presença", "PRESENÇA")


        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPresente.Click
            dgvPresente.Rows.Add(dgvMembros.CurrentRow.Cells(0).Value, dgvMembros.CurrentRow.Cells(1).Value, "PRESENTE")
        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAusente.Click
            dgvPresente.Rows.Add(dgvMembros.CurrentRow.Cells(0).Value, dgvMembros.CurrentRow.Cells(1).Value, "AUSENTE")
        End Sub

    Essa é a tela de Presença, puxando do Membros.. Aqui está o método MostrarMembros(), puxado da classe Membros:

     Public Function MostrarMembros()
            sql = "Select Nome,Rg from Membros"
            ds = con.listar(sql)
            Return ds
        End Function


    quarta-feira, 2 de abril de 2014 00:14

Todas as Respostas