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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217
|
Imports System.IO
Imports System.Windows.Forms.VisualStyles
Imports System.Data.OleDb
Friend Class Frm_Edition
Public State As DBconnector.Add_Or_Edit_state
Dim Tip As New ToolTip
Private Sub FillTextbox()
'if Edit record State, Textboxes Fill
Dim oledr As OleDb.OleDbDataReader
If State = DBconnector.Add_Or_Edit_state.EditRecordstate Then
Call OpenConnection()
Call Initialized()
With OleDa
.SelectCommand = New OleDb.OleDbCommand()
.SelectCommand.CommandText = "SELECT * FROM [T_Listing_FT] WHERE ([ID] = [@ID])"
.SelectCommand.Connection = OleCn
.SelectCommand.Parameters.Add("@ID", System.Data.OleDb.OleDbType.VarWChar, 50, "ID").Value = Frm_Recherche.ListView_Resultat.SelectedItems(0).Text
End With
oledr = OleDa.SelectCommand.ExecuteReader()
With oledr
If Not .HasRows Then
'Nothing
Else
.Read()
Me.TboxID.Text = IIf(.IsDBNull(0), "", .Item("ID").ToString())
Me.TboxCATEGORIE.Text = IIf(.IsDBNull(1), "", .Item("CATEGORIE").ToString())
Me.TboxGAMME.Text = IIf(.IsDBNull(2), "", .Item("GAMME").ToString())
Me.TboxDESCRIPTION1.Text = IIf(.IsDBNull(3), "", .Item("DESCRIPTION1").ToString())
Me.TboxDESCRIPTION2.Text = IIf(.IsDBNull(4), "", .Item("DESCRIPTION2").ToString())
Me.TboxREFERENCE.Text = IIf(.IsDBNull(5), "", .Item("REFERENCE").ToString())
Me.TboxMARQUE.Text = IIf(.IsDBNull(6), "", .Item("MARQUE").ToString())
Me.TboxFOURNISSEUR.Text = IIf(.IsDBNull(7), "", .Item("FOURNISSEUR").ToString())
Me.TboxREMARQUES.Text = IIf(.IsDBNull(7), "", .Item("REMARQUES").ToString())
Me.TboxWWW.Text = IIf(.IsDBNull(7), "", .Item("WWW").ToString())
Me.TboxPDF.Text = IIf(.IsDBNull(7), "", .Item("PDF").ToString())
Me.TboxLien.Text = IIf(.IsDBNull(7), "", .Item("LIEN").ToString())
Me.TboxImage.Text = IIf(.IsDBNull(7), "", .Item("IMAGE").ToString())
Me.TboxNotes.Text = IIf(.IsDBNull(7), "", .Item("NOTES").ToString())
.Close()
End If
Call CloseConnection()
End With
End If
End Sub
Private Sub Frm_Edition_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Dim filePDF As String = My.Settings.DBpath + "\FicheTechnique\" + TboxMARQUE.Text + "\" + TboxPDF.Text
KeyPreview = False
If State = Add_Or_Edit_state.AddRecordstate Then
'Mettre combobox Gamme en read only uniquement en mode édition
TboxGAMME.DropDownStyle = ComboBoxStyle.DropDownList
End If
Call FillTextbox()
Call OpenConnection()
'************Combobox
Dim oleGr As OleDb.OleDbDataReader
With OleGa
.SelectCommand = New OleDb.OleDbCommand()
.SelectCommand.CommandText = "SELECT * FROM T_gamme"
.SelectCommand.Connection = OleCn
End With
oleGr = OleGa.SelectCommand.ExecuteReader()
With oleGr
While oleGr.Read()
TboxGAMME.Items.Add(oleGr.GetString(1))
End While
End With
'************Combobox
'Afficher image produit
Dim path As String = My.Settings.DBpath + "\Image\" + TboxMARQUE.Text + "\" + TboxImage.Text
If TboxImage.Text <> "" Then
ImageProduit.ImageLocation = path
Else
ImageProduit.ImageLocation = My.Settings.DBpath & "\DataBase\nopicture.png"
End If
'Info bulle des bouton
InfoBulle.SetToolTip(BpSupprimerPDF, "Supprimer le fichier")
InfoBulle.SetToolTip(BpImporterPDF, "Importer un fichier PDF")
InfoBulle.SetToolTip(BpSupprimerIMG, "Supprimer la photo")
InfoBulle.SetToolTip(BpAjouterIMG, "Ajouter une photo")
Call CloseConnection()
End Sub
Private Sub BpSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpSave.Click, ImageProduit.BackgroundImageChanged
If State = DBconnector.Add_Or_Edit_state.AddRecordstate Then
If Requis() = True Then
Return
End If
Try
Call OpenConnection()
With OleDa
'Formulaire ajout enregistrement [ID] et @ID
.InsertCommand = New OleDb.OleDbCommand()
.InsertCommand.CommandText = "INSERT INTO [T_Listing_FT] ( [CATEGORIE] , [GAMME] , [DESCRIPTION1] , [DESCRIPTION2] , [REFERENCE] , [MARQUE] , [FOURNISSEUR] ,[REMARQUES] ,[WWW] ,[PDF] ,[LIEN] ,[IMAGE] ,[NOTES])" &
"VALUES ( @CATEGORIE , @GAMME , @DESCRIPTION1 , @DESCRIPTION2 , @REFERENCE , @MARQUE , @FOURNISSEUR ,@REMARQUES ,@WWW ,@PDF ,@LIEN ,@IMAGE ,@NOTES)"
.InsertCommand.Connection = OleCn
'.InsertCommand.Parameters.Add("@ID", OleDb.OleDbType.VarWChar, 50, "ID").Value = Me.TboxID.Text
.InsertCommand.Parameters.Add("@CATEGORIE", OleDb.OleDbType.VarWChar, 50, "CATEGORIE").Value = Me.TboxCATEGORIE.Text
.InsertCommand.Parameters.Add("@GAMME", OleDb.OleDbType.VarWChar, 50, "GAMME").Value = Me.TboxGAMME.Text
.InsertCommand.Parameters.Add("@DESCRIPTION1", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION1").Value = Me.TboxDESCRIPTION1.Text
.InsertCommand.Parameters.Add("@DESCRIPTION2", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION2").Value = Me.TboxDESCRIPTION2.Text
.InsertCommand.Parameters.Add("@REFERENCE", OleDb.OleDbType.VarWChar, 50, "REFERENCE").Value = Me.TboxREFERENCE.Text
.InsertCommand.Parameters.Add("@MARQUE", OleDb.OleDbType.VarWChar, 50, "MARQUE").Value = Me.TboxMARQUE.Text
.InsertCommand.Parameters.Add("@FOURNISSEUR", OleDb.OleDbType.VarWChar, 50, "FOURNISSEUR").Value = Me.TboxFOURNISSEUR.Text
.InsertCommand.Parameters.Add("@REMARQUES", OleDb.OleDbType.VarWChar, 50, "REMARQUES").Value = Me.TboxREMARQUES.Text
.InsertCommand.Parameters.Add("@WWW", OleDb.OleDbType.VarWChar, 50, "WWW").Value = Me.TboxWWW.Text
.InsertCommand.Parameters.Add("@PDF", OleDb.OleDbType.VarWChar, 50, "PDF").Value = Me.TboxPDF.Text
.InsertCommand.Parameters.Add("@LIEN", OleDb.OleDbType.VarWChar, 50, "LIEN").Value = Me.TboxLien.Text
.InsertCommand.Parameters.Add("@IMAGE", OleDb.OleDbType.VarWChar, 50, "IMAGE").Value = Me.TboxImage.Text
.InsertCommand.Parameters.Add("@NOTES", OleDb.OleDbType.VarWChar, 50, "NOTES").Value = Me.TboxNotes.Text
.InsertCommand.ExecuteNonQuery()
End With
Call CloseConnection()
MsgBox("Record(s) saved...", MsgBoxStyle.Information, "Record(s) saved...")
If MsgBox("Do you want to add new record(s) ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirmarion...") = MsgBoxResult.Yes Then
Call Cleartext()
'Call GenderItems()
'Me.CDateOfBirth.ResetText()
Me.TboxID.Focus()
Exit Sub
End If
Me.Close()
Catch ex As Exception
MsgBox("Unable to save new record(s), Employee ID already exist, please enter another Employee ID...", MsgBoxStyle.Exclamation, "Attention...")
TboxID.Focus()
TboxID.SelectAll()
Call CloseConnection()
End Try
Exit Sub
End If
If State = DBconnector.Add_Or_Edit_state.EditRecordstate Then
Try
Call OpenConnection()
With OleDa
' Mise à jour des données
.UpdateCommand = New OleDb.OleDbCommand()
.UpdateCommand.CommandText = "UPDATE [T_Listing_FT] SET [CATEGORIE] = @CATEGORIE , [GAMME] = @GAMME , [DESCRIPTION1] = @DESCRIPTION1 , [DESCRIPTION2] = @DESCRIPTION2 , [REFERENCE] = @REFERENCE ," &
"[MARQUE] = @MARQUE , [FOURNISSEUR] = @FOURNISSEUR , [REMARQUES] = @REMARQUES , [WWW] = @WWW , [PDF] = @PDF , [LIEN] = @LIEN , [IMAGE] = @IMAGE , [NOTES] = @NOTES WHERE (ID = ?)"
.UpdateCommand.Connection = OleCn
'.UpdateCommand.Parameters.Add("@ID", OleDb.OleDbType.VarWChar, 50, "ID").Value = Me.TboxID.Text
.UpdateCommand.Parameters.Add("@CATEGORIE", OleDb.OleDbType.VarWChar, 50, "CATEGORIE").Value = Me.TboxCATEGORIE.Text
.UpdateCommand.Parameters.Add("@GAMME", OleDb.OleDbType.VarWChar, 50, "GAMME").Value = Me.TboxGAMME.Text
.UpdateCommand.Parameters.Add("@DESCRIPTION1", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION1").Value = Me.TboxDESCRIPTION1.Text
.UpdateCommand.Parameters.Add("@DESCRIPTION2", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION2").Value = Me.TboxDESCRIPTION2.Text
.UpdateCommand.Parameters.Add("@REFERENCE", OleDb.OleDbType.VarWChar, 50, "REFERENCE").Value = Me.TboxREFERENCE.Text
.UpdateCommand.Parameters.Add("@MARQUE", OleDb.OleDbType.VarWChar, 50, "MARQUE").Value = Me.TboxMARQUE.Text
.UpdateCommand.Parameters.Add("@FOURNISSEUR", OleDb.OleDbType.VarWChar, 50, "FOURNISSEUR").Value = Me.TboxFOURNISSEUR.Text
.UpdateCommand.Parameters.Add("@REMARQUES", OleDb.OleDbType.VarWChar, 50, "REMARQUES").Value = Me.TboxREMARQUES.Text
.UpdateCommand.Parameters.Add("@WWW", OleDb.OleDbType.VarWChar, 50, "WWW").Value = Me.TboxWWW.Text
.UpdateCommand.Parameters.Add("@PDF", OleDb.OleDbType.VarWChar, 50, "PDF").Value = Me.TboxPDF.Text
.UpdateCommand.Parameters.Add("@LIEN", OleDb.OleDbType.VarWChar, 50, "LIEN").Value = Me.TboxLien.Text
.UpdateCommand.Parameters.Add("@IMAGE", OleDb.OleDbType.VarWChar, 50, "IMAGE").Value = Me.TboxImage.Text
.UpdateCommand.Parameters.Add("@NOTES", OleDb.OleDbType.VarWChar, 50, "NOTES").Value = Me.TboxNotes.Text
.UpdateCommand.Parameters.Add(New System.Data.OleDb.OleDbParameter("AEmployeeID", OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EmployeeID", DataRowVersion.Original, Nothing)).Value = Frm_Recherche.ListView_Resultat.SelectedItems(0).Text
.UpdateCommand.ExecuteNonQuery()
End With
Call CloseConnection()
MsgBox("Record(s) has been Updated...", MsgBoxStyle.Information, "Record(s) Updated...")
Me.Close()
Catch ex As Exception
MsgBox("Unable to update record(s), Employee ID already exist, please enter another Employee ID...", MsgBoxStyle.Exclamation, "Attention...")
TboxID.Focus()
TboxID.SelectAll()
Call CloseConnection()
End Try
Exit Sub
End If
End Sub |
Partager