Option Strict Off
Option Explicit On
Friend Class frmReservation
Inherits System.Windows.Forms.Form
Private Sub frmReservation_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Me.Text = "Réservation d'un fauteuil pour le " & Jjmmaa
Me.txtNoSiege.Text = CStr(NoSiege)
FileGet(1, Enr, NoSiege)
txtNom.Text = Enr.Nom
txtPrenom.Text = Enr.Prenom
txtTelephone.Text = Enr.telephone
End Sub
Private Sub imgAnnuler_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles imgAnnuler.Click
Me.Close()
End Sub
Private Sub imgReserver_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles imgReserver.Click
Enr.Occupe = 1
Enr.Nom = UCase(txtNom.Text)
Enr.Prenom = txtPrenom.Text
Enr.telephone = txtTelephone.Text
FilePut(1, Enr, NoSiege)
bt1.BackColor = Color.Red
Me.Close()
End Sub
Private Sub imgSupprimer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles imgSupprimer.Click
Enr.Occupe = 0
Enr.Nom = Space(30)
Enr.Prenom = Space(18)
Enr.telephone = Space(15)
FilePut(1, Enr, NoSiege)
bt1.BackColor = Color.Lime
Me.Close()
End Sub
End Class
