Sistema Privado Dos Fucionarios.
Sistema Privado Dos Fucionarios.
Private Sub CmdOK_Click()
If TxtUsuario.Text = "GABRIEL" And TxtSenha.Text = "LOCGABRIEL" Then
FrmCadastro.Show
Me.Hide
Else
MsgBox "Usuário ou senha inválidos. Tente novamente.", vbInformation + vbOKOnly, "LOCADORA GABRIEL"
TxtUsuario.Text = ""
TxtSenha.Text = ""
TxtUsuario.SetFocus
Exit Sub
End If
End Sub
Private Sub CmdSair_Click()
End
End Sub
Private Sub TxtSenha_LostFocus()
TxtSenha.Text = UCase(TxtSenha.Text)
End Sub
Private Sub TxtUsuario_LostFocus()
TxtUsuario.Text = UCase(TxtUsuario.Text)
End Sub
Private Sub CboGenero_Change()
End Sub
Private Sub CmdGeral_Click()
FrmGeral.Show
Unload Me
End Sub
Private Sub CmdOK_Click()
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If ctl.Text = "" Then
MsgBox "Preencha todos os campos.", vbInformation + vbOKCancel, "LOCADORA GABRIEL"
ctl.SetFocus
Exit Sub
End If
End If
Next
If CboGenero.Text = "" Then
MsgBox "Preencha todos os campos.", vbInformation + vbOKCancel, "LOCADORA GABRIEL"
CboGenero.SetFocus
Exit Sub
End If
If Not IsDate(TxtDataEmp.Text) Or Not IsDate(TxtDataDev.Text) Then
MsgBox "Os campos 'Data empréstimo' e 'Data devolução devem ser em formato de data. Preencha novamente.", vbInformation + vbOKOnly, "LOCADORA GABRIEL"
TxtDataDev.SetFocus
Exit Sub
End If
If MsgBox("Deseja realmente salvar os dados?", vbQuestion + vbYesNo, "Locadora") = vbYes Then
sql = "insert into TbLocadora (Nome, Jogo, Genero, DataEmp, DataDev) "
sql = sql & "values ('" & TxtNome.Text & "', '" & TxtJogo.Text & "', '" & CboGenero.Text & "', "
sql = sql & "'" & TxtDataEmp.Text & "', '" & TxtDataDev.Text & "')"
db.Execute sql
MsgBox "Os dados foram salvos!", vbInformation + vbOKOnly, "LOCADORA"
LimpaCampos
End If
End Sub
Private Sub CmdSair_Click()
End
End Sub
Private Sub Form_Load()
CboGenero.AddItem "ESPORTE"
CboGenero.AddItem "AVENTURA"
CboGenero.AddItem "TIRO"
CboGenero.AddItem "GUERRA"
CboGenero.AddItem "AÇÃO"
CboGenero.AddItem "TERROR"
CboGenero.AddItem "FAROESTE"
CboGenero.AddItem "CORRIDA"
CboGenero.AddItem "INFANTIL"
TxtDataEmp.Text = Date
Main
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub TxtJogo_Change()
TxtJogo.Text = UCase(TxtJogo.Text)
TxtJogo.SelStart = Len(TxtJogo.Text)
End Sub
Private Sub TxtNome_Change()
TxtNome.Text = UCase(TxtNome.Text)
TxtNome.SelStart = Len(TxtNome.Text)
End Sub
Private Sub LimpaCampos()
CboGenero.ListIndex = -1
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next
TxtNome.SetFocus
End SubPrivate Sub Form_Load()
sql = "SELECT * FROM TbLocadora"
Set tb = db.OpenRecordset(sql)
If tb.RecordCount <> 0 Then
tb.MoveFirst
tb.MoveLast
tb.MoveFirst
TxtCont.Text = "1/" & tb.RecordCount
TxtNome.Text = tb!Nome
TxtJogo.Text = tb!Jogo
TxtGenero.Text = tb!Genero
TxtDataEmp.Text = tb!DataEmp
TxtDataDev.Text = tb!DataDev
cont = 1
Else
Exit Sub
End If
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub TxtAnt_Click()
If tb.AbsolutePosition <> 0 And tb.RecordCount <> 0 Then
tb.MovePrevious
TxtNome.Text = tb!Nome
TxtJogo.Text = tb!Jogo
TxtGenero.Text = tb!Genero
TxtDataEmp.Text = tb!DataEmp
TxtDataDev.Text = tb!DataDev
cont = cont - 1
TxtCont.Text = cont & "/" & tb.RecordCount
Else
Exit Sub
End If
End Sub
Private Sub TxtNome_Change()
End Sub
Private Sub TxtProx_Click()
If tb.AbsolutePosition + 1 <> tb.RecordCount Then
tb.MoveNext
TxtNome.Text = tb!Nome
TxtJogo.Text = tb!Jogo
TxtGenero.Text = tb!Genero
TxtDataEmp.Text = tb!DataEmp
TxtDataDev.Text = tb!DataDev
cont = cont + 1
TxtCont.Text = cont & "/" & tb.RecordCount
Else
Exit Sub
End If
End Sub
