Manual Tecnico

SKY SYSTEM 1

SKY SYSTEM Versioacuten 100

Manual de Teacutecnico Para Manejo de SKY SYSTEM

Fecha de elaboracioacuten

26 de Junio de 2011

Aacuterea de Elaboracioacuten

Aacuterea Administrativa

SKY SYSTEM 2

Presentacioacuten 3

Antecedentes 3

Objetivos del sisitema 4

Introduccioacuten 5

A quien esta dirigido este manualhelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphellip5

Organizacioacuten del manualhelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphellip6

Diagrama conceptual del Sistema 7

Diagrama funcional por modulo 8

Diccionario de datos 13

Estructura de la Base de Datos 18

Diagrama Entidad-Relacion 19

Requerimientos de Hardware 20

Requerimientos de Software 20

Ruta de ubicacion 20

Configuracion 21

Instaladores 26

Instructivo de instalacion y puesta a punto 26

Manejo de Errores 30

Contingencias y Soportes 31

Glosario de Terminos 32

Anexos 33

INDICE

SKY SYSTEM 3

PRESENTACIOacuteN

El presente documento fue elaborado por la empresa ACROYLER SYSTEM el cual es un

manual realizado para el manejo de SKY SYSTEM (Sistema Sky System tomando su

nombre de la empresa para la cual fue exclusivamente elaborado)En este manual usted

podraacute encontrar todo la informacioacuten necesaria para que usted pueda utilizar los diferentes

tipos de manejo para su sistema recomendaciones para lograr una maacutexima optimizacioacuten en

el uso y manejo del software Podraacute ver ilustraciones de las vistas que podraacute encontrar en su

sistema explicaacutendole paso a paso los tipos de datos a almacenar y demaacutes Si utiliza este

manual correctamente vera que es muy sencillo manejar este software siempre y cuando se

haga correctamente

ANTECEDENTES

Despueacutes de conocer el proceso que se sigue en la empresa para almacenar informacioacuten de

diversos tipos (clientes empleados eventos y demaacutes) se detecto que los registros que la

empresa necesita conservar son almacenados en hojas de una libreta la cual es muy

complicado encontrar datos de manera raacutepida y esto los lleva a una inuacutetil peacuterdida de tiempo

para ellos esto les resulta poco convencional en caso de que se tenga la necesidad de

acceder a algunos datos en especifico (realizar consultas) de algunos clientes

La forma la cual esta empresa a estado trabajando no ofrece la satisfaccioacuten esperada de

llevar a cabo todo el registro de la informacioacuten de manera en orden ni adecuada es por eso

que se creoacute creo este sistema con el propoacutesito de facilitarle el acceso a la informacioacuten

raacutepidamente y a la vez que el al usuario se le haga maacutes faacutecil su trabajo Con la finalidad que

la empresa tenga un mejor control de toda la informacioacuten

Independientemente de la complejidad para localizar datos en especifico tambieacuten se

necesita que los datos se almacenen en un medio lo suficientemente eficiente como para

guardar y devolver los datos asiacute como algunas otras acciones que se deban realizar La

forma en que se ha estado llevando a cabo el registro de informacioacuten no ofrece todo lo que

se necesita y se desea se llego a la conclusioacuten de que la solucioacuten es este sistema ya que

proporciona todo lo anteriormente descrito y que ademaacutes proporciona un nivel de seguridad

maacutes amplio en caso de ser requerido

SKY SYSTEM 4

OBJETIVOS DEL SISTEMA

Facilitar el almacenamiento de datos

Brindar un mejor acceso a la informacioacuten

Agilizar la buacutesqueda de informacioacuten por medio de consultas

Maximizar el rendimiento de la empresa con el uso del sistema

Ofrecer nuevas opciones de visualizacioacuten tanto esteacuteticamente hablando como en

manejo de datos

Proporcionar la facilidad de almacenar o no todos los datos requeridos de

determinado empleado o cliente en un mismo instante asiacute como el hecho de poder

tener todos los datos necesarios en un solo sistema

Evitar problemas de redundancia de datos

Ser un sistema seguro en cuanto a perdidas de informacioacuten como respecto a las

fugas o eliminaciones por parte de personas mal intencionadas esto uacuteltimo en caso

de ser requerido por el cliente

Realizar consultas del personal

Realizar consultas de los eventos

Realizar consultas de clientes

Crear registros de los eventos que se llevan a cabo

SKY SYSTEM 5

INTRODUCCIOacuteN

Desde siempre ha surgido la necesidad de todas las personas que han requerido almacenar

datos desde personales hasta laborales sea en la memoria (humana) en hojas (libros

libretas bitaacutecoras etc) medios magneacuteticos o dispositivos digitales entre otros la

humanidad y la tecnologiacutea cada vez crece mas y mas se encuentra totalmente rodeada de

informacioacuten informacioacuten de todo tipo y de igual forma con la necesidad de quedarse con lo

que considera que puede servir a un largo o corto plazo

No siempre toda la informacioacuten tiene importancia pero hay muchas que si por ejemplo en

el trabajo una secretaria no puede olvidar dar los recados a su jefe o trabajando mediante

un sistema el administrador no puede olvidar su contrasentildea etc este tipo de datos son

importantes y representa un problema el que puedan ser olvidados es por eso que es

necesario tener donde almacenarla sobre todo con la confianza de que seraacute seguro donde la

dejamos y guardamos otro ejemplo de esta necesidad ocurre cuando son cantidades

grandes de informacioacuten ya que no todo se puede quedar en la mente y si realmente son

cosas necesarias e importantes tenerlas almacenadas no es todo lo que importa tambieacuten

organizadas para poder acceder a ellas de forma faacutecil y segura

ACROYLER SYSTEM surge como resultado de la necesidad de integrar el sistema de

bases de datos con un sistema especializado de buacutesquedas y almacenamiento de datos para

que dicho sistema de buacutesquedas pueda proporcionar la opcioacuten de realizar modificaciones en

los datos que se desee asiacute como el poder de ingresar nuevos registros al sistema encargado

de almacenar los datos

Y que esto sea con la seguridad de que sin saber manejar lo que estaacute detraacutes de esta interfaz

los datos quedaran realmente almacenados correctamente

Es por eso que ACROYLER SYSTEM brinda a esta empresa SKY SYSTEM este sistema

capaz de almacenar informacioacuten en una Base de datos por medio de una interfaz que

resultara muy sencilla si es utilizado de manera adecuada como se nos explicara a

continuacioacuten en dicho manual pero no solo serviraacute para almacenar sino tambieacuten para

modificar dar de alta organizar y realizar consultas al mismo tiempo que hacer contratos

mediantes las solicitudes que el cliente requiera

iquestA QUIEN ESTADIRIGIDO ESTE MANUAL

SE DIRIGE A LOS ESPECIALISTAS Y NO A LOS SIMPLES USUARIOS

SKY SYSTEM 6

ORGANIZACIOacuteN DEL MANUAL

Al teacutermino de esta seccioacuten comienza la parte medular de este manual que es lo referente al

funcionamiento del sistema SKY en forma resumida el orden de los puntos a explicar es

a) En primer lugar las generalidades del sistema tales como descripcioacuten del producto

algunas teclas o combinaciones de teclas que pueden usarse y una muestra

ilustrativa de los botones maacutes comunes que encontrara al usar el sistema

b) Entrada y salida del sistema Podraacute encontrar tal y como lo dice el apartado como

entrar y salir del sistema pero tambieacuten como instalar el Sistema en su PC

c) Uso de la aplicacioacuten descripcioacuten detallada de la manera en que se debe utilizar el

sistema y algunos pasos a seguir para evitar errores Tambieacuten podraacute encontrar datos

relativos al flujo que tiene la informacioacuten en los diferentes moacutedulos de sistema

d) Manejo de errores Posibles errores y sugerencias para solucionarlos

e) Glosario Aquiacute encontrara un glosario de las palabras que pueden resultar difiacuteciles

de entender por ser un poco teacutecnicas o desconocidas quizaacute ya que estaacuten enfocadas

a otra aacuterea

B

f) Anexos Algunos datos que no se tratan en la estructura principal pero que tienen

una importancia relevante

SKY SYSTEM 7

DIAGRAMA CONSEPTUAL DEL SITEMA

Diagrama General Conseptual de Funcionamientos

Este diagrama nos muestra la manera en que interactuaran el usuario las interfaces y la BD

observemos que todo empieza a funcionar cuando el usuario inicia el sistema

posteriormente tiene la opcioacuten de introducirse a una de las cuatro secciones principales

cuando lo hace la interfaz se conecta con la Base de Datos para poder mandar y solicitar

informacioacuten cada que el usuario asiacute lo requiera ya sea realizar consultas guardar registros

o actualizarlos si es una consulta se enviacutea la peticioacuten y la BD enviacutea los registros que se le

esteacuten solicitando es asiacute como funciona SKY System

SKY SYSTEM 8

DIAGRAMAS FUNCIONALES POR MODULO Modulo Ingreso al sistema Es la pantalla inicial y es el acceso a las pantallas principales

Una vez iniciado se registra la contrasentildea y depende si la contrasentildea es correcta se puede

accesar al sistema haciendo conexioacuten a la base de datos y si no es aceptada se simplemente

se sale del sistema y este modulo llega a su fin

ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9

MODULO PERSONAL Es la pantalla principal de todo el sistema se tiene que introducir

datos y posteriormente guardarlos si es que no existe si ya existiera solo se busca con un

id este se podraacute modificar y al momento tambieacuten se actualizara de manera espontanea si no

se introduce ninguacuten dato esperara la orden de entra a otra nueva sesioacuten y salir

MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10

Modulo solicitud Es la pantalla la cual cuando un cliente ya estaacute registrado tiene un num de solcitud si el numero de solicitud es aceptado se hace la referencia e inicia y DE IMMEDIATO el contrato pero si no es asi se tendraacute q crear uno nuevo y guardarlo Y si no es aceptada se simplemente se sale del sistema y este modulo llega a su fin

MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11

Modulo contrato es la pantalla donde ya se tiene un numero uacutenico de contrato y de

solicitud con esto ya s ele puede asignar la realizacioacuten del instalacioacuten si este dato no

coincide con la base de datos simplemente no realizara ninguna operacioacuten y se saldraacute del

sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

INSTALA CIOgraveN SALIR

FIN

SI

NO

NO

SKY SYSTEM 12


solicitud con esto ya s ele puede asignar la realizacioacuten del MANTOO si este dato no


sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13

DICCIONARIO DE DATOS

Nombre Tipo de dato Tamantildeo Descripcioacuten Null Pk Fk

Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-

Es la clave principal que

lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante

que debe de tener cada

personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo

de solicitud que se realice ya sea

de equipo oacute de

mantenimiento

Null

Fecha

Date

-

El diacutea en que se

realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe

de llevar la direccioacuten del

cliente

Null

Cp

Int

8

Se refiere al

nuacutemero principal de cada ciudad

Null

Teleacutefono

I

Nteger

-

El nuacutemero de teleacutefono de cada

cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato

Tamantildeo Descripcioacuten Null Pk Fk

Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18

ESTRUCTURA DE LA BASE DE DATOS

DIAGRAMA EN WORD BENCH

SKY SYSTEM 19

DIAGRAMA ENTIDAD-RELACION

Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1

CONTRATO Observaciones

Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud

Num_serie_equipo Modelo_equipo

Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno

Tel_casa Id_personal

TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20

REQUERIMIENTOS DE HARDWARE

SISTEMA OPERATIVO XPVISTA7LINUX

PROCESADOR INTEL CORE DUO AMD

MEMORIA RAM DDR2 512 MB

DDH 10 GB(MINIMO DE ESPACIO LIBRE)

UNIDADA DE DISCODVDCD

MEMORIA GRAFICA128 MB

REQUERIMIENTOS DE SOFTWARE

MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT

RUTA DE UBICACIOacuteN

httplocalhostsky|phpMyAdmin

CUsersrousDocumentosBibliotecaITS6semFundamentosDeDesarrolloDeSistemasproyectoskydocumentacionsky

SKY SYSTEM 21

CONFIGURACION

Creacioacuten de la base de datos

CREATE TABLE `contrato` (

`num_contrato` int(11) NOT NULL

ìd_solicitud` int(11) NOT NULL

`paquete` varchar(15) NOT NULL

`fecha` varchar(10) NOT NULL

`num_prospecto` int(11) NOT NULL

`num_serie_equipo` varchar(45) NOT NULL

`num_tarjeta` int(11) NOT NULL

`modelo_equipo` varchar(30) NOT NULL

`tipo_senal` varchar(30) NOT NULL

òbservaciones` varchar(100) NOT NULL

PRIMARY KEY (`num_contrato`)

KEY `fk4` (ìd_solicitud`)

CONSTRAINT `fk4` FOREIGN KEY (ìd_solicitud`) REFERENCES `solicitud` (ìd_solicitud`) ON DELETE NO

ACTION ON UPDATE NO ACTION) ENGINE=InnoDB

CREATE TABLE ìnstalacion` (

ìd_personal` int(11) NOT NULL




KEY `fk6` (ìd_personal`)

KEY `fk7` (`num_contrato`)


CONSTRAINT `fk6` FOREIGN KEY (ìd_personal`) REFERENCES `personal` (ìd_personal`) ON DELETE NO

ACTION ON UPDATE NO ACTIONCONSTRAINT `fk7` FOREIGN KEY (`num_contrato`) REFERENCES

`contrato` (`num_contrato`) ON DELETE CASCADE ON UPDATE CASCADE CONSTRAINT `fk11` FOREIGN KEY

(ìd_solicitud`) REFERENCES `solicitud` (ìd_solicitud`) ON DELETE CASCADE ON UPDATE CASCADE)

ENGINE=InnoDB

CREATE TABLE `mantenimiento` (

ìd_mantenimiento` int(11) NOT NULL



`costo` varchar(45) NOT NULL

`causa_motivo` varchar(90) NOT NULL

PRIMARY KEY (ìd_mantenimiento`)


SKY SYSTEM 22

CONSTRAINT `fk5` FOREIGN KEY (`num_contrato`) REFERENCES `contrato` (`num_contrato`) ON DELETE

NO ACTION ON UPDATE NO ACTION) ENGINE=InnoDB

CREATE TABLE `personal` (


`nombre` varchar(45) NOT NULL

àp_paterno` varchar(45) NOT NULL

àp_materno` varchar(45) NOT NULL

`dir` varchar(45) NOT NULL

`telefono` varchar(20) NOT NULL

`celular` varchar(20) NOT NULL

èmail` varchar(45) NOT NULL

èstado` varchar(5) default NULL

PRIMARY KEY (ìd_personal`)

) ENGINE=InnoDB

CREATE TABLE `referencias` (


`n1` varchar(45) NOT NULL

`t1` varchar(20) NOT NULL








CREATE TABLE `solicitud` (



èstado` varchar(25) NOT NULL


`nombre_clie` varchar(45) NOT NULL

àpellidos` varchar(45) NOT NULL


`cp` varchar(10) NOT NULL


PRIMARY KEY (ìd_solicitud`) KEY `fk3` (ìd_personal`)



SKY SYSTEM 23

CREATE TABLE `tipo_trabajo` (


`tipo_trabajo` varchar(45) NOT NULL

`puesto` varchar(20) NOT NULL




CREATE TABLE `visita` (







KEY `fk10` (ìd_mantenimiento`)


ACTION ON UPDATE NO ACTIONCONSTRAINT `fk10` FOREIGN KEY (ìd_mantenimiento`) REFERENCES

`mantenimiento` (ìd_mantenimiento`) ON DELETE NO ACTION ON UPDATE NO ACTION) ENGINE=InnoDB

SKY SYSTEM 24

Contenido de las tablas del sistema gestor de base de datos

Descripcioacuten de la tabla contrato

Descripcioacuten de la tabla instalacioacuten

Descripcioacuten de la tabla mantenimiento

SKY SYSTEM 25

Descripcioacuten de la tabla personal

Descripcioacuten de la tabla referencias

Descripcioacuten de la tabla solicitud

Descripcioacuten de la tabla tipo_trabajo

SKY SYSTEM 26

Descripcioacuten de la tabla visita

INSTALADORES

Setup del sistema hotelero

INSTRUCCIVO DE INSTALACION Y PUESTA APUNTO

Instructivo de instalacioacuten

1 Para instalar el sistema lo primero que debemos hacer abrimos nuestra unidad de

CDDVD e insertamos el disco y abrimos la carpeta contenedora de nuestro sky

system versioacuten 100

2 Ya despueacutes de ubicarnos en la unidad donde se encuentra el instalador y dar doble

clic en el archivo con extensioacuten msj que tiene por nombre Sky System(Sky

Systemmsj)

SKY SYSTEM 27

3 Nos apareceraacuten algunos textos de dialogo y lo uacutenico que se debe hacer es seguir las

instrucciones del proceso y en otros casos seleccionar algunas opciones seguacuten sea

conveniente

4 Seleccione la carpeta de instalacioacuten y damos clic en siguiente

SKY SYSTEM 28

5 Confirmamos la instalacioacuten y damos siguientes para iniciar el proceso

6 Y bien hemos empezado la instalacioacuten ahora hay que esperar unos minutos para

que finalice

SKY SYSTEM 29

7 Por uacuteltimo al finalizar la instalacioacuten nos debe aparecer esta ventana como

confirmacioacuten de que el sistema Sky System se ha instalado correctamente y

cerramos

SKY SYSTEM 30

MANEJO DE ERRORES (TABLA DE ERRORES)

POSIBLES ERRORES SOLUCIOacuteN

Errores de llenado

En ocasiones hay momento que no leemos bien las

instrucciones y esto nos puede ocasionar problemas

por ejemplo en el sistema hay cuadros de dialogo

que dan recomendaciones si no se leen bien estas

instrucciones podemos confundirnos y hacerlo mal

Saturacioacuten del sistema

El sistema se puede saturar debido a la cantidad de

programas ejecutados al estar usando SKY SISTEM

esto provoca que se ejecute muy lento Para evitarlo

se recomienda tener abiertas la menor cantidad de

ventanas posibles y en caso de que no mejore

reiniciar el sistema

Errores de instalacioacuten

En el momento de instalar el sistema puede ocurrir

errores de por falta de alguacuten complemento para que

el sistema operativo lo reconozca asiacute que es

necesario instalar esos componentes faltantes El

principal problema que puede surgir es que no se

cuente con Microsoft frameworknet que es quien

permite que los programas que sean de la familianet

se actualicen y se corran correctamente

SKY SYSTEM 31

CONTINGENCIA Y SOPORTE

Para brindarle un mejor servicio y de primera calidad nos ponemos a sus ordenes en caso de

que surjan errores que no esteacuten mencionados en este manual asiacute como tambieacuten tener alguacuten

problema con el sistema o presente alguna incomodidad favor de contactarse con alguno de

los asesores con gusto le atenderemos

Comunicarse a los teleacutefonos 9242456645 Cel9241096108

e-mailloverydhotmailcom

Asesor1 Roselia Ramiacuterez Limoacuten

Oacute

A los teleacutefonos 9222647363 Cel9221350165

e-mailoro_alihotmailcom

Asesor2 Alicia del Carmen Rosario Geroacutenimo

SKY SYSTEM 32

GLOSARIO

HARDWARE Dispositivo fiacutesicos de una PC

SOFTWARE Programas y sistemas para el funcionamiento de una PC

INTERFACES Ventanas o pantallas que integran un sistema VARCHAR Tipo de dato que acepta letras (MYSQL)

INT Tipo de dato que acepta nuacutemeros enteros (MYSQL)

DATE Tipo de dato fecha (MYSQL)

NOT NULL Campo que no acepta valores vacios(MYSQL)

PRIMARY KEY Valor uacutenico (llave primaria) (MYSQL)

FOREIGN KEY Hace referencia a una llave primaria (MYSQL)

MYSQL Plataforma donde se crean las bases de datos

WORD BENCH La herramienta oficial de MYSQL para el disentildeo creacioacuten y mantenimiento de bases de

datos

APPSERV Es una herramienta opensource para Windows que facilita la instalacioacuten de apache MYSQL y

PHP en la cual estas aplicaciones se configuran en forma automaacutetica

OPENSOURCE Coacutedigo abierto es el teacutermino con el que se conoce al software distribuido y desarrollado

libremente

WINDOWS Es el nombre de una serie de sistemas operativos desarrollados por Microsoft desde 1981 antildeo

en que el proyecto se denominaba laquointerface managerraquo

SISTEMA OPERATIVO Es el programa o conjunto de programas que efectuacutean la gestioacuten de los procesos

baacutesicos de un sistema informaacutetico y permite la normal ejecucioacuten del resto de las operaciones

VISUAL BASIC Es un lenguaje de programacioacuten dirigido por eventos utilizando un ambiente de desarrollo

completamente graacutefico que facilitara la creacioacuten de interfaces graacuteficas y en cierta medida tambieacuten la

programacioacuten misma

ACROYLER Nombre de nuestra empresa desarrolladora de sistema el cual fue generado por las iniciales de

los integrantes de este grupo de programadores

SKY Nombre de la empresa a la cual se le esta desarrollando el sistema

SYSTEM Palabra en ingles que en espantildeol quiere decir sistema

BASE DE DATOS Es donde se almacena la informacioacuten necesaria para el sistema

GB Medida informaacutetica significa giga byte

DDR2 Tipo de memoria RAM

RAM Memoria de Lectura Aleatoria

DDH Disco duro

CASOS DE USO

ACTOR Son los que realizan una accioacuten con o al sistema de manera directa o indirecta

CLASES No es nada maacutes que un objeto este objeto tiene propiedades funciones y meacutetodos

OBJETOS Son los que generan las clases

DIAGRAMA ENTIDAD-RELACIOacuteN Representacioacuten grafica de las operaciones que se realizan en el sistema

es un forma de coacutemo estaacute estructurada la base de datos

DIAGRAMA DE FLUJOS Representacioacuten graacutefica de la sucesioacuten en que se realizan las operaciones de un

procedimiento yo el recorrido de formas Los diagramas representados en forma sencilla y accesible en el

manual brinda una descripcioacuten clara de las operaciones lo que facilita su comprensioacuten

SKY SYSTEM 33

ANEXOS

DESCRIPCION DEL USO DE LAS VISTAS PRINCIPALES

Vista para el INGRESO al sistema

LOGIN

Public Class FrmContrasentildea

Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles Button1Click

Dim Logging As String

Logging = TxtLoggingText

If Logging = 080isc Then

MessageBoxShow(Contrasentildea correcta Bienvenido al Sistema

SKY Ingreso)

FrmSKYShow()

Else

MessageBoxShow(Lo sentimos pero la contrasentildea introducida

es incorrecta ahora el sistema se cerrara ERROR)

End

End If

End Sub

End Class

SKY SYSTEM 34

MENUacute principal del sistema

PRINCIPAL

Public Class FrmSKY

Private Sub FrmSKY_Load(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles MyBaseLoad

FrmContrasentildeaClose()

End Sub

Private Sub Personal_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnPersonalClick

FrmPERSONALShow()

End Sub

Private Sub SOLICITUDES_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles SOLICITUDESClick

FrmSOLICITUDESShow()

End Sub

Private Sub CONTRATOS_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles CONTRATOSClick

FrmCONTRATOSShow()

End Sub

Private Sub SALIR_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles SALIRClick

MeClose()

End Sub

End Class

SKY SYSTEM 35

Vista PERSONAL el cual genera una solicitud

PERSONAL

Imports MySqlData

Imports SystemData

Imports MySqlDataMySqlClient

Public Class FrmPERSONAL

Dim conexion As MySqlConnection

Dim conex As MySqlCommand

Dim conex2 As MySqlCommand

Private Sub FrmPERSONAL_Load(ByVal sender As SystemObject ByVal e

As SystemEventArgs) Handles MyBaseLoad

Try

SKY SYSTEM 36

conexion = New MySqlConnection(Data

Source=localhostDatabase=skyUser ID=root Password=aliesor Allow Zero

Datetime=True CHARSET=latin1)

conexionOpen()

Catch mierror As MySqlException

MessageBoxShow(Error de Conexioacuten a la Base de Datos amp

mierrorMessage)

conexionDispose()

End Try

MeToolTip1SetToolTip(MeBtnNuevo Nuevo)

MeToolTip1SetToolTip(MeBtnBuscar Buscar)

MeToolTip1SetToolTip(MeBtnModificar Actualizar)

MeToolTip1SetToolTip(MeBtnGuardar Guardar)

MeToolTip1SetToolTip(MeBtnCancelar Cancelar)

MeToolTip1SetToolTip(MeBtnEliminar Eliminar)

MeToolTip1SetToolTip(MeBtnSalir Salir)

End Sub

Public Sub Nuevo()

TxtID_PersonalText =

TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()

Dim dr As MySqlDataReader

Dim valor As Integer

conex = New MySqlCommand(select id_personal FROM personal order

by id_personal desc limit 1)

conexConnection = conexion

dr = conexExecuteReader()

If drRead() Then

valor = CType(dr(id_personal) Integer)

valor = valor + 1

TxtID_PersonalText = valor

Else

TxtID_PersonalText = 1

End If

drClose()

End Sub

SKY SYSTEM 37

Private Sub BtnNuevo_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnNuevoClick

Nuevo()

Prueba()

End Sub

Private Sub BtnBuscar_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnBuscarClick

Dim ID As String

ID = TxtID_PersonalText

Nuevo()

Dim opcion As Integer

opcion = MessageBoxShow(iquestDesea visualizar solamente a un

empleado Siacute desea visualizar a todos lo empleados existentes de click en

el botoacuten NO Seleccioacuten de Buacutesqueda MessageBoxButtonsYesNo)

If opcion = MsgBoxResultYes Then

TxtID_PersonalText = ID

If TxtID_PersonalText = Then

MessageBoxShow(Aun no ha indicado el ID del empleado

Error)

TxtID_PersonalFocus()

Else


conex = New MySqlCommand(SELECT from personal

tipo_trabajo WHERE personalid_personal=id_personal and

Tipo_trabajoid_personal=id_personal and personalestado=Alta)

conexParametersAdd(id_personal MySqlDbTypeInt16)

conexParameters(id_personal)Value =

TxtID_PersonalText



If drRead() Then

MessageBoxShow(Busqueda Terminada Busqueda)

TxtNombreText = CType(dr(Nombre) String)

TxtA_paternoText = CType(dr(ap_paterno) String)

TxtA_maternoText = CType(dr(ap_materno) String)

TxtDireccionText = CType(dr(dir) String)

TxtTelefonoText = CType(dr(Telefono) String)

TxtCelularText = CType(dr(celular) String)

TxtEmailText = CType(dr(Email) String)

CmbTrabajoText = CType(dr(Tipo_Trabajo) String)

CmbPuestoText = CType(dr(Puesto) String)

Else

MessageBoxShow(No se han obtenido Resultados

Registro no existente)

End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38

Private Sub BtnModificar_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnModificarClick

Try

If ((TxtNombreText = ) Or (TxtA_paternoText = )) Then

MessageBoxShow(Primero busque el registro a modificar y despues

realice los cambios Error)

Else

Dim chek As Integer

chek = MessageBoxShow(iquestEsta seguro de modificar un

registro Modificar MessageBoxButtonsYesNo)

If chek = MsgBoxResultYes Then

conex = New MySqlCommand(UPDATE personal

tipo_trabajo SET personalnombre=nombre

personalap_paterno=ap_paterno personalap_materno=ap_materno

personaldir=dir personaltelefono=telefono

personalcelular=celular personalemail=email

tipo_trabajotipo_trabajo=tipo_trabajo tipo_trabajopuesto=puesto

WHERE personalId_personal=Id_personal and

tipo_trabajoid_personal=id_personal)

conexParametersAdd(id_personal

MySqlDbTypeInt16)


TxtID_PersonalText

conexParametersAdd(Nombre MySqlDbTypeVarChar)

conexParameters(Nombre)Value = TxtNombreText

conexParametersAdd(Ap_paterno

MySqlDbTypeVarChar)

conexParameters(Ap_paterno)Value =

TxtA_paternoText

conexParametersAdd(Ap_materno

MySqlDbTypeVarChar)

conexParameters(Ap_materno)Value =

TxtA_maternoText

conexParametersAdd(dir MySqlDbTypeVarChar)

conexParameters(dir)Value = TxtDireccionText

conexParametersAdd(telefono

MySqlDbTypeVarChar)

conexParameters(telefono)Value =

TxtTelefonoText

conexParametersAdd(celular MySqlDbTypeVarChar)

conexParameters(celular)Value =

TxtCelularText()

conexParametersAdd(Email MySqlDbTypeVarChar)

conexParameters(Email)Value = TxtEmailText

conexParametersAdd(tipo_trabajo

SKY SYSTEM 39

MySqlDbTypeVarChar)

conexParameters(tipo_trabajo)Value =

CmbTrabajoText()

conexParametersAdd(puesto MySqlDbTypeVarChar)

conexParameters(puesto)Value = CmbPuestoText


conexExecuteNonQuery()

MessageBoxShow(Los datos han sido modificados

exitosamente Actualizando)

Dim N As Integer

N = MessageBoxShow(iquestDesea dejar los datos en pantalla Limpiar

Formulario MessageBoxButtonsYesNo)

If N = MsgBoxResultNo Then

Nuevo()

End If

Else

MessageBoxShow(Se ha cancelado la Modificacioacuten

Cancelado)

End If

End If

Catch ex As Exception

MessageBoxShow(Error al Modificar Asegurese de que no esta

cambiando el id de personal o de que el id existe Error)

End Try

End Sub

Private Sub BtnGuardar_Click(ByVal sender As SystemObject ByVal e

As SystemEventArgs) Handles BtnGuardarClick

Try

conex = New MySqlCommand(INSERT INTO personal(id_personal

nombre ap_paterno ap_materno dir telefono celular email estado)

VALUES (id_personal nombre ap_paterno ap_materno dir telefono

celular email estado))


MessageBoxShow(No ha declarado un id de personal asiacute

que se ha Generado uno nuevo automaticamente Generando Registro)

Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText

conexParametersAdd(nombre MySqlDbTypeVarChar)

conexParameters(nombre)Value = TxtNombreText

conexParametersAdd(ap_paterno MySqlDbTypeVarChar)

conexParameters(ap_paterno)Value = TxtA_paternoText

conexParametersAdd(ap_materno MySqlDbTypeVarChar)

SKY SYSTEM 40

conexParameters(ap_materno)Value = TxtA_maternoText



If TxtTelefonoText = Then

TxtTelefonoText = No proporcionado

End If

conexParametersAdd(telefono MySqlDbTypeVarChar)

conexParameters(telefono)Value = TxtTelefonoText

If TxtCelularText = Then

TxtCelularText = No proporcionado

End If


conexParameters(celular)Value = TxtCelularText

If TxtEmailText = Then

TxtEmailText = No proporcionado

End If



conexParametersAdd(Estado MySqlDbTypeVarChar)

conexParameters(Estado)Value = Alta



conex2 = New MySqlCommand(INSERT INTO

tipo_trabajo(id_personal tipo_trabajo puesto) VALUES (id_personal

tipo_trabajo puesto))

conex2ParametersAdd(id_personal MySqlDbTypeInt16)

conex2Parameters(id_personal)Value =

TxtID_PersonalText()

conex2ParametersAdd(tipo_trabajo

MySqlDbTypeVarChar)

conex2Parameters(tipo_trabajo)Value =

CmbTrabajoText()

conex2ParametersAdd(puesto MySqlDbTypeVarChar)

conex2Parameters(puesto)Value = CmbPuestoText

conex2Connection = conexion

conex2ExecuteNonQuery()

MessageBoxShow(Los datos se han almacenado

Exitosamente Alta)

Dim chek As Integer

chek = MessageBoxShow(iquestDesea dejar los datos en

pantalla Limpiar Formulario MessageBoxButtonsYesNo)

If chek = MsgBoxResultNo Then

Nuevo()

End If

End If

Catch Myerror As MySqlException

SKY SYSTEM 41

MessageBoxShow(Error al Guardar El numero de Registro no

puede ser duplicado Si lo que desea es guardar cambios en un registro

existente entonces debe dar click en MODIFICAR Error)

End Try

End Sub

Private Sub BtnCancelar_Click(ByVal sender As SystemObject ByVal e

As SystemEventArgs) Handles BtnCancelarClick

Nuevo()

End Sub

Private Sub BtnSalir_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnSalirClick

MeClose()

End Sub

Private Sub BtnEliminar_Click(ByVal sender As SystemObject ByVal e

As SystemEventArgs) Handles BtnEliminarClick

Dim chek As Integer

chek = MessageBoxShow(iquestEsta seguro de que quiere dar de baja a

este empleado Eliminar MessageBoxButtonsYesNo)


conex = New MySqlCommand(UPDATE personal SET estado=baja

WHERE Id_personal=Id_personal)


conexParameters(id_personal)Value = TxtID_PersonalText



MessageBoxShow(Se ha dado de baja al empleado

Eliminado)

Nuevo()

Else

MessageBoxShow(Se ha cancelado la Eliminacioacuten

Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42

Vista SOLICITUD el cual genera un contrato

SOLICITUD

Imports SystemData

Imports MySqlData


Public Class FrmSOLICITUDES



Private Sub referencias_LinkClicked(ByVal sender As SystemObject

ByVal e As SystemWindowsFormsLinkLabelLinkClickedEventArgs) Handles

referenciasLinkClicked

paso = TxtNo_SolicitudText

esto me envia al formulario de referencias

FrmREFERENCIASShow()

End Sub

Private Sub FrmSOLICITUDES_Load(ByVal sender As SystemObject ByVal

e As SystemEventArgs) Handles MyBaseLoad

Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try

TxtFechaText = DateToday







End Sub

Public Sub Nuevo()

TxtNo_SolicitudText =


CmbEstadoText =

TxtNombreText =

TxtApellidosText =

TxtDireccioacutenText =

TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()



conex = New MySqlCommand(select id_solicitud FROM solicitud

order by id_solicitud desc limit 1)



If drRead() Then

valor = CType(dr(id_solicitud) Integer)

valor = valor + 1

TxtNo_SolicitudText = valor

Else

TxtNo_SolicitudText = 1

End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String

ID = TxtNo_SolicitudText

Nuevo()

TxtNo_SolicitudText = ID

If TxtNo_SolicitudText = Then

MessageBoxShow(Aun no ha indicado el ID de la solicitud

Error)

TxtNo_SolicitudFocus()

Else


conex = New MySqlCommand(SELECT FROM solicitud WHERE

solicitudid_solicitud=id_solicitud)

conexParametersAdd(id_solicitud MySqlDbTypeInt16)

conexParameters(id_solicitud)Value =

TxtNo_SolicitudText()



If drRead() Then

MessageBoxShow(Buacutesqueda Terminada Busqueda)

TxtID_PersonalText = CType(dr(ID_personal) Integer)

CmbEstadoText = CType(dr(estado) String)

TxtFechaText = CType(dr(fecha) String)

TxtNombreText = CType(dr(Nombre_clie) String)

TxtApellidosText = CType(dr(apellidos) String)

TxtDireccioacutenText = CType(dr(dir) String)


TxtCPText = CType(dr(cp) String)

Else



End If

drClose()

End If

End Sub

Private Sub BtnModificar_Click(ByVal sender As SystemObject ByVal e

As SystemEventArgs) Handles BtnModificarClick

La siguiente condicional pretende evitar que se quiera modificar estando

los campos vacios o sin

haber buscado antes el registro que supuestamente se esta

modificando algo que deberia ser dificil que pasara a decir vdd

pero hay que ver

If ((TxtNombreText = ) Or (TxtID_PersonalText = )) Then

MessageBoxShow(Primero busque el registro a modificar y

despues realice los cambios Error)

Else

SKY SYSTEM 45

La siguiente variable tiene el papel de guardar la respuesta

que se de al mensaje que sigue

y el mensaje es simplemente para que el usuario confirme que

esta seguro de que quiere modificar los datos

Dim chek As Integer



Si la respuesta del mensaje es si


conex = New MySqlCommand(UPDATE solicitud SET

id_personal=id_personal estado=estado fecha=fecha

nombre_clie=nombre_clie apellidos=apellidos dir=dir cp=cp

telefono=telefono WHERE id_solicitud=id_solicitud)



TxtNo_SolicitudText



TxtID_PersonalText

conexParametersAdd(estado MySqlDbTypeVarChar)

conexParameters(estado)Value = CmbEstadoText

conexParametersAdd(fecha MySqlDbTypeVarChar)

conexParameters(fecha)Value = TxtFechaText

conexParametersAdd(nombre_clie MySqlDbTypeVarChar)

conexParameters(nombre_clie)Value = TxtNombreText

conexParametersAdd(apellidos MySqlDbTypeVarChar)

conexParameters(apellidos)Value = TxtApellidosText


conexParameters(dir)Value = TxtDireccioacutenText

conexParametersAdd(cp MySqlDbTypeVarChar)

conexParameters(cp)Value = TxtCPText







Dim N As Integer

N = MessageBoxShow(iquestDesea dejar los datos en



Nuevo()

End If

Else

MessageBoxShow(Se ha cancelado la Modificacioacuten Cancelado)

End If

End If

End Sub

SKY SYSTEM 46

Private Sub BtnGuardar_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnGuardarClick

Try

conex = New MySqlCommand(INSERT INTO solicitud(id_solicitud

id_personal estado fecha nombre_clie apellidos dir cp telefono )

VALUES (id_solicitud id_personal estado fecha nombre_clie

apellidos dir cp telefono))

con la siguiente condicional se verifica que el campo ID

solicitud no este vacio

ya que es la llave primaria y es la que no deberia quedar

vacia de ser asi se le manda un mensaje al usuario

para que coloque el numero de solicitud nuevo


MessageBoxShow(No ha escrito el Id de la solicitud

primero debe escribirlo o no se podraacute guardar Sin Registro)

End If

Si no sucedio lo planteado anteriormente procedemos a

realizar la conexion a la BD



TxtNo_SolicitudText













Lo siguiente se hace con la intencion de que los campos no

se queden vacios puesto que a

excepcion de los datos anteriores son datos que el cliente

puede no recordar o simplemente cno contar con ellos

If TxtCPText = Then

TxtCPText = 00000

End If

conexParametersAdd(CP MySqlDbTypeVarChar)

conexParameters(CP)Value = TxtCPText


TxtTelefonoText = No proporcinado

End If



conexConnection = conexioacuten


SKY SYSTEM 47

MessageBoxShow(Los datos se han almacenado Exitosamente Alta)

Dim chek As Integer

chek = MessageBoxShow(iquestDesea dejar los datos en pantalla

Limpiar Formulario MessageBoxButtonsYesNo)


Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48

Vista CONTRATO generada de la solicitud

CONTRATO

Imports SystemData

Imports MySqlData


Public Class FrmCONTRATOS



Private Sub CONTRATOS_Load(ByVal sender As SystemObject ByVal e As


Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try


MeToolTip1SetToolTip(MeButton2 Nuevo)

SKY SYSTEM 49






End Sub

Public Sub Nuevo()



TxtNo_ContratoText =

TxtNo_ProspectoText =

TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =

TxtObservacionesText =

End Sub

Public Sub generar()



conex = New MySqlCommand(select num_contrato FROM contrato order

by num_contrato desc limit 1)



If drRead() Then

valor = CType(dr(num_contrato) Integer)

valor = valor + 1

TxtNo_ContratoText = valor

Else

TxtNo_ContratoText = 1

End If

drClose()

End Sub


SystemEventArgs) Handles BtnMantenimientoClick

paso = TxtNo_ContratoText

MANTENIMIENTOShow()

End Sub




dato = TxtNo_SolicitudText

INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String

ID = TxtNo_ContratoText

Nuevo()


opcion = MessageBoxShow(iquestDesea realizar la busqueda mediante el

Numero de contrato Siacute desea buscar con un paraacutemetro diferente de click

en el boton NO Seleccioacuten de Buacutesqueda MessageBoxButtonsYesNo)


TxtNo_ContratoText = ID

If TxtNo_ContratoText = Then

MessageBoxShow(Aun no ha indicado el Numero de

contrato Error)

TxtNo_ContratoFocus()

Else


conex = New MySqlCommand(SELECT FROM contrato WHERE

num_contrato=num_contrato)

conexParametersAdd(num_contrato MySqlDbTypeInt16)

conexParameters(num_contrato)Value =

TxtNo_ContratoText



If drRead() Then


TxtNo_SolicitudText = CType(dr(id_solicitud)

String)


TxtNo_ProspectoText = CType(dr(num_prospecto)

String)

TxtSerieText = CType(dr(num_serie_equipo) String)

TxtTarjetaText = CType(dr(num_tarjeta) String)

TxtEquipoText = CType(dr(modelo_equipo) String)

CmbSentildealText = CType(dr(tipo_senal) String)

CmbPaqueteText = CType(dr(paquete) String)

TxtObservacionesText = CType(dr(Observaciones)

String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub



If ((TxtNo_SolicitudText = ) Or (TxtFechaText = )) Then



SKY SYSTEM 51

Else

Dim chek As Integer




conex = New MySqlCommand(UPDATE contrato SET

id_solicitud=id_solicitud fecha=fecha num_contrato=num_contrato

num_prospecto=num_prospecto num_serie_equipo=num_serie_equipo

num_tarjeta=num_tarjeta modelo_equipo=modelo_equipo

tipo_senal=tipo_senal paquete=paquete observaciones=observaciones

WHERE Num_contrato=num_contrato)



TxtNo_ContratoText

conexParametersAdd(Id_solicitud MySqlDbTypeInt16)


TxtNo_SolicitudText



conexParametersAdd(num_prospecto

MySqlDbTypeVarChar)

conexParameters(num_prospecto)Value =

TxtNo_ProspectoText

conexParametersAdd(num_serie_equipo

MySqlDbTypeVarChar)

conexParameters(num_serie_equipo)Value =

TxtSerieText

conexParametersAdd(num_tarjeta MySqlDbTypeVarChar)

conexParameters(num_tarjeta)Value = TxtTarjetaText

conexParametersAdd(modelo_equipo

MySqlDbTypeVarChar)

conexParameters(modelo_equipo)Value = TxtEquipoText

conexParametersAdd(tipo_senal MySqlDbTypeVarChar)

conexParameters(tipo_senal)Value = CmbSentildealText()

conexParametersAdd(paquete MySqlDbTypeVarChar)

conexParameters(paquete)Value = CmbPaqueteText

conexParametersAdd(observaciones

MySqlDbTypeVarChar)

conexParameters(observaciones)Value =

TxtObservacionesText()





Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try

conex = New MySqlCommand(INSERT INTO contrato(id_solicitud

fecha num_contrato num_prospecto num_serie_equipo num_tarjeta

modelo_equipo tipo_senal paquete observaciones) VALUES

(id_solicitud fecha num_contrato num_prospecto num_serie_equipo

num_tarjeta modelo_equipo tipo_senal paquete observaciones))


MessageBoxShow(No ha escrito el Numero de contrato


End If



TxtNo_SolicitudText




conexParameters(num_contrato)Value = TxtNo_ContratoText

conexParametersAdd(num_prospecto MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)

conexParameters(num_serie_equipo)Value = TxtSerieText

conexParametersAdd(modelo_equipo MySqlDbTypeVarChar)



conexParameters(tipo_senal)Value = CmbSentildealText





If TxtObservacionesText = Then

TxtObservacionesText = Ninguna observacioacuten

End If

conexParametersAdd(observaciones MySqlDbTypeVarChar)


TxtObservacionesText




Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

Private Sub Button2_Click_1(ByVal sender As SystemObject ByVal e As


Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54

Si existe la vista contrato entonces podemos realizar una instalacioacuten he de ahiacute la vista

INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData


Public Class INSTALACION



Private Sub INSTALACION_Load(ByVal sender As SystemObject ByVal e


Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55

TxtContratoText = paso

TxtSolicitudText = dato






End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String

ID = TxtSolicitudText

Nuevo()

TxtSolicitudText = ID

If TxtSolicitudText = Then

MessageBoxShow(Aun no ha indicado el Numero de Solicitud

Error)

TxtSolicitudFocus()

Else


conex = New MySqlCommand(SELECT FROM instalacion WHERE

id_solicitud=id_solicitud)


conexParameters(id_solicitud)Value = TxtSolicitudText



If drRead() Then


TxtSolicitudText = CType(dr(id_solicitud) String)

TxtPersonalText = CType(dr(id_personal) String)


TxtContratoText = CType(dr(num_contrato) String)

Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56

conex = New MySqlCommand(INSERT INTO

instalacion(id_solicitud id_personal fecha num_contrato) VALUES

(id_solicitud id_personal fecha num_contrato))


MessageBoxShow(No ha escrito el Numero de solicitud


End If




conexParameters(id_personal)Value = TxtPersonalText




conexParameters(num_contrato)Value = TxtContratoText




Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57

Si tenemos una instalacioacuten entonces podemos realizar un mantenimiento si alguacuten cliente lo

requiere y por lo tanto surge la vista de MANTENIMIENTO

MANTENIMIENTO

Imports SystemData

Imports MySqlData


Public Class MANTENIMIENTO



Private Sub MANTENIMIENTO_Load(ByVal sender As SystemObject ByVal e


Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID

If TxtMmtoText = Then

MessageBoxShow(Aun no ha indicado el ID de Mantenimiento

Error)

TxtMmtoFocus()

Else


conex = New MySqlCommand(SELECT FROM mantenimiento WHERE

id_mantenimiento=id_mantenimiento)

conexParametersAdd(id_mantenimiento MySqlDbTypeInt16)

conexParameters(id_mantenimiento)Value = TxtMmtoText()



If drRead() Then


TxtMmtoText = CType(dr(ID_mantenimiento) Integer)



TxtCostoText = CType(dr(costo) String)

TxtCausaText = CType(dr(causa_motivo) String)

Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59



If ((TxtContratoText = ) Or (TxtCostoText = )) Then



Else

Dim chek As Integer




conex = New MySqlCommand(UPDATE mantenimiento SET

num_contrato=num_contrato fecha=fecha costo=costo

causa_motivo=causa_motivo WHERE Id_mantenimiento=Id_mantenimiento)

conexParametersAdd(Id_mantenimiento

MySqlDbTypeInt16)

conexParameters(id_mantenimiento)Value =

TxtMmtoText



TxtContratoText



conexParametersAdd(costo MySqlDbTypeVarChar)

conexParameters(costo)Value = TxtCostoText

conexParametersAdd(causa_motivo

MySqlDbTypeVarChar)

conexParameters(causa_motivo)Value = TxtCausaText





Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try


mantenimiento(id_mantenimiento num_contrato fecha costo causa_motivo)

VALUES (id_mantenimiento num_contrato fecha costo causa))


SKY SYSTEM 60

MessageBoxShow(No ha escrito el Id de Mantenimiento


End If


conexParameters(id_mantenimiento)Value = TxtMmtoText







conexParametersAdd(causa MySqlDbTypeVarChar)

conexParameters(causa)Value = TxtCausaText




Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub




conex = New MySqlCommand(select id_mantenimiento FROM

mantenimiento order by id_mantenimiento desc limit 1)



If drRead() Then

valor = CType(dr(id_mantenimiento) Integer)

valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61

Private Sub BtnVisita_Click(ByVal sender As SystemObject ByVal e As

SystemEventArgs) Handles BtnVisitaClick

paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class

Y por ultimo tenemos visitas si el cliente requiere al servicio y por lo tanto surge una vista mas la

de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA



Private Sub VISITA_Load(ByVal sender As SystemObject ByVal e As


Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

TxtManttoText = paso






End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID

If TxtManttoText = Then


Error)

TxtManttoFocus()

Else


conex = New MySqlCommand(SELECT FROM visita WHERE




TxtManttoText()



If drRead() Then



TxtPersonalText = CType(dr(ID_personal) Integer)

TxtEstadoText = CType(dr(estado) String)

TxtObservacionesText = CType(dr(observaciones)

String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub



If ((TxtEstadoText = ) Or (TxtPersonalText = )) Then



Else

Dim chek As Integer




conex = New MySqlCommand(UPDATE visita SET


observaciones=observaciones WHERE Id_mantenimiento=Id_mantenimiento)


MySqlDbTypeInt16)


TxtManttoText()

conexParametersAdd(Id_personal MySqlDbTypeInt16)



conexParameters(estado)Value = TxtEstadoText




MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try

conex = New MySqlCommand(INSERT INTO visita(id_mantenimiento

id_personal fecha estado observaciones) VALUES (id_mantenimiento

id_personal fecha estado observaciones))


MessageBoxShow(No ha escrito el Id de visita primero

debe escribirlo o no se podraacute guardar Sin Registro)

End If


conexParameters(id_mantenimiento)Value = TxtManttoText













Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES

Es importante que antes de utilizar el sistema lea detenidamente el manual de usuario y

tome en cuenta las siguientes recomendaciones para mejorar el rendimiento del sistema y

su equipo de coacutemputo

INFORMACIOacuteN El software que usted ha adquirido no ofrece ninguna garantiacutea contra la

perdida de datos que se deba a una incorrecta instalacioacuten o manejo del sistema (busque a

personal teacutecnico profesional o capaciacutetese para realizarlo)

ADVERTENCIA Haga copias de seguridad de toda la informacioacuten importante como

medida de proteccioacuten contra la peacuterdida de datos

PRECAUCIOacuteN Instale o coloque su equipo en un lugar lejos de la lluvia y la humedad

para reducir riesgos de incendios o descargas eleacutectricas no consuma alimentos cerca de su

equipo tenga cuidado de que no entre material extrantildeo como productos liacutequidos u objetos

metaacutelicos por que podriacutea ocasionarle fallas en el sistema Es importante que tome en

cuenta estas recomendaciones a la hora de instalar el software ya que ello mejorara la

calidad del sistema gestor de base de datos

SKY SYSTEM 2

Presentacioacuten 3

Antecedentes 3

Objetivos del sisitema 4

Introduccioacuten 5

A quien esta dirigido este manualhelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphellip5

Organizacioacuten del manualhelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphelliphellip6

Diagrama conceptual del Sistema 7

Diagrama funcional por modulo 8

Diccionario de datos 13

Estructura de la Base de Datos 18

Diagrama Entidad-Relacion 19

Requerimientos de Hardware 20

Requerimientos de Software 20

Ruta de ubicacion 20

Configuracion 21

Instaladores 26

Instructivo de instalacion y puesta a punto 26

Manejo de Errores 30

Contingencias y Soportes 31

Glosario de Terminos 32

Anexos 33

INDICE

SKY SYSTEM 3

PRESENTACIOacuteN









haga correctamente

ANTECEDENTES



















SKY SYSTEM 4







manejo de datos












SKY SYSTEM 5

INTRODUCCIOacuteN































SKY SYSTEM 6















a otra aacuterea

B



SKY SYSTEM 7










SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 3

PRESENTACIOacuteN









haga correctamente

ANTECEDENTES



















SKY SYSTEM 4







manejo de datos












SKY SYSTEM 5

INTRODUCCIOacuteN































SKY SYSTEM 6















a otra aacuterea

B



SKY SYSTEM 7










SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 4







manejo de datos












SKY SYSTEM 5

INTRODUCCIOacuteN































SKY SYSTEM 6















a otra aacuterea

B



SKY SYSTEM 7










SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 5

INTRODUCCIOacuteN































SKY SYSTEM 6















a otra aacuterea

B



SKY SYSTEM 7










SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 6















a otra aacuterea

B



SKY SYSTEM 7










SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 7










SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 8





ENTRADA AL MENU

PRINCIPAL

SALIR

ESCRIBIR LA

CONTRASENtildeA

INICIO

CONTRASENtildeA

CORRECTA

SI NO

FIN

SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 9





MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

DATOS NUEVOS

BUSCAR GUARDAR

SI NO

DATOS

ENCONTRADOS

NO SI

SALIR

MOSTRAR

DATOS

DATO CORRECTO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 10


MODIFICAR

SI

INICIO

INTRODUCIR DATOS

DATOS INTRODUCIDOS

SI NO

CORRECTOS

REFRENCIA NUEVO

SI NO

CONTRATO NO SI

SALIR

MOSTRAR

DATOS

CREAR NUEVO

SI

NO

DATO GUARDADO

ENTRAR A OTRA

SECCION

NO

FIN

SI

NO

DATO

ACTUALIZA

DO

SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 11




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR


FIN

SI

NO

NO

SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 12




sistema

INICIO

INTRODUCIR

NordmCONTRATO

REGISTRO

INTRODUCIDO

ACEPTADO

REALIZAR

MANTOO SALIR

FIN

SI

NO

NO

SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 13



Id_personal

Int

-

Es la clave

primaria del

personal

Null

Pk

Nombre

Varchar

45

Se refiere a

cada nombre

del personal

Null

Ap_paterno

Varchar

45

El apellido

paterno del

personal

Null

Ap_materno

Varchar

45

El apellido

materno del

personal

Null

Dir

Varchar

45

La direccioacuten

del personal

Null

Tel_casa

Int

-

Numero de

tel de la casa

del personal

Null

Celular

Int

-

Numero de

cel del

personal

Null

Email

Varchar

45

Direccioacuten

electroacutenica

de cada

personal

Null


Id_personal

Int

-

Clave

importante

del personal

Null

Fk

Tipo_trabajo

Varchar

45

Se refiere al

tipo de trabajo

que realiza

cada personal

Null

Puesto

Varchar

10

Se refiere a

cada aacuterea de

trabajo que se

encuentra cada

personal

Null

Aacuterea

Varchar

35

Se refiere al

puesto en que

se encuentre

laborando el

personal

Null

Personal

Tipo trabajo

SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 14


Id_solicitud

Int

-


lleva cada

solicitud

Null

Pk

Id_personal

Int

-

Es una clave

muy importante


personal

Null

Fk

Estado

Varchar

15

Se refiere al tipo


de equipo oacute de

mantenimiento

Null

Fecha

Date

-


realice la

solicitud

Null

Nombre_clie

Varchar

45

La solicitud deba

de llevar el

nombre del cliente

Null

Apellidos

Varchar

45

La solicitud debe

de llevar los

apellidos del

cliente

Null

Direccioacuten

Varchar

45

La solicitud debe


cliente

Null

Cp

Int

8

Se refiere al


Null

Teleacutefono

I

Nteger

-


cliente

Null

Solicitud

SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 15


Num_contrato

Int

-

El nuacutemero de

folio de cada

contrato que

realice el

cliente

Null

Pk

Id_solitud

Int

-

Clave

principal de la

solicitud

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el contrato

Null

Num_prospecto

Int

-

Numero de

cliente

Null

Num_serie_equipo

Varchar

45

Tamantildeo del

equipo

Null

Num_tarjeta

Int

-

Numero de la

tarjeta que se

le da al

equipo

comprado

Null

Modelo_equipo

Varchar

30

Edicioacuten de

cada equipo

Null

Tipo_sentildeal

Varchar

30

Tipo de

transmisioacuten

del equipo

Null

Paquete

Varchar

15

Lo que

contiene cada

equipo

comprado

Null

Obseravciones

Varchar

40

Notas que se

le hace al

equipo

Null

Contrato

SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 16


Id_mantenimiento

Int

-

Clave

importante

Null

Pk

Num_contrato

Int

-

Numero de

cada contrato

realizado

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

el

mantenimiento

Null

Costo

Varchar

45

Precio del

mantenimiento

Null

Causa_motivo

Varchar

90

El porqueacute se

hizo el

mantenimiento

Null


Id_solicitud

Int

Clave

principal de la

solicitud

Null

Fk

Nombre

Varchar

45

Nombre del

cliente

Null

Telefono

Integer

Teleacutefono del

cliente

Null

Nombre Tipo de

dato


Id_personal

Int

-

Clave principal

del personal

Null

Fk

Fecha

Date

-

Diacutea en que se

haya realizado

la instalacioacuten

Null

Num_contrato

Int

-

Numero de

cada contrato

que se ha

realizado

Null

Fk

Id_solicitud

Int

-

Clave principal

de la solicitud

Null

Fk

Mantenimiento

Instalacioacuten

Referencia

SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 17


Id_personal

Int

Clave

principal del

personal

Null

Fk

Id_mantenimiento

Int

Clave

principal de

mantenimiento

Null

Fk

Fecha

Date

Diacutea en que se

haya realizado

la visita

Null

Estado

Varchar

45

El porqueacute se

hizo la visita

Null

Observaciones

Varchar

90

Nota sobre la

visita

Null

Visita

SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 18



SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 19


Id_solicitud

REFERENCIA

1 N

Tel Nombre 1 1

Tiene

Con lleva

Realiza

INSTALACIOacuteN

Fecha Num_contrato

Lleva acabo

1 1


Tipo senal

Fecha

Num_prospecto

Paquete

Id_solicitud


Num_serie_tarjeta

Realiza

PERSONAL

Nombre

Email

Celular Dir

Id_personal

Ap_materno

Ap_paterno


TIPO TRABAJO

Area Puesto

Tipo trabajo

1 N

Tiene

Atiende

1 N

SOLICITUD

Apellido fecha Cp

Tel

Dir Nombre_clie

id_solicitud Estado

Tiene

MANTENIMIENTO

1 N

Id_manto

Num_contrato

fecha

Causa o motivo

Costo

VISITA

Personal Atendida

Observaciones

estado fecha

Id_personal

Id_matto

Id_personal

Num_contrato

Id_personal

Id_solicitud

SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 20









MYSQL

MYSQL WORD BENCH

VISUAL BASIC 8

APPSERV

OPEN PROYECT




SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 21

CONFIGURACION





























ENGINE=InnoDB









SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 22














) ENGINE=InnoDB

























SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 23



















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 24





SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 25





SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 26


INSTALADORES









Systemmsj)

SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 27



conveniente


SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 28



que finalice

SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 29



cerramos

SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 30



Errores de llenado






















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 31









Oacute




SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 32

GLOSARIO











datos




libremente
















DDH Disco duro

CASOS DE USO









SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 33

ANEXOS



LOGIN








SKY Ingreso)

FrmSKYShow()

Else



End

End If

End Sub

End Class

SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 34


PRINCIPAL

Public Class FrmSKY




End Sub



FrmPERSONALShow()

End Sub




End Sub



FrmCONTRATOSShow()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 35


PERSONAL

Imports MySqlData

Imports SystemData








Try

SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 36




conexionOpen()



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()


TxtNombreText =

TxtA_paternoText =

TxtA_maternoText =

TxtDireccionText =

TxtTelefonoText =

TxtCelularText =

TxtEmailText =

CmbTrabajoText =

CmbPuestoText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub

SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 37



Nuevo()

Prueba()

End Sub



Dim ID As String


Nuevo()









Error)


Else







TxtID_PersonalText



If drRead() Then











Else



End If

drClose()

End If

Else

FrmBusqueda2Show()

End If

End Sub

SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 38



Try




Else

Dim chek As Integer













MySqlDbTypeInt16)


TxtID_PersonalText




MySqlDbTypeVarChar)


TxtA_paternoText


MySqlDbTypeVarChar)


TxtA_maternoText




MySqlDbTypeVarChar)


TxtTelefonoText



TxtCelularText()




SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 39

MySqlDbTypeVarChar)


CmbTrabajoText()







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If




End Try

End Sub



Try








Prueba()



TxtID_PersonalText

Else



TxtID_PersonalText






SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 40






End If





End If





End If














MySqlDbTypeVarChar)


CmbTrabajoText()






Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

End If


SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 41




End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Dim chek As Integer











Eliminado)

Nuevo()

Else


Cancelado)

End If

End Sub

End Class

SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 42


SOLICITUD

Imports SystemData

Imports MySqlData











End Sub



Try




conexionOpen()

SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 43



mierrorMessage)

conexionDispose()

End Try








End Sub

Public Sub Nuevo()



CmbEstadoText =

TxtNombreText =

TxtApellidosText =


TxtTelefonoText =

TxtCPText =

End Sub

Public Sub Prueba()







If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub



Nuevo()

Prueba()

End Sub

SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 44



Dim ID As String


Nuevo()




Error)


Else









If drRead() Then










Else



End If

drClose()

End If

End Sub







pero hay que ver




Else

SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 45





Dim chek As Integer











TxtNo_SolicitudText



TxtID_PersonalText



















Dim N As Integer




Nuevo()

End If

Else


End If

End If

End Sub

SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 46



Try













End If





TxtNo_SolicitudText

















If TxtCPText = Then

TxtCPText = 00000

End If





End If





SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 47


Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 48


CONTRATO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try



SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 49






End Sub

Public Sub Nuevo()





TxtSerieText =

TxtTarjetaText =

TxtEquipoText =

CmbSentildealText =

CmbPaqueteText =


End Sub








If drRead() Then


valor = valor + 1


Else


End If

drClose()

End Sub




MANTENIMIENTOShow()

End Sub





INSTALACIONShow()

End Sub

SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 50



Dim ID As String


Nuevo()









contrato Error)


Else






TxtNo_ContratoText



If drRead() Then



String)



String)







String)

Else



End If

drClose()

End If

Else

FrmNuevaBShow()

End If

End Sub






SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 51

Else

Dim chek As Integer












TxtNo_ContratoText



TxtNo_SolicitudText




MySqlDbTypeVarChar)


TxtNo_ProspectoText


MySqlDbTypeVarChar)


TxtSerieText




MySqlDbTypeVarChar)







MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 52

End If

End If

End Sub



Try









End If



TxtNo_SolicitudText







TxtNo_ProspectoText


MySqlDbTypeVarChar)












End If







Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If

SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 53





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub



Nuevo()

generar()

End Sub

End Class

SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 54


INSTALACIOacuteN

INSTALACION

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

End Try

SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 55








End Sub

Public Sub Nuevo()


TxtPersonalText =



End Sub



Dim ID As String


Nuevo()




Error)

TxtSolicitudFocus()

Else








If drRead() Then






Else



End If

drClose()

End If

End Sub



Try

SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 56







End If












Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



Nuevo()

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 57



MANTENIMIENTO

Imports SystemData

Imports MySqlData







Try




conexionOpen()



mierrorMessage)

conexionDispose()

SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 58

End Try








End Sub

Public Sub Nuevo()

TxtCausaText =

TxtCostoText =



TxtMmtoText =

End Sub



Dim ID As String

ID = TxtMmtoText

Nuevo()

TxtMmtoText = ID



Error)

TxtMmtoFocus()

Else








If drRead() Then







Else



End If

drClose()

End If

End Sub

SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 59






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtMmtoText



TxtContratoText






MySqlDbTypeVarChar)






Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



Try





SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 60



End If














Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub








If drRead() Then


valor = valor + 1

TxtMmtoText = valor

Else

TxtMmtoText = 1

End If

drClose()

End Sub

SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 61



paso = TxtMmtoText

VISITAShow()

End Sub



Nuevo()

generar()

End Sub

End Class


de visita

VISITA

Imports MySqlData

Imports SystemData


Public Class VISITA





Try

SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 62




conexionOpen()



mierrorMessage)

conexionDispose()

End Try







End Sub

Public Sub Nuevo()

TxtEstadoText =


TxtManttoText =


TxtPersonalText =

End Sub



Dim ID As String

ID = TxtManttoText

Nuevo()

TxtManttoText = ID



Error)

TxtManttoFocus()

Else






TxtManttoText()



If drRead() Then






String)

SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 63

Else



End If

drClose()

End If

End Sub






Else

Dim chek As Integer








MySqlDbTypeInt16)


TxtManttoText()








MySqlDbTypeVarChar)







Dim N As Integer




Nuevo()

End If

Else


Cancelado)

End If

End If

End Sub



SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 64

Try







End If















Exitosamente Alta)

Dim chek As Integer




Nuevo()

End If





End Try

End Sub



MeClose()

End Sub

End Class

SKY SYSTEM 65

RECOMENDACIONES















SKY SYSTEM 65

RECOMENDACIONES















Manual Tecnico

Documents

Transcript of Manual Tecnico