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
|
Private Sub frmModification_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'---------------------------------Alimentation comboboxcommandant---------------------------'
dttcommandant = Dtsvoyage.COMMANDANT
dtacommandant.Fill(dttcommandant)
bdscommandant.DataSource = Dtsvoyage
bdscommandant.DataMember = dttcommandant.ToString
Cmbcommandant.DataSource = bdscommandant 'ou dttCommandant
Cmbcommandant.DisplayMember = dttcommandant.NOMCOMMANDANTColumn.ToString 'displaymember = ce qui apparait dans la combo = dans la combocat on prends la colonne nomcat
Cmbcommandant.ValueMember = dttcommandant.NUMCOMMANDANTColumn.ToString 'valueMember valeur que l'on récupere ( le contenu du numéro)
'---------------------------------Alimentation comboboxBateau---------------------------'
dttbateau = Dtsvoyage.BATEAU
dtabateau.Fill(dttbateau)
bdsbateau.DataSource = Dtsvoyage
bdsbateau.DataMember = dttbateau.ToString
Cmbbateau.DataSource = bdsbateau
Cmbbateau.DisplayMember = dttbateau.TYPEBATEAUColumn.ToString
Cmbbateau.ValueMember = dttbateau.NUMBATEAUColumn.ToString
'---------------------------------Alimentation comboboxTrajet---------------------------'
dtttrajet = Dtsvoyage.TRAJET
dtatrajet.Fill(dtttrajet)
bdstrajet.DataSource = Dtsvoyage
bdstrajet.DataMember = dtttrajet.ToString
CmbTrajet.DataSource = bdstrajet
CmbTrajet.DisplayMember = dtttrajet.HEUREDEPARTColumn.ToString
CmbTrajet.ValueMember = dtttrajet.NUMTRAJETColumn.ToString
'--------------------------------------------------------------------------------------'
'---------------------------------Alimentation comboboxPort---------------------------'
dttport = Dtsvoyage.PORT
dtaport.Fill(dttport)
bdsport.DataSource = Dtsvoyage
bdsport.DataMember = dttport.ToString
Cmbport.DataSource = bdsport
Cmbport.DisplayMember = dttport.VILLEPORTColumn.ToString
Cmbport.ValueMember = dttport.NUMPORTColumn.ToString
'--------------------------------------------------------------------------------------'
'---------------------------------Alimentation comboboxClient---------------------------'
dttclient = Dtsvoyage.CLIENT
dtaclient.Fill(dttclient)
bdsclient.DataSource = Dtsvoyage
bdsclient.DataMember = dttclient.ToString
Cmbclient.DataSource = bdsclient
Cmbclient.DisplayMember = dttclient.NOMCLIENTColumn.ToString
Cmbclient.ValueMember = dttclient.NUMCLIENTColumn.ToString
'--------------------------------------------------------------------------------------'
dttcommandant = Dtsvoyage.COMMANDANT
dtacommandant.Fill(dttcommandant)
bdscommandant.DataSource = Dtsvoyage
bdscommandant.DataMember = dttcommandant.ToString
'----------------------------------
dttbateau = Dtsvoyage.BATEAU
dtabateau.Fill(dttbateau)
bdsbateau.DataSource = Dtsvoyage
bdsbateau.DataMember = dttbateau.ToString
'--------------------------------
dtttrajet = Dtsvoyage.TRAJET
dtatrajet.Fill(dtttrajet)
bdstrajet.DataSource = Dtsvoyage
bdstrajet.DataMember = dtttrajet.ToString
'----------------------------------------
dttport = Dtsvoyage.PORT
dtaport.Fill(dttport)
bdsport.DataSource = Dtsvoyage
bdsport.DataMember = dttport.ToString
'---------------------------------
dttclient = Dtsvoyage.CLIENT
dtaclient.Fill(dttclient)
bdsclient.DataSource = Dtsvoyage
bdsclient.DataMember = dttclient.ToString
'-----------------------------------------------
dttreservation = Dtsvoyage.RESERVATION
dtareservation.Fill(dttreservation)
bdsreservation.DataSource = Dtsvoyage
bdsreservation.DataMember = dttreservation.ToString
End Sub
Private Sub TabPagetrajet_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPagetrajet.Enter
Dtgmodif.DataSource = bdstrajet
End Sub
Private Sub TabBateau_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabBateau.Enter
Dtgmodif.DataSource = bdsbateau
End Sub
Private Sub Tabcommandant_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabcommandant.Enter
Dtgmodif.DataSource = bdscommandant
End Sub
Private Sub TabPort_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPort.Enter
Dtgmodif.DataSource = bdsport
End Sub
Private Sub TabClient_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabClient.Enter
Dtgmodif.DataSource = bdsclient
End Sub
Private Sub TabReservation_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabReservation.Enter
Dtgmodif.DataSource = bdsreservation
End Sub
Private Sub Dtgmodif_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dtgmodif.CellClick
If TabPagetrajet.Focus Then
Txtboxnumtrajet.Text = Dtgmodif.CurrentRow.Cells.Item("NUMTRAJET").Value
Txtboxvildeptraj.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEDEPART").Value
Txtboxvilarriv.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEARRIVE").Value
Txtboxheurdep.Text = Dtgmodif.CurrentRow.Cells.Item("HEUREDEPART").Value
Txtboxheurarr.Text = Dtgmodif.CurrentRow.Cells.Item("HEUREARRIVE").Value
Cmbbateau.Text = Dtgmodif.CurrentRow.Cells.Item("NUMBATEAU").Value
Cmbcommandant.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCOMMANDANT").Value
ElseIf TabBateau.Focus Then
Txtboxnumbateau.Text = Dtgmodif.CurrentRow.Cells.Item("NUMBATEAU").Value
Txtboxtypebateau.Text = Dtgmodif.CurrentRow.Cells.Item("TYPEBATEAU").Value
Txtboxplacedispo.Text = Dtgmodif.CurrentRow.Cells.Item("NBRPLACEBATEAU").Value
Txtboxvilactuel.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEACTUELLE").Value
TxtBoxetat.Text = Dtgmodif.CurrentRow.Cells.Item("ETATBATEAU").Value
ElseIf Tabcommandant.Focus Then
Txtboxnumcommandant.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCOMMANDANT").Value
Txtnomcomm.Text = Dtgmodif.CurrentRow.Cells.Item("NOMCOMMANDANT").Value
Txtboxpren.Text = Dtgmodif.CurrentRow.Cells.Item("PRENOMCOMMANDANT").Value
Txtboxvillecomm.Text = Dtgmodif.CurrentRow.Cells.Item("VILLECOMMANDANT").Value
ElseIf TabClient.Focus Then
Txtboxnumcli.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCLIENT").Value
Txtboxnomcli.Text = Dtgmodif.CurrentRow.Cells.Item("NOMCLIENT").Value
Txtboxprecli.Text = Dtgmodif.CurrentRow.Cells.Item("PRENOMCLIENT").Value
Txtadresscli.Text = Dtgmodif.CurrentRow.Cells.Item("ADRESSECLIENT").Value
ElseIf TabPort.Focus Then
Txtboxnumport.Text = Dtgmodif.CurrentRow.Cells.Item("NUMPORT").Value
Txtboxvilport.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEPORT").Value
Txtboxnbremplac.Text = Dtgmodif.CurrentRow.Cells.Item("NBREMPLACEMENT").Value
ElseIf TabReservation.Focus Then
Txtboxnumreser.Text = Dtgmodif.CurrentRow.Cells.Item("NUMRESERVATION").Value
TxtBoxprix.Text = Dtgmodif.CurrentRow.Cells.Item("PRIXRESERVATION").Value
CmbTrajet.Text = Dtgmodif.CurrentRow.Cells.Item("NUMTRAJET").Value
Cmbport.Text = Dtgmodif.CurrentRow.Cells.Item("NUMPORT").Value
Cmbclient.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCLIENT").Value
End If
End Sub
Private Sub ButValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButValider.Click
Dim vRep As DialogResult
vRep = MessageBox.Show("Etes vous sûr de vouloir modifier ce trajet ? ", "Suppression", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If vRep = Windows.Forms.DialogResult.Yes Then
bdstrajet.EndEdit()
End If
End Sub |
modification base de données
Répondre avec citation
Partager