Visual basic tienda de ropa

Solo disponible en BuenasTareas
  • Páginas : 5 (1048 palabras )
  • Descarga(s) : 0
  • Publicado : 4 de noviembre de 2010
Leer documento completo
Vista previa del texto
CODIGO DE VISUAL BASIC

TIPO DE PRENDA:

Privete sub_cmb_cmd_GRABAR_TIPO DE PRENDA_CLICK

Set rsAux = dbdata.Open.cordset (“CAT_TIPO DE PRENDA”,dbupentable)

RsAux.Addnew

If txt_cve_TIPO PRENDA “” then rsAux (“cve_TIPO PRENDA”)= txt_cve_sucursal

If txt_TIPO DE PRENDA “” then rsAux (“NOM_TIPO PRENDA”) = txt_sucursal

rsAux.ipade

call borra (Form1)

rsAux.Movelast

exitsub

end sub

Privete sub form_load ()

Set dbdata = work paces (0).Opendata base (“ruta de acceso”)

Dbsql = “Select * form cat_TIPO DE PRENDA order by cve_tipo de prenda

Set rsAux = dbdata.openrecord set (dbsql)

If rsAux.openrecord count > 0 then

Do while.not rsAux.F_OF

Cbo_TIPO DE PRENDA.Additem rsAux (“NOM_TIPO DE PRENDA”)String

Cso_len rsAux (Nom_TIPO PRENDA)); “ ”) rsAux(“CVE_TIPO PRENDA”)

rsAux.Movenext

loop

end if

end sub

Privete Sub KeyAscn press_Txt_cve_TIPO DEPRENDA

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit sub

If key Ascii = 13 then

If key Ascii.Setfocus

End if

End sub

Privete Sub KeyAscn press_Txt_cve_TIPO DEPRENDA (0)

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit sub

Ifkey Ascii.Setfocus

Txt_guardar_TIPO DE PRENDA Setfocus

End if

End sub

CODIGO PARA EL TIPO DE MARCA

Privete sub_cmb_cmd_GRABAR_MARCA_CLICK

Set rsAux = dbdata.Open.cordset (“CAT_MARCA”,dbupentable)

RsAux.Addnew

If txt_cve_MARCA “” then rsAux (“cve_MARCA”)= txt_cve_sucursal

If txt_MARCA “” then rsAux (“NOM_MARCA”) = txt_sucursal

rsAux.ipade

call borra (Form1)rsAux.Movelast

exit sub

end sub

Privete sub form_load ()

Set dbdata = work paces (0).Opendata base (“MARCA”)

Dbsql = “Select * form cat_ MARCA order by cve_tipo de prenda

Set rsAux = dbdata.openrecord set (dbsql)

If rsAux.openrecord count > 0 then

Do while.not rsAux.F_OF

Cbo_ MARCA.Additem rsAux (“NOM_ MARCA”)String

Cso_len rsAux (Nom_ MARCA)); “ ”) rsAux

(“CVE_MARCA”)

rsAux.Movenext

loop

end if

end sub

Privete Sub KeyAscn press_Txt_cve_MARCA

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit sub

If key Ascii = 13 then

If key Ascii.Setfocus

End if

End sub

Privete Sub KeyAscn press_Txt_cve_MARCA (0)

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit sub

If key Ascii.Setfocus

Txt_guardar_MARCA Setfocus

End if

End sub

CODIGO PARA LA TALLA

Privete sub_cmb_cmd_GRABAR_TALLA_CLICK

Set rsAux = dbdata.Open.cordset (“CAT_TALLA”,dbupentable)

RsAux.Addnew

If txt_cve_TALLA “” then rsAux (“cve_TALLA”)= txt_cve_sucursal

If txt_TALLA “” then rsAux (“NOM_TALLA”) = txt_sucursal

rsAux.ipade

call borra (Form1)

rsAux.Movelast

exit sub

end sub

Privete subform_load ()

Set dbdata = work paces (0).Opendata base (“TALLA”)

Dbsql = “Select * form cat_ TALLA order by cve_ TALLA

Set rsAux = dbdata.openrecord set (dbsql)

If rsAux.openrecord count > 0 then

Do while.not rsAux.F_OF

Cbo_ TALLA.Additem rsAux (“NOM_ TALLA”)String

Cso_len rsAux (Nom_ TALLA)); “ ”) rsAux

(“CVE_ TALLA”)

rsAux.Movenext

loop

end if

end subPrivete Sub KeyAscn press_Txt_cve_TALLA

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit sub

If key Ascii = 13 then

If key Ascii.Setfocus

End if

End sub

Privete Sub KeyAscn press_Txt_cve_TALLA (0)

Key Ascii = asc (uase chr(keyAscii)))

If key Ascii = 8thenexit sub

If key Ascii.Setfocus

Txt_guardar_ TALLA Setfocus

End if

End sub

CODIGO PARA EL TIPODE PAGO

Privete sub_cmb_cmd_GRABAR_TIPO PAGO_CLICK

Set rsAux = dbdata.Open.cordset (“CAT_TIPO DE PAGO”,dbupentable)

RsAux.Addnew

If txt_cve_TIPO DE PAGO “” then rsAux (“cve_TIPO PAGO”)= txt_cve_sucursal

If txt_TIPO DE PAGO “” then rsAux (“NOM_TIPO PAGO”) = txt_sucursal

rsAux.ipade

call borra (Form1)

rsAux.Movelast

exit sub

end sub

Privete sub form_load ()...
tracking img