1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
Private Sub FrmRecherche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PnlAjout.Visible = False
PnlSupprimer.Visible = False
PnlModif.Visible = False
PanelDevis.Visible = False
PanelCache.Visible = True
DgPieceOccasionTableaux.DataSource = macnx.Executer_Requete_Select("select idmateriel,NomMateriel,PrixMateriel,Quantiter,numeroCategories,Reference,numeromarque from marque,materielocass,categoriemateriel where (materielOcass.numeroCategories=categoriemateriel.NumeroCategorie) and (materielOcass.numeromarque=marque.idMarque) order by idmateriel asc", "Toutmateriel")
CbMarqueDetailler.DataSource = macnx.Executer_Requete_Select("select nomMarque from marque", "aa")
CbMarqueDetailler.DisplayMember = "nomMarque"
CbMarqueDetailler.ValueMember = "idmarque"
CbCategorieDetailler.DataSource = macnx.Executer_Requete_Select("SELECT NomCategorie FROM categoriemateriel", "gb")
CbCategorieDetailler.DisplayMember = "NomCategorie"
CbCategorieDetailler.ValueMember = "NumeroCategorie"
CbCategorieMaterielAjout.DataSource = macnx.Executer_Requete_Select("SELECT NomCategorie FROM categoriemateriel", "hb")
CbCategorieMaterielAjout.DisplayMember = "NomCategorie"
CbCategorieMaterielAjout.ValueMember = "NumeroCategorie"
CbCategorieModif.DataSource = macnx.Executer_Requete_Select("SELECT distinct numeroCategorie,NomCategorie FROM categoriemateriel", "lo")
CbCategorieModif.DisplayMember = "nomcategorie"
CbCategorieModif.ValueMember = "numeroCategorie"
Rafraichir()
DgPieceOccasionTableaux.Columns(5).Visible = False
DgPieceOccasionTableaux.Columns("IdMateriel").Visible = False
DgPieceOccasionTableaux.Columns("NomMateriel").HeaderText = "Nom"
DgPieceOccasionTableaux.Columns("PrixMateriel").HeaderText = "Prix"
DgPieceOccasionTableaux.Columns("Quantiter").HeaderText = "Qte"
DgPieceOccasionTableaux.Columns("NomCategorie").HeaderText = "Catégorie"
DgPieceOccasionTableaux.Columns("reference").HeaderText = "Reference"
End Sub |
Partager