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
| Public Class Form1
Dim cpt As String
Sub New(ByVal str As String)
' Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
cpt = str
End Sub
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO*: cette ligne de code charge les données dans la table 'DBcadreDataSet.CADRE'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.CADRETableAdapter.Fill(Me.DBcadreDataSet.CADRE)
If cpt = "A" Then
CB_NumSerie.DropDownStyle = ComboBoxStyle.Simple
BTN_Enregistrer.Text = "Ajouter"
ElseIf cpt = "M" Then
CB_NumSerie.DropDownStyle = ComboBoxStyle.DropDownList
BTN_Enregistrer.Text = "Modifier"
ElseIf cpt = "S" Then
CB_NumSerie.DropDownStyle = ComboBoxStyle.DropDownList
BTN_Enregistrer.Text = "Supprimer"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Sortir.Click
Me.Close()
End Sub
Private Sub BTN_Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Enregistrer.Click
If BTN_Enregistrer.Text = "Ajouter" Then
Try
cmd.CommandText = "insert into cadre (" & " NUM_CADRE,NUM_SERIE,NOM_CADRE,DUREE_DE_VIE,NBRE_MAX_CYCLE,DATE_FAB,DATE_MISE_HS,UF " & ") VALUES (" & TxtNumCadre.Text & ",' " & CB_NumSerie.Text & "','" & TxtNomCadre.Text & "','" & TxtDuréeVie.Text & "','" & TxtNbreMaxVague.Text & "','" & txtDateFab.Text & "','" & TxtDateHS.Text & "','" & TxtUF.Text & "'" & ")"
da.SelectCommand = cmd
cmd.Connection = cnx
' da.Fill(ds, "CADRE")
Dim nvlg As DataRow
nvlg = ds.Tables("CADRE").NewRow
nvlg("NUM_CADRE") = TxtNumCadre.Text
nvlg(" NUM_SERIE") = CB_NumSerie.Text
nvlg("NOM_CADRE") = TxtNomCadre.Text
nvlg("NOM_CARTE") = TxtNomCarte.Text
nvlg(" DUREE_DE_VIE") = TxtDuréeVie.Text
nvlg("NBRE_MAX_CYCLE") = TxtNbreMaxVague.Text
nvlg("DATE_FAB ") = txtDateFab.Text
nvlg("DATE_MISE_HS ") = TxtDateHS.Text
nvlg("UF") = TxtUF.Text
ds.Tables("CADRE").Rows.Add(nvlg)
Catch ex As Exception
MsgBox(ex.Message)
End Try
ElseIf BTN_Enregistrer.Text = "Modifier" Then
For Each nvlg In ds.Tables("CADRE").Rows
If nvlg("Num_serie") = CB_NumSerie.SelectedValue Then
nvlg("NUM_CADRE") = TxtNumCadre.Text
nvlg("NOM_CADRE") = TxtNomCadre.Text
nvlg("NOM_CARTE") = TxtNomCarte.Text
nvlg("DUREE_DE_VIE") = TxtDuréeVie.Text
nvlg("NBRE_MAX_CYCLE") = TxtNbreMaxVague.Text
nvlg("DATE_FAB ") = txtDateFab.Text
nvlg("DATE_MISE_HS ") = TxtDateHS.Text
nvlg("UF") = TxtUF.Text
End If
cmd.CommandText = "update cadre set Num_cadre='" & TxtNumCadre.Text & "',NOM_CADRE='" & TxtNomCadre.Text & "',DUREE_DE_VIE ='" & TxtDuréeVie.Text & "'NBRE_MAX_CYCLE = " & TxtNbreMaxVague.Text & "'DATE_FAB =" & txtDateFab.Text & "' DATE_MISE_HS =" & TxtDateHS.Text & "' UF= " & TxtUF.Text & "' where NUM_SERIE = " & CB_NumSerie.SelectedValue
da.SelectCommand = cmd
cmd.Connection = cnx
' da.Fill(ds, "CADRE")
Next
Else : BTN_Enregistrer.Text = "Supprimer "
If MessageBox.Show("voulez vous vraiment supprimer l'enregistrement", "confirmation", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
For Each nvlg In ds.Tables("CADRE").Rows
If nvlg("NUM_SERIE") = CB_NumSerie.SelectedValue Then
cmd.CommandText = "delete from CADRE where NUM_SERIE = " & CB_NumSerie.SelectedValue
da.SelectCommand = cmd
cmd.Connection = cnx
da.Fill(ds, "CADRE")
ds.Tables("CADRE").Rows.Remove(nvlg)
Exit For
End If
TxtNomCadre.Text = Nothing
TxtNumCadre.Text = Nothing
TxtUF.Text = Nothing
TxtNomCarte.Text = Nothing
TxtDuréeVie = Nothing
TxtNbreMaxVague.Text = Nothing
Next
Else : MessageBox.Show("suppression annuleé")
End If
End If
End Sub
Private Sub CB_NumSerie_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
For Each nvlg In ds.Tables("CADRE").Rows
If nvlg("NUM_SERIE") = CB_NumSerie.SelectedValue Then
TxtNumCadre.Text = nvlg("NUM_CADRE")
TxtNomCadre.Text = nvlg("NOM_CADRE")
TxtNomCarte.Text = nvlg("NOM_CARTE")
TxtDuréeVie.Text = nvlg(" DUREE_DE_VIE")
TxtNbreMaxVague.Text = nvlg("NBRE_MAX_CYCLE")
txtDateFab.Text = nvlg("DATE_FAB")
TxtDateHS.Text = nvlg("DATE_MISE_HS")
TxtUF.Text = nvlg("UF")
End If
Next
End Sub
End Class |
