caguerra

Eu não tenho muita experiência no desenvolver um código VBA. Estou tentandocriar um DataBase, mas está indo totalmente muito bem. Os dados que eu preciso já está no arquivo do excel Eu estu tentando atualizar a lista, adicionar, excluir pessoasou itens, mas está indo tudo errado ele nao adiciona ou muda nenhum dados da planilha O botão (pesquisa, adicionar e outros funcionam,mas não fazem a ação correta Eu não sei o que eu fiz de errado desde ja agardeco pela ajuda Option Explicit Dim blnNew As Boolean Dim TRows, i As Long Private Sub AddNew_Click() blnNew = True TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" CloseButton.Caption = "Cancel" SaveButton.Enabled = False DeleteButton.Enabled = False End Sub Private Sub CloseButton_Click() If CloseButton.Caption = "Close" Then Unload Me Else CloseButton.Caption = "Close" AddNew.Enabled = True DeleteButton.Enabled = True End If 'If Trim(TextVendor.Text) = "" Then 'MsgBox "Enter Vendor Name", vbCritical, "Save" 'End If 'Call prSave End Sub Private Sub DeleteButton_Click() TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count Dim strDel strDel = MsgBox("Delete ?", vbYesNo, "Delete") If strDel = vbYes Then For i = 2 To TRows If Trim(Worksheets("Inventory Assets").Cells(i, 1).Value) = Trim(VendorSelect.Text) Then 'Sheet1.Range(i & ":" & i).Delete Worksheets("Inventory Assets").Range(i & ":" & i).Delete TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Call ComboBoxFill Exit For End If Next i If Trim(VendorSelect.Text) = "" Then SaveButton.Enabled = False DeleteButton.Enabled = False Else SaveButton.Enabled = True DeleteButton.Enabled = True End If ' If Trim(PON.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(PartNoSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(SNSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(ItemCondtionSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(DescriptionSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(POPSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(DRSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If End If End Sub Private Sub SaveButton_Click() If Trim(TextVendor.Text) = "" Then MsgBox "Enter Vendor Name", vbCritical, "Save" End If Call prSave End Sub Private Sub SearchButton_Click() blnNew = False TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" TRows = Worksheets("Inventory Assets").Range("A3").CurrentRegion.Rows.Count For i = 3 To TRows If Val(Trim(Worksheets("Inventory Assets").Cells(i, 1).Value)) = Val(Trim(VendorSelect.Text)) Then TextVendor.Text = Worksheets("Inventory Assets").Cells(i, 1).Value TextPON.Text = Worksheets("Inventory Assets").Cells(i, 2).Value TextPartNo.Text = Worksheets("Inventory Assets").Cells(i, 3).Value TextSN.Text = Worksheets("Inventory Assets").Cells(i, 4).Value TextItemCondition.Text = Worksheets("Inventory Assets").Cells(i, 5).Value TextDescription.Text = Worksheets("Inventory Assets").Cells(i, 6).Value TextPOP.Text = Worksheets("Inventory Assets").Cells(i, 7).Value TextDR.Text = Worksheets("Inventory Assets").Cells(i, 8).Value Exit For End If Next i If TextVendor.Text = "" Then Else SaveButton.Enabled = True DeleteButton.Enabled = True End If End Sub Private Sub prSave() If blnNew = True Then TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count With Worksheets("Inventory Assets").Range("A1") .Offset(TRows, 0).Value = TextVendor.Text .Offset(TRows, 1).Value = TextPON.Text .Offset(TRows, 2).Value = TextPartNo.Text .Offset(TRows, 3).Value = TextSN.Text .Offset(TRows, 4).Value = TextItemCondition.Text .Offset(TRows, 5).Value = TextDescription.Text .Offset(TRows, 6).Value = TextPOP.Text .Offset(TRows, 7).Value = TextDR.Text End With TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Call ComboBoxFill Else For i = 2 To TRows If Trim(Worksheets("Inventory Assets").Cells(i, 1).Value) = (VendorSelect.Text) Then Worksheets("Inventory Assets").Cells(i, 1).Value = TextVendor.Text Worksheets("Inventory Assets").Cells(i, 2).Value = TextPOP.Text Worksheets("Inventory Assets").Cells(i, 3).Value = TextPartNo.Text Worksheets("Inventory Assets").Cells(i, 4).Value = TextSN.Text Worksheets("Inventory Assets").Cells(i, 5).Value = TextItemCondition.Text Worksheets("Inventory Assets").Cells(i, 6).Value = TextDescription.Text Worksheets("Inventory Assets").Cells(i, 7).Value = TextPOP.Text Worksheets("Inventory Assets").Cells(i, 8).Value = TextDR.Text TextVendor.Text = "" TextPOP.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Exit For End If Next i End If blnNew = False End Sub Private Sub ComboBoxFill() TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count VendorSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' PON.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' PartNoSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' SNSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' ItemCondtionSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' DescriptionSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' POPSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' DRSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub 'Rows(7).Select 'Columns(2).Select( para pegar a coluna e fileira Private Sub Test_Initialize() Call prCommBoxFill SaveButton.Enable = False DeleteButton.Enable = False End Sub Private Sub VendorSelect_Change() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count VendorSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub PONSelect_Change() TRows = Workplace("Inventory Assets").Range("B2").CurrentRegion.Rows.Count PON.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub PartNoSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count PartNoSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub SNSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count SNSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub ItemConditionSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ItemCondtionSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub DescriptionSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count DescriptionSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub POPSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count POPSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub DRSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count DRSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub Search_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) End Sub test 2 03-05-2017 1.0 (3).txt test 2 03-05-2017 1.0 (3).txt

ola td bem bom primeiramente estou aqui para pedir ajuda sobre function eu criei um banco de dados eu tive que fazer uma serie de coisas. mas na hora de fazer as function eu não estou conseguindo pois encontro dificuldade no compreendimento e no seu uso . eu estou tentando fazer duas function para o banco que fiz só não estou conseguindo sera que sabe como fazer com base no banco de dados(academia) que eu fiz obrigado desde já criação de tabelas Drop table atividade cascade constraint;Drop table estacionamento cascade constraint;Drop table horarios cascade constraint;Drop table dia cascade constraint;Drop table mensalidade cascade constraint;Drop table cliente cascade constraint;Drop table funcionario cascade constraint;Drop table turma cascade constraint;Drop table curso cascade constraint;Drop table novo_funcionario cascade constraint;Drop table novo_sal cascade constraint;CREATE TABLE Atividade (Cod_Atividade Integer NOT NULL,Nome_Atividade VARCHAR(50) NOT NULL,PRIMARY KEY (Cod_Atividade));INSERT INTO Atividade Values(1,'Musculacao');INSERT INTO Atividade Values(2,'Natacao');INSERT INTO Atividade Values(3,'Artes Maciais');INSERT INTO Atividade Values(4,'Aeróbica');CREATE TABLE Cliente (Cod_Cliente Integer NOT NULL,Nome_Cliente VARCHAR(50) NOT NULL,End_Cliente VARCHAR(60) NOT NULL,CPF Integer NOT NULL,Cod_Men Integer,PRIMARY KEY (Cod_Cliente),FOREIGN KEY (Cod_Men) References Mensalidade(Cod_Men));INSERT INTO cliente Values(1,'Victor Souza','Rua Augusta',452658769,1);INSERT INTO cliente Values(2,'Rafaela Garcia','Rua Itambé',422677472,2);INSERT INTO cliente Values(3,'Bruna de Almeida','Rua Vergueiro',158495687,1);INSERT INTO cliente Values(4,'Pedro Eiji','Avenida Imbira',479632002,3);INSERT INTO cliente Values(5,'Luiza Teixeira','Rua Maria Antonia',745214896,2);INSERT INTO cliente Values(6,'Gustavo Lima','Rua Higienópolis',402598015,1);CREATE TABLE Estacionamento (Num_Reg Integer NOT NULL,Hora_Entrada VARCHAR(5) NOT NULL,Hora_Saida VARCHAR(5)NOT NULL,Placa_veic VARCHAR(7) NOT NULL,Cor_veic VARCHAR(10) NOT NULL,cod_cliente integer,PRIMARY KEY (Num_reg),FOREIGN KEY (cod_cliente) references cliente(cod_cliente));INSERT INTO Estacionamento Values(1,'9:00','12:30','EUQ7728','Prata',1);INSERT INTO Estacionamento Values(2,'12:00','15:00','UHJ0025','Preto',3);INSERT INTO Estacionamento Values(3,'10:00','13:50','BGD5896','Branco',4);INSERT INTO Estacionamento Values(4,'18:45','20:20','DOS4062','Rosa',2);INSERT INTO Estacionamento Values(5,'20:45','22:20','GHU1561','Azul',6);CREATE TABLE Horarios (Cod_Hora Integer NOT NULL,Hora_Inicio VARCHAR(20) NOT NULL,Hora_Fim VARCHAR(20) NOT NULL,PRIMARY KEY (Cod_Hora));INSERT INTO Horarios Values (1,'10:00','12:30');INSERT INTO Horarios Values (2,'13:00','15:30');INSERT INTO Horarios Values (3,'16:00','17:30');INSERT INTO Horarios Values (4,'18:00','20:30');INSERT INTO Horarios Values (5,'21:00','23:30');CREATE TABLE Dia (Cod_Dia Integer NOT NULL,Dia VARCHAR(20) NOT NULL,PRIMARY KEY(Cod_Dia));INSERT INTO Dia Values (1,'Segunda-feira');INSERT INTO Dia Values (2,'Terca-feira');INSERT INTO Dia Values (3,'Quarta-feira');INSERT INTO Dia Values (4,'Quinta-feira');INSERT INTO Dia Values (5,'Sexta-feira');CREATE TABLE Mensalidade (Cod_Men Integer NOT NULL,Tipo VARCHAR(20) NOT NULL,Valor Integer NOT NULL,PRIMARY KEY (Cod_Men));INSERT INTO Mensalidade Values (1,'Mensal',80);INSERT INTO Mensalidade Values (2,'Anual',1000);INSERT INTO Mensalidade Values (3,'Semanal',20);CREATE TABLE Funcionario (Cod_Func Integer NOT NULL,Nome_Func VARCHAR(50) NOT NULL,Salario Integer NOT NULL,Cod_Atividade Integer,PRIMARY KEY (Cod_Func),FOREIGN KEY(Cod_Atividade) References Atividade(Cod_atividade));INSERT INTO Funcionario Values(1,'Thiago',2000,1);INSERT INTO Funcionario Values(2,'Juliana',3060,3);INSERT INTO Funcionario Values(3,'Pedro',1000,1);INSERT INTO Funcionario Values(4,'Maria',4000,2);INSERT INTO Funcionario Values(5,'Joao',2900,4);INSERT INTO Funcionario Values(6,'Jose',3350,4);CREATE TABLE Turma (Cod_Turma integer not null,Cod_Atividade Integer NOT NULL,Cod_Dia Integer NOT NULL,Cod_Hora integer not null,PRIMARY KEY (Cod_Turma),FOREIGN KEY(Cod_Atividade)References Atividade(Cod_Atividade),FOREIGN KEY(Cod_Dia)References Dia(Cod_Dia),FOREIGN KEY(Cod_Hora)References Horarios(Cod_Hora));INSERT INTO Turma Values (1,1,1,1);INSERT INTO Turma Values (2,3,5,4);INSERT INTO Turma Values (3,2,2,5);CREATE TABLE Curso (Cod_Cliente Integer NOT NULL,Cod_Turma Integer NOT NULL,FOREIGN KEY(Cod_Turma)References Turma(Cod_Turma),FOREIGN KEY(Cod_Cliente)References Cliente(Cod_Cliente));INSERT INTO Curso Values (3,3);INSERT INTO Curso Values (1,1);INSERT INTO Curso Values (5,2);-------------------------------------------------create table novo_funcionario(cod_func integer, nome_func varchar(20),data_contrato date);create table novo_sal(cod_func integer,sal_velho integer,sal_novo integer); eu consegui fazer essa daqui mas não sei se ta certo CREATE OR REPLACE FUNCTION Soma_Salario(nsalario IN Funcionario.Salario%type)RETURN NUMBERIStotal number;BEGIN SELECT SUM (salario) INTO totalFROM FuncionarioWHERE (salario= nsalario);RETURN total;END Soma_Salario;

Ola boa tarde eu estou precisando de ajuda para passar os códigos que fiz em .JSp e .java para o Struts 2 eu estou encontrando certa dificuldade e fazer isso pois não sou muito bom em Struts 2 ate agora tudo que eu fiz só piorou o código tentando passar ele para o struts 2 ,ate porque eu nao tenho muito conhecimento em struts e não sei qual ou se e todas as partes códigos e que se tem que fazer alguma alteração .Qualquer ajuda ou conselho de como ajudar a transforma e bem vindo obrigado index.jsp <%@[member="Page"] import="projetotpa.Usuario"%><%@[member="Page"] import="java.util.ArrayList"%><%@[member="Page"] import="projetotpa.Banco"%><%@[member="Page"] contentType="text/html" pageEncoding="UTF-8"%><!DOCTYPE html><html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <div> <h1>Bem vindo </h1> <form action ="Login" method="Post"> <p> Usuário: <input type="text" name="usuario" autofocus><br /> Senha: <input type="password" name="senha"><br /><br /> <input type="submit" value="Entrar"><br /> Cadastre <a href="cadastro.jsp"> Aqui</a> </p> </form> <p> <%@ page import="projetotpa.Contador"%> Usuários online: <%=Contador.getQntUsuarios()%> </p> <p> <%@ page import="projetotpa.Contador"%> Usuários cadastrados: <% Banco banco = Banco.getInstancia(); out.print(banco.getQntUsuarios()); %> </p> </div> <% if(request.getParameter("msg") != null) { if(request.getParameter("msg").equals("1")) { %> <script> alert("Usuário ou senha inválidos"); </script> <% } } %> </body></html> cadastro.jsp <%@[member="Page"] contentType="text/html" pageEncoding="UTF-8"%><!DOCTYPE html><html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title>Bem vindo</title> </head> <body> <div> <form action="Cadastrar" method="post"> <p> Usuário:<input type="text" name="usuario" autofocus><br /> Senha: <input type="password" name="senha"><br /><br /> <input type="submit" value="Cadastrar"> </p> </form> </div> </body></html> principal.jsp <%@[member="Page"] import="projetotpa.Banco"%><%@[member="Page"] import="projetotpa.Usuario"%><%@[member="Page"] import="java.util.ArrayList"%><%@[member="Page"] contentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE html><html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> </head> <body> <div> <p> Olá <% Usuario usuario = (Usuario) session.getAttribute("usuario"); if(usuario == null) { response.sendRedirect("index.jsp"); } else { out.print(usuario.getUsuario()); } %> </p> <p> Digite sua mensagem: </p> <form action="principal.jsp" method="post"> <p> <textarea cols="30" rows="5" name="mensagem"></textarea><br /><br /> <input type="submit" value="Enviar"> <a href="Logout">Logout</a> <br /> </p> </form> </div> <div> <% ArrayList<String> arrayMensagem = (ArrayList<String>) application.getAttribute("arrayMensagem"); String msgn = request.getParameter("mensagem"); if (arrayMensagem == null) { arrayMensagem = new ArrayList<String>(); } if(msgn != null) { if(!msgn.equals("")) { arrayMensagem.add("<strong>" + usuario.getUsuario() + "</strong>: " + msgn); application.setAttribute("arrayMensagem", arrayMensagem); } } for(String linha: arrayMensagem) { out.print(linha); out.print("<br>"); } %> </div> </body></html> banco.java package projetotpa;import java.util.ArrayList;public class Banco { private static ArrayList<Usuario> tabelaUsuario = new ArrayList<Usuario>(); private static Banco instancia = new Banco(); private Banco() { } public static Banco getInstancia() { if(instancia == null) { instancia = new Banco(); } return instancia; } public Usuario adicionarUsuario(Usuario usuarioNovo) { for(Usuario linha: tabelaUsuario) { if(linha.getUsuario().equals(usuarioNovo.getUsuario()) ) { return null; } } int idNovo = tabelaUsuario.size(); usuarioNovo.setId(idNovo); tabelaUsuario.add(usuarioNovo); return usuarioNovo; } public Usuario logarUsuario(Usuario usuario) { for(Usuario linha: tabelaUsuario) { if(linha.getUsuario().equals(usuario.getUsuario()) && linha.getSenha().equals(usuario.getSenha())) { return linha; } } return null; } public int getQntUsuarios() { return tabelaUsuario.size(); }} cadastrar.java package projetotpa; import java.io.IOException;import static java.lang.System.out;import javax.servlet.ServletException;import javax.servlet.annotation.WebServlet;import javax.servlet.http.HttpServlet;import javax.servlet.http.HttpServletRequest;import javax.servlet.http.HttpServletResponse;import javax.servlet.http.HttpSession; public class Cadastrar extends HttpServlet { @[member="override"] protected void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { Usuario usuarioNovo = new Usuario(); Banco banco = Banco.getInstancia(); usuarioNovo.setUsuario(request.getParameter("usuario")); usuarioNovo.setSenha(request.getParameter("senha")); usuarioNovo = banco.adicionarUsuario(usuarioNovo); if(usuarioNovo == null) { response.sendRedirect("cadastro.jsp?msg=1"); } else { HttpSession sessao = request.getSession(); sessao.setAttribute("usuario", usuarioNovo); response.sendRedirect("principal.jsp"); } }} contador.java package projetotpa; import javax.servlet.http.HttpSessionListener;import javax.servlet.http.HttpSessionEvent; public class Contador implements HttpSessionListener { private static int qntAtivos = 0; @[member="override"] public void sessionCreated(HttpSessionEvent se) { qntAtivos++; } @[member="override"] public void sessionDestroyed(HttpSessionEvent se) { if(qntAtivos > 0) { qntAtivos--; } } public static int getQntUsuarios() { return qntAtivos; } } login.java package projetotpa; import java.io.IOException;import javax.servlet.ServletException;import javax.servlet.annotation.WebServlet;import javax.servlet.http.HttpServlet;import javax.servlet.http.HttpServletRequest;import javax.servlet.http.HttpServletResponse;import javax.servlet.http.HttpSession; @WebServlet(name = "Login", urlPatterns = {"/Login"})public class Login extends HttpServlet { @[member="override"] protected void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { Usuario usuario = new Usuario(); Banco banco = Banco.getInstancia(); usuario.setUsuario(request.getParameter("usuario")); usuario.setSenha(request.getParameter("senha")); usuario = banco.logarUsuario(usuario); if(usuario == null) { response.sendRedirect("index.jsp?msg=1"); } else { HttpSession sessao = request.getSession(); sessao.setAttribute("usuario", usuario); response.sendRedirect("principal.jsp"); } }} logout.java package projetotpa; import java.io.IOException;import java.io.PrintWriter;import javax.servlet.ServletException;import javax.servlet.annotation.WebServlet;import javax.servlet.http.HttpServlet;import javax.servlet.http.HttpServletRequest;import javax.servlet.http.HttpServletResponse;import javax.servlet.http.HttpSession; @WebServlet(name = "Logout", urlPatterns = {"/Logout"})public class Logout extends HttpServlet { @[member="override"] protected void doGet(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { HttpSession sessao = request.getSession(); sessao.invalidate(); response.sendRedirect("index.jsp"); }} usuario.java package projetotpa; public class Usuario { private int id = 0; private String usuario = ""; private String senha = ""; public int getId() { return id; } public void setId(int id) { this.id = id; } public String getUsuario() { return usuario; } public String getSenha() { return senha; } public void setUsuario(String usuario) { this.usuario = usuario; } public void setSenha(String senha) { this.senha = senha; } }