Ejemplos de manuales tecnicos

Colegio de Estudios Científicos Y Tecnológicos del Estado de México
Plantel Toluca
Manual Tecnico
ING. Jovani Vallejo Abundis
Elaboro: Gemma Mejía Mendoza
Cuarto Semestre
Grupo: 408
Carrera: Técnico en Informática
Fecha de entrega: 18-07-2012




Formulario 1

Dim BD As New ADODB.Connection/declara todas las variables de laconexión/
Dim rs As New ADODB.Recordset/declaratodas las variables de la Recordset/
Private Sub Command1 Click ()/nombre del evento/
rs.Open "SELECT * FROM bibliotecaWHERE FOLIO = '" & Text2 & "' , BD/selection de la tabla control todos los campos para abrirlos y el folio es igual al texto 2/
fecha = Text3/la fecha es igual al texto 3 texto y variable/
ctitulo = rs.Fields("TITULO")/la variable ctitulo estará en el vampotitulo/
cmateria = rs.Fields("TEMA") /la variable cmateria estará en el campo tema/
id_control = Text1/texto y variable/
folio = Text2 /texto y variable/
tipo_prestamo = cmbpalabras /variable es igual a el combo con el nombre/
grupo = cmbgrupo /variable igual al combo nombrado/
lugar_prestamo = cmblugar /variable es igual al combo nombrado/
rs.Close /cierra la sentencia recordset/
rs.Open"INSERT INTO control VALUES('" &id_control& "', '" & fecha & "', '" & folio & "', '" &ctitulo& "', '" &cmateria& "', '" &tipo_prestamo& "', '" &cmbgrupo& "', '" &lugar_prestamo& "')", BD /abrir la tabla control e insertar los valores de id_control,fecha,folio,ctitulo,cmateria,tipo_prestamo,cmbgrupo,lugar_prestamo/
Text1 = ""/limpiar caja de texto/
Text2 = "" /limpiar caja detexto/
Text3 = "" /limpiar caja de texto/
MsgBox "registroguardado"/mensaje de que el registro se guardo/
End Sub/fin de programa/
Private Sub Command2_Click() /nombre del programa evento/
Unload Me/descargame/
Load Form2/carga el formulario 2/
Form2.Show /muestra el formulario 2/
End Sub /fin de programa/
Private Sub Command5_Click()/nombre del programa evento/
Unload Me/descargame/
LoadForm7/cargar el formulario 7/
Form7.Show/muestra el formulario 7/
End Sub/fin de programa/
Private Sub Command6_Click() /nombre de programa evento/
Unload Me /descargame/
Load Form6 /cargar el fomulario6/
Form6.Show /muestra el formulario 6/
End Sub /fin de programa/
Private Sub Command2_Click() /nombre delprograma evento/
Unload Me /descargame/
Load Form5 /carga el formulario 5/
Form5.Show /muestra el formulario 5/
End Sub /fin de programa/
Private Sub Command2_Click() /nombre del programa evento/
Unload Me /descargame/
Load Form11 /carga el formulario 11/
Form11.Show /muestra el formulario 11/
End Sub /fin deprograma/
Private Sub Form_Initialize() /nombre del programa evento/
BD.Open"Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=E:\recu\biblioteca.mdb" /abrir la dirección de donde se mostrara la información ósea acces/
rs.Source = "biblioteca" /Record set abre la tabla biblioteca/
rsCursortype = adOpenKeyset /abre el recordset de la conexion/rs.LockType = adLockOptimistic /cierra el recordset de la coneccion/
End Sub /fin de programa/

Private Sub Form_Load() /nombre del boton/
cmbpalabras.AddItem "alumno" /insertar la palabra alumno en una lista/
cmbpalabras.AddItem "docente" /insertar la palabra docente en una lista/
cmbgrupo.AddItem "singrupo" /insertar una palabra singrupo en una lista/cmbpalabras.AddItem "administrativo" /insertar una palabra administrativo de una lista/
cmblugar.AddItem "domicilio" /insertar una palabra domicilio en una lista/
cmblugar.AddItem "sala" /insertar una palabra sala en una lista/
End Sub /fin del programa/

Formulario 2 consulta libros

Dim BD As New ADODB.Connection/declara todas las variables de la conexión/
Dim rs As New...