Manual tecnico

INDICE
CODIGO DE LA PRIMERA Y SEGUNDA PANTALLA PRINCIPAL | 3 |
CODIGO PARA LA VENTANA DE PASSWORD | 4 |
CODIGO VENTANA PARA DAR DE ALTA UN USUARIO | 5 |
CODIGO PARA LA VENTANA DE EMPLEADO | 8 |
CODIGO DE LA VENTANA DE LIBROS | 10 |
CODIGO DE LA VENTANA EDITORIAL | 13 |
CODIGO PARA EL REGISTRO DE ENTRADAS Y SALIDAS DE LIBROS | 16 |
CODIGO PARA BUSQUEDAS | 19 |
CODIGO PARA ELSEGUNDO PASSWORD | 21 |
CODIGO CONSULTA DE LIBROS | 21 |
CODIGO CONSULTA DE EMPLEADOS | 22 |
CODIGO CONSULTA USUARIOS REGISTRADOS | 22 |
CODIGO CONSULTA DE LA EDITORIAL | 22 |
CODIGO CONSULTA DEL AUTORES | 23 |
CODIGO DE ACCESO A SISTEMA | 23 |
CODIGO DE ACCESO A LOS USUARIOS, EDITORIALES, AUTOR, EMPLEADOS Y LIBROS | 24 |
CODIGO REPORTE 1 PARA DATOS DE AUTORES | 24 |
CODIGO REPORTE2 PARA LIBROS REGISTRADOS | 25 |
CODIGO REPORTE 3 PARA REGISTROS | 25 |
CODIGO REPORTE 4 PARA DATOS DE EMPLEADOS | 26 |
CODIGO REPORTE 5 PARA DATOS DE EDITORIALES | 26 |
CODIGO MODULO | 26 |

CODIGO DE LA PRIMERA Y SEGUNDA PANTALLA PRINCIPAL
Private Sub Form_Load()
Marchoso1.FileName = App.Path + "\booksflyin_lrgWHT.GIF"
End Sub

Private Sub Timer1_Timer()
With ProgressBar1
.Value= .Value + 4
If .Value = 248 Then
Unload Me
frmpassword1.Show
End If
End With
End Sub
***********************************************
Private Sub autor_Click()
fmrreporte1.Show
End Sub

Private Sub empleados_Click()
frmconsulta2.Show
End Sub

Private Sub Editoriales_Click()
fmrreporte5.Show
End Sub

Private Sub Empleado_Click()
fmrreporte4.Show
End Sub

Private Sublibro_Click()
fmrreporte2.Show
End Sub

Private Sub libros_Click()
FRMCONSULTA1.Show
End Sub

Private Sub manueditorial_Click()
frmconsulta4.Show
End Sub

Private Sub MDIForm_Load()
If rs.State = 1 Then rs.Close
'If rsempleado.State = 1 Then rsempleado.Close
'Call Conectar
End Sub

Private Sub mnuacceso_Click()
frmacceso.Show
End Sub

Private Sub mnuautor_Click()
frmconsulta5.ShowEnd Sub

Private Sub mnuempleados_Click()
frmconsulta2.Show
End Sub

Private Sub mnumentenimiento_Click()
frmpassword2.Show
End Sub

Private Sub mnusalir_Click()
If MsgBox("Esta seguro?", vbYesNo + vbQuestion, "Salir del Sistema") = vbYes Then
End
End If
End Sub

Private Sub mnuusu_Click()
frmconsulta3.Show
End Sub

Private Sub registro_Click()
fmrreporte3.Show
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 To 5:
frmpassword2.Show
Case 6: frmacceso.Show
Case Else
If MsgBox("¿Desea salir del Sistema?", vbYesNo + vbExclamation, "Sistema de Biblioteca") = vbYes Then
End
End If
End Select
End Sub-------------------------------------------------------------------------------------------------------------
CODIGO PARA LA VENTANA DE PASSWORD
Private Sub cmdaceptar_Click()
rsempleado.MoveFirst
rsempleado.Find "nombre='" & LCase(txtnom) & "'"
If Not rsempleado.EOF Then
If rsempleado.Fields(5) = LCase(txtpassword) Then
Unload Me
frmprincipal.Show
frmprincipal.StatusBar1.Panels(1).Text = "Usuario delSistema: " & txtnom
Else
MsgBox "Contraseña Incorrecta", vbExclamation, "Aviso"
txtpassword = ""
txtpassword.SetFocus
End If
Else
MsgBox "Usuario no Autorizado", vbExclamation, "Aviso"
txtnom = ""
txtpassword = ""
txtnom.SetFocus
End If
End Sub

Private Sub cmdcancelar_Click()
End
End Sub

Private Sub Form_Activate()
'Cn.Close
End SubPrivate Sub Form_Load()
Dim sql As String
Call Conectar
sql = "select*from empleado"
rsempleado.Open sql, Cn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cn.Close
End Sub
-----------------------------------------------------------------------------------

CODIGO VENTANA PARA DAR DE ALTA UN USUARIO

Private Sub cmdmant_Click(Index As Integer)...