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
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
| Imports System.Data.OleDb
Imports System.IO
Public Class InformationDesMembres
Private Sub AddTouristSite_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2
count()
getMembreID()
getrecords()
End Sub
Sub count()
ConnDB()
Dim sql As String = "select COUNT (*) FROM Membre_Berlin "
Dim cmd As New OleDbCommand(sql, conn)
dr = cmd.ExecuteReader()
While (dr.Read())
ibltotal.Text = (dr(0).ToString())
End While
End Sub
Private Sub getMembreID()
Try
Dim MembreID As New Random
Dim numbers As Integer = MembreID.Next(1, 102200)
Dim digitss As String = numbers.ToString("00000")
txtMembreID.Text = digitss
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub clear()
txtNom.Text = ""
txtPrenom.Text = ""
CBregiment.SelectedIndex = -1
txtContingent.Text = ""
cbGrade.SelectedIndex = -1
txtEntreele.Text = ""
txtsortiele.Text = ""
txtMail.Text = ""
TxtVille.Text = ""
txtCp.Text = ""
txtprofession.Text = ""
TxtFonction.Text = ""
PictureBox1.Image = BackgroundImage
End Sub
Private Sub getrecords()
Try
sqL = "SELECT * FROM Membre_Berlin "
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
dgw.Rows.Clear()
Do While dr.Read = True
dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6), dr(7), dr(8), dr(9), dr(10), dr(11), dr(12))
Loop
Catch ex As Exception
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub
Private Sub btnupload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupload.Click
Dim OpenFile As New OpenFileDialog()
Try
With OpenFile
.FileName = ""
.Title = "Envoyez Une Photo Du Membre..."
.Filter = "Image file (*.jpg)|*.jpg|(*.png)|*.png|(*.jpeg)|*.jpeg|(*.gif)|*.gif| All Files (*.*)|*.*"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PictureBox1.Image = System.Drawing.Bitmap.FromFile(.FileName)
Else
End If
End With
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
Private Sub ValidationMembre()
Try
sqL = "SELECT MembreNom FROM Membre_Berlin WHERE MembreNom = '" & Trim(txtNom.Text) & "' AND MembrePrenom = '" & Trim(txtPrenom.Text) & "' AND MembreRegiment = '" & Trim(CBregiment.Text) & "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.HasRows Then
MsgBox("Le Membre Existe Déjà Dans la Base de Donnée")
Else
AddMembreInfo()
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
Private Sub AddMembreInfo()
If Len(Trim(txtContingent.Text)) = 0 Then
MessageBox.Show("Merci de Renseigner Le Champ Contingent", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtContingent.Focus()
ElseIf Len(Trim(txtNom.Text)) = 0 Then
MessageBox.Show("Merci de Renseigner Le Champ Nom", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtNom.Focus()
ElseIf Len(Trim(txtPrenom.Text)) = 0 Then
MessageBox.Show("Merci de Renseigner Le Champ Prénom", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtPrenom.Focus()
ElseIf Len(Trim(CBregiment.Text)) = 0 Then
MessageBox.Show("Merci de Renseigner Le Champ Régiment", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
CBregiment.Focus()
Exit Sub
End If
Try
ConnDB()
Dim cmd As New OleDbCommand("INSERT INTO Membre_Berlin VALUES(@MembreID,@MembreNom,@MembrePrenom,@MembreRegiment,@MembreContingent,@MembreGrade,@MembreEntreeLe,@MembreSortieLE,@mail,@ville,@cp,@profession,@fonction,@photo)", conn)
cmd.Parameters.AddWithValue("@MembreID", txtMembreID.Text)
cmd.Parameters.AddWithValue("@MembreNom", txtNom.Text)
cmd.Parameters.AddWithValue("@MembrePrenom", txtPrenom.Text)
cmd.Parameters.AddWithValue("@MembreRegiment", CBregiment.Text)
cmd.Parameters.AddWithValue("@MembreContingent", txtContingent.Text)
cmd.Parameters.AddWithValue("@MembreGrade", cbGrade.Text)
cmd.Parameters.AddWithValue("@MembreEntreeLe", txtEntreele.Text)
cmd.Parameters.AddWithValue("@MembreSortieLE", txtsortiele.Text)
cmd.Parameters.AddWithValue("@Mail", txtMail.Text)
cmd.Parameters.AddWithValue("@Ville", TxtVille.Text)
cmd.Parameters.AddWithValue("@CP", txtCp.Text)
cmd.Parameters.AddWithValue("@Profession", txtprofession.Text)
cmd.Parameters.AddWithValue("@fonction", TxtFonction.Text)
Dim ms As New MemoryStream()
PictureBox1.Image.Save(ms, Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New OleDbParameter("@photo", OleDbType.Binary)
p.Value = data
cmd.Parameters.Add(p)
cmd.ExecuteNonQuery()
MessageBox.Show(" Les Informations Ont été Enregistré avec Succés", "Registration Report", MessageBoxButtons.OK)
getrecords()
count()
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
'AddMembreInfo()
ValidationMembre()
getrecords()
End Sub
Private Sub Btnrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnrefresh.Click
clear()
getrecords()
getMembreID()
End Sub
Private Sub Del_Membre()
Try
sqL = "DELETE * FROM Membre_Berlin WHERE MembreID ='" & Trim(txtMembreID.Text) & "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
If MsgBox("Êtes Vous Sur de Vouloir éffacer Le Membre ?", MsgBoxStyle.YesNo, "Validation") = MsgBoxResult.Yes Then
Del_Membre()
getrecords()
clear()
End If
End Sub
Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
Try
sqL = "UPDATE Membre_Berlin SET MembreNom = '" & txtNom.Text & "', MembrePrenom = '" & txtPrenom.Text & "',MembreRegiment = '" & CBregiment.Text & "', MembreContingent = '" & txtContingent.Text & "', MembreGrade = '" & cbGrade.Text & "', MembreEntreeLe = '" & txtEntreele.Text & "', MembreSortieLE = '" & txtsortiele.Text & "', Mail = '" & txtMail.Text & "', Ville = '" & TxtVille.Text & "', CP = '" & txtCp.Text & "', Profession = '" & txtprofession.Text & "', fonction = '" & TxtFonction.Text & "', photo = @d1 WHERE MembreID = '" & txtMembreID.Text & "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
Dim i As Integer
SetImg()
i = cmd.ExecuteNonQuery
If i > 0 Then
MsgBox("Le Membre a été Mis à Jours Avec Succés", MsgBoxStyle.Information, "Mise à Jours Des Informations Du Membre")
getrecords()
Else
MsgBox("Impossible De Mettre à Jours Le Membre", MsgBoxStyle.Information, "Mise à Jours Des Informations Du Membre")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
getrecords()
End Sub
Private Sub BindToText()
With dgw
txtMembreID.Text = .CurrentRow.Cells(0).Value
End With
End Sub
Private Sub dgw_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgw.CellClick
BindToText()
End Sub
Sub SetImg()
Dim ms As New MemoryStream()
Dim bmpImage As New Bitmap(PictureBox1.Image)
bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New OleDbParameter("@d1", OleDbType.Binary)
p.Value = data
cmd.Parameters.Add(p)
End Sub
Private Sub MembrePix()
Try
ConnDB()
Dim arrImage() As Byte
Dim myMS As New IO.MemoryStream
Dim da As New OleDbDataAdapter(("select * from Membre_Berlin where MembreID ='" & Trim(txtMembreID.Text) & "'"), conn)
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
If Not IsDBNull(dt.Rows(0).Item("photo")) Then
arrImage = dt.Rows(0).Item("photo")
For Each ar As Byte In arrImage
myMS.WriteByte(ar)
Next
Me.PictureBox1.Image = System.Drawing.Image.FromStream(myMS)
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
conn.Close()
End Try
End Sub
Private Sub txtMembreID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMembreID.TextChanged
Try
ConnDB()
Dim da As New OleDbDataAdapter(("select * from Membre_Berlin where MembreID ='" & Trim(txtMembreID.Text) & "'"), conn)
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
Me.txtNom.Text = dt.Rows(0).Item(1) & ""
Me.txtPrenom.Text = dt.Rows(0).Item(2) & ""
Me.CBregiment.Text = dt.Rows(0).Item(3) & ""
Me.txtContingent.Text = dt.Rows(0).Item(4) & ""
Me.cbGrade.Text = dt.Rows(0).Item(5) & ""
Me.txtEntreele.Text = dt.Rows(0).Item(6) & ""
Me.txtsortiele.Text = dt.Rows(0).Item(7) & ""
Me.txtMail.Text = dt.Rows(0).Item(8) & ""
Me.TxtVille.Text = dt.Rows(0).Item(9) & ""
Me.txtCp.Text = dt.Rows(0).Item(10) & ""
Me.txtprofession.Text = dt.Rows(0).Item(11) & ""
Me.TxtFonction.Text = dt.Rows(0).Item(12) & ""
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
MembrePix()
End Sub
End Class |
