Como Crear Sistema Inventario Vb
-
Upload
hasburgo71 -
Category
Documents
-
view
221 -
download
0
Transcript of Como Crear Sistema Inventario Vb
-
8/19/2019 Como Crear Sistema Inventario Vb
1/23
www.monografias.com
Cómo crear un Sistema de Inventario en Access con Visual Basic
1. Introducción2. Inicio del Proyecto3. Creación de la base de datos4. Creación de las tablas de la base de datos
5. Creando los ormularios!. Creando la cone"ión con la base de datos y la tabla
IntroducciónEl propósito de este tutorial es el de proveernos de las bases iniciales para elaborar un sencillo sistema de
inventario el cual permitirá realizar las transacciones que un sistema de inventario requiere, es decir
procesar las entradas y las salidas de un producto determinado para poder saber –en cualquier momento-
con certeza cuántas unidades del producto tenemos en existencia. Este simple modelo podremos adecuarlo
a nuestras necesidades particulares y acerlo tan completo como sea necesario, de tal manera que
podamos administrar y controlar nuestra valios!sima colección de discos, libros, m"sica, pel!culas, etc.
#ara este e$ercicio crearemos una base de datos llamada Inventario y dentro de ella tendremos tres tablasllamadas% Productos, #ntradas y Salidas. &on los tipos de datos que se muestran a continuación.
En el tutorial '&ómo crear una base de datos en (ccess con )isual *asic+ publicado en la página%
www.abcdatos.comtutorialestutorialz/0.tml se las allan instrucciones detalladas sobre cómo crear las
tablas, sin embargo aremos un repaso breve.
Inicio del Proyectoa1 &rea una carpeta que será e"clusiva para el e$ercicio que se llamará% 'inventario+ para guardar
todos los componentes del proyecto.
Inicio de Visual Basica1 2az clic en el botón Inicio, se3ala $odos los %ro&ramas.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
2/23
www.monografias.com
b1 4e3ala 'icrosot Visual Studio !.(, y az clic en 'icrosot Visual Basic !.(.c1 &rea un proyecto E5E estándar y guárdalo como inventario en la carpeta del mismo nombre.d1 #or el momento no aremos nada con el formulario inicial.
Creación de la base de datos
a1 2az clic en el botón Com%lementos de la barra de erramientas.b1 2az clic en Administrador visual de datos6
c1 7 se abrirá el Administrador visual de datos 8)is9ata 8)isual 9ata :anager11.d1 2az clic en Arc)ivo, *uevo+, 'icrosot Access, ',B de la versión -.(6
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
3/23
www.monografias.com
e1 En la ca$a Seleccione la base de datos de 'icrosot Access ue desea crear , en /uardar en,busca y selecciona la misma car%eta –creada anteriormente- en donde se guardará el proyecto, en*ombre% escribe un nombre que identifique la base de datos 8usualmente el mismo nombre de la
carpeta1 y az clic en el botón /uardar .
f1 (ora aparece nuevamente el Administrador visual de datos listo para empezar a traba$ar.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
4/23
www.monografias.com
Creación de las tablas de la base de datosa1 #ara este e$ercicio crearemos tres tablas 8ver página 1. 2az clic con el botón dereco del ratón
dentro de la Ventana de base de datos y az clic en *ueva tabla.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
5/23
www.monografias.com
En la ca$a #structura de tabla, *ombre de la tabla% escribe el nombre de la tabla, para el e$ercicio
la tabla se llamará %roductos, y az clic en el botón A&re&ar cam%o.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
6/23
www.monografias.com
b1 En la ca$a A&re&ar cam%o, *ombre% escribe el nombre del primer campo de la tabla que estamoscreando, para el e$ercicio agregaremos cuatro campos, a saber% node%arte, descri%ción, costo ycantidadminima.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
7/23
www.monografias.com
c1 En $i%o% selecciona el tipo de datos que contendrá el campo, en nuestro caso serán%- campo% node%arte, tipo de datos% 0on&, tama3o% 0- campo% descri%cion, tipo de datos% $e"t, tama3o% ;<- campo% costo, tipo de datos% Currency, tama3o% =- campo% cantidadminima, tipo de datos% 0on&, tama3o% 0
d1 En $amao% selecciona la cantidad de caracteres 8incluyendo espacios1 que tendrá el campo 8verarriba1 y az clic en Ace%tar .
e1 #ara agregar los otros campos de la tabla, nuevamente az clic en el botón A&re&ar cam%o yrepite los pasos desde el punto 'c1+ 8>ombre, ?ipo y ?ama3o1 para cada campo que tendrá la tabla.
f1 (l terminar de crear los campos, acemos clic en el botón A&re&ar ndice y en la ventana A&re&arndice to %roductos agregaremos como !ndice el campo node%arte aci@ndole doble clic en laca$a Cam%os dis%onibles y escribiendo en la ca$a de texto *ombre% nodeparteindice. 7 az clic enAce%tar . &omo se ve aba$o.
g1 &uando ayas agregado los campos de la tabla az clic en el botón /enerar la tabla.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
8/23
www.monografias.com
1 7 la tabla la podrás ver en el Administrador visual de datos Vis,ata1.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
9/23
www.monografias.com
i1 Aepite los pasos –desde el punto 'a1+ para crear dos tablas más con los siguientes campos%
2az doble clic en la tabla que acabas de crear 8%roductos para mostrar la ventana ,ynaset6 %roductos,az clic en el botón A&re&ar para introducir el siguiente registro% >"mero de parte% 1(, 9escripción %luma,&osto 12.5(, :!nimo 2( y az clic en Actuali7ar para agregarlo a la tabla %roductos de la base de datosinventario.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
10/23
www.monografias.com
Bntroduce aora los registros%
*o de %arte ,escri%ción Costo 'nimo/< C(#BD ;.; 0<
F< *GAA(9GA
-
8/19/2019 Como Crear Sistema Inventario Vb
11/23
www.monografias.com
(s! que entonces crea el formulario de inicio, que para iniciar en el centro de la pantalla debes modificar su
propiedad Start9%Position a 2:CenterScreen, modifica su propiedad Ca%tion a 4istema de Bnventario,crea el men" con las opciones Productos, #ntradas, Salidas, Inventario y Salir .Gbviamente crearemos cinco formularios en total que llamaremos modificando su propiedad 8*ombre1%
rminicio, rm%roductos, rmentradas, rmsalidas y rminventario.El código del men; que nos permitirá ir de un formulario a otro y salir del programa es%#rivate 4ub productosH&licI81
frminicio.2ide
frmproductos.4ow
End 4ub
8ormulario 0os ProductosEn el formulario coloca cuatro etiquetas, cuatro ca$as de texto, dos controles 9ata, un :4JlexKrid y cuatro
botones como se ve a continuación.
Creando la conexión con la base de datos y la tabla. &onectando los controles 9ata
a1 4elecciona cada uno de los controles ,ata y modifica sus propiedades como sigue%b1 ,atabase*ame% localiza la carpeta del proyecto y selecciona la base de datos 8inventario1 en
donde se alla la tabla que vamos a conectar.
c1
-
8/19/2019 Como Crear Sistema Inventario Vb
12/23
www.monografias.com
&orre el programa para comprobar que las conexiones se realizaron correctamente y que se pueden ver los
registros en las ca$as de texto correspondientes y en el :4JlexKrid.
Codiicando&ódigos del formulario Productos%#rivate 4ub JormHCoad81
:e.9ata.AefresJor t L < ?o :4JlexKrid.&ols -
:4JlexKrid.Jixed(lignment8t1 L 0
>ext t
:4JlexKrid.Jore&olor L M20
-
8/19/2019 Como Crear Sistema Inventario Vb
13/23
www.monografias.com
#rivate 4ub volveralmenuH&licI81
frmproductos.2ide
frminicio.4ow
End 4ub
#ara volver al men" principal
&ódigo del botón A&re&ar Producto%#rivate 4ub cmdagregarregH&licI81
Gn Error Ko?o ErrHcmdagregarregH&licI
:e.9ata.Aefres
:e.9ata/.Aecord4ource L Pselect max8nodeparte1 as losproductos from productosP
:e.9ata/.Aefres
:e.9ata.Aecordset.(dd>ew
:e.:4JlexKrid.Aow L <
Bf Bs>ull89ata/.AecordsetSlosproductos1 ?en
:e.?ext L
:e.?ext.Enabled L Jalse
:e.?ext/.4etJocusElse
:e.?ext L 9ata/.AecordsetSlosproductos Q
:e.?ext.Enabled L Jalse
:e.?ext/.4etJocus
End Bf
ExitHcmdagregarregH&licI%
Exit 4ub
ErrHcmdagregarregH&licI%
:sg*ox PErr.9escriptionP
Aesume ExitHcmdagregarregH&licI
End 4ub
#ara mediante que el data/ obtener el n"mero de registro o producto más alto y agregarle una unidad, demanera que este n"mero de producto no se repita y se mostrará automáticamente, el usuario iniciará su
captura de datos en la ca$a de texto/.
&ódigo del botón /uardar Producto%#rivate 4ub cmdguardarregH&licI81
Bf ?ext/ L PP ?en
:sg*ox P#or favor Bntroduce la 9escripciónP, vbGRGnly, P(lta de #roductosP
?ext/.4etJocus
Exit 4ub
End Bf
Bf ?extF L PP ?en
:sg*ox P#or favor Bntroduce el &ostoP, vbGRGnly, P(lta de #roductosP?extF.4etJocus
Exit 4ub
End Bf
Bf ?ext0 L PP ?en
:sg*ox P#or favor Bntroduce la &antidad :!nimaP, vbGRGnly, P(lta de #roductosP
?ext0.4etJocus
Exit 4ub
End Bf
9im z (s Cong
z L ?ext
9ata.TpdateAecord
9ata.Aefres:4JlexKrid.Aefres
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
14/23
www.monografias.com
:sg*ox PEl #roducto >"mero% P M z M &r8F1 Q P4e Kuardó en la *ase de 9atosP Q &r8F1 Q P&on ?odos
los 9atos &ompletosP, vbBnformation, P(lta de #roductosP
End 4ub
#ara guardar el registro en la base de datos y notificar al usuario en caso de no completar un campo.
&ódigo del botón Buscar Producto%#rivate 4ub cmdbuscarregH&licI81
9im g (s Bnteger
g L )al8Bnput*ox8PBntroduce el >"mero del #roducto que *uscasP, P*"squeda de #roductosP11
9ata.Aecordset.JindJirst PnodeparteLP M g
Bf 9ata.Aecordset.>o:atc ?en
:sg*ox PEl #roducto >"mero% P M g M P >o está en la *ase de 9atosP, vbExclamation, P*"squeda de
#roductosP
End Bf
End 4ub
#ara realizar b"squedas de registros y notificar al usuario si no se alla en la base de datos.
&ódigo del botón #liminar Producto%#rivate 4ub cmdeliminarregH&licI81
Bf 9ata.Aecordset.EGJ L Jalse (nd 9ata.Aecordset.*GJ L Jalse ?en
Bf :sg*ox8PUEstás 4eguro de Eliminar el #roducto >"mero% P M ?ext M PVP, vb&ritical Q vb7es>o,
PEliminación de #roductosP1 L vb7es ?en
9ata.Aecordset.9elete
9ata.Aefres
:4JlexKrid.Aefres
:sg*ox P:uy *ien, Eliminaste el #roductoP, vbExclamation, PEliminación de #roductosP
Else
:sg*ox P>o se Eliminó el #roducto >"mero% P M ?ext, vbExclamation, PEliminación de #roductosP
?ext L PP
?ext/ L PWP?extF L PWP
?ext0 L PP
End Bf
End Bf
End 4ub
#ara eliminar registros y notificar al usuario.
&ódigo de la ca$a de te"to1 8>"mero de parte1%#rivate 4ub ?extHRey#ress8Rey(scii (s Bnteger1
Bf Rey(scii L F ?en
?ext/.4etJocus
End Bf End 4ub
#ara avanzar con Enter a la siguiente ca$a de texto
&ódigo de la ca$a de te"to2 89escripción1%#rivate 4ub ?ext/HRey#ress8Rey(scii (s Bnteger1
Rey(scii L (sc8T&ase8&r8Rey(scii111
Bf Rey(scii L F ?en
?extF.4etJocus
End Bf
End 4ub
#ara introducir sólo may"sculas y avanzar a la siguiente ca$a de texto con Enter.
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
15/23
www.monografias.com
&ódigo de la ca$a de te"to3 8&osto1%#rivate 4ub ?extFHRey#ress8Rey(scii (s Bnteger1
Bf Rey(scii L F ?en
?ext0.4etJocus
End Bf
End 4ub
#ara avanzar con Enter a la siguiente ca$a de texto
&ódigo de la ca$a de te"to4 8&antidad :!nima1%#rivate 4ub ?ext0HRey#ress8Rey(scii (s Bnteger1
Bf Rey(scii L F ?en
:e.cmdguardarreg.4etJocus
End Bf
End 4ub
#ara avanzar con Enter al botón Kuardar #roducto.
8ormulario #ntradas de los ProductosEn el formulario coloca seis etiquetas, seis ca$as de texto, dos controles 9ata, un :4JlexKrid y cuatrobotones como se ve a continuación.
. &onectando los controles 9ataa1 4elecciona cada uno de los controles ,ata y modifica sus propiedades como sigue%b1 ,atabase*ame% localiza la carpeta del proyecto y selecciona la base de datos 8inventario1 en
donde se alla la tabla que vamos a conectar.
c1
-
8/19/2019 Como Crear Sistema Inventario Vb
16/23
www.monografias.com
a1 4elecciona el ob$eto 'S8le"/rid, en su propiedad ,ataSource selecciona ,ata1, modifica supropiedad Cols a , cambia su propiedad s a F.
Codiicando&ódigo del formulario #ntradas%#rivate 4ub JormHCoad81
:4JlexKrid.&olNidt8ewBf Bs>ull89ata/.AecordsetSlasentradas1 ?en
?ext L
Else
?ext L 9ata/.AecordsetSlasentradas Q
End Bf
?ext.Enabled L Jalse
?ext/.4etJocus
?extF L PP
?ext0 L PP
?ext; L PP
?ext L PP
End 4ub
#ara mediante el data/ obtener el n"mero de registro o producto más alto y agregarle una unidad, de
manera que este n"mero se mostrará automáticamente, el usuario iniciará su captura de datos en la ca$a de
texto/.
&ódigo del botón /uardar #ntrada%#rivate 4ub &ommand/H&licI81
Bf ?ext/ L PP ?en
:sg*ox P#or Javor Bntroduce la JecaP, , P(viso BmportanteP
?ext/.4etJocus
Exit 4ub
End Bf
Bf ?extF L PP ?en
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
17/23
www.monografias.com
:sg*ox P#or Javor Bntroduce el >"mero de #arteP, , P(viso BmportanteP
?extF.4etJocus
Exit 4ub
End Bf
Bf ?ext0 L PP ?en
:sg*ox P#or Javor Bntroduce la 9escripciónP, , P(viso BmportanteP?ext0.4etJocus
Exit 4ub
End Bf
Bf ?ext; L PP ?en
:sg*ox P#or Javor Bntroduce la &antidadP, , P(viso BmportanteP
?ext;.4etJocus
Exit 4ub
End Bf
Bf ?ext L PP ?en
:sg*ox P#or Javor Bntroduce el &ostoP, , P(viso BmportanteP?ext.4etJocus
Exit 4ub
End Bf
9im x (s Bnteger
x L )al8?extF1
frmproductos.9ata.Aecordset.JindJirst PnodeparteLP M x
Bf frmproductos.9ata.Aecordset.>o:atc ?en
:sg*ox PEl #roducto >"mero% P M x M P >o está en la *ase de 9atosP, vb&ritical, P(gregando EntradasP
?extF.4etJocus
Exit 4ub
End Bf
9im e (s Cong
e L )al8?ext1
9ata.TpdateAecord
9ata.Aefres
:4JlexKrid.Aefres
:sg*ox PCa Entrada >"mero% P M e M P se Kuardó en la *ase de 9atosP, vbExclamation, P(gregando
EntradasP
End 4ub
#ara guardar el registro en la base de datos y notificar al usuario cuando un n"mero de parte no se alle en
la base de datos y cuando campo no sea llenado.
&ódigo del botón Buscar #ntrada%#rivate 4ub &ommandFH&licI81
9im $ (s Bnteger
$ L )al8Bnput*ox8PBntroduce el >"mero de la Entrada que *uscasP, P*"squeda de EntradasP11
9ata.Aecordset.JindJirst PnodeentradaLP M $
Bf 9ata.Aecordset.>o:atc ?en
:sg*ox PCa Entrada >"mero% P M $ M P >o está en la *ase de 9atosP, vbExclamation, P*"squeda de
EntradasP
End Bf
End 4ub
#ara realizar b"squedas de registros y notificar al usuario si no se alla en la base de datos.
&ódigo del botón #liminar #ntrada%
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
18/23
www.monografias.com
#rivate 4ub &ommand0H&licI81
Bf :sg*ox8PUEstás 4eguro de Eliminar la Entrada >"mero% P M ?ext M PVP, vb&ritical Q vb7es>o,
PEliminación de EntradasP1 L vb7es ?en
9ata.Aecordset.9elete
9ata.Aefres
:4JlexKrid.Aefres
:sg*ox P:uy *ien, Eliminaste la EntradaP, vbExclamation, PEliminación de EntradasPElse
:sg*ox P>o se Eliminó la Entrada >"mero% P M ?ext, vbExclamation, PEliminación de EntradasP
End Bf
End 4ub
#ara eliminar registros y notificar al usuario.
&ódigo de la ca$a de te"to4 ,escri%ción%#rivate 4ub ?ext0HRey#ress8Rey(scii (s Bnteger1
Rey(scii L (sc8T&ase8&r8Rey(scii111
Bf Rey(scii L F ?en
?ext;.4etJocusEnd Bf
End 4ub
#ara introducir sólo may"sculas y avanzar a la siguiente ca$a de texto con Enter.
8ormulario Salidas de los ProductosEn el formulario coloca seis etiquetas, seis ca$as de texto, dos controles 9ata, un :4JlexKrid y cuatro
botones como se ve a continuación.
. &onectando los controles 9ata
a1 4elecciona cada uno de los controles ,ata y modifica sus propiedades como sigue%b1 ,atabase*ame% localiza la carpeta del proyecto y selecciona la base de datos 8inventario1 en
donde se alla la tabla que vamos a conectar.
c1
-
8/19/2019 Como Crear Sistema Inventario Vb
19/23
www.monografias.com
c1 ,ata8ield% selecciona el nombre del cam%o de la tabla –que corresponda con la etiqueta - que semostrará en la ca$a de texto.
d1 Aepite los pasos con cada ca=a de te"to del formulario.
F. &onectando el :4JlexKrid.
a1 4elecciona el ob$eto 'S8le"/rid, en su propiedad ,ataSource selecciona ,ata1, modifica supropiedad Cols a , cambia su propiedad s a F.
Codiicando&ódigo del formulario Salidas%#rivate 4ub JormHCoad81
:4JlexKrid.&olNidt8ew
Bf Bs>ull89ata/.AecordsetSlassalidas1 ?en
?ext L
Else
?ext L 9ata/.AecordsetSlassalidas Q
End Bf
?ext.Enabled L Jalse
?ext/.4etJocus?extF L PP
?ext0 L PP
?ext; L PP
?ext L PPEnd 4ub
#ara mediante el data/ obtener el n"mero de registro o producto más alto y agregarle una unidad, de
manera que este n"mero se mostrará automáticamente, el usuario iniciará su captura de datos en la ca$a de
texto/.
&ódigo del botón /uardar Salida%#rivate 4ub &ommand/H&licI81
Bf ?ext/ L PP ?en:sg*ox P#or Javor Bntroduce la JecaP, , P(viso BmportanteP
?ext/.4etJocus
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
20/23
www.monografias.com
Exit 4ub
End Bf
Bf ?extF L PP ?en
:sg*ox P#or Javor Bntroduce el >"mero de #arteP, , P(viso BmportanteP
?extF.4etJocus
Exit 4ubEnd Bf
Bf ?ext0 L PP ?en
:sg*ox P#or Javor Bntroduce la 9escripciónP, , P(viso BmportanteP
?ext0.4etJocus
Exit 4ub
End Bf
Bf ?ext; L PP ?en
:sg*ox P#or Javor Bntroduce la &antidadP, , P(viso BmportanteP
?ext;.4etJocus
Exit 4ubEnd Bf
Bf ?ext L PP ?en
:sg*ox P#or Javor Bntroduce el &ostoP, , P(viso BmportanteP
?ext.4etJocus
Exit 4ub
End Bf
9im w (s Cong
w L )al8?ext1
9ata.TpdateAecord
9ata.Aefres
:4JlexKrid.Aefres:sg*ox PCa 4alida >"mero% P M w M P se Kuardó en la *ase de 9atosP, vbExclamation, P(gregando
4alidasP
End 4ub
#ara guardar el registro en la base de datos y notificar al usuario cuando un campo no sea llenado.
&ódigo del botón Buscar Salida%#rivate 4ub &ommandFH&licI81
9im c (s Bnteger
c L )al8Bnput*ox8PBntroduce el >"mero de la 4alida que *uscasP, P*"squeda de 4alidasP11
9ata.Aecordset.JindJirst PnodesalidaLP M c
Bf 9ata.Aecordset.>o:atc ?en:sg*ox PCa 4alida >"mero% P M c M P >o está en la *ase de 9atosP, vbExclamation, P*"squeda de 4alidasP
End Bf
End 4ub
#ara realizar b"squedas de registros y notificar al usuario si no se alla en la base de datos.
&ódigo del botón #liminar Salida%#rivate 4ub &ommand0H&licI81
Bf :sg*ox8PUEstás 4eguro de Eliminar la 4alida >"mero% P M ?ext M PVP, vb&ritical Q vb7es>o, PEliminación
de 4alidasP1 L vb7es ?en
9ata.Aecordset.9elete
9ata.Aefres:4JlexKrid.Aefres
:sg*ox P:uy *ien, Eliminaste la 4alidaP, vbExclamation, PEliminación de 4alidasP
#ara ver traba$os similares o recibir información semanal sobre nuevas publicaciones, visite www.monografias.com
-
8/19/2019 Como Crear Sistema Inventario Vb
21/23
www.monografias.com
Else
:sg*ox P>o se Eliminó la 4alida >"mero% P M ?ext, vbExclamation, PEliminación de 4alidasP
End Bf
End 4ub
#ara eliminar registros y notificar al usuario.
&ódigo de la ca$a de te"to4 ,escri%ción%#rivate 4ub ?ext0HRey#ress8Rey(scii (s Bnteger1
Rey(scii L (sc8T&ase8&r8Rey(scii111
Bf Rey(scii L F ?en
?ext;.4etJocus
End Bf
End 4ub
#ara introducir sólo may"sculas y avanzar a la siguiente ca$a de texto con Enter.
8ormulario Inventario de los Productos
En el formulario coloca seis etiquetas, seis ca$as de texto, tres controles 9ata y un botón como se ve acontinuación.
. &onectando los controles 9ata
a1 4elecciona cada uno de los controles ,ata y modifica sus propiedades como sigue%b1 ,atabase*ame% localiza la carpeta del proyecto y selecciona la base de datos 8inventario1 en
donde se alla la tabla que vamos a conectar.
c1
-
8/19/2019 Como Crear Sistema Inventario Vb
22/23
www.monografias.com
?ext/.Enabled L Jalse
?extF.Enabled L Jalse
?ext0.Enabled L Jalse
?ext;.Enabled L Jalse
?ext.Enabled L Jalse
End 4ub
#ara desabilitar las ca$as de texto ya que los campos serán sólo para consulta.
&ódigo del men" Arc)ivo, Volver al 'en;%#rivate 4ub volveralmenuH&licI81
frminventario.2ide
frminicio.4ow
End 4ub
#ara volver al men" principal
&ódigo del botón Buscar Producto%
#rivate 4ub &ommandH&licI819im t (s Bnteger
t L )al8Bnput*ox8PBntroduce el >"mero del #roducto que *uscasP, P*"squeda de #roductosP11
9ata.Aecordset.JindJirst PnodeparteLP M t
9ata/.Aecord4ource L Pselect sum8cantidad1 as totalentradas from entradas were nodeparteLP M ?ext
9ata/.Aefres
Bf Bs>ull89ata/.AecordsetStotalentradas1 ?en
:sg*ox PEl #roducto >"mero% P M t M P >o ?iene EntradasP, vb&ritical, P(viso BmportanteP
?ext0 L PP
Exit 4ub
Else
?ext0 L 9ata/.AecordsetStotalentradas
End Bf
9ataF.Aecord4ource L Pselect sum8cantidad1 as totalsalidas from salidas were nodeparteLP M ?ext9ataF.Aefres
Bf Bs>ull89ataF.AecordsetStotalsalidas1 ?en
:sg*ox PEl #roducto >"mero% P M t M P >o ?iene 4alidasP, vb&ritical, P(viso BmportanteP
?ext; L PP
Exit 4ub
Else
?ext; L 9ataF.AecordsetStotalsalidas
End Bf
?ext L ?ext0 - ?ext;
Bf 9ata.Aecordset.>o:atc ?en
:sg*ox PEl #roducto >"mero% P M t M P >o está en la *ase de 9atosP, vbExclamation, P*"squeda de
#roductosPEnd BfEnd 4ub
El control data mostrará los datos del registro en las ca$as de texto uno a tres, el control data/ mostrará la
suma de las entradas en la ca$a de texto cuatro, el control dataF mostrará la suma de las salidas en la ca$a
de texto cinco y la ca$a de texto mostrará el inventario.
En el tutorial '&ómo crear una base de datos en (ccess con )isual *asic+ publicado en la página%
www.abcdatos.comtutorialestutorialz/0.tml se allan instrucciones detalladas sobre cómo crear los
reportes que sean necesarios. Espero que este tutorial sea de inter@s y ayuda para mucos.
?utorial creado por% Cic. Xorge (lvarez 4.
XIasa/
-
8/19/2019 Como Crear Sistema Inventario Vb
23/23
www.monografias.com
rafaelfreitesYotmail.com
mailto:[email protected]:[email protected]