Visual basic tienda de ropa
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 ()...
Regístrate para leer el documento completo.