GUIA PRACTICA 1 – VISUAL BASIC 2012 + SQL SERVER

INGENIERIA INDUSTRIAL

INGENIERIA DE SOFTWARE

GUIA PRACTICA 1 – VISUAL BASIC 2012 + SQL SERVER SERVER MANTENIMIENTO DE UNA TABLA aplicación windows n !isual !isual "asic #$1# #$1# %u ralic l &an'ni&in'o &an'ni&in'o d la 'abla 1. Elaborar una aplicación (ro)dor. U'ilic procdi&in'os al&acnados para las opracions con la bas d da'os. I&pl&n' un &n* d opcions. Solución (aso 1+ Elaborar l ,odlo En'idad En'idad In'rrlación d la bas bas d da'os "DAL,A-EN. "DAL,A-EN. )R'&EED'R ENTRADA_ALMACEN

no$bre_prov direc_prov

nro_entrada nro_factura nro_factura (FK FACTURA

id_proveedor

fec!a id_proveedor (FK

nro_factura descripcion total_bienes valor_total

AREA" id_area no$bre_area descripcion

DETALLE_ENTRADA nro_ nro_ent entrada rada (FK (FK  nro_factura (FK id_ite$ (FK DETALLE_FACTURA nro_factura nro_factura (FK (F K id_ite$ (FK cantidad

cantidad

"AL#DA_ALMACEN nro_salida

#TEM

e$pleado_responsable fec!a_salida fec!a_entre%a id_area (FK nro_entrada nro_entrada (FK (FK  nro_factura (FK

id_ite$ no$bre

#N&ENTAR#' cod_unico responsable fec!a stoc id_ite$ (FK

DETALLE_#TEM id_ite$ (FK nro_s nro_salida alida (FK cantidad

(aso #+ ,irar l &odlo an'rior al s'or d bas d da'os S/LSr)r #$1#.

ING. FRAN-IS-O RODRIGUE0 N.

( 1



DETALLE_ENTRADA FACTURA

ITEM ENTRADA_ ALMACEN DETALLE_FACTURA

SALIDA_ ALMACEN

INVENTARIO DETALLE_I TEM PROVEEDOR AREAS

(aso 2+ I&pl&n'ar n la bas d da'os los siuin's procdi&in'os al&acnados. a3. sp4insr'a(ro) b3. sp4Lis'a(ro) c3. sp4"usca(ro) d3. sp4Ac'uali5a(ro) 3. sp4Eli&ina(ro)

-REATE (RO-EDURE S(4INSERTA(RO! 6(ID(RO! !AR-7AR 81$39 6(NO,"(RO! !AR-7AR 8#$39 6(DIR(RO! !AR-7AR 8#$3 AS "EGIN INSERT INTO (RO!EEDOR 8id4pro)dor 9no&br4pro)9dirc4pro)3 !ALUES 86(ID(RO!96(NO,"(RO!96(DIR(RO!3 END

-REATE (RO-EDURE S(4LISTA(RO! AS "EGIN SELE-T : FRO, (RO!EEDOR END


( #



-REATE (RO-EDURE S(4"US-A(RO! 6(ID(RO! !AR-7AR 81$3 AS "EGIN SELE-T : FRO, (RO!EEDOR W7ERE id4pro)dor ;6(ID(RO! END -REATE (RO-EDURE S(4A-TUALI0A(RO! 6(ID(RO! !AR-7AR 81$39 6(NO,"(RO! !AR-7AR 8#$39 6(DIR(RO! !AR-7AR 8#$3 AS "EGIN U(DATE (RO!EEDOR SET no&br4pro);6(NO,"(RO!9 dirc4pro);6(DIR(RO! W7ERE id4pro)dor ;6(ID(RO! END -REATE (RO-EDURE S(4ELI,INA(RO! 6(ID(RO! !AR-7AR 81$3 AS "EGIN DELETE FRO, (RO!EEDOR W7ERE id4pro)dor ;6(ID(RO! END

(aso <+ Iniciar !isual S'udio #$1$

(aso =+ En l ,n* -on'>'ual indicar Arc?i)o @ Nu)o (roc'o @ Aplicación d Windows For& @ Acp'ar (ara dar no&br  ubicación al proc'o. Indicar Arc?i)o @ Guardar 'odo. Indicar l no&br  ubicación dl proc'o. Luo indicar Guardar.


( 2



(aso B+ En l pri&r Cor&ulario 8For&13 ca&bia la propidad '>' a ,ENU  la propidad na& a For&,nu.


( <



(aso + D la pal'a d 7rra&in'as arar un con'rol 8ob'o3 ,nuS'rip n l Cor&ulario ,nu  scribir las opcions dl &n*.8Si no )isuali5a l cuadro d ?rra&in'as n l &n* d opcions !r @ -uadro d 7rra&in'as3

(aso + En l >plorador d solucions 8suprior drc?a3 ,arcar (roc'oAl&acn @ clic drc?o @ Arar @ WindowsFor& Aru un Windows Cor& 8For&13. -a&biar l '>'o  na& d s' Cor&ulario por l d For&(ro)dor.


( =



(aso H+ En los l For&(ro)dor incorporar con'rols 8ob'os3 %u s indican

O"ETO Labl1 Labl# Labl2 Group"o>1 Group"o>#


ATRI"UTO T>' T>' T>' T>' T>'

!ALOR -ODIGO NO,"RES DIRE--ION Da'os (rsonals Opracions

( B


T>'"o>1 T>'"o># T>'"o>2 Da'aGrid!iw "u''on1 "u''on# "u''on2 "u''on< "u''on=


Na& T>' Na& T>' Na& T>' Na& T>' Na& T>' Na& T>' Na& T>' Na& T>' Na&

'>'codio '>'no&brs '>'dirccion DG!(ro)dor Ris'rar "'nRis'rar Ac'uali5ar "'nAc'uali5ar Eli&inar "'nEli&inar "uscar "'n"uscar Li&piar "'nLi&piar

(aso 1$+ En l ,n*9 n la opción (ro)dor dar dobl clic  scribir l siuin' códio 8para l lla&ado d los Cor&ularios dsd l ,nu (rincipal3.

(ri)a' Sub (ro)dorToolS'rip,nuI'&4-lic8"!al sndr As Ss'&.Obc'9 "!al  As Ss'&.E)n'Ars3 7andls (ro)dorToolS'rip,nuI'&.-lic Di& ,nu(ro)dor As Nw For&(ro)dor ,nu(ro)dor.S?ow83 End Sub

(aso 11+ En l >plorador d solucions 8suprior drc?a3 ,arcar (roc'oAl&acn @ clic drc?o @ Arar @ -las. I&pl&n'ar la clas (ro)dor con sus corrspondin's a'ribu'os  &J'odos.


( 



I&por's Ss'&.Da'a.S%l-lin' 8I,(ORTA TODAS LAS -LASES DEL (A/UETE Ss'&.Da'a.S%l-lin3 (ublic -lass (ro)dor

8DEFINIR A LA -LASE (RO!EEDOR3

(ri)a' id(ro)9 no&b(ro)9 dir(ro) As S'rin (ri)a' conn As S%l-onnc'ion (RO-ESO 1+ -ONE-TAR -ON LA "ASE DE DATOS 8-ON S/L3 SE DEFINE UN O"ETO (ri)a' c&d As S%l-o&&and (RO-ESO#+ RE-I"O OTRO O"ETO (ARA 7A-ER LA A--ION DE -O,ANDO (ri)a' s'r-onn As S'rin ; KSER!ER;local?os'DATA"ASE;"DAL,A-ENIn'ra'd Scuri';SS(IK SER!IDOR M EL NO,"RE DE LA "ASE DE DATOS


( 



-ONSTRU-TOR Sub Nw83 conn ; Nw S%l-onnc'ion8s'r-onn3 AL O"ETO -ONEION DE"O ASO-IARLO A LA -ADENA8s'r-onn3 End Sub Sub Nw8"!al 'id As S'rin9 "!al 'no&br As S'rin9 "!al 'dir As S'rin3 ,.id(ro) ; 'id ,.no&b(ro) ; 'no&br ,.dir(ro) ; 'dir conn ; Nw S%l-onnc'ion8s'r-onn3 End Sub EL -ONSTRU-TOR RE-I"E 2 !ALORES M LOS ASIGNA A LOS ATRI"UTOS DE LA -LASE ,E+ OETO A-TI!O (ublic (ropr' Cid(ro)83 As S'rin G' R'urn ,.id(ro) End G' S'8"!al )alu As S'rin3 ,.id(ro) ; )alu End S' End (ropr' (RO(ERTM AGREGA LA LETRA F M TIENE DO"LE FUN-IONALIDAD9 (OR/UE RETORNA EL !ALOR DEL ATRI"UTO DE LA -LASE 8RETURN3 !ALUE+9 RETORNA UN !ALOR DEL ATRI"UTO LA -LASE M RE-I"E UN !ALOR M ASIGNARLO AL ATRI"UTO DE LA -LASE (ublic (ropr' Cno&b(ro)83 As S'rin G' R'urn ,.no&b(ro) End G' S'8"!al )alu As S'rin3 ,.no&b(ro) ; )alu End S' End (ropr' (ublic (ropr' Cdir(ro)83 As S'rin G' R'urn ,.dir(ro) End G' S'8"!al )alu As S'rin3 ,.dir(ro) ; )alu End S' End (ropr'


( H



44444444444444444444444444444444444444444444444444444444444444444444444444444444 (ublic Sub Ris'rar(ro)dor83 Tr conn.Opn83 c&d ; Nw S%l-o&&and8KS(4INSERTA(RO!K9 conn3 E-E(-ION c&d.-o&&andTp ; -o&&andTp.S'ord(rocdur c&d.(ara&'rs.AddWi'?!alu8K6pidpro)K9 id(ro)3 c&d.(ara&'rs.AddWi'?!alu8K6pno&bpro)K 9 no&b(ro)3 c&d.(ara&'rs.AddWi'?!alu8 K6pdirpro)K9 dir(ro)3 c&d.E>cu'Non/ur83 -a'c? > As E>cp'ion T?row Nw E>cp'ion8>.,ssa3 Finall conn.-los83 8crrar con>ion3 End Tr End Sub 444444444444444444444444444444444444444444444444444444444444444444444444444444444444 E-E(-ION +++-ONTROLA ERRORES M SI NO EN-UENTRA LA "ASE DE DATOS SALE ERROR 8"ASE DE DATOS -ON OTRO NO,"RE3 M SE A-TI!A -UANDO 7AM UN ERROR c&d SE ASO-IA A S( INSERTA (RO!EEDOR para&'ro dl procdi&in'o al&acnado con l a'ribu'o d la clas 86pno&bpro)K9 no&b(ro)3

(ublic Sub Ac'uali5ar(ro)dor83 Tr conn.Opn83 c&d ; Nw S%l-o&&and8KS(4A-TUALI0A(RO!K9 conn3 c&d.-o&&andTp ; -o&&andTp.S'ord(rocdur c&d.(ara&'rs.AddWi'?!alu8K6pidpro)K9 id(ro)3 c&d.(ara&'rs.AddWi'?!alu8K6pno&bpro)K 9 no&b(ro)3 c&d.(ara&'rs.AddWi'?!alu8K6pdirpro)K9 dir(ro)3 c&d.E>cu'Non/ur83 c&d asocial los a'ribu'os d class con los para&'ros d los procdi&i'nos al&acnados -a'c? > As E>cp'ion T?row Nw E>cp'ion8>.,ssa3 Finall conn.-los83 End Tr End Sub (ublic Func'ion Eli&inar(ro)dor83 As In'r Di& c As In'r Tr conn.Opn83 apr'ur la opracion c&d ; Nw S%l-o&&and8KS(4ELI,INA(RO!K9 conn3 c&d.-o&&andTp ; -o&&andTp.S'ord(rocdur c&d.(ara&'rs.AddWi'?!alu8K6pidpro)K9 id(ro)3 asocio solo l codio c ; c&d.E>cu'Non/ur83 -a'c? > As E>cp'ion


( 1$



T?row Nw E>cp'ion8>.,ssa3 (ARA ,ENSAE DE ERROR +T?row Nw Finall conn.-los83 End Tr R'urn c End Func'ion (ublic Sub "uscar(ro)dor>Id83 Tr Di& dr As S%lDa'aRadr ES(E-IE DE ,ATRI0 DE ,E,ORIA DONDE GUARDA'odo l rsul'ado d un slc' (ARA 7A-ER UNA "US/UEDA 8dr3 conn.Opn83 c&d ; Nw S%l-o&&and8KS(4"US-A(RO!K9 conn3 c&d.-o&&andTp ; -o&&andTp.S'ord(rocdur c&d.(ara&'rs.AddWi'?!alu8K6pidpro)K9 id(ro)3 dr ; c&d.E>cu'Radr83 IC No' dr.7asRows T?n T?row Nw E>cp'ion8K(ro)dor no ncon'radoK3 End IC W?il dr.Rad id(ro) ; dr8$3 lo uarda n l a'ribu'o d la clas dr8$3 dr813 dr8#3 no&b(ro) ; dr813 dir(ro) ; dr8#3 End W?il -a'c? > As E>cp'ion T?row Nw E>cp'ion8>.,ssa3 para &nsa d rror Finall conn.-los83 para crrar la con>ion End Tr End Sub No ?ao asocion por%u no r%uiro a'ribu'os por%u solo %uiro lis'ar (ublic Func'ion Lis'ar(ro)dors83 As Da'aTabl Tr Di& ds As Da'aS' Di& da As S%lDa'aAdap'r conn.Opn83 c&d ; Nw S%l-o&&and8KS(4LISTA(RO!K9 conn3 c&d.-o&&andTp ; -o&&andTp.S'ord(rocdur ds ; Nw Da'aS' da ; Nw S%lDa'aAdap'r 8c&d3 da.Fill8ds3 R'urn ds.Tabls8$3 -a'c? > As E>cp'ion T?row Nw E>cp'ion8>.,ssa3 Finall conn.-los83 End Tr End Func'ion End -lass

(aso 1#+ Ubicars n l Cor&ulario (ro)dor. Alli dar dobl clic -odiCicar los &J'odos  incluirlos n l Cor&1 8Cor&ulario d &plado3


( 11



(ri)a' Sub For&(ro)dor4Load8"!al sndr As Ss'&.Obc'9 "!al  As Ss'&.E)n'Ars3 7andls ,"as.Load FillGrid83 asina al da'a rid pro)dor End Sub (ri)a' Sub FillGrid83 Tr Di& ob(ro)dor As Nw (ro)dor Wi'? ob(ro)dor DG!(ro)dor.Da'aSourc ; .Lis'ar(ro)dors End Wi'? -a'c? > As E>cp'ion ,s"o>8K,nsa+ K  >.,ssa3 End Tr End Sub (ri)a' Sub Li&piarFor&83 '>'codio.T>' ; KK '>'no&brs.T>' ; KK '>'dirccion.T>' ; KK '>'codio.Focus83 End Sub


( 1#



(aso 12+ En l Cor&ulario (ro)dor dar dobl cli n los ob'os bu''on  codiCicar.

(ri)a' Sub "'nRis'rar4-lic8"!al sndr As Ss'&.Obc'9 "!al  As Ss'&.E)n'Ars3 7andls "'nRis'rar.-lic Tr Di& ob(ro)dor As Nw (ro)dor Cor&ulario n)ia a la clas 8DI,3 (RO(ERTM #DA A--ION Wi'? ob(ro)dor .Cid(ro) ; '>'codio.T>' .Cno&b(ro) ; '>'no&brs.T>' .Cdir(ro) ; '>'dirccion.T>' .Ris'rar(ro)dor83 End Wi'? ,s"o>8K(or)dor Ris'rado PPPPK3 Li&piarFor&83 QIn)ocar al &J'odo li&piar Cor&ulario FillGrid83 QLlnar l Grid A-TUALI0A DATOS DENTRO DEL DATA GRID 8FILLGRID3 -a'c? > As E>cp'ion ,s"o>8K,nsa+ K  >.,ssa3 End Tr End Sub (ri)a' Sub "'nAc'uali5ar4-lic8"!al sndr As Ss'&.Obc'9 "!al  As Ss'&.E)n'Ars3 7andls "'nAc'uali5ar.-lic Tr Di& ob(ro)dor As Nw (ro)dor Wi'? ob(ro)dor .Cid(ro) ; '>'codio.T>' .Cno&b(ro) ; '>'no&brs.T>' .Cdir(ro) ; '>'dirccion.T>' .Ac'uali5ar(ro)dor83 End Wi'? ,s"o>8KDa'os Ac'uali5ados PPPPK3 Li&piarFor&83


( 12



FillGrid83 -a'c? > As E>cp'ion ,s"o>8K,nsa+ K  >.,ssa3 End Tr End Sub

(ri)a' Sub "'nEli&inar4-lic8"!al sndr As Ss'&.Obc'9 "!al  As Ss'&.E)n'Ars3 7andls "'nAc'uali5ar.-lic Tr Di& ob(ro)dor As Nw (ro)dor Wi'? ob(ro)dor .Cid(ro) ; '>'codio.T>' .Eli&inar(ro)dor83 End Wi'? ,s"o>8KDa'os Eli&inados PPPPK3 Li&piarFor&83 FillGrid83 -a'c? > As E>cp'ion ,s"o>8K,nsa+ K  >.,ssa3 End Tr End Sub

(ri)a' Sub "'n"uscar4-lic8"!al sndr As Ss'&.Obc'9 "!al  As Ss'&.E)n'Ars3 7andls "'n"uscar.-lic Tr Di& ob(ro)dor As Nw (ro)dor Wi'? ob(ro)dor .Cid(ro) ; '>'codio.T>' ."uscar(ro)dor>Id83 '>'no&brs.T>' ; .Cno&b(ro) '>'dirccion.T>' ; .Cdir(ro) End Wi'? -a'c? > As E>cp'ion ,s"o>8K,nsa+ K  >.,ssa3 End Tr End Sub )rivate "ub *tnLi$piar_Clic(*+&al sender As "+ste$,'b-ect. *+&al e As "+ste$,EventAr%s /andles *tnLi$piar,Clic Li$piarFor$( End "ub

(aso 1<+ Ecu'ar la aplicación 8icono iniciar dpuración3


( 1<



Ercicios (ropus'os 1.

I&pl&n'ar n la &is&a aplicación l Cor&ulario d &an'ni&in'o d la 'abla ITE,. 8procdi&in'os al&acnados9 clas  Cor&ulario3

#. I&pl&n'ar n la &is&a aplicación l Cor&ulario d &an'ni&in'o d la 'abla AREA. 8procdi&in'os al&acnados9 clas  Cor&ulario3


( 1=

GUIA PRACTICA 1 – VISUAL BASIC 2012 + SQL SERVER

Recommend Documents