Visual Basic completo

Public Vnome As String Private Sub cmdCancelar_Click() End End Sub Private Sub cmdConfirmar_Click() Dim Vnivel, Vsenha As String If txtUsuario.Text = Empty Then MsgBox "Digite o nome do Usuário!", vbOKOnly + vbInformation, "Aviso" txtUsuario.SetFocus Exit Sub End If If txtSenha.Text = Empty Then MsgBox "Digite a Senha!", vbOKOnly + vbInformation, "Aviso" txtSenha.SetFocus Exit Sub End If Vnome = Chr(39) & txtUsuario.Text & Chr(39) Vsenha = Chr(39) & txtSenha.Text & Chr(39) rsLogon.Open "Select * from User_Sistema where Usuario_Sist=" & Vnome & "and Senha_Sist=" & Vsenha, cnLoja, adOpenKeyset, adLockOptimistic, adCmdText If rsLogon.RecordCount = 0 Then MsgBox "Usuário ou Senha Inválida!", vbOKOnly + vbInformation, "Aviso" txtUsuario.Text = "" txtSenha.Text = "" txtUsuario.SetFocus rsLogon.Close 14 Exit Sub Else frmSplashPrincipal.Show Vnivel = rsLogon("Nivel_Sist") Vnome = rsLogon("Usuario_Sist") mdiPrincipal.stbMostra.Panels(1).Text = "Operador: " & Vnome If Vnivel = "B" Then With mdiPrincipal .Gerenciar.Visible = False End With End If If Vnivel = "C" Then With mdiPrincipal .Gerenciar.Visible = False .Cadastro.Visible = False End With End If Unload Me End If End Sub Private Sub Form_Load() cnLoja.ConnectionString = "Provider=microsoft.jet.oledb.4.0" cnLoja.Open "D:\MARCELO\Projeto VB Final2\Loja.mdb" lblData.Caption = Date lblHora.Caption = Time End Sub Private Sub Form_Unload(Cancel As…

frmSobre login Public Class frmLogin Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'EstoqueDataSet.USUARIOS' table. You can move, or remove it, as needed. Me.USUARIOSTableAdapter.Fill(Me.EstoqueDataSet.USUARIOS) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try …

Private Sub cmdCancelar_Click() End End Sub Private Sub cmdConfirmar_Click() Dim Vnivel, Vsenha As String If txtUsuario.Text = Empty Then MsgBox "Digite o nome do Usuário!", vbOKOnly + vbInformation, "Aviso" txtUsuario.SetFocus Exit Sub End If If txtSenha.Text = Empty Then MsgBox "Digite a Senha!", vbOKOnly + vbInformation, "Aviso" txtSenha.SetFocus Exit Sub End If Vnome = Chr(39) & txtUsuario.Text & Chr(39) Vsenha = Chr(39) & txtSenha.Text & Chr(39) rsLogon.Open "Select…

Silva 1º) End. Ip do host: 172.30.1.33/27 Mascara de sub-rede: 255.255.255.224 Nº de Bits para sub-rede:11 Nº de sub redes: 2¹¹-2= 285.311.670 Nº de Bits de host por sub-rede: 5 Nº host válido por sub-rede: 30 End. de sub-rede P/este endereço: 172.30.1.32 End. de IP do primeiro host nesta sub-rede: 172.30.1.33 End. do ultimo host nesta sub-rede 172.30.1.63 End. de Broadcast: 172.30.1.64 2º) End. Ip do host: 172.30.1.33/29 Mascara de sub-rede: 255.255.255.248 Nº de Bits para…

jogo Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load truefalse = "false" Ativdesativbotao() End Sub Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click ' Inicio do jogo. Configura o programa para uma nova rodada após o jogador clicar no botão iniciar. ' Desabilita o botão de começar. ' Desabilita os botões de nível do jogo. ' Zera a barra de progresso. ' Zera os vetores. '…

Formulário frmApresentacao Option Explicit Private Sub btnEntrar_Click() ' ao clicar no botão Entrar é exibida a tela de login frmLogin.Show End Sub Private Sub Form_Load() ' lendo o caminho do help App.HelpFile = App.Path & "\help\Help.chm" 'inicialmente ninguém está logado Controle.AdministradorLogado = False Controle.PilotoLogado = False End Sub Formulário frmLogin Dim Tabela As String Private Sub btnEntrar_Click() …

excluída do banco, pois é meramente informativo. Figura 4.32 – Exclusão de itens de venda 48 A tela abaixo demonstra o item Atualizar produto. Esta função permite que atualize-se a quantidade de um determinado produto. Figura 4.33 – Aba de manutenção de estoque da tela principal (atualização) Clicando, abre-se uma janela, como demonstrado abaixo, onde o usuário poderá fazer as atualizações, quando necessária, das quantidades de produtos no estoque. Esta opção ape-nas realiza a soma…

configurar as mensagens Private Sub habilitar() 'sub rotina que habilita os controles cboRA.Enabled = True cboAluno.Enabled = True cboMateria.Enabled = True cboSemestre.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 …

Single Public operacao As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click text1.Text = text1.Text + "1" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click text1.Text = text1.Text + "2" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub…

dados: o gerente poderá consultar os dados cadastrados no sistema, de cliente, funcionário e mercadoria (estoque). Use case - Gerar relatórios: o gerente poderá gerar relatórios de clientes, funcionários, mercadoria (estoque) Use case – efetuar pedido: o gerente pode efetuar pedidos dos fornecedores. Use case – fornecedores: contém as informações necessárias de cada fornecedor Gerenciador de Casas Noturnas: Night House 24 6. Diagramas de Fluxo de dados O DFD é um diagrama…