feat: 🚀 Init repo with oldest version

This commit is contained in:
Simon Priet 2021-09-10 01:15:10 +02:00
commit fed0aa118a
46 changed files with 8144 additions and 0 deletions

2
.gitignore vendored Normal file
View File

@ -0,0 +1,2 @@
bin/
obj/

146
FrmAccueil.Designer.vb generated Normal file
View File

@ -0,0 +1,146 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmAccueil
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmAccueil))
Me.Lbl1 = New System.Windows.Forms.Label
Me.CmdQuit = New System.Windows.Forms.Button
Me.CmdBilan = New System.Windows.Forms.Button
Me.CmdAff = New System.Windows.Forms.Button
Me.CmdEdit = New System.Windows.Forms.Button
Me.CmdNew = New System.Windows.Forms.Button
Me.TmrHor = New System.Windows.Forms.Timer(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Lbl1
'
Me.Lbl1.Location = New System.Drawing.Point(12, 9)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(392, 22)
Me.Lbl1.TabIndex = 5
Me.Lbl1.Text = "Bienvenue dans Candidat 7 Pro, votre logiciel de gestion de candidature."
Me.Lbl1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'CmdQuit
'
Me.CmdQuit.Location = New System.Drawing.Point(259, 246)
Me.CmdQuit.Name = "CmdQuit"
Me.CmdQuit.Size = New System.Drawing.Size(145, 27)
Me.CmdQuit.TabIndex = 4
Me.CmdQuit.Text = "&Fermer les inscriptions..."
Me.CmdQuit.UseVisualStyleBackColor = True
'
'CmdBilan
'
Me.CmdBilan.Image = CType(resources.GetObject("CmdBilan.Image"), System.Drawing.Image)
Me.CmdBilan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdBilan.Location = New System.Drawing.Point(259, 186)
Me.CmdBilan.Name = "CmdBilan"
Me.CmdBilan.Size = New System.Drawing.Size(145, 27)
Me.CmdBilan.TabIndex = 3
Me.CmdBilan.Text = "&Bilan..."
Me.CmdBilan.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.CmdBilan.UseVisualStyleBackColor = True
'
'CmdAff
'
Me.CmdAff.Image = CType(resources.GetObject("CmdAff.Image"), System.Drawing.Image)
Me.CmdAff.Location = New System.Drawing.Point(259, 141)
Me.CmdAff.Name = "CmdAff"
Me.CmdAff.Size = New System.Drawing.Size(145, 27)
Me.CmdAff.TabIndex = 2
Me.CmdAff.Text = "&Liste..."
Me.CmdAff.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdAff.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.CmdAff.UseVisualStyleBackColor = True
'
'CmdEdit
'
Me.CmdEdit.Location = New System.Drawing.Point(259, 80)
Me.CmdEdit.Name = "CmdEdit"
Me.CmdEdit.Size = New System.Drawing.Size(145, 27)
Me.CmdEdit.TabIndex = 1
Me.CmdEdit.Text = "Editer / &Supprimer..."
Me.CmdEdit.UseVisualStyleBackColor = True
'
'CmdNew
'
Me.CmdNew.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdNew.Location = New System.Drawing.Point(259, 34)
Me.CmdNew.Name = "CmdNew"
Me.CmdNew.Size = New System.Drawing.Size(145, 27)
Me.CmdNew.TabIndex = 0
Me.CmdNew.Text = "&Nouveau..."
Me.CmdNew.UseVisualStyleBackColor = True
'
'TmrHor
'
Me.TmrHor.Enabled = True
Me.TmrHor.Interval = 2000
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(12, 34)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(193, 239)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox1.TabIndex = 16
Me.PictureBox1.TabStop = False
'
'FrmAccueil
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.ClientSize = New System.Drawing.Size(417, 282)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.CmdQuit)
Me.Controls.Add(Me.CmdBilan)
Me.Controls.Add(Me.CmdAff)
Me.Controls.Add(Me.CmdEdit)
Me.Controls.Add(Me.CmdNew)
Me.Controls.Add(Me.Lbl1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(423, 314)
Me.MinimumSize = New System.Drawing.Size(423, 314)
Me.Name = "FrmAccueil"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "Candidat 7 Pro : Accueil"
Me.Text = "Candidat 7 Pro : Accueil"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents CmdQuit As System.Windows.Forms.Button
Friend WithEvents CmdBilan As System.Windows.Forms.Button
Friend WithEvents CmdAff As System.Windows.Forms.Button
Friend WithEvents CmdEdit As System.Windows.Forms.Button
Friend WithEvents CmdNew As System.Windows.Forms.Button
Friend WithEvents TmrHor As System.Windows.Forms.Timer
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
End Class

684
FrmAccueil.resx Normal file
View File

@ -0,0 +1,684 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="CmdBilan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEgAA
CxIB0t1+/AAAAgZJREFUOE+Vkt1LU2Ecx5/hGhhCMyQyhhcK3Quni8CL/QledNGRCNMabmxJiYGGF5Ig
SMHCCyNFukhyIWqI2sssIhKNrWwv7V3XPG6TvUo1kW1+O89zcLncIh/4HL78nsPn+V78ZBAPKXP29/OE
Ipcryv1CCBWUOvl8DtprFdC3K5DN7pX7DWUF8y8GMGtqxeu5TsxO3T2eIJNJ46amEqmEDemkHd2GaiTi
30tKSjaYmuyGeUEP99deOCx6fHzXC9PTzv8TCJs28cVTiEeX8HbmJMzTJxALz6O/RwWf58MRyZEGE0+0
WH1/G+vOLritPMNv12FtpQ9jIy3/FricS+JLZxEJGhGwX4FarWb4bTwiG0O4f68eq8sTRZKiBo+GL+Hz
8g34rI0IufiCgGb3pwZ41rowNNBUWkDNxsE6RANt8K4QRHw8OI5j0CzNWvDYeB7mV8aCpNCAml2WZmw5
ahH6QhAP8lCpVAya6UywKRF0XEZHqwx00dgW08+bxQcYfXgOyY2L2P5GGDsCD6VSyaD5YJ5Yb4RpvB5z
M/2SgK6prk0GwclhJ1CJtJ8wfmxy+BXlGTQfzNMBBba9F8RFq0AqKYDQNX02Wo3drVpkQqTAXvxPA5oP
3+0KNXj5/AzowhHDdenFbLiYXIxDLsVLiPnv+59Bgjt6IjW4pT0NzVVyLAyaKtbgNynK9bSEvXQBAAAA
AElFTkSuQmCC
</value>
</data>
<data name="CmdAff.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEgAA
CxIB0t1+/AAAAgZJREFUOE+Vkt1LU2Ecx5/hGhhCMyQyhhcK3Quni8CL/QledNGRCNMabmxJiYGGF5Ig
SMHCCyNFukhyIWqI2sssIhKNrWwv7V3XPG6TvUo1kW1+O89zcLncIh/4HL78nsPn+V78ZBAPKXP29/OE
Ipcryv1CCBWUOvl8DtprFdC3K5DN7pX7DWUF8y8GMGtqxeu5TsxO3T2eIJNJ46amEqmEDemkHd2GaiTi
30tKSjaYmuyGeUEP99deOCx6fHzXC9PTzv8TCJs28cVTiEeX8HbmJMzTJxALz6O/RwWf58MRyZEGE0+0
WH1/G+vOLritPMNv12FtpQ9jIy3/FricS+JLZxEJGhGwX4FarWb4bTwiG0O4f68eq8sTRZKiBo+GL+Hz
8g34rI0IufiCgGb3pwZ41rowNNBUWkDNxsE6RANt8K4QRHw8OI5j0CzNWvDYeB7mV8aCpNCAml2WZmw5
ahH6QhAP8lCpVAya6UywKRF0XEZHqwx00dgW08+bxQcYfXgOyY2L2P5GGDsCD6VSyaD5YJ5Yb4RpvB5z
M/2SgK6prk0GwclhJ1CJtJ8wfmxy+BXlGTQfzNMBBba9F8RFq0AqKYDQNX02Wo3drVpkQqTAXvxPA5oP
3+0KNXj5/AzowhHDdenFbLiYXIxDLsVLiPnv+59Bgjt6IjW4pT0NzVVyLAyaKtbgNynK9bSEvXQBAAAA
AElFTkSuQmCC
</value>
</data>
<metadata name="TmrHor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEAtAC0AAD/7gAOQWRvYmUAZAAAAAAB/+EVbkV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCALQAAAABAAAAtAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzQg
V2luZG93cwAyMDEwOjA0OjI3IDE3OjU1OjIzAAACoAIABAAAAAEAAADBoAMABAAAAAEAAADvAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAFEUAAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCACgAIEDASIAAhEBAxEB/90A
BAAJ/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDOcGuPZM7Hn6JgefCmHEfSEqYeJ0Ef
kRpiar6ba9XDTxGoUFqWXGnHJ0JcPDT5rJJTSp2/qkHH6wYQ1j1Dx5Ne7+CB1OyOq5o7/aLZ/wA9yL9U
Hx9YsEnT9I78a7G/9+Qswx1HLtMFzr7XDTQS93ZEJ/R+qzf0erx7+w8E+9zjMoUyZJk90xs8OEbQnkDk
qJe0KsbZRsVu4m0/RZx5uQtTcoa1nvcJf+aD2Rm3OVdvcn4kpnOdPgEbTTaOSBpCiclkaiZVNzjKcEjz
KVpptNtrjw/FHrFbhJcRPCz5f9EGPEjlFaTa7YDtYPpOH5GpWgtyMf8A0v4lJVNuP+6fvKSVof/QoF2x
220bJ+iex/qolTBY7TWOUcltlLg8BwI0aexWXvLCWu3VO4cDoUdmNsdRvJPosOgA3RwqMxypEbTB1B4K
YMe94awbneH+9NPdVW6/1PG76x4ImAHk69yGPQ8kzlXk/wClsPzLnKphdbxei9Yx8ixsupMmoEAkua5k
Sf6ysF7bnPvDm7bHOcATH0jP50fRn85DjGlml/tTrQWie/shvf27KycT3e93HIbrr/WTtrqaYa2COSdS
jSymsyux+oEN8ToFda9ja21tn29+Jn85DsPYa+PgrW/GsxavXv35A9IHfJLK/Vsrcz1ZLvTpxfT/AFet
v6P+d/nEQpGLBIn7krSAdO4lWcsYQqeKRUy9lk+1wk1wA30qq331/pHf4L1N9Pp+pb+kv2KqGh7Q5zgy
HAOJGgDj9M7f3EksN/8AtSa4ng6q+cTGfS91DjbRW3IcbXNgjY3Gfv8Azd+x/rVexDa7pJYKfWeGtc9/
qRAduYxja9GPfVttZv8Ao2fo/wBF/wAMkpFY2xjA54gFxYCfFoa5/wD0XsUfW2BoA05E9yO6u9Sfh5Aw
3472enVvZZW8lnBa5jn+mHOb9pZX/wBbUci3p5qbTTve3ZWwFzQ321+rfYJaWu9+Ta39J/4H++lU1PtR
8Akix07/ALj2f5//AJmklZVT/9Ggy0iCDxx8VPfVc8i0SHCHH+5Ui7aJ8Bp8SpMeZ+A580ljLMwhSw3U
vmvSWO5E+CzH5z2eqavptBDR3mdm7/OctDKdY6mBwSIHwXMC30zua4Oe6eNYE/RcmTHRlwAWSf5W9J0v
6k29Qx7crLyC4ukNEawPz97j9NUs3bhxh5EuNZIqvn3EA/QfH84z+v8AQXXt6ri9AwK8W2t+TaxoDhua
ySYGm7du9ztqyesnByOnM6vf0976rbNjWteWtDz2L2Nc/wDN/wBGoSZWL1Df9uNECokDdyuidTtfZZiW
O3NDd1bjyIPvZ/V2rVaZ4Kwr6m19ewvstLqMe4S2olzgwjdVkNa94a9zfb+ctxoaBBcp4G4hz80amV9x
J2gfNIVHQgHRPW5oG5/Hb+4IrXtP0vuHgnUxsW1kc/d/uRA9jGuaWl27kcIT3CRGgUHXDdIdqUlJRfk+
i2hr3CtpfDRp/OAMubu+lsta331/QUC0NYQRBJBJVimtt2IHGxlJF231rDtaWmvft/sOb/xiCNlQyCH1
3ONTBS8cEPcz13MY+LGW1s/RfpGMt/nLUErlpLN08CW6eCazLr9vp1BhiHOJ3GfL6LUzscNkjMxwS06B
5MmGxX7Wu27nufXvfsr/AEX/AAlW8VlLXbmUPZY6qdzw6A8bva5rbNvptYz85JTL7YfAJIPp1/8Acir/
AKX/AJBJJWr/AP/S5+xzZjgjVRFp1jnQIdjpnxJTUyTPgiFjavtDa2AeI/BZLOl35P2inAoN2VXY23a0
S70XfnAfnVts9tjm/QV3MfowKpkte+ourc5l9QLqbGktcDHuaHD/AEjfYmyF7FfhyCEvULiRR/sfRLcf
CyGudksB0923kj4qD+oYdVQ6S/CstZkOY1mOGfoxr7Hb3H936f7iVzmmiqxrfToyqq7aw3QN3ta91bdv
7u5ZeeKhkViWvZ+cbbbCSP8APVU6W7EeGQ/Fr/WGplvUunX0NGPThVWM9MaO3E+1pb+57vpqqZALjyUs
m0uyXMdIZSdgaZMAcN19yHY4nnuePJT4xUB/LdyuYkJZZEbXQ/wfSza5rRvOvgpeqQ3zcUB+hjwTuPAH
AT2Jk612pCgLJGglMToo7vaEFNp+XYMQY5A2B+8O13ab/YNdu3dY9/0VBphg8TqUAncGDxKmXeKSgzJg
a8oRe4bmg+12jh2MHc3d/aVhmR08taLKX7gwt9gaSXFseqX2P+myz9I39F9D9Fs/R+ogNNPoPa4AZBMt
eQXCB/g2Q5vpWOd/hnst9n6P9CklaXeCSsR0n9/L/wAyr/yaSSNH/9PlTqUWnRs+JUPGFJ9tFNLXWvDA
Z1PJP8lFYjziCawPP+Czc3IPpmis+58h58B+7/aRczObbHpCBqA7uqOjnE+Ov3oFfGHU/Y+j9A6zhZfR
8PGywK9lTKmP/McGD09s/wCCur2bP5f5iBbgYZ6pWZfY1pDgxxlog/SXM/VvP9C12FdDqbta930Q4kB1
dn7lN/t/S/8Aae/Zf/pF1f1cpwuoW3vosc+ui11JrcQXQDDX+wubtftcoMsCBxR1if8Amlu4col6T8wH
+M87Zc6t/VMi6S3GzXi0dxXbY9lV7P8AirttVzP+Hx0au6m4CytweB4f3LV+tPVOi4GBm4lVYuyepW34
4rBElh9D9cdH5lV9X6vX/hLf+LsXA1XPFbXsMGBJ8wpo3wxvQ1qGrkjHilXd6kgOeY8UxHuKycPq4ZY1
mQ6anHSw8tP8v95i1p9yTGRSnN9vzhRcGCoEGSSVJ7vYfCUIvBZt8CghcH6Mdk73e2FKqlzoJ9rSPpHy
T7IMOEHlJLOi3DDqvUoIaxzX2EQ8kNEPra3dVvrvf7n+pd+i/wAEk37L6l4hwY/d9mc8BxaJP89XWWtd
Zs9nqM/R0P8A0vo3ItTsEeiHMEhwNu4O1EO9R1jmufv9xr9Guur8z9KhB2D72WOcAHg72tIcaZ9/2Zk7
G5X8jI/R+l9D9MkpN9o6X/5Xf+zNiSF6XTv+5VX+bk/+kkkrU//U5M86n5hY9+Q+55cXSJhvgAPohaGX
lbcawNEOcNoP9bRZRAA+CRTDYlKxzI2uGh4PgVGsS0RrBc0/I/8AmSE5xDd3gouZNxPjqguJdDHG5zi0
kBoLd7f3iPoz/wBWtb6sZfWcC9mH0/IZTXlPbLLmNh385WW/aXN3Ue7Z/wCfViYfUG0MFFzBsEtDwPHW
Xt/78tzDymmnH/SFtmBcy2oiCHVPexr3N/lVf+enogWaOyrqiN2m36t37m2tJbax2rjyHt9+4/vb2t3K
mcMMpcQZe1zt/gRPLf7K7XMyg2q977GWENa8vrMgOb/373V72/mLk67K20Gx7trZ5+ft/wA78xGYpEdS
fJyXkbdCCAe3gQt3o+Q6zBZuOtZNcnwGrP8AouWFe+p9jzS0sY8gwfH87QfRV7o1+02UfvQ9vxHtcmoL
utduY4ITuNE9R+kh2EgkeKC1Kz1XFjamufYT7WMBLiRr7Ws9yu5Zc7Kua4FjgQSHaFpcGvcx2jf5tz9i
zWy4t2kgjWRoR9ys1wzUnaPE+f8A1SSWYrIMvMKvslxI1knVM6217vcZgQI4+SiXuraY1cUkJNnw+5JV
t1v7x+5JBT//1eEywPSHm8fkJVE8K9m/0dv9aPwVL81I7rh8qKzSsHsREqZI0PkEN7hsLe/8FMcN+A/I
kpiRL3D5qx0/KNRDHc1Pa9s6nbP6Zn+ad6E07chpOocCFDJ2tvNlTdjdCGkz5HX+Ukp7bqeQBRW/H21+
nUN7WO3g2M3Nttb6ldW31fR/mP5uv8xcTkX22FrXE/oyTH8onc9y6tzMZ1fs9UueDv37y0Bx/MdZ7P8A
D/mrk7mbLnDTRxBjUIlRU7Rxj87/AHouHcKcmt5MCQHHyPtcgPA2tBMRpPwSIZEAyUEPS2ufVW57eQI/
8ySDyaA5+rjqT5qcte0TqHAfDUIYBbTtPITVrawsmjFvpvub6jGu3FgJBcIP7p3JNOFkNZZY81OrpDfQ
9xG+tu1orvh/std+Y/Z/xqptrsssDKml7yDDRqYGpUxVcKjdtIrBY2SIJLw97I/k7a0lNn0GODnDJpAD
ZAkgyPzHNc1j2/u/o2XJVYGRdTvpYbn6PIaQYYR+dr9PeVVkkeUJyC0g6teRII0dBH0v3trmoKb/AOwP
rB/5W5X+Yks7aPL70klP/9bgc2Q1g5BJP4QqrpI4lXOoOYXsDDowFp+MyqTne3T70juvHyhDcBtB79wi
hpdHhAQLXawrNZlrT5BJA3YWaWMI7EI1VQty6Ko3epaxsc8uCBcfyo9b2syKbHudW1rwS5pIcI7tcwOe
3+wkru9scbKfiDHZWXVVlxpm0lrXuGjm0bfz349bX/pPz1yX1hwXYuR6rhsblt37Dy1zYlu3+q5rmrq+
ldQzL6HF5Fn6Ley+quWvd6e9tbmMs9Ru62lrLb7P5qz/AAKw/rTXkX+i1rSTTXbfbJ1jcygt/lelt/zE
6VIecsMtEnmD+EKIrJ4I+9S7CYjzTuaTADhPhp+UJqnU6TZb6T63mWMcNp+OrmrQcA6ix20yzbDwTy4n
R7f3drHe9ZvTXt9A12Qx1TtfPdruWpWCcS10EVWGoV2D6LyHP306fnMj1LK3fQ9NNKEFVj6X7mu2uiAd
DGoPtP8AZVoZOSCLA8by3aXbW6hodUyZH0vTsfWq2whk9wfBFYYbM/cghI/JNrXtspqLngfpA3a4Oa7f
u/d9+57bmt/nWf8AFVqzjZmO3KffZU477jZvmbG7m2NLefTe1tj2fmfzbP31VY17zDBuJ4Q7cluPkCsO
bYR/OtHYz9GUkt77F0j/ALlu/wDYZ3/k0kL7bi/6NqSSrD//1/Ong7WjzJPxUHTEQjXscza17S13JBBB
/FBfJGmgQX9B5Ne/6Y+CPTrU34IFodIB18FbpYRXr+aJKKI7oLNXR4kBXsYej1Gr9H9q9N/80Pz4aTtC
onVw+KMyx9djbK3Gt9bg5j28tI1a5qCu7s4duUy11nT8E0Q1jbW1vcXOO0PnT6P+YrxHrY1z7d1hdTaw
gjUOe1zZ/N37Xt2vS6dn4OUbRlhhu9HbaS31GNeQ1n2ina6myq1m32e7Z/Ofo1I5FF+VTTQC7HpO22x2
m51rbMf2bvzH7PV/rpwUXjaWucAW9uVItYdDoB94/wDMVKptQBaHbnAnxUXmDJ44nyTUNrF9tMHncZPj
HCK20seHN5BlalH1X6x6TB9kg7Ro62pp1172o7Pqn1Ukbsdo/wCvVf8ApVNJHdFHsWky9llZJIaO8olN
tD3em0gnSAO5K0mfVPNEB2E1x8TkVj/vzlcxPqxmh4NlFWOW6tc21jv+pcEtFUexcfJuNP6HG0sI/SP/
AHf5IP8ApVmjHc3QALprPq1n7yGUUu7+65kn/wAEUP8Amt1KJNFLf+vM/wDSyWndVHsXnPRekuh/5r9Q
/wBHT/2+z/0uklorhPYv/9DietXV5GebKiHs2NbPHA1/dWe4NA8Ff6nhWYl7a3Bx3M3A6+JCp7XTMGe5
goMpHRr7Wvua06jVFssh7qhwGyY8Twh3eoy1rhuaO5AT+mQSQ125/JMnRJaOrFg9wJUgZJ+KTGOLvon7
inDHtc5padeNCkp0ekYuTkG92K+ttgrDnNfG5zA70nel/wALuf8ARV+l2PiZDacrFD3ueP0lg3N/nGv3
bXH/AEVyz+m5AwWtzmkstpsIsAkF1LtrbP8AMe9tjP6i3+q4mZ1Kgt2MAZDmk7nHaR7LGX1Dd7P3Nlv6
KpEBTk3/AFcy8fDfZZW4OuLrKzGhaZ9OP3Vm9IqptzaX5Iccat7X3hsSQ0z6bQ8tb+kc1dbmdYzqOkU2
2lhuqd9nsrcJ1Ebv0bfd7Y3MXOMyG/tM+sxtdGZD/a2Gsefbv2/mtc/+cUMTkqRNb6d/sZ8oxCUIi9hf
7pEvl9T2B+svTJkV3EkyZFfJ/wCuorfrX0wNA+z26c61/wDk1ijpLRoQfuRauksng/cmca7gj2/F1R9b
sAf9p7T/AGmf+STn64YY0+y2H+2xVGdJrj6B+5THSq/3D9yXGrgj2/Fsf88cOQRiP0HG9nP739lM/wCu
GM7T7I+P+Mb/AORQh0uv9w/cn/Zdf+jP3JcauCHb8Wf/ADvxf+4bv+3G/wDkElH9mV/6M/cklxq9uHb8
S//ZAP/tGkZQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAAAAA4QklNA+0AAAAA
ABAAtAAAAAEAAgC0AAAAAQACOEJJTQQmAAAAAAAOAAAAAAAAAAAAAD+AAAA4QklNBA0AAAAAAAQAAAB4
OEJJTQQZAAAAAAAEAAAAHjhCSU0D8wAAAAAACQAAAAAAAAAAAQA4QklNJxAAAAAAAAoAAQAAAAAAAAAC
OEJJTQP1AAAAAABIAC9mZgABAGxmZgAGAAAAAAABAC9mZgABAKGZmgAGAAAAAAABADIAAAABAFoAAAAG
AAAAAAABADUAAAABAC0AAAAGAAAAAAABOEJJTQP4AAAAAABwAAD/////////////////////////////
A+gAAAAA/////////////////////////////wPoAAAAAP////////////////////////////8D6AAA
AAD/////////////////////////////A+gAADhCSU0EAAAAAAAAAgABOEJJTQQCAAAAAAAEAAAAADhC
SU0EMAAAAAAAAgEBOEJJTQQtAAAAAAACAAA4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe
AAAAAAAEAAAAADhCSU0EGgAAAAADSQAAAAYAAAAAAAAAAAAAAO8AAADBAAAACgBVAG4AdABpAHQAbABl
AGQALQAxAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAADBAAAA7wAAAAAAAAAAAAAAAAAA
AAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAABAAAAAAAAbnVsbAAAAAIAAAAGYm91bmRzT2JqYwAAAAEA
AAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21sb25nAAAA
7wAAAABSZ2h0bG9uZwAAAMEAAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAAAQAAAAAABXNsaWNlAAAAEgAA
AAdzbGljZUlEbG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9yaWdpbmVudW0AAAAMRVNsaWNl
T3JpZ2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNsaWNlVHlwZQAAAABJbWcgAAAA
BmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAAAAAAExlZnRsb25nAAAA
AAAAAABCdG9tbG9uZwAAAO8AAAAAUmdodGxvbmcAAADBAAAAA3VybFRFWFQAAAABAAAAAAAAbnVsbFRF
WFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVYVAAAAAEAAAAAAA5jZWxsVGV4dElz
SFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAAAAlob3J6QWxpZ25lbnVtAAAAD0VTbGljZUhv
cnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRBbGlnbmVudW0AAAAPRVNsaWNlVmVydEFsaWduAAAAB2Rl
ZmF1bHQAAAALYmdDb2xvclR5cGVlbnVtAAAAEUVTbGljZUJHQ29sb3JUeXBlAAAAAE5vbmUAAAAJdG9w
T3V0c2V0bG9uZwAAAAAAAAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJvdHRvbU91dHNldGxvbmcAAAAA
AAAAC3JpZ2h0T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAj/wAAAAAAAAOEJJTQQUAAAAAAAE
AAAAAjhCSU0EDAAAAAAUYQAAAAEAAACBAAAAoAAAAYQAAPKAAAAURQAYAAH/2P/gABBKRklGAAECAABI
AEgAAP/tAAxBZG9iZV9DTQAB/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8V
GBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQU
Dg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAoACBAwEi
AAIRAQMRAf/dAAQACf/EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAA
AAAAAQACAwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVS
wWIzNHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFRYXEiEwUy
gZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8rOEw9N14/NGlKSF
tJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQACEQMRAD8AznBrj2TOx5+iYHnw
phxH0hKmHidBH5EaYmq+m2vVw08RqFBallxpxydCXDw0+aySU0qdv6pBx+sGENY9Q8eTXu/ggdTsjqua
O/2i2f8APci/VB8fWLBJ0/SO/Guxv/fkLMMdRy7TBc6+1w00Evd2RCf0fqs39Hq8e/sPBPvc4zKFMmSZ
PdMbPDhG0J5A5KiXtCrG2UbFbuJtP0WcebkLU3KGtZ73CX/mg9kZtzlXb3J+JKZznT4BG002jkgaQonJ
ZGomVTc4ynBI8ylaabTba48PxR6xW4SXETws+X/RBjxI5RWk2u2A7WD6Th+RqVoLcjH/ANL+JSVTbj/u
n7yklaH/0KBdsdttGyfonsf6qJUwWO01jlHJbZS4PAcCNGnsVl7ywlrt1TuHA6FHZjbHUbyT6LDoAN0c
KjMcqRG0wdQeCmDHveGsG53h/vTT3VVuv9Txu+seCJgB5Ovchj0PJM5V5P8ApbD8y5yqYXW8XovWMfIs
bLqTJqBAJLmuZEn+srBe25z7w5u2xznAEx9Iz+dH0Z/OQ4xpZpf7U60Fonv7Ib39uysnE93vdxyG66/1
k7a6mmGtgjknUo0sprMrsfqBDfE6BXWvY2ttbZ9vfiZ/OQ7D2Gvj4K1vxrMWr179+QPSB3ySyv1bK3M9
WS706cX0/wBXrb+j/nf5xEKRiwSJ+5K0gHTuJVnLGEKnikVMvZZPtcJNcAN9Kqt99f6R3+C9TfT6fqW/
pL9iqhoe0Oc4MhwDiRoA4/TO39xJLDf/ALUmuJ4OqvnExn0vdQ420VtyHG1zYI2Nxn7/AM3fsf61XsQ2
u6SWCn1nhrXPf6kQHbmMY2vRj31bbWb/AKNn6P8ARf8ADJKRWNsYwOeIBcWAnxaGuf8A9F7FH1tgaANO
RPcjurvUn4eQMN+O9np1b2WVvJZwWuY5/phzm/aWV/8AW1HIt6eam0073t2VsBc0N9tfq32CWlrvfk2t
/Sf+B/vpVNT7UfAJIsdO/wC49n+f/wCZpJWVU//RoMtIgg8cfFT31XPItEhwhx/uVIu2ifAafEqTHmfg
OfNJYyzMIUsN1L5r0ljuRPgsx+c9nqmr6bQQ0d5nZu/znLQynWOpgcEiB8FzAt9M7muDnunjWBP0XJkx
0ZcAFkn+VvSdL+pNvUMe3Ky8guLpDRGsD8/e4/TVLN24cYeRLjWSKr59xAP0Hx/OM/r/AEF17eq4vQMC
vFtrfk2saA4bmskmBpu3bvc7asnrJwcjpzOr39Pe+q2zY1rXlrQ89i9jXP8Azf8ARqEmVi9Q3/bjRAqJ
A3cronU7X2WYljtzQ3dW48iD72f1dq1WmeCsK+ptfXsL7LS6jHuEtqJc4MI3VZDWveGvc32/nLcaGgQX
KeBuIc/NGplfcSdoHzSFR0IB0T1uaBufx2/uCK17T9L7h4J1MbFtZHP3f7kQPYxrmlpdu5HCE9wkRoFB
1w3SHalJSUX5Potoa9wraXw0afzgDLm7vpbLWt99f0FAtDWEEQSQSVYprbdiBxsZSRdt9aw7Wlpr37f7
Dm/8YgjZUMgh9dzjUwUvHBD3M9dzGPixltbP0X6RjLf5y1BK5aSzdPAlungmsy6/b6dQYYhzidxny+i1
M7HDZIzMcEtOgeTJhsV+1rtu57n1737K/wBF/wAJVvFZS125lD2WOqnc8OgPG72ua2zb6bWM/OSUy+2H
wCSD6df/AHIq/wCl/wCQSSVq/wD/0ufsc2Y4I1URadY50CHY6Z8SU1Mkz4IhY2r7Q2tgHiPwWSzpd+T9
opwKDdlV2Nt2tEu9F35wH51bbPbY5v0FdzH6MCqZLXvqLq3OZfUC6mxpLXAx7mhw/wBI32JshexX4cgh
L1C4kUf7H0S3HwshrnZLAdPdt5I+Kg/qGHVUOkvwrLWZDmNZjhn6Ma+x29x/d+n+4lc5poqsa306Mqqu
2sN0Dd7WvdW3b+7uWXnioZFYlr2fnG22wkj/AD1VOluxHhkPxa/1hqZb1Lp19DRj04VVjPTGjtxPtaW/
ue76aqmQC48lLJtLslzHSGUnYGmTAHDdfch2OJ57njyU+MVAfy3crmJCWWRG10P8H0s2ua0bzr4KXqkN
83FAfoY8E7jwBwE9iZOtdqQoCyRoJTE6KO72hBTafl2DEGOQNgfvDtd2m/2DXbt3WPf9FQaYYPE6lAJ3
Bg8Spl3ikoMyYGvKEXuG5oPtdo4djB3N3f2lYZkdPLWiyl+4MLfYGklxbHql9j/pss/SN/RfQ/RbP0fq
IDTT6D2uAGQTLXkFwgf4NkOb6Vjnf4Z7LfZ+j/QpJWl3gkrEdJ/fy/8AMq/8mkkjR//T5U6lFp0bPiVD
xhSfbRTS11rwwGdTyT/JRWI84gmsDz/gs3NyD6ZorPufIefAfu/2kXMzm2x6QgagO7qjo5xPjr96BXxh
1P2Po/QOs4WX0fDxssCvZUypj/zHBg9PbP8Agrq9mz+X+YgW4GGeqVmX2NaQ4McZaIP0lzP1bz/QtdhX
Q6m7Wvd9EOJAdXZ+5Tf7f0v/AGnv2X/6RdX9XKcLqFt76LHProtdSa3EF0Aw1/sLm7X7XKDLAgcUdYn/
AJpbuHKJek/MB/jPO2XOrf1TIuktxs14tHcV22PZVez/AIq7bVcz/h8dGrupuAsrcHgeH9y1frT1TouB
gZuJVWLsnqVt+OKwRJYfQ/XHR+ZVfV+r1/4S3/i7FwNVzxW17DBgSfMKaN8Mb0Nahq5Ix4pV3epIDnmP
FMR7isnD6uGWNZkOmpx0sPLT/L/eYtafckxkUpzfb84UXBgqBBkklSe72HwlCLwWbfAoIXB+jHZO93th
Sqpc6Cfa0j6R8k+yDDhB5SSzotww6r1KCGsc19hEPJDRD62t3Vb673+5/qXfov8ABJN+y+peIcGP3fZn
PAcWiT/PV1lrXWbPZ6jP0dD/ANL6NyLU7BHohzBIcDbuDtRDvUdY5rn7/ca/Rrrq/M/SoQdg+9ljnAB4
O9rSHGmff9mZOxuV/IyP0fpfQ/TJKTfaOl/+V3/szYkhel07/uVV/m5P/pJJK1P/1OTPOp+YWPfkPueX
F0iYb4AD6IWhl5W3GsDRDnDaD/W0WUQAPgkUw2JSscyNrhoeD4FRrEtEawXNPyP/AJkhOcQ3d4KLmTcT
46oLiXQxxuc4tJAaC3e394j6M/8AVrW+rGX1nAvZh9PyGU15T2yy5jYd/OVlv2lzd1Hu2f8An1YmH1Bt
DBRcwbBLQ8Dx1l7f+/Lcw8pppx/0hbZgXMtqIgh1T3sa9zf5VX/np6IFmjsq6ojdpt+rd+5trSW2sdq4
8h7ffuP729rdypnDDKXEGXtc7f4ETy3+yu1zMoNqve+xlhDWvL6zIDm/9+91e9v5i5OuyttBse7a2efn
7f8AO/MRmKRHUnycl5G3QggHt4ELd6PkOswWbjrWTXJ8Bqz/AKLlhXvqfY80tLGPIMHx/O0H0Ve6NftN
lH70Pb8R7XJqC7rXbmOCE7jRPUfpIdhIJHigtSs9VxY2prn2E+1jAS4ka+1rPcruWXOyrmuBY4EEh2ha
XBr3Mdo3+bc/Ys1suLdpII1kaEfcrNcM1J2jxPn/ANUklmKyDLzCr7JcSNZJ1TOtte73GYECOPkol7q2
mNXFJCTZ8PuSVbdb+8fuSQU//9XhMsD0h5vH5CVRPCvZv9Hb/Wj8FS/NSO64fKis0rB7ERKmSND5BDe4
bC3v/BTHDfgPyJKYkS9w+asdPyjUQx3NT2vbOp2z+mZ/mnehNO3IaTqHAhQydrbzZU3Y3QhpM+R1/lJK
e26nkAUVvx9tfp1De1jt4NjNzbbW+pXVt9X0f5j+br/MXE5F9tha1xP6Mkx/KJ3PcurczGdX7PVLng79
+8tAcfzHWez/AA/5q5O5my5w00cQY1CJUVO0cY/O/wB6Lh3CnJreTAkBx8j7XIDwNrQTEaT8EiGRAMlB
D0trn1Vue3kCP/Mkg8mgOfq46k+anLXtE6hwHw1CGAW07TyE1a2sLJoxb6b7m+oxrtxYCQXCD+6dyTTh
ZDWWWPNTq6Q30PcRvrbtaK74f7LXfmP2f8aqba7LLAyppe8gw0amBqVMVXCo3bSKwWNkiCS8PeyP5O2t
JTZ9Bjg5wyaQA2QJIMj8xzXNY9v7v6NlyVWBkXU76WG5+jyGkGGEfna/T3lVZJHlCcgtIOrXkSCNHQR9
L97a5qCm/wDsD6wf+VuV/mJLO2jy+9JJT//W4HNkNYOQST+EKq6SOJVzqDmF7Aw6MBafjMqk53t0+9I7
rx8oQ3AbQe/cIoaXR4QEC12sKzWZa0+QSQN2FmljCOxCNVULcuiqN3qWsbHPLggXH8qPW9rMimx7nVta
8EuaSHCO7XMDnt/sJK7vbHGyn4gx2Vl1VZcaZtJa17ho5tG389+PW1/6T89cl9YcF2Lkeq4bG5bd+w8t
c2Jbt/qua5q6vpXUMy+hxeRZ+i3svqrlr3envbW5jLPUbutpay2+z+as/wACsP6015F/ota0k01232yd
Y3MoLf5Xpbf8xOlSHnLDLRJ5g/hCiKyeCPvUuwmI807mkwA4T4aflCap1Ok2W+k+t5ljHDafjq5q0HAO
osdtMs2w8E8uJ0e393ax3vWb017fQNdkMdU7Xz3a7lqVgnEtdBFVhqFdg+i8hz99On5zI9Syt30PTTSh
BVY+l+5rtrogHQxqD7T/AGVaGTkgiwPG8t2l21uoaHVMmR9L07H1qtsIZPcHwRWGGzP3IISPyTa17bKa
i54H6QN2uDmu37v3ffue25rf51n/ABVas42Zjtyn32VOO+42b5mxu5tjS3n03tbY9n5n82z99VWNe8ww
bieEO3Jbj5ArDm2EfzrR2M/RlJLe+xdI/wC5bv8A2Gd/5NJC+24v+jakkqw//9fzp4O1o8yT8VB0xEI1
7HM2te0tdyQQQfxQXyRpoEF/QeTXv+mPgj061N+CBaHSAdfBW6WEV6/miSiiO6CzV0eJAV7GHo9Rq/R/
avTf/ND8+Gk7QqJ1cPijMsfXY2ytxrfW4OY9vLSNWuagru7OHblMtdZ0/BNENY21tb3FzjtD50+j/mK8
R62Nc+3dYXU2sII1Dntc2fzd+17dr0unZ+DlG0ZYYbvR22kt9RjXkNZ9op2upsqtZt9nu2fzn6NSORRf
lU00Aux6Tttsdpuda2zH9m78x+z1f66cFF42lrnAFvblSLWHQ6AfeP8AzFSqbUAWh25wJ8VF5gyeOJ8k
1DaxfbTB53GT4xwittLHhzeQZWpR9V+sekwfZIO0aOtqadde9qOz6p9VJG7HaP8Ar1X/AKVTSR3RR7Fp
MvZZWSSGjvKJTbQ93ptIJ0gDuStJn1TzRAdhNcfE5FY/785XMT6sZoeDZRVjlurXNtY7/qXBLRVHsXHy
bjT+hxtLCP0j/wB3+SD/AKVZox3N0AC6az6tZ+8hlFLu/uuZJ/8ABFD/AJrdSiTRS3/rzP8A0slp3VR7
F5z0XpLof+a/UP8AR0/9vs/9LpJaK4T2L//Q4nrV1eRnmyoh7NjWzxwNf3VnuDQPBX+p4VmJe2twcdzN
wOviQqe10zBnuYKDKR0a+1r7mtOo1RbLIe6ocBsmPE8Id3qMta4bmjuQE/pkEkNdufyTJ0SWjqxYPcCV
IGSfikxji76J+4pwx7XOaWnXjQpKdHpGLk5BvdivrbYKw5zXxucwO9J3pf8AC7n/AEVfpdj4mQ2nKxQ9
7nj9JYNzf5xr921x/wBFcs/puQMFrc5pLLabCLAJBdS7a2z/ADHvbYz+ot/quJmdSoLdjAGQ5pO5x2ke
yxl9Q3ez9zZb+iqRAU5N/wBXMvHw32WVuDri6ysxoWmfTj91ZvSKqbc2l+SHHGre194bEkNM+m0PLW/p
HNXW5nWM6jpFNtpYbqnfZ7K3CdRG79G33e2NzFzjMhv7TPrMbXRmQ/2thrHn279v5rXP/nFDE5KkTW+n
f7GfKMQlCIvYX+6RL5fU9gfrL0yZFdxJMmRXyf8ArqK3619MDQPs9unOtf8A5NYo6S0aEH7kWrpLJ4P3
JnGu4I9vxdUfW7AH/ae0/wBpn/kk5+uGGNPsth/tsVRnSa4+gfuUx0qv9w/clxq4I9vxbH/PHDkEYj9B
xvZz+9/ZTP8ArhjO0+yPj/jG/wDkUIdLr/cP3J/2XX/oz9yXGrgh2/Fn/wA78X/uG7/txv8A5BJR/Zlf
+jP3JJcavbh2/Ev/2QA4QklNBCEAAAAAAFUAAAABAQAAAA8AQQBkAG8AYgBlACAAUABoAG8AdABvAHMA
aABvAHAAAAATAEEAZABvAGIAZQAgAFAAaABvAHQAbwBzAGgAbwBwACAAQwBTADQAAAABADhCSU0EBgAA
AAAABwAEAAEAAQEA/+ERL2h0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8APD94cGFja2V0IGJlZ2lu
PSLvu78iIGlkPSJXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQiPz4NCjx4OnhtcG1ldGEgeG1sbnM6eD0i
YWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDQuMi4yLWMwNjMgNTMuMzUyNjI0
LCAyMDA4LzA3LzMwLTE4OjEyOjE4ICAgICAgICAiPg0KCTxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDov
L3d3dy53My5vcmcvMTk5OS8wMi8yMi1yZGYtc3ludGF4LW5zIyI+DQoJCTxyZGY6RGVzY3JpcHRpb24g
cmRmOmFib3V0PSIiIHhtbG5zOnhtcD0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLyIgeG1sbnM6
eG1wTU09Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iIHhtbG5zOnN0RXZ0PSJodHRwOi8v
bnMuYWRvYmUuY29tL3hhcC8xLjAvc1R5cGUvUmVzb3VyY2VFdmVudCMiIHhtbG5zOmRjPSJodHRwOi8v
cHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRvYmUu
Y29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYvMS4w
LyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIHhtcDpDcmVhdG9yVG9v
bD0iQWRvYmUgUGhvdG9zaG9wIENTNCBXaW5kb3dzIiB4bXA6TWV0YWRhdGFEYXRlPSIyMDEwLTA0LTI3
VDE3OjU1OjIzKzAyOjAwIiB4bXA6TW9kaWZ5RGF0ZT0iMjAxMC0wNC0yN1QxNzo1NToyMyswMjowMCIg
eG1wOkNyZWF0ZURhdGU9IjIwMTAtMDQtMjdUMTc6NTU6MjMrMDI6MDAiIHhtcE1NOkluc3RhbmNlSUQ9
InhtcC5paWQ6MkNFQzQ4NEExNTUyREYxMUIwMzRFODlFMjY4M0REN0IiIHhtcE1NOkRvY3VtZW50SUQ9
InhtcC5kaWQ6MkJFQzQ4NEExNTUyREYxMUIwMzRFODlFMjY4M0REN0IiIHhtcE1NOk9yaWdpbmFsRG9j
dW1lbnRJRD0ieG1wLmRpZDoyQkVDNDg0QTE1NTJERjExQjAzNEU4OUUyNjgzREQ3QiIgZGM6Zm9ybWF0
PSJpbWFnZS9qcGVnIiBwaG90b3Nob3A6Q29sb3JNb2RlPSIzIiBwaG90b3Nob3A6SUNDUHJvZmlsZT0i
c1JHQiBJRUM2MTk2Ni0yLjEiIHRpZmY6T3JpZW50YXRpb249IjEiIHRpZmY6WFJlc29sdXRpb249IjE4
MDAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjE4MDAwMDAvMTAwMDAiIHRpZmY6UmVzb2x1dGlv
blVuaXQ9IjIiIHRpZmY6TmF0aXZlRGlnZXN0PSIyNTYsMjU3LDI1OCwyNTksMjYyLDI3NCwyNzcsMjg0
LDUzMCw1MzEsMjgyLDI4MywyOTYsMzAxLDMxOCwzMTksNTI5LDUzMiwzMDYsMjcwLDI3MSwyNzIsMzA1
LDMxNSwzMzQzMjs1MTFCQjM4QUUzQ0Q2RTM0QTlEQkJEOUVDQjZENjI2NyIgZXhpZjpQaXhlbFhEaW1l
bnNpb249IjE5MyIgZXhpZjpQaXhlbFlEaW1lbnNpb249IjIzOSIgZXhpZjpDb2xvclNwYWNlPSIxIiBl
eGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIsNDA5NjMs
Mzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUsMzQ4NTYs
MzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUsMzczODYs
MzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUsNDE3Mjgs
NDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEsNDE5OTIs
NDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEyLDEzLDE0
LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwO0NCNkFFQjk1NTBDOTE0QkFBQzMx
RTdBRjczRkYwRjA2Ij4NCgkJCTx4bXBNTTpIaXN0b3J5Pg0KCQkJCTxyZGY6U2VxPg0KCQkJCQk8cmRm
OmxpIHN0RXZ0OmFjdGlvbj0iY3JlYXRlZCIgc3RFdnQ6aW5zdGFuY2VJRD0ieG1wLmlpZDoyQkVDNDg0
QTE1NTJERjExQjAzNEU4OUUyNjgzREQ3QiIgc3RFdnQ6d2hlbj0iMjAxMC0wNC0yN1QxNzo1NToyMysw
MjowMCIgc3RFdnQ6c29mdHdhcmVBZ2VudD0iQWRvYmUgUGhvdG9zaG9wIENTNCBXaW5kb3dzIi8+DQoJ
CQkJCTxyZGY6bGkgc3RFdnQ6YWN0aW9uPSJzYXZlZCIgc3RFdnQ6aW5zdGFuY2VJRD0ieG1wLmlpZDoy
Q0VDNDg0QTE1NTJERjExQjAzNEU4OUUyNjgzREQ3QiIgc3RFdnQ6d2hlbj0iMjAxMC0wNC0yN1QxNzo1
NToyMyswMjowMCIgc3RFdnQ6c29mdHdhcmVBZ2VudD0iQWRvYmUgUGhvdG9zaG9wIENTNCBXaW5kb3dz
IiBzdEV2dDpjaGFuZ2VkPSIvIi8+DQoJCQkJPC9yZGY6U2VxPg0KCQkJPC94bXBNTTpIaXN0b3J5Pg0K
CQk8L3JkZjpEZXNjcmlwdGlvbj4NCgk8L3JkZjpSREY+DQo8L3g6eG1wbWV0YT4NCiAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICA8P3hwYWNrZXQgZW5kPSd3Jz8+/+IMWElDQ19QUk9GSUxFAAEBAAAMSExpbm8C
EAAAbW50clJHQiBYWVogB84AAgAJAAYAMQAAYWNzcE1TRlQAAAAASUVDIHNSR0IAAAAAAAAAAAAAAAEA
APbWAAEAAAAA0y1IUCAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAARY3BydAAAAVAAAAAzZGVzYwAAAYQAAABsd3RwdAAAAfAAAAAUYmtwdAAAAgQAAAAUclhZWgAAAhgA
AAAUZ1hZWgAAAiwAAAAUYlhZWgAAAkAAAAAUZG1uZAAAAlQAAABwZG1kZAAAAsQAAACIdnVlZAAAA0wA
AACGdmlldwAAA9QAAAAkbHVtaQAAA/gAAAAUbWVhcwAABAwAAAAkdGVjaAAABDAAAAAMclRSQwAABDwA
AAgMZ1RSQwAABDwAAAgMYlRSQwAABDwAAAgMdGV4dAAAAABDb3B5cmlnaHQgKGMpIDE5OTggSGV3bGV0
dC1QYWNrYXJkIENvbXBhbnkAAGRlc2MAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAS
c1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAFhZWiAAAAAAAADzUQABAAAAARbMWFlaIAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAAb6IA
ADj1AAADkFhZWiAAAAAAAABimQAAt4UAABjaWFlaIAAAAAAAACSgAAAPhAAAts9kZXNjAAAAAAAAABZJ
RUMgaHR0cDovL3d3dy5pZWMuY2gAAAAAAAAAAAAAABZJRUMgaHR0cDovL3d3dy5pZWMuY2gAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAAAAAAAAAuSUVDIDYxOTY2
LTIuMSBEZWZhdWx0IFJHQiBjb2xvdXIgc3BhY2UgLSBzUkdCAAAAAAAAAAAAAAAuSUVDIDYxOTY2LTIu
MSBEZWZhdWx0IFJHQiBjb2xvdXIgc3BhY2UgLSBzUkdCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MA
AAAAAAAALFJlZmVyZW5jZSBWaWV3aW5nIENvbmRpdGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAA
ACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAB2aWV3AAAAAAATpP4AFF8uABDPFAAD7cwABBMLAANcngAAAAFYWVogAAAAAABMCVYA
UAAAAFcf521lYXMAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAKPAAAAAnNpZyAAAAAAQ1JUIGN1cnYA
AAAAAAAEAAAAAAUACgAPABQAGQAeACMAKAAtADIANwA7AEAARQBKAE8AVABZAF4AYwBoAG0AcgB3AHwA
gQCGAIsAkACVAJoAnwCkAKkArgCyALcAvADBAMYAywDQANUA2wDgAOUA6wDwAPYA+wEBAQcBDQETARkB
HwElASsBMgE4AT4BRQFMAVIBWQFgAWcBbgF1AXwBgwGLAZIBmgGhAakBsQG5AcEByQHRAdkB4QHpAfIB
+gIDAgwCFAIdAiYCLwI4AkECSwJUAl0CZwJxAnoChAKOApgCogKsArYCwQLLAtUC4ALrAvUDAAMLAxYD
IQMtAzgDQwNPA1oDZgNyA34DigOWA6IDrgO6A8cD0wPgA+wD+QQGBBMEIAQtBDsESARVBGMEcQR+BIwE
mgSoBLYExATTBOEE8AT+BQ0FHAUrBToFSQVYBWcFdwWGBZYFpgW1BcUF1QXlBfYGBgYWBicGNwZIBlkG
agZ7BowGnQavBsAG0QbjBvUHBwcZBysHPQdPB2EHdAeGB5kHrAe/B9IH5Qf4CAsIHwgyCEYIWghuCIII
lgiqCL4I0gjnCPsJEAklCToJTwlkCXkJjwmkCboJzwnlCfsKEQonCj0KVApqCoEKmAquCsUK3ArzCwsL
Igs5C1ELaQuAC5gLsAvIC+EL+QwSDCoMQwxcDHUMjgynDMAM2QzzDQ0NJg1ADVoNdA2ODakNww3eDfgO
Ew4uDkkOZA5/DpsOtg7SDu4PCQ8lD0EPXg96D5YPsw/PD+wQCRAmEEMQYRB+EJsQuRDXEPURExExEU8R
bRGMEaoRyRHoEgcSJhJFEmQShBKjEsMS4xMDEyMTQxNjE4MTpBPFE+UUBhQnFEkUahSLFK0UzhTwFRIV
NBVWFXgVmxW9FeAWAxYmFkkWbBaPFrIW1hb6Fx0XQRdlF4kXrhfSF/cYGxhAGGUYihivGNUY+hkgGUUZ
axmRGbcZ3RoEGioaURp3Gp4axRrsGxQbOxtjG4obshvaHAIcKhxSHHscoxzMHPUdHh1HHXAdmR3DHewe
Fh5AHmoelB6+HukfEx8+H2kflB+/H+ogFSBBIGwgmCDEIPAhHCFIIXUhoSHOIfsiJyJVIoIiryLdIwoj
OCNmI5QjwiPwJB8kTSR8JKsk2iUJJTglaCWXJccl9yYnJlcmhya3JugnGCdJJ3onqyfcKA0oPyhxKKIo
1CkGKTgpaymdKdAqAio1KmgqmyrPKwIrNitpK50r0SwFLDksbiyiLNctDC1BLXYtqy3hLhYuTC6CLrcu
7i8kL1ovkS/HL/4wNTBsMKQw2zESMUoxgjG6MfIyKjJjMpsy1DMNM0YzfzO4M/E0KzRlNJ402DUTNU01
hzXCNf02NzZyNq426TckN2A3nDfXOBQ4UDiMOMg5BTlCOX85vDn5OjY6dDqyOu87LTtrO6o76DwnPGU8
pDzjPSI9YT2hPeA+ID5gPqA+4D8hP2E/oj/iQCNAZECmQOdBKUFqQaxB7kIwQnJCtUL3QzpDfUPARANE
R0SKRM5FEkVVRZpF3kYiRmdGq0bwRzVHe0fASAVIS0iRSNdJHUljSalJ8Eo3Sn1KxEsMS1NLmkviTCpM
cky6TQJNSk2TTdxOJU5uTrdPAE9JT5NP3VAnUHFQu1EGUVBRm1HmUjFSfFLHUxNTX1OqU/ZUQlSPVNtV
KFV1VcJWD1ZcVqlW91dEV5JX4FgvWH1Yy1kaWWlZuFoHWlZaplr1W0VblVvlXDVchlzWXSddeF3JXhpe
bF69Xw9fYV+zYAVgV2CqYPxhT2GiYfViSWKcYvBjQ2OXY+tkQGSUZOllPWWSZedmPWaSZuhnPWeTZ+lo
P2iWaOxpQ2maafFqSGqfavdrT2una/9sV2yvbQhtYG25bhJua27Ebx5veG/RcCtwhnDgcTpxlXHwckty
pnMBc11zuHQUdHB0zHUodYV14XY+dpt2+HdWd7N4EXhueMx5KnmJeed6RnqlewR7Y3vCfCF8gXzhfUF9
oX4BfmJ+wn8jf4R/5YBHgKiBCoFrgc2CMIKSgvSDV4O6hB2EgITjhUeFq4YOhnKG14c7h5+IBIhpiM6J
M4mZif6KZIrKizCLlov8jGOMyo0xjZiN/45mjs6PNo+ekAaQbpDWkT+RqJIRknqS45NNk7aUIJSKlPSV
X5XJljSWn5cKl3WX4JhMmLiZJJmQmfyaaJrVm0Kbr5wcnImc951kndKeQJ6unx2fi5/6oGmg2KFHobai
JqKWowajdqPmpFakx6U4pammGqaLpv2nbqfgqFKoxKk3qamqHKqPqwKrdavprFys0K1ErbiuLa6hrxav
i7AAsHWw6rFgsdayS7LCszizrrQltJy1E7WKtgG2ebbwt2i34LhZuNG5SrnCuju6tbsuu6e8IbybvRW9
j74KvoS+/796v/XAcMDswWfB48JfwtvDWMPUxFHEzsVLxcjGRsbDx0HHv8g9yLzJOsm5yjjKt8s2y7bM
Ncy1zTXNtc42zrbPN8+40DnQutE80b7SP9LB00TTxtRJ1MvVTtXR1lXW2Ndc1+DYZNjo2WzZ8dp22vvb
gNwF3IrdEN2W3hzeot8p36/gNuC94UThzOJT4tvjY+Pr5HPk/OWE5g3mlucf56noMui86Ubp0Opb6uXr
cOv77IbtEe2c7ijutO9A78zwWPDl8XLx//KM8xnzp/Q09ML1UPXe9m32+/eK+Bn4qPk4+cf6V/rn+3f8
B/yY/Sn9uv5L/tz/bf///9sAQwAGBAQEBQQGBQUGCQYFBgkLCAYGCAsMCgoLCgoMEAwMDAwMDBAMDAwM
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/9sAQwEHBwcNDA0YEBAYFA4ODhQUDg4ODhQRDAwMDAwREQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgA7wDBAwERAAIRAQMRAf/EAB8AAAEF
AQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNR
YQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpj
ZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS
09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkK
C//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoW
JDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJ
ipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX2
9/j5+v/aAAwDAQACEQMRAD8A56ZFJHAPtimzlIls1YcZU1IED204OAN30pAQ/MDg/rTBC81LAOaAJrd3
Ei4PemmB7N4xDJ8I9GLN/rJY8H/gLnFU3qbVPgR5Ssq+vNNMxuWLaMStkn5B1NO4FtrlVXYgAH+zTAiW
Ri3170CHDoaBgQPXnvSuA0kAe3c0CLFlbLMwLf6sH5vf6U0OxqieNAERQFXgUxkiXQ6YoFceLmIDnn09
aBifaUJxgKPTvQCQ2SW3IPPzduelIqxChjPOcnsMUCJVGc4IB/ujrQBZWykMeQct7HigBfsMn95v8/hQ
ScKseejD6VIEiRSDPGRmnYCRYwTkcH3oC5ZGmwXIw4GfUdqLXGY+p2As5AquHVjx6ioasBRJPfipuBPa
uA/IosJntPj7aPg14c2gAN5DfiYZCaV/eOip8P3HkdlbGQgkhUHJJ9PatEjmaLs00f3IhhVH+SasLkYp
DJA6jryfSmwEa4NJgQtcfj6VPMBJbq9xJszgDlj6ChMEaiNtGxBhV71VxpEoNMoDOuMZ+tILEMk4yKLj
I/PIJx19KVwsKXLH5jgGm2CFjkOOGx7mlewWJ7WbLEq+4Dqx/kKaZKLT6m8XfJ6ADtVCuRf2rqP91qgD
lgHU55piJEkbsfyoAkR93Dc0xpGlGwhtmdAS3TbQVY5nUJzJcs3PHGD2NZNkFUtkfh0pDJLckSD6imgP
Y/Gciz/C7w7EScIsYGfZGH9aLe8b1PhR5qzlVCD6CqucwAgf1ouMGlAGBQ2BGZccmpuBA05PX8MUrgNE
hphY3LWEW9sAf9a/LetXEtFiPH0/rTAczZO1TgUrDIN20dfxpAQyN83Q896QXBQO5pgPBLHg0DSBkJ4z
+NFhkscixR4HB7UyXuWrKJQTNNgvj5EPb3+tNEkn2pveldiscyk0bPt6N3B4p3Al2Y/GmBJBAWcY60DR
Pql01rACOGA7etKTsDOSeR3cuxyzElj7msmJCb+DQA+ByJFIPOaAPZfGY8v4ZeGYyNrYDH8n/wAap7m0
/hR5sOTvP4UzAa8mB79TSAgEmSSegqQIXlLGgY0uKAL2l2/mTq7j92nOT3PaqirjRrzSjfknGeau4xPN
B6EgHvSAmjVHTjr65oGVHfHFIBm/ByeWPakAhlPT17UwHLKQcDOSeaCiYSfKc/jRckSNgzhmAwO3agCb
7fGHzjkcDBppiD7dDTuTZEE2lQzoSP3dwP416568jvTsMyJ1vLWTyps56g9jWetxMs2+rxwQtuQtIo47
ir5hmXf6i97ICwwq/wANQ2IqMvBJpDItpLYz16VLCxZiiaN9zD7vIHv2oTK5Weu+NpDJ8PvDxJ3YiQg/
VMf+hVo9y5/CedHJXAPA5NBiVpi2D/dHepBIjRZHGFUk+1A7EiadOcFyEH5mjlCxajs4IuSN7epp2HYv
6cLGa58u+mlhiKnyhbxiV3kPCpgsoG4nrQhDGsL2OaGLYHkuDti2ENlwdpX/AGWVvlZT92mgsWZNE1hD
Lutm/cp5kpUq6qucZypI6+lO5ViO3k2jO4HJxikBXdW3kd80rgPW0ka3kuAcLEyIQepaTdjH/fBp3CxD
cW89vLJHIu14naN/99DyM1LEXri2NnePA7BzCwBOMZ4B7/WqKNjWNNGm6JLPJGolvHgSIjnahVpXI/uk
4RaGDRk6JpsuoXsEDApBJveWXIXEcSlnILYHAFJCRXubCaK0tbjO83YlZY1+bCxNs3ZHYtu/75oBor+R
c/8APJ/++T/hRdBYvWsqnBJwR3rS4GdrUV5K/nQoZEX72OfyqZC5TGE4x86lfrUkkcqgHzE696Qxp+YB
h+VFgHW1nLcyfu2VT3LHFZymkawpNlPxBrcenNHHMQzoOR6leOSKzTvsdUadtzX0z4gT67YwWU8n7m3A
WEKqKq49eNxqZylE6I0oSWpolrRcoZlRiRvJPHT0606eIvuY1cHp7pYaxtcAb/OH3uPumuvQ4HGzHuwR
chQgHRQKBJDFcO25uv8AKmBHM+TtUdO9SNkmkS2sGrWc94SLeGZJJcZJwh3Y455IoQkzU/tvR55tGYxm
CK2uJXvYgzSECSVZN29h8xbnP+7VJoovprFjALi1N3DFHPGFt2tY5LkQDeWfJkEO+aYOcyr93/Y/hLgc
42zzT5ZJiydjEbSRnjjJxn60hF1fsMc1tPchvszn9+q5Jwv5feosO5rSNa6tYag1nALVGeyUSECOIyRt
5LvheE3ecjsn8NG+wEfiC/06x1fVbWS2zPK5zLhdwEmyTaQ4O3P3Sy/OtJ2C9hR4wsrie6uby0/0q5Hl
ySRFMGHcT5WGHy5Vlj8xW3bEWmmg5ixrXiCx1jQpIXxFeJL9ohXYQqqvymIt0YkMzIVVV/gptoOhU0nW
7LT4ZoFiN8kiMkIuAqiLzMB9u3c48xNyP8+3/ZouNENzrtxczq6qYzBCYI5FlcNgymUE7NgOC21Vxs27
aQMm/wCEl1T+8P8Av7c//HqAucxHM4HX8vei5DLkd9hPLPAA5NMZCljbXaNEeATkmiwGXqOhXVsS1ufO
i/ujrx6etTYTRkNcCNGL9uo96iTsiqcOZ2K02tta2MsqfJJt2xn1J6KP51yrVnqqHKjH0nwh4n8R30mI
y6xN+8eQ/LnrirdSMS6eGlP0NibwNq3hu6N4sgSLIJibLL9CKz9spaM2+puGqItSms5n+0WrmBl5kg3E
oG9Vz0qFoQx3hrxZLb30dldMTBOdisf4GPSumlKxx4iCav1OzklLtXQeeJk44PFACGRVOD1H+eaLiRGV
Mhzn+g/KkNAIiGznIPUdqQEyRuT6ZqkKxZjj6dh70yrFmZ7VrTynkAdVJx15PIFDBMrwardQafdWEeGt
7sJ5gYZIKsGyvpuKLu/2Vqb6WBFW6nub64e4upGmuJTmSVzlicY5P4UhDp1T92qcAD5vrmmwJlV3VUXo
cZzxQUS2RslkeO8fyipwMKTnHUcU0wIpb+0R2WBGAz95j1H0pXEyP+0ofagDKWcqu78B9aYiTzwQB/Ee
oqguSwTsh+U8d6aA0BqW2PYfTmi4XPO/EmoBJC3aWU5Ht1rnqanThd7mXaXfnxhbggbXWRSTxgDpWTjY
9KLvue9/C23gl04XCIMOAentiuZx1O6OkTU8d6NNe2TNHGDtAJHc4rOaaZpT10PAda8L60moubW3keMn
gKrYwexrenWjbU5q2GlfQxNQsbvSblftiPFdDayQOpGR65NbQkpbHFUpuO56Np979stILheBKgbHuRzX
Sjypxs7GgHwox+ApkgsStJ647elFgLUcGRkjGO9OwEgjQ/dXJPpRYYjHyxnAH86BCK8ewsQcj3pjRFmJ
s7+vapY1YlitPMglmRS0cADSkdFDHAJ/GlYuyIjLEq5A5x17UyG0KtvNLYPfEqkKSrCuT8zuQWIUf7C8
v/vL/epNCsMS9QAIV7fMxPQ+tFxogu5lluCYstvwAAOSenT60MZTlcqxBGGBwQeDn3zSExm8+tFybjS4
G0Z4HJ+tWBGs+5yelArksEh2nJyT3FMLk5BdGbJwOKGBwnidUjaEzEmMljx1zWEkzswrWpjQSCW7VIuY
wyonvuIHNJrQ64O8j6MfWG8M6ZFbWaxxbEVd7At8xHYcCuU9Vx+45ix8deK9V1dLaW6LwGQxriHYu4dQ
e/FE49yaMk3oP+JNx4u0O5tI4mkhW4TzFktxksM46nvWVOGtmVWqXXu3PP8A4jLq97pdlqN6JXktpmtj
PKclg67gc/VTW9CXvNHDjI+6mjoPDMDRaBZCYEN5YyD19a7VseNU+I1vNix+uRTRmLblQC+cLnkmmPqT
/ahKwwcRrxxwKLoCdLpMZUcDgUXHcgnlUk+lFxMgedFUA9TSBEH2lC2MjA5oA3fD+57XVGYEW5tWy4GR
vX5gD6/J5jY/2afQdxl2nhQI8EN1I10YSY52JFurh+N3yeYWaMfdVdqP/G9INCpNcQPpNlarKA0Es3mc
HkSlSJAP91dv975aQyWWHwsFbF7JnEYXETb/AJP9acH5N0n/ACyXdtRPvtv+SiwyOefw9Azz2Mk+9Zlk
tVcYdFUHguCBu3YYsE/3aQilJa209st010u9nzNLIWUknlgAQWkfPVl+WgCHdon/AE8f+O/4UwM6bGwZ
6t3qiSsH2nGfbmmSOS42pjHJ6UwNEyKtt1IwM0Nhc5LxJALmw35y0LbgD6Hg1jM3w8veM26tILKfTnt1
+V/KkkI7ktWMJXvc9utRUWmlofSqWNlqES+avzKAVPpxXK1qd6Ibbw5oenXYudvmXbnCEnoTSRVma2uX
PhrU7K2stWeKaWIny4iw3Y/2SO4xVVbNGUYtO6PN/jdbWA8C21lpUS4F5FtCdeQw5/Oow1udGGNg/Zts
56xS4g06C1kYNJGgRiMkZA7Zr00rHzs5XZOfkiJ79M0yBiKSfbuKAJ2lCqFQ4PtSHYdJcbVABz/jTEVn
ufc/SkBEbnc5yc44Ap3BB5qj60BY19L11bKznhkiMu5ZDCQ23a8sLQtu4O5Nj/8AfSLRcZkI4kde/fFI
RYaQAdelBRCPc9elAWI5X+U8dKQrETXc5hELMWhRi6R9gzABiPrtFIQnmL6iquxledm3AD+EdKskpvKx
JFAMmh+Z1GelUibFu5k22rDPY/rQwMcuksbRSDKMNrD2IrNji7Euj+IdG0IxWGtaWb+13r/Z9+G2vESw
OyT++inmuepQvqtz3cHmKSUZo94gaeIBJQEnAG4Kcr0z8ue1c8kerFooXN7E000T2085Zdo8pc49TkkV
EUrmyTOVtLJbXWUni0qSVoCTHDI0aAE5ycs/U5pN6jlDS9xdf1JTaiEIYS7fvYGIbGw5A3D39KvBwvJs
8nNatoKN9zDhOULnjjivSPnyOeUEACkIasuxM+vQ0MBIWZmH5mkOwskh3+uP60CIwSeT0FAyBlJbINAW
JOmB1oAkL/uSR1oAbakYZj1zikhkxcfn/KmgRNJY362sd15WIZOEOVJ5OAdgO8Kx4Viu1qGUVL6Ce1ne
3n2iZDiRFZW2t6EqSNw/iH8NSJjJLK7hhiuJojHDMSYSxALgfxKp+Yp/t420xWIvMSlcClJIcsc9a1IK
zMc8d6ALtsh2BvU8fhVAO1GQrat9KGJmRG/GahiIdTtlu7GWBiFONyMeisOhpFxdmfQtqZL3wvpGqxsH
lls4GlK9GPljLD8a4pbs+npydrlM3kAicF9rE5yBz71k4nTGZyLS2S6qXa5cuDkehNYyTuaykrGRrDud
VmhfgocMPTua9HDxtFHy+OquVR+Q0MXXaoworpOIif5pAo7dalgE2N2BwAKRSGxPgN+FMQ0tnPPWkCF5
xjsaAIC3zDFSK4rvg9aY0xxb9xnNFwuOiGIlH50FIV5NooYFiHX7iNNjwwTKUWNvMQ5ZExsVipUkKQMU
XFzMbqep3OpSrPcrGrhQgESLGuB0zj7zf7TfNSbHcS71JbzMk8Cm9+UG6VmG5VGMPGcp0H8GymK5r/8A
CaXX/QMsP+/Lf/F0BzHGSYzxWtiRgB4H60CNGL5VXNMCLVMfYmx6ClJisYaEioAytd1Jyn2SI8EZlI/9
B/xp3NqcOrPob4XeJtOvvCWnaZIwjure2RI1Y4EiAY+X3X7rLXFiINSPew9TngvI0PEXh23lt2lin8l2
znHT8qg1TOK0Lw3DDqwlupfPkVsxjsCO5rGUimjkftV1ceLvE0SqZZLWeeZYR954oyTIEHd41G//AGl3
V6OHd6aZ4eJh77L1hd2tzD5ttIJY2wQVPb3FbHG4tE6IBIW9v1pMRDOuJWA9v5VJdhApEZpisRhTgZoE
PA4I9BSGRJEXkA6UCsF4gRsd8UMY0svk470mIejfKPpQNEdw/H4UMbNCD+wltmLESF4RiMiUzifb1DDZ
Cqb/APrp8n+1QGha1LTrCHQrOaO5tmvg22eGGXzXdXywcgH5Nn3GQov+81DVgIbexspNLEqnzpywN782
14Ig4GYojt85mH8e5lT+5/HQkBo+R4E/6fP++2/+N1VvMLrscUy/Mc9KogVRllUE8kDmmhF18hifT0qh
NlXVCxtSPoTUyBXOYvb/AGxssR+cHlvY+lSzpp0urMbazMWPJPekane/DbU45I30uXcZomM1vtOG2dXC
H+8n3sf3a09mqkeVlU6zpyuj0afXNUtYUhuG+1W0gzDP3ZemfqOjKfu15VWEqb5ZHr0qiqK6JvDsMk8r
SRoWdmzz71g2aMraf4Cu4vHd7rURKJDeW7sf+vpGV1x3DMtd2Xy5pWexw4yNo3PJfEdpceFfGWqaXayF
YIZi9rj/AJ5SgSxf+Q3VWrslGzseandWLdr4vZgqzxhiTgshxz9DSM3A17LUre8ZijYYDJRuGApWE1Y0
SR5QP60EsYm0mgkkAX58elBSKm4iQc4pAxt2zFic9QMUMCPnAHY1IWJRwOBQNDXhZm+b8qoC3HpV81qb
sQN9mGf3nAB2/exzltv8W2kKwTadc28cUsiBEmAZAWXcQRkEpneAw6bhSGMlguIIEuHjYRTNtibGFZh2
X1pgRf6X/wA8n/75b/ClcWpmll3c5rZIkfAQJlx2NMEQ6p4gsrSQof3kh5wvQexNDZrClfc5++1ya8Ug
HavYVDdzoUVHZGWZNzFSc7wcMfUcj+VAuYSPBFIVyxZXE9newXVu/lzQuHRxwQQaqErO4mj0nVfHkNto
sLIYoLi9uUSW3dTIISoDSTRoOdki/Jj/AGv92tK6jONnqOlNwldaHs/gv+zp9LttRtI9kc6ByG6qRww/
A148qPJKx7PtOeKfc5Pxn8YNK0RNcu4pYbqbzII9Mto2DZntyeHC/d2sfMk3fw/Itelh6KgubqeZiK1/
d6Hzhfa1q2o3lvqWqTvdTzJsa4flm8tiME/xFQR/wGqk7nIgkG07u2f0qS2TjUJomWaFyksbcMPSgp2a
O20PXodStSpwtxEB5sf/ALMPaixhKNjUVxn2pE2Hqck/SmBSkkAbJ7GpuDQ15gxH5UDLUFrvjWQsAo4x
kZ+tAFuW2jZN0BztHI78d6AIF45I596GBbXVmWFUMKGdYmt4pyWykbli2Fzt3fO43UwEvdTt5LCCDyT5
sP8Ay3dgx24xsGFU7fTcz7f4aGMSHxJGJ4NQkt9+oQr9nYFmETw7Nu5cFXgmQdGiO3+L5f40K47+1fDH
/Plff+B3/wBpoH8jlmLE5Iwa1uZmfqt/LaW2Y2wznapHYd6GzSlG71OZlmdm5Of1qDpbsSQSIhG4cH9K
AuJdqkcsTofkMin6ZPNMzasxQpWQj0JFJDLCgbgO5IA+p6UFodqtjPNdQ7ZSWjURxY7NjJH/AH1QpEOJ
6D4X+J/j1NNi0421udLFlOqTwoRIHRCqtlTwwfG5Nv8AtUp0ot83U2hiJJW6HAz+ErmSLzDlmG4StjJL
A5z+INVZmTRFNoF9bxw20y/6MtxIsbHhvmVGz+KhafQi2th19YG2IAYSRnhZB0OOx96hO5co2Mshgsi+
gyD9KZJJpGovZapbzg4UsFkHqjcNTIlqemrIccdqRmSwS5c/TikBWmUeYwGcA5BoCxDLweKQyVJD5IOe
KGBsabeFtGu4fMZfJZJ9p5UqSI9o5+Vtz7s4+agaK0g3ruTnvikBEEZmGeg7CmA29hfygvOCeaLiKix8
4HSkA/y3/uigLFIpuOSwx9K3IOX8R3G69FspysQBb/ePNTJnTTWhkMcYNSNsfu4x2P8AOgCKdma0PPKt
TE9hE1SR3J8pd3UnJxmiwuY2vDsD3Ia9ncM4JWJF6RjoWI9W6LUyNYK+rN2KxjbUbeGfiNipUqc4Pain
qwnpsdT4XktvD/jyJLWYxxs8ojlCbTmSIuAc7lIKqy8r/FXQorZmF3udSdD0uO+eOIh7eVNw+qYyeveJ
93/AapwXQSlc4XxmFSS1h2gSLuSQf7UeUz/3zU1dh09zn7mBZ7fYxKkqAWHb0I965joepyU8V1BdNBcM
WIB2nsQe9XcxaaZTBy+R26UEnp9ndCe0hmU/fRSc+uKTM3uWbaUiUgdxSGPuHO7d+BoEVncYz3pDQF/3
WPWkBpx6nY/2e1tb2PlTyqqXF2ZnfcAwY7YyAq7mUf3qGMdbSfJ1wByDTAddXUEeBGcyHqB2PpRYChcX
TseuTSYhyvGsZZsD2pAQfbYf84oAxftcvHIro6E2OWlkaW4lmY5LsTmszqirIik6UyWIDlaAI4SXWVT7
GgQyCE5OeOelAhY5p7Wd3gco4GQR7e1ME2tjoNL11bwCOT93ddcjgHHdfSptY0U7nbWetx3p0u5nIa9t
LhIbokctEx2B/wDviQiuhSuZtWOwS700tbmzldgDGJSfuoJEaFwM89s1pdEO5554vvjPqy5zvVg5PbDZ
Xn67axqO6NKS1MzUNYtrONY/vu/MUQ4J929q5uU6JTSRyl1qNzeTpJMQNuQqKMBRVpHO5XKwGMUyTsfC
94ZLIwseYWwv0PNTImRvwsvmqT0NAixKPkPoeppMDPfdnHp0oGPUkgIB8xpAjRgtpFAXYc7DIOOqjq30
4oKaHfabeJSH5zkFFxnkU7EmeUJPy/dosIdsAO5ug/WkO5FcMz/KvTvzQJkPlt/dFK4GaVAUkZHH9K3Y
HNnAQepJNQjqkMk+7TM2R5xECe3cUCGWxHnSDrlf60CRICoagohk/wCPgZ6MCKBdSGTfEyyIdrIQVP0o
JZ1+g6oHvNNnVc+dKIpsY4bIK9ePvCnF2Ze56tq81uNBsZLNLuKbyJP7RiuI1EYkilDL5DJyqgbt281c
XK7vsJ8vQ8v8XatcLfRwyyBoYGd9vf8A3eP8/NUzj1CM2tDiprmWa6NxI25y2ST6elSS3qSSfLJntuz+
YoGIGLHOOPWgDa8MXJjvxFnCzDaR7jkUmKWx2PIxxyOakixWj1Gae9KDKx5xt+lK4luWbllGM9uKGMmt
U5J656NQNHSPe6FKLC1jaWO4fTZYTK0iFPOYyhEI2rs3Oepb7tNlNoyk8NXKWk15dZCwCI/uxvRvO5yZ
M7fkyEbZ/F/31SJaK8thfLLGjwvCJBmNpgYkIxnO99q8/WhsViCeyvI7jyJImVwu/Z1+XGdwxwVx/FQO
w28gW3kRM/M0Uchz6yIH/rQKxW3/AO3SC5nOSIHPohx+VdDBbnLseVB7CszqmJIMimZsZG2IypG4c7h7
UAita8XDKOmDj6UErcmH3wKRQy5G2RG9CM0xMtT6fK9vJJGpcIu58AnA9T7UrlON0V9IuWjnEXVGZWUe
jKcjFURFnrI1DUpoTbm1uWRpZl3MMr86fU4q+ZsqyOF8bK5uPNK/60I+7PqgolsQcqoyxH5VmBO/zRK3
sM/hSGyISMVx6VQrk9pLNFcxyJ1RgQfoaQHpoxjjuKRBneV5N+xx9/kfnUWAsXa5GaGBG9zKIvKHHYkd
SKLhcjTAOSeMc0AW4bh1TYGIQ8lQflJHfFFwLMGranbLtgupo1J5RXbaR/u520NgNXVLz7UbhpPMkKmN
vMAZSjDBTafl247UDNS18URxwGK606C5+ZWVvuksihBvBDhl2rjA2UDTLf8Awl+g/wDQp6b/AN9T/wDx
dFohc4Q7fIl3H5Qp/lXQyY7nMYJYkVkdUtxJDx+FBLKrSFCffnNMgZbHdcMf9nr+NAo7lhcbqCxl4uYw
R1oJZfiurg2nlrIRHIuGA7jrj6ZpNF82hlIhW5QDhgw6fWqRke0WLaxLpTXEemNJZRvayXF6Sxjj8xdo
MjDhQ2eN1NySdmaWucZ4xgH2FXcESRFo+BkfIx7/AENUybHEsoR1PZuhrIRIRtjcHsc/gaAZFHNCB9zB
qhEscyM69sHIpDR6Pb3EcsKSROHVgCCOalkNBNGJNrDqvegQlww2DtUsCtIR165/lTQF9tCvo3CAJJuQ
uGVxjg7Svzbfn3fLtpMdgudMMENq0Ted51t9okaM7goLsvPAIwAM7v4qTFYrFWHB7daAJoYJX8x1X5Il
3SOTgKDwOfVj90UDGKkspPlqSqgliB2HU0xDNieppWAxb7ctrIc4BXH58V0SLgrsw1JUnFZmzGSEYoJZ
Xlj3RZB5FBLRFZcSOT2X+tUKJaRC3NIuwXSjZj2pCkh9oQ1sueoyPyNNjjsWtGtUuNdsYiMq06bh3Izk
04LUmR7Fp90LHTbrT1kvo4LqHbPb2xJjk+zP8hYd/kq+WL33HzMxNe0saiLuwiiceefPt2b/AFmJUBO5
TjOGoktBI8lvIHhVoZBiSFsHPBrNCew1iTEfdP5UgKio3901RI4RyjopoGdF4Vv7lLg2rgmNwWX2I/xq
WJnWq4wM5I7gcVIhNQS3+yQ3EJceYzp5cmCRsxkhhjcvzY+6tIGikjMCrcMAQSrdDg9DQI14Na1EO43q
6TB0liYfKUkbcyjBDKN3I2tQO46LVL+CJo0ZNgj8nBRGPlFt2zkcru5oHdltPEMZuop7rToLl0ZzJvBK
v5pBkZl6F/7h+6n92loBBJNZnTri2jcqFuBPCGGDImCgU4zhkzu/77oYHQaRPpMjFYgLe5exCKrSZSSY
EDy+QNhZV+bLU7DQf8K4uf8An/tP++3/AMKViuU841aMpp7Fv4mVR+ea6JbBRWpgDrwKzNZbjZcAc4pk
MqTuQuBwDQiWR2GPOYH0piiaScCpNCG56H6UEsbYnMTL6NTCLNTw3cw2viS0nliedU3ERx/e3bSAR9Dz
VQdmKR7vpd/pjxiWGWOdPK+0LGGG7a+FkVv7vyk7lP8AEtdDSIsJrA06EsBEHlQPFDKSCRtHmRNn1FTc
LM8H+IC7fFWoLu3MWRpDgD5mUE9PrXPbUpswusQHfkfmKBDFjKYJl2/QE0CHi52nlt4+mDQO50PhuDKS
XgIJPyIB1UdSTUyFI6CJmbBPA9KRJe1AL/Zun/uz5zCXEgPy+WJWwNuPvbyxLZ/u1LG7WM3BkRj/ABKf
zpiJbfjB3e/NAF3ah3dqBieUv5UWGDIu0/XigRatooptsYYFgMEGgZa/syT/AGfzoHZnGaxfrOjQA5EZ
DYHQH3raRpRWpgbuc1BUtyOXO31oJZSum5A6U0QxLA/v/qKYomqOBmkaFe4PH4dKQpDbHI346ZFO4RLt
jdtaXyzLE0o2srJG2xsMMcMM0J2BnfeEprW7a2TSpobfzbdopbdgxl81iwG/+8pPda0tfYGzt9WhkbUB
em1hsbaVYN1tB80QJhMbOGbDZZvvAr96lGLS1YSknseM+JtGuZU1fVpW/ewXSBlP8UUnyhh/uMFX/gVT
Z7ks5leYwR60hD4SoG0ggjqh5/Q0AhNlvI2MhM/xD+ooA1/DckltdvC53QupOR0yvelLYUlY6WG9tZJV
hZvJD5AnYEqrdi2OdufvYqBGlMxSysLGZ45buETvL5TpIqrJICg3ISvIG/r/ABUXArwxABwQAc0CIo/L
WQqR0NCQIuOVAAA7UMofGvmMAo60AT3X2LTLcT3bZLfciH3mxSYjnLbUnW4MyEorMSFycAHtQmI1v7db
++fyFPUd2cZkrBIe7YH61ozWiVkJHbigoJCCvvSEynen5FyKaIZDZ/69cUxR3NfGR7VJqVrjqfpQSyWw
tpXt5ZlXKIRuPpxTCJreGb7TrLVvO1BDJb+W4IAzzjjimrdRu/Q15NX8NpdWUunWMguY0DvKcqF2uXyP
X5ad0tgVzastdutRMcIeSNgoDLIMruGX/rRdsbViTXLWJvDetCfaZpIRJFjADfxEAequu6tJfCY9TyGH
LRkD72RgVkBaCBlAkyGH3W6GkMY8AkOfuv69jQOxoaKAqSswIlU7TnsKlks0TIPWkSPtrwQzB88d/pUg
bdvcpKCVGfQ0wJY1AYs+Mj880Idi1DHFIqtnO6kOxcunttOtvPbG7/lmpzlj6cUCOV1CS5vp/OmznGFX
so7AUXC5X8pwPu4pCE8o+hoFcz3U+ST2Fas6qWxXQMR0pjaI5nVR6mkQ2Urtlkj9CvIFCIZHZjMq+1UJ
Gwo+X6UjUpznLGkQyaznlW0khBHlyN83Az+B7U7jRoaHdafb6okmopvsnR4psDJAdSA2P9k0JAzul0bT
opllgCNBPar5byZaIggLnI6Yb/vmqlGwlJtmvqXhu4s9YuLGa1t1urdmkeSzlMqMoRHzu9NpopNSVy5X
RR1tVlS/0+JVcRWcs1uepHnbSqn3UZq5Ga2PHrFZNxKrnHc8CsmJFp8kYYYPqDSKIeeRnJHQ0xI1bC2k
8jeRkyc/h2qGTJln7JMf4eKCRUspycBCaljL9nY6sozFEcH1oAtpoutTHLEpn0BP8qeoGppGjXlvKfO3
SIoO0AHk/jRZgmMvbG/ubgyyAfJwikfdHpRYTIH06+A5QY9eBQBGdPvP+eOfoRSAT7Bef88D+lFgMPVt
KvNOhVLqMxtIcoCQcgdehNaPc6Kexlbu2cUxtkUkY+vpSIZVu4hsz0IoRLFsItzlvSmEUa5QLbM/Q4xS
N7KxlSn5qDJksPyw9utAIlBG/OMjuKdhnXeGvFRsr2z02Jne3DogSUAqAzZYf7u0mrjILdDr77xl9mjj
e3s44rkiMmQLtDbshgQBzuWk5i5DC0i7iieG5ubhRcXcc3mIeSCGJUH8MU09BtHncV1ELmSNImADNkDH
HNQyUxZirAjHPY0imQRxTNcRxoNzSsEVR3YnApkWPZrH4RyLbxpJq0Ssq/OFglbB7gZA71j7Qt0Wy9F8
IouM6yp/7dpP/iqTmL2DLtv8JrdCP+JqT7m2b+rUucfsS5/wq8pgrrUg5xhICOPweq5xexZMfhQknzSa
zO2P+mTf/F0c7D2Xmatl8PtMghKS3LTOFIV2iYYPr9/rS5x+yM66+GunSv8ANqEg9ltzj/0ZT5xex8yN
fhLp7AMNRcqeh+zsf/atHMP2PmEnwq0hD89+xz3+zN/8epc4ex8yL/hV2jf8/wC//gKf/j1HOL2J5p8R
pVea0T0VmIwB1I9K3luaxOM2ofakJoZIigcUElK7HykZyOM0EMvWNvEkAYKCW5NBcVoRG585JccIrbUA
9u/40C5rlUpkgnmglosHCxY+vFAxU/mKbGX9It7ibUreS2Ae4ib92jcbmCkge9LoK2p0UkF/HIG1WDyB
bSxrPEVZGUIxQhsgelJamlzf0q90DdDZwwQSTCaWFS654lXClsj1rVJGbTZx+meGLhpr25lXbvlk8sYI
BAY8g1xVK6Tsd+Hwja5mYWq272uovAwxnGPxFbU5cyuc1em4Ssb/AMONPsrjxRaXGozJb2ViftLPJnDO
v3E4B6t83/AaU5pIVOk5PQ94/wCEk8MIuRqcJP8AwP8A+IrDmR0exn2H2/jHwujAPfxEA9QJD/7JT5kD
oy7Fv/hN/B/P/ExQ/wDAJv8A4ildC9jPsMHjvwoP+X4Y7fu5f/iKrmQewn2Hn4g+EgMi7J/7ZS//ABNT
zIf1eYh+I/hTjNw2PTypP/iad0Dw8wk+I/hNkQJcOu1gzEQycj06UOQlh5A3xK8JhcLLJgfdXy5M4/EV
XMh/VpkD/Efwq3BklOOR+6ek5IX1aY7/AIWP4T/56y/9+WpXQfVpnzrqDTOQ0m70G85/nXSpXM5RsUiR
jHQ9qozuQmNmPzE/QUiWVL2NEU9v1oREib7aptCturMSNg4xTsUpaaEFvE8cBDjBJ4FDEkKQcYpDHyki
P3xzTEPjB8oH04oGjR0i6vrRhd23zC0lS4ePpuCA5Gf93IoBns0TaRrtibmQPJ9sTc1y7biTMAyM/Hqu
1v7r1ooR6CbOA16zTSdV+22LJLArpJcKp+aMq2xww6rhqnYdz1mKTw7ceF7QxojBVUOyD5sN/F6nrXiV
Ytysj6Wn8Ke0bHl3xC8Naa1r/aVndQvJa/M6I4JZO+AP4hXRhfaRdmvdZxY9U5xumuaJj6IC9hG1o2Yz
97gZ3d8+9aVPi1OejL3dDSEd+f4j+QqNDVSY4QX394/kKV0HMyxFZXz8bjg+wo5kPmZbj0W9IzvP6UXF
zMlXQ73H325+lK4+dijQLvOS7fpTuHMOGgXPTe2PrRcOYcPDtx/fP50rhzi/8I5P3Y/nTuHMH/CNz/32
/OldhcwfGOn2MVrA9tPDI+8hlSRCcEdeDXbBHHU2OReLnkqT/vL/AI1oYMYYm9VA7fMv+NAmU9ShJiPz
LkD+8o/rQjORHYJK0WBtVQeu5ef1qgiydonMnzFQB0yy/wCNSUMWJ93Vcf7y/wCNAid7bdCPnRSR3dP8
aBsjiiYr1GP95f8AGgEbPh2TyUvA8YkR4tpxhgATyTjOOKfQdjqPAyXd1a3tk7y29hE7mzn6RvC74AEn
3dqSj/x+r1aJTNbVNF8N3RD3k9rHqAH71Fukhm2dGxubO5W5+YfNU2G2XtEW3ttFvLYuZFgXbDJGBIsi
McoyugKdMV5so/vvO57sJ3w2t9jzaMyyl1nTy4DkM7Fc4PfFevdW1Pm7DPBM11bamyLGZ7CR/LmZRuVT
n5X46VxYiKa8zsw0mn5Hpy29p/eiz/vp/jXAkz0GSpb2v9+H/vtP8aQi7b21txh4f++0/wAaEPQ0IraD
s8X/AH2n+NWBKLaHP34v++0/xpXC44W0WPvxf99p/jRcBwtov78X/faf40BceLWP+/F/32n+NFxC/ZY/
+ekX/fa/40XGmL9lX+/F/wB9r/jRcLn/2Q==
</value>
</data>
</root>

185
FrmAccueil.vb Normal file
View File

@ -0,0 +1,185 @@
Public Class FrmAccueil
Public Boule As Boolean REM inscription ou édition
Public Horaire As String REM Sert a stoquer l'heurs pour les autres fenetres QUI ONT DDES TIMERS.
Structure PERS REM sert de "Tampon" entre les données entrées dans les feuilles et le fichier.
<VBFixedString(8)> Dim Nom As String
<VBFixedString(6)> Dim Prenom As String
<VBFixedString(10)> Dim Adresse As String
<VBFixedString(5)> Dim CP As Integer
<VBFixedString(15)> Dim Ville As String
<VBFixedString(5)> Dim Age As Integer REM Stocke la date de naissance en mois (plus facile pour convertir après)
<VBFixedString(1)> Dim Region As Integer REM Stocke l'index
<VBFixedArray(15)> Dim Ecrit() As String REM stoquer les index plutot que les nom ?
<VBFixedArray(15)> Dim Oral() As String REM IDEMPOTENCE
<VBFixedString(2)> Dim Fac As Integer REM Stocke l'index
End Structure
Structure Index REM Sert pour le bilan des supprimés, mais aussi a générer le menu déroulant pour édition.
Dim no As Integer
Dim nom As String
Dim prenom As String
Dim Suppr As Boolean
End Structure
Public cddts As PERS
Public nf As Integer
Public NbID As Integer = 1 REM Nombre de candidats
Public IDlu As Integer REM Sélection d'un candidat.
Public lgcddts As Integer REM Sert a obtenir la bonne longueur.
Public Tindex() As Index
Public Sub InscBdD()
REM Entrée depuis la feuille 1
cddts.Nom = FrmInput1.TxtNom.Text
cddts.Prenom = FrmInput1.TxtPrenom.Text
cddts.Adresse = FrmInput1.TxtAdrss.Text
cddts.CP = FrmInput1.TxtCP.Text
cddts.Ville = FrmInput1.TxtVille.Text
cddts.Age = FrmInput1.nais
Tindex(NbID - 2).no = NbID
Tindex(NbID - 2).nom = cddts.Nom
Tindex(NbID - 2).prenom = cddts.Prenom
REM Entrée depuis la feuille 2
cddts.Region = FrmInput2.CboRegion.SelectedIndex
Dim b As CheckBox
Dim j As Integer = 0
For Each b In FrmInput2.GBEcrit.Controls
If b.Checked Then
cddts.Ecrit(j) = b.Text
j += 1
End If
Next
j = 0
For Each b In FrmInput2.GBOral.Controls
If b.Checked Then
cddts.Oral(j) = b.Text
j += 1
End If
Next
If FrmInput2.RBYes.Checked Then cddts.Fac = FrmInput2.CboFac.SelectedIndex
REM Entrée depuis la feuille 3
Tindex(NbID).Suppr = False
REM Sauvegarde
FilePut(nf, cddts, NbID)
FilePut(nf, cddts.CP = NbID, 1)
NbID += 1
End Sub
Public Sub MaJBdD()
REM EST-IL NECESSAIRE DE FAIRE DES TESTS POUR VOIR DES CHANGEMENTS, OU MODIFIER TOUT DE MÊME ?
REM Entrée depuis la feuille 1
cddts.Nom = FrmInput1.TxtNom.Text
cddts.Prenom = FrmInput1.TxtPrenom.Text
cddts.Adresse = FrmInput1.TxtAdrss.Text
cddts.CP = FrmInput1.TxtCP.Text
cddts.Ville = FrmInput1.TxtVille.Text
cddts.Age = FrmInput1.nais
REM Entrée depuis la feuille 2
cddts.Region = FrmInput2.CboRegion.SelectedIndex
Dim b As CheckBox
Dim j As Integer = 0
For Each b In FrmInput2.GBEcrit.Controls
If b.Checked Then
cddts.Ecrit(j) = b.Text REM Plus logique que les version en dessous, ne marche pas quand même.
j += 1
End If
Next
j = 0
For Each b In FrmInput2.GBOral.Controls
If b.Checked Then
cddts.Oral(j) = b.Text REM Comme en Td mais je ne comprend pas l'interet de = true
j += 1
End If
Next
If FrmInput2.RBYes.Checked Then cddts.Fac = FrmInput2.CboFac.SelectedIndex
REM Sauvegarde
FilePut(nf, cddts, FrmEdit.SelectedID)
End Sub
Public Sub SupprBdD()
Idlu = FrmEdit.SelectedID
Tindex(IDlu).Suppr = True
FilePut(nf, cddts, FrmEdit.SelectedID)
End Sub
Public Sub LectBdD() REM destiné a évoluer
Dim i As Integer
For i = 0 To NbID - 2 REM UBound(Tindex), car le tableau est déjà alloué.
If Tindex(i).Suppr = False Then
FrmEdit.CBNP.Items.Add(Format(i + 2, "00") & " - " & Tindex(i).nom & " " & Tindex(i).prenom)
End If
Next i
End Sub
Public Sub ModifBdDIN1()
End Sub
Private Sub FrmAcceuil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReDim cddts.Ecrit(3)
ReDim cddts.Oral(2)
ReDim Tindex(3)
cddts.CP = NbID REM NbID qui est initialisé a 1.
Boule = False
nf = FreeFile()
lgcddts = Len(cddts) REM REF au mail de DG : La longeur de cddts n'est pas la même une fois le tableau redimentionné, il faut donc recalculer ladire longueur.
FileOpen(nf, "Candidats.AFF", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, lgcddts) REM FileOpen(...ared, Len(cddts)) ne pourrait-il pas marcher vue que les tableaux ont étés modifés avant ?
FilePut(nf, cddts, NbID)
NbID += 1 REM Il passe a 2 pour la prochaine clef dans le fichier.
End Sub
Private Sub CmdQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuit.Click
Dim quit As Integer
quit = MsgBox("Vous êtes sur le point de quitter Candide Pro 7. Voulez-vous continuer ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Quitter Candide Pro 7")
If quit = vbYes Then
FileClose(nf)
End
End If
End Sub
Private Sub CmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNew.Click
Me.Hide()
Boule = False REM boule change pour nouveau (ou ne change pas la première fois)
FrmNouv.Show()
End Sub
Private Sub CmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEdit.Click
Me.Hide()
Boule = True REM bool change pour edition
FrmEdit.Show()
End Sub
Private Sub CmdBilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBilan.Click
Me.Hide()
FrmBilan.Show()
End Sub
Private Sub CmdAff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAff.Click
FrmAff.Show()
Me.Hide()
End Sub
Private Sub AffHeure(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrHor.Tick
On Error Resume Next REM Saute les erreurs eventuels (MSGBOX par exemple)
Horaire = TimeOfDay()
If Not ((FrmInput1.Visible Or FrmInput2.Visible) And Boule = False) Then
ActiveForm.Text = ActiveForm.Tag & " | " & Me.Horaire REM Sert a mettre l'heure dans les autres fenetres (mais fait des messages d'erreur parfois)
End If
End Sub
End Class

123
FrmAff.Designer.vb generated Normal file
View File

@ -0,0 +1,123 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmAff
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmAff))
Me.CmdAnnul = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.ListBox2 = New System.Windows.Forms.ListBox
Me.ListBox3 = New System.Windows.Forms.ListBox
Me.ListBox4 = New System.Windows.Forms.ListBox
Me.ListBox5 = New System.Windows.Forms.ListBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'CmdAnnul
'
Me.CmdAnnul.Location = New System.Drawing.Point(563, 140)
Me.CmdAnnul.Name = "CmdAnnul"
Me.CmdAnnul.Size = New System.Drawing.Size(75, 23)
Me.CmdAnnul.TabIndex = 20
Me.CmdAnnul.Text = "Fermer"
Me.CmdAnnul.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 124)
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(0)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(800, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(653, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 21
Me.PictureBox1.TabStop = False
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(12, 12)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(120, 95)
Me.ListBox1.TabIndex = 26
'
'ListBox2
'
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.Location = New System.Drawing.Point(138, 12)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.Size = New System.Drawing.Size(120, 95)
Me.ListBox2.TabIndex = 27
'
'ListBox3
'
Me.ListBox3.FormattingEnabled = True
Me.ListBox3.Location = New System.Drawing.Point(264, 12)
Me.ListBox3.Name = "ListBox3"
Me.ListBox3.Size = New System.Drawing.Size(120, 95)
Me.ListBox3.TabIndex = 28
'
'ListBox4
'
Me.ListBox4.FormattingEnabled = True
Me.ListBox4.Location = New System.Drawing.Point(391, 13)
Me.ListBox4.Name = "ListBox4"
Me.ListBox4.Size = New System.Drawing.Size(120, 95)
Me.ListBox4.TabIndex = 29
'
'ListBox5
'
Me.ListBox5.FormattingEnabled = True
Me.ListBox5.Location = New System.Drawing.Point(518, 13)
Me.ListBox5.Name = "ListBox5"
Me.ListBox5.Size = New System.Drawing.Size(120, 95)
Me.ListBox5.TabIndex = 30
'
'FrmAff
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(650, 175)
Me.Controls.Add(Me.ListBox5)
Me.Controls.Add(Me.ListBox4)
Me.Controls.Add(Me.ListBox3)
Me.Controls.Add(Me.ListBox2)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.CmdAnnul)
Me.Controls.Add(Me.PictureBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "FrmAff"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "FrmAff"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents CmdAnnul As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
Friend WithEvents ListBox4 As System.Windows.Forms.ListBox
Friend WithEvents ListBox5 As System.Windows.Forms.ListBox
End Class

184
FrmAff.resx Normal file
View File

@ -0,0 +1,184 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////AICgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKAAgA==
</value>
</data>
</root>

7
FrmAff.vb Normal file
View File

@ -0,0 +1,7 @@
Public Class FrmAff
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
Me.Close()
FrmAccueil.Show()
End Sub
End Class

261
FrmBilan.Designer.vb generated Normal file
View File

@ -0,0 +1,261 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmBilan
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmBilan))
Me.CBNP = New System.Windows.Forms.ComboBox
Me.RBNP = New System.Windows.Forms.RadioButton
Me.TxtId = New System.Windows.Forms.TextBox
Me.RBId = New System.Windows.Forms.RadioButton
Me.Lbl4 = New System.Windows.Forms.Label
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.ListBox2 = New System.Windows.Forms.ListBox
Me.ListBox3 = New System.Windows.Forms.ListBox
Me.ListBox4 = New System.Windows.Forms.ListBox
Me.CmdClose = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.CmdAff = New System.Windows.Forms.Button
Me.GrBInd = New System.Windows.Forms.GroupBox
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.PictureBox2 = New System.Windows.Forms.PictureBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrBInd.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'CBNP
'
Me.CBNP.FormattingEnabled = True
Me.CBNP.Location = New System.Drawing.Point(40, 89)
Me.CBNP.Name = "CBNP"
Me.CBNP.Size = New System.Drawing.Size(225, 21)
Me.CBNP.TabIndex = 38
'
'RBNP
'
Me.RBNP.AutoSize = True
Me.RBNP.BackColor = System.Drawing.SystemColors.Control
Me.RBNP.Location = New System.Drawing.Point(23, 66)
Me.RBNP.Name = "RBNP"
Me.RBNP.Size = New System.Drawing.Size(223, 17)
Me.RBNP.TabIndex = 37
Me.RBNP.TabStop = True
Me.RBNP.Text = "En sélectionnant son nom et son prénom :"
Me.RBNP.UseVisualStyleBackColor = False
'
'TxtId
'
Me.TxtId.Location = New System.Drawing.Point(192, 41)
Me.TxtId.Name = "TxtId"
Me.TxtId.Size = New System.Drawing.Size(73, 20)
Me.TxtId.TabIndex = 36
'
'RBId
'
Me.RBId.AutoSize = True
Me.RBId.BackColor = System.Drawing.SystemColors.Control
Me.RBId.Location = New System.Drawing.Point(23, 42)
Me.RBId.Name = "RBId"
Me.RBId.Size = New System.Drawing.Size(142, 17)
Me.RBId.TabIndex = 35
Me.RBId.TabStop = True
Me.RBId.Text = "En entrant son identifiant"
Me.RBId.UseVisualStyleBackColor = False
'
'Lbl4
'
Me.Lbl4.AutoSize = True
Me.Lbl4.BackColor = System.Drawing.SystemColors.Control
Me.Lbl4.Location = New System.Drawing.Point(6, 16)
Me.Lbl4.Name = "Lbl4"
Me.Lbl4.Size = New System.Drawing.Size(208, 13)
Me.Lbl4.TabIndex = 34
Me.Lbl4.Text = "Comment voulez-vous choisir le candidat ?"
'
'ComboBox1
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(6, 19)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 39
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(6, 46)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(114, 56)
Me.ListBox1.TabIndex = 40
'
'ListBox2
'
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.Location = New System.Drawing.Point(126, 46)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.Size = New System.Drawing.Size(103, 56)
Me.ListBox2.TabIndex = 41
'
'ListBox3
'
Me.ListBox3.FormattingEnabled = True
Me.ListBox3.Location = New System.Drawing.Point(235, 46)
Me.ListBox3.Name = "ListBox3"
Me.ListBox3.Size = New System.Drawing.Size(121, 56)
Me.ListBox3.TabIndex = 42
'
'ListBox4
'
Me.ListBox4.FormattingEnabled = True
Me.ListBox4.Location = New System.Drawing.Point(6, 19)
Me.ListBox4.Name = "ListBox4"
Me.ListBox4.Size = New System.Drawing.Size(350, 69)
Me.ListBox4.TabIndex = 43
'
'CmdClose
'
Me.CmdClose.Location = New System.Drawing.Point(325, 388)
Me.CmdClose.Name = "CmdClose"
Me.CmdClose.Size = New System.Drawing.Size(75, 23)
Me.CmdClose.TabIndex = 44
Me.CmdClose.Text = "Fermer"
Me.CmdClose.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 372)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(0, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 45
Me.PictureBox1.TabStop = False
'
'CmdAff
'
Me.CmdAff.Location = New System.Drawing.Point(298, 60)
Me.CmdAff.Name = "CmdAff"
Me.CmdAff.Size = New System.Drawing.Size(75, 23)
Me.CmdAff.TabIndex = 46
Me.CmdAff.Text = "Afficher"
Me.CmdAff.UseVisualStyleBackColor = True
'
'GrBInd
'
Me.GrBInd.Controls.Add(Me.CmdAff)
Me.GrBInd.Controls.Add(Me.Lbl4)
Me.GrBInd.Controls.Add(Me.RBId)
Me.GrBInd.Controls.Add(Me.TxtId)
Me.GrBInd.Controls.Add(Me.RBNP)
Me.GrBInd.Controls.Add(Me.CBNP)
Me.GrBInd.Location = New System.Drawing.Point(12, 12)
Me.GrBInd.Name = "GrBInd"
Me.GrBInd.Size = New System.Drawing.Size(379, 122)
Me.GrBInd.TabIndex = 47
Me.GrBInd.TabStop = False
Me.GrBInd.Text = "Bilan Individuel : "
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.ListBox1)
Me.GroupBox2.Controls.Add(Me.ComboBox1)
Me.GroupBox2.Controls.Add(Me.ListBox2)
Me.GroupBox2.Controls.Add(Me.ListBox3)
Me.GroupBox2.Location = New System.Drawing.Point(12, 140)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(379, 111)
Me.GroupBox2.TabIndex = 48
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Inscriptions par matière : "
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.ListBox4)
Me.GroupBox1.Location = New System.Drawing.Point(12, 268)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(379, 97)
Me.GroupBox1.TabIndex = 49
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Inscriptions supprimées : "
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(-1, 371)
Me.PictureBox2.MaximumSize = New System.Drawing.Size(495, 2)
Me.PictureBox2.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(413, 2)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 50
Me.PictureBox2.TabStop = False
'
'FrmBilan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(412, 423)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.CmdClose)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.GrBInd)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "FrmBilan"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "FrmBilan"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrBInd.ResumeLayout(False)
Me.GrBInd.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents CBNP As System.Windows.Forms.ComboBox
Friend WithEvents RBNP As System.Windows.Forms.RadioButton
Friend WithEvents TxtId As System.Windows.Forms.TextBox
Friend WithEvents RBId As System.Windows.Forms.RadioButton
Friend WithEvents Lbl4 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
Friend WithEvents ListBox4 As System.Windows.Forms.ListBox
Friend WithEvents CmdClose As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents CmdAff As System.Windows.Forms.Button
Friend WithEvents GrBInd As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
End Class

247
FrmBilan.resx Normal file
View File

@ -0,0 +1,247 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////AACgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKAAAA==
</value>
</data>
<data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////AACgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKAAAA==
</value>
</data>
</root>

7
FrmBilan.vb Normal file
View File

@ -0,0 +1,7 @@
Public Class FrmBilan
Private Sub CmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClose.Click
Me.Close()
FrmAccueil.Show()
End Sub
End Class

231
FrmEdit.Designer.vb generated Normal file
View File

@ -0,0 +1,231 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmEdit
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmEdit))
Me.LblNext = New System.Windows.Forms.Label
Me.CmdNext = New System.Windows.Forms.Button
Me.CmdAnnul = New System.Windows.Forms.Button
Me.CBNP = New System.Windows.Forms.ComboBox
Me.RBNP = New System.Windows.Forms.RadioButton
Me.TxtId = New System.Windows.Forms.TextBox
Me.RBId = New System.Windows.Forms.RadioButton
Me.Lbl2 = New System.Windows.Forms.Label
Me.Lbl1 = New System.Windows.Forms.Label
Me.LblTitre = New System.Windows.Forms.Label
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.PictureBox2 = New System.Windows.Forms.PictureBox
Me.PictureBox3 = New System.Windows.Forms.PictureBox
Me.FrmInput1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FrmInput1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'LblNext
'
Me.LblNext.Location = New System.Drawing.Point(10, 293)
Me.LblNext.Name = "LblNext"
Me.LblNext.Size = New System.Drawing.Size(278, 18)
Me.LblNext.TabIndex = 22
Me.LblNext.Text = "Cliquez sur Suivant pour contiuer."
Me.LblNext.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'CmdNext
'
Me.CmdNext.Location = New System.Drawing.Point(303, 288)
Me.CmdNext.Name = "CmdNext"
Me.CmdNext.Size = New System.Drawing.Size(75, 23)
Me.CmdNext.TabIndex = 20
Me.CmdNext.Text = "&Suivant >"
Me.CmdNext.UseVisualStyleBackColor = True
'
'CmdAnnul
'
Me.CmdAnnul.Location = New System.Drawing.Point(395, 288)
Me.CmdAnnul.Name = "CmdAnnul"
Me.CmdAnnul.Size = New System.Drawing.Size(75, 23)
Me.CmdAnnul.TabIndex = 21
Me.CmdAnnul.Text = "Annuler"
Me.CmdAnnul.UseVisualStyleBackColor = True
'
'CBNP
'
Me.CBNP.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CBNP.FormattingEnabled = True
Me.CBNP.Location = New System.Drawing.Point(218, 228)
Me.CBNP.Name = "CBNP"
Me.CBNP.Size = New System.Drawing.Size(219, 21)
Me.CBNP.TabIndex = 33
'
'RBNP
'
Me.RBNP.AutoSize = True
Me.RBNP.BackColor = System.Drawing.Color.White
Me.RBNP.Location = New System.Drawing.Point(188, 205)
Me.RBNP.Name = "RBNP"
Me.RBNP.Size = New System.Drawing.Size(226, 17)
Me.RBNP.TabIndex = 32
Me.RBNP.TabStop = True
Me.RBNP.Text = "En sélectionnant son nom et son prénom :"
Me.RBNP.UseVisualStyleBackColor = False
'
'TxtId
'
Me.TxtId.Location = New System.Drawing.Point(370, 177)
Me.TxtId.Name = "TxtId"
Me.TxtId.Size = New System.Drawing.Size(89, 21)
Me.TxtId.TabIndex = 31
'
'RBId
'
Me.RBId.AutoSize = True
Me.RBId.BackColor = System.Drawing.Color.White
Me.RBId.Location = New System.Drawing.Point(188, 178)
Me.RBId.Name = "RBId"
Me.RBId.Size = New System.Drawing.Size(154, 17)
Me.RBId.TabIndex = 30
Me.RBId.TabStop = True
Me.RBId.Text = "En entrant son identifiant :"
Me.RBId.UseVisualStyleBackColor = False
'
'Lbl2
'
Me.Lbl2.AutoSize = True
Me.Lbl2.BackColor = System.Drawing.Color.White
Me.Lbl2.Location = New System.Drawing.Point(176, 152)
Me.Lbl2.Name = "Lbl2"
Me.Lbl2.Size = New System.Drawing.Size(209, 13)
Me.Lbl2.TabIndex = 29
Me.Lbl2.Text = "Comment voulez-vous choisir le candidat ?"
'
'Lbl1
'
Me.Lbl1.AutoSize = True
Me.Lbl1.BackColor = System.Drawing.Color.White
Me.Lbl1.Location = New System.Drawing.Point(176, 67)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(175, 39)
Me.Lbl1.TabIndex = 26
Me.Lbl1.Text = "Cet Assistant vous permet :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "• De modifier une candidature," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "• De supprim" & _
"er une candidature."
'
'LblTitre
'
Me.LblTitre.AutoEllipsis = True
Me.LblTitre.BackColor = System.Drawing.Color.White
Me.LblTitre.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblTitre.Location = New System.Drawing.Point(172, 10)
Me.LblTitre.Name = "LblTitre"
Me.LblTitre.Size = New System.Drawing.Size(298, 57)
Me.LblTitre.TabIndex = 25
Me.LblTitre.Text = "Bienvenue dans l'Assistant édition de candidature"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 272)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(495, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(481, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 23
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(159, 1)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(322, 271)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 24
Me.PictureBox2.TabStop = False
'
'PictureBox3
'
Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
Me.PictureBox3.Location = New System.Drawing.Point(0, 0)
Me.PictureBox3.Margin = New System.Windows.Forms.Padding(1, 1, 0, 0)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(159, 272)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox3.TabIndex = 34
Me.PictureBox3.TabStop = False
'
'FrmInput1BindingSource
'
Me.FrmInput1BindingSource.DataSource = GetType(Projet_VS_100_Priet_Sabourin.FrmInput1)
'
'FrmEdit
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(482, 323)
Me.ControlBox = False
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.CBNP)
Me.Controls.Add(Me.RBNP)
Me.Controls.Add(Me.TxtId)
Me.Controls.Add(Me.RBId)
Me.Controls.Add(Me.Lbl2)
Me.Controls.Add(Me.Lbl1)
Me.Controls.Add(Me.LblTitre)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.LblNext)
Me.Controls.Add(Me.CmdNext)
Me.Controls.Add(Me.CmdAnnul)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(488, 355)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(488, 355)
Me.Name = "FrmEdit"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "Assistant édition de candidature (1/4)"
Me.Text = "Assistant édition de candidature (1/4)"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FrmInput1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents LblNext As System.Windows.Forms.Label
Friend WithEvents CmdNext As System.Windows.Forms.Button
Friend WithEvents CmdAnnul As System.Windows.Forms.Button
Friend WithEvents CBNP As System.Windows.Forms.ComboBox
Friend WithEvents RBNP As System.Windows.Forms.RadioButton
Friend WithEvents TxtId As System.Windows.Forms.TextBox
Friend WithEvents RBId As System.Windows.Forms.RadioButton
Friend WithEvents Lbl2 As System.Windows.Forms.Label
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents LblTitre As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents FrmInput1BindingSource As System.Windows.Forms.BindingSource
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
End Class

1359
FrmEdit.resx Normal file

File diff suppressed because it is too large Load Diff

60
FrmEdit.vb Normal file
View File

@ -0,0 +1,60 @@
Public Class FrmEdit
Public SelectedID As Integer
Private Sub FrmEdit1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RBId.Checked = True REM "Check par défaut" au chargement.
'SelectedID = FrmAccueil.IDlu
Call FrmAccueil.LectBdD() REM Contruit la liste des candidats NON supprimés a partir du tableau d'index.
End Sub
REM Fonctionne comme ca par defaut.
'Private Sub RBId_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RBId.CheckedChanged, RBNP.CheckedChanged
' If RBId.Checked Then
' RBNP.Checked = False
' End If
' If RBNP.Checked Then
' RBId.Checked = False
' End If
'End Sub
Private Sub CBNP_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBNP.GotFocus
RBNP.Checked = True REM Permet de "checker" le ratiobox correspondant au focus (On veut choisir son nom dans une GRrB).
End Sub
Private Sub TxtId_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtId.GotFocus
RBId.Checked = True REM Permet de "checker" le ratiobox correspondant au focus (On veut enter l'ID du candidat).
End Sub
Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
If RBId.Checked Then
SelectedID = TxtId.Text
Else
SelectedID = FrmAccueil.Tindex(CBNP.SelectedIndex).no
End If
FileGet(FrmAccueil.nf, FrmAccueil.cddts, SelectedID)
Me.Hide() REM On utilise hide pour naviger entre les feuilles sans devoir modifier la BdD, le bouton "MaJ" a la dernière feuille (Input3) enregistrera tout les modifications.
FrmInput1.Show()
End Sub
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
Me.Close() REM On close pour réinitialiser. Peut-être on programmera une fonction pour reset plus vite, mais on remplacera par des hides. Plus dangereux a programmer.
FrmAccueil.Show()
End Sub
Private Sub TxtId_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtId.KeyPress
If e.KeyChar = vbBack Then
Exit Sub
End If
If e.KeyChar < "0" Or e.KeyChar > "9" Then REM On peut utiliser aussi Not IsNumeric(<Objet>)
e.KeyChar = Chr(0)
End If
End Sub
End Class

383
FrmInput1.Designer.vb generated Normal file
View File

@ -0,0 +1,383 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmInput1
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput1))
Me.LblCaR = New System.Windows.Forms.Label
Me.TxtVille = New System.Windows.Forms.TextBox
Me.TxtCP = New System.Windows.Forms.TextBox
Me.TxtAdrss = New System.Windows.Forms.TextBox
Me.TxtPrenom = New System.Windows.Forms.TextBox
Me.TxtNom = New System.Windows.Forms.TextBox
Me.LblAge = New System.Windows.Forms.Label
Me.LblVille = New System.Windows.Forms.Label
Me.LblCP = New System.Windows.Forms.Label
Me.LblAdrss = New System.Windows.Forms.Label
Me.LblPrenom = New System.Windows.Forms.Label
Me.LblNom = New System.Windows.Forms.Label
Me.Lbl1 = New System.Windows.Forms.Label
Me.CmdNext = New System.Windows.Forms.Button
Me.CmdAnnul = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.CmdPre = New System.Windows.Forms.Button
Me.TmrCaR = New System.Windows.Forms.Timer(Me.components)
Me.Tlt1 = New System.Windows.Forms.ToolTip(Me.components)
Me.SBHAge = New System.Windows.Forms.HScrollBar
Me.TxtMois = New System.Windows.Forms.TextBox
Me.TxtAns = New System.Windows.Forms.TextBox
Me.LblAns = New System.Windows.Forms.Label
Me.LblID = New System.Windows.Forms.Label
Me.LblINFmois = New System.Windows.Forms.Label
Me.LblINFAnn = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'LblCaR
'
Me.LblCaR.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LblCaR.Location = New System.Drawing.Point(10, 293)
Me.LblCaR.Name = "LblCaR"
Me.LblCaR.Size = New System.Drawing.Size(279, 16)
Me.LblCaR.TabIndex = 10
Me.LblCaR.Text = "Vous disposez d'une minute restante."
Me.LblCaR.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TxtVille
'
Me.TxtVille.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtVille.Location = New System.Drawing.Point(169, 143)
Me.TxtVille.MaxLength = 15
Me.TxtVille.Name = "TxtVille"
Me.TxtVille.Size = New System.Drawing.Size(108, 21)
Me.TxtVille.TabIndex = 4
Me.Tlt1.SetToolTip(Me.TxtVille, "15 caractères alphabétiques au maximum.")
'
'TxtCP
'
Me.TxtCP.Location = New System.Drawing.Point(169, 116)
Me.TxtCP.MaxLength = 5
Me.TxtCP.Name = "TxtCP"
Me.TxtCP.Size = New System.Drawing.Size(69, 21)
Me.TxtCP.TabIndex = 3
Me.Tlt1.SetToolTip(Me.TxtCP, "5 caractères numériques.")
'
'TxtAdrss
'
Me.TxtAdrss.Location = New System.Drawing.Point(169, 89)
Me.TxtAdrss.MaxLength = 10
Me.TxtAdrss.Name = "TxtAdrss"
Me.TxtAdrss.Size = New System.Drawing.Size(215, 21)
Me.TxtAdrss.TabIndex = 2
Me.Tlt1.SetToolTip(Me.TxtAdrss, "10 caractères alphabétiques au maximum. Facultatif.")
'
'TxtPrenom
'
Me.TxtPrenom.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtPrenom.Location = New System.Drawing.Point(169, 62)
Me.TxtPrenom.MaxLength = 6
Me.TxtPrenom.Name = "TxtPrenom"
Me.TxtPrenom.Size = New System.Drawing.Size(108, 21)
Me.TxtPrenom.TabIndex = 1
Me.Tlt1.SetToolTip(Me.TxtPrenom, "6 caractères alphabétiques au maximum.")
'
'TxtNom
'
Me.TxtNom.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtNom.Location = New System.Drawing.Point(169, 35)
Me.TxtNom.MaxLength = 8
Me.TxtNom.Name = "TxtNom"
Me.TxtNom.Size = New System.Drawing.Size(108, 21)
Me.TxtNom.TabIndex = 0
Me.Tlt1.SetToolTip(Me.TxtNom, "8 caractères alphabétiques au maximum.")
'
'LblAge
'
Me.LblAge.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.LblAge.AutoSize = True
Me.LblAge.Location = New System.Drawing.Point(130, 172)
Me.LblAge.Name = "LblAge"
Me.LblAge.Size = New System.Drawing.Size(33, 13)
Me.LblAge.TabIndex = 19
Me.LblAge.Text = "Age :"
Me.LblAge.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblVille
'
Me.LblVille.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.LblVille.AutoSize = True
Me.LblVille.Location = New System.Drawing.Point(131, 146)
Me.LblVille.Name = "LblVille"
Me.LblVille.Size = New System.Drawing.Size(32, 13)
Me.LblVille.TabIndex = 18
Me.LblVille.Text = "Ville :"
Me.LblVille.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblCP
'
Me.LblCP.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.LblCP.AutoSize = True
Me.LblCP.Location = New System.Drawing.Point(92, 119)
Me.LblCP.Name = "LblCP"
Me.LblCP.Size = New System.Drawing.Size(71, 13)
Me.LblCP.TabIndex = 17
Me.LblCP.Text = "Code Postal :"
Me.LblCP.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblAdrss
'
Me.LblAdrss.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.LblAdrss.AutoSize = True
Me.LblAdrss.Location = New System.Drawing.Point(110, 92)
Me.LblAdrss.Name = "LblAdrss"
Me.LblAdrss.Size = New System.Drawing.Size(53, 13)
Me.LblAdrss.TabIndex = 16
Me.LblAdrss.Text = "Adresse :"
Me.LblAdrss.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblPrenom
'
Me.LblPrenom.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.LblPrenom.AutoSize = True
Me.LblPrenom.Location = New System.Drawing.Point(113, 65)
Me.LblPrenom.Name = "LblPrenom"
Me.LblPrenom.Size = New System.Drawing.Size(50, 13)
Me.LblPrenom.TabIndex = 15
Me.LblPrenom.Text = "Prénom :"
Me.LblPrenom.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblNom
'
Me.LblNom.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.LblNom.AutoSize = True
Me.LblNom.Location = New System.Drawing.Point(128, 38)
Me.LblNom.Name = "LblNom"
Me.LblNom.Size = New System.Drawing.Size(35, 13)
Me.LblNom.TabIndex = 14
Me.LblNom.Text = "Nom :"
Me.LblNom.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Lbl1
'
Me.Lbl1.AutoSize = True
Me.Lbl1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Lbl1.Location = New System.Drawing.Point(89, 8)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(174, 13)
Me.Lbl1.TabIndex = 12
Me.Lbl1.Text = "Renseignez votre identité ici :"
'
'CmdNext
'
Me.CmdNext.Location = New System.Drawing.Point(303, 288)
Me.CmdNext.Name = "CmdNext"
Me.CmdNext.Size = New System.Drawing.Size(75, 23)
Me.CmdNext.TabIndex = 8
Me.CmdNext.Text = "&Suivant >"
Me.CmdNext.UseVisualStyleBackColor = True
'
'CmdAnnul
'
Me.CmdAnnul.Location = New System.Drawing.Point(395, 288)
Me.CmdAnnul.Name = "CmdAnnul"
Me.CmdAnnul.Size = New System.Drawing.Size(75, 23)
Me.CmdAnnul.TabIndex = 9
Me.CmdAnnul.Text = "Annuler"
Me.CmdAnnul.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 272)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(495, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(481, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 19
Me.PictureBox1.TabStop = False
'
'CmdPre
'
Me.CmdPre.Location = New System.Drawing.Point(224, 288)
Me.CmdPre.Name = "CmdPre"
Me.CmdPre.Size = New System.Drawing.Size(75, 23)
Me.CmdPre.TabIndex = 11
Me.CmdPre.Text = "< &Précédent"
Me.CmdPre.UseVisualStyleBackColor = True
Me.CmdPre.Visible = False
'
'TmrCaR
'
Me.TmrCaR.Interval = 1000
'
'SBHAge
'
Me.SBHAge.LargeChange = 60
Me.SBHAge.Location = New System.Drawing.Point(169, 193)
Me.SBHAge.Maximum = 660
Me.SBHAge.Minimum = 300
Me.SBHAge.Name = "SBHAge"
Me.SBHAge.Size = New System.Drawing.Size(215, 22)
Me.SBHAge.SmallChange = 12
Me.SBHAge.TabIndex = 7
Me.Tlt1.SetToolTip(Me.SBHAge, "L'age est comprit entre 25 et 55 ans.")
Me.SBHAge.Value = 480
'
'TxtMois
'
Me.TxtMois.Location = New System.Drawing.Point(210, 169)
Me.TxtMois.Name = "TxtMois"
Me.TxtMois.Size = New System.Drawing.Size(35, 21)
Me.TxtMois.TabIndex = 5
Me.TxtMois.Text = "1"
Me.Tlt1.SetToolTip(Me.TxtMois, "Mois de naissance en chiffre.")
'
'TxtAns
'
Me.TxtAns.Location = New System.Drawing.Point(328, 169)
Me.TxtAns.Name = "TxtAns"
Me.TxtAns.Size = New System.Drawing.Size(56, 21)
Me.TxtAns.TabIndex = 6
Me.TxtAns.Text = "0"
Me.Tlt1.SetToolTip(Me.TxtAns, "Année de naissance en chiffre.")
'
'LblAns
'
Me.LblAns.AutoSize = True
Me.LblAns.Location = New System.Drawing.Point(390, 172)
Me.LblAns.Name = "LblAns"
Me.LblAns.Size = New System.Drawing.Size(0, 13)
Me.LblAns.TabIndex = 20
'
'LblID
'
Me.LblID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LblID.Location = New System.Drawing.Point(314, 8)
Me.LblID.Name = "LblID"
Me.LblID.Size = New System.Drawing.Size(156, 13)
Me.LblID.TabIndex = 13
Me.LblID.Text = "ID"
Me.LblID.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.LblID.Visible = False
'
'LblINFmois
'
Me.LblINFmois.AutoSize = True
Me.LblINFmois.Location = New System.Drawing.Point(169, 172)
Me.LblINFmois.Name = "LblINFmois"
Me.LblINFmois.Size = New System.Drawing.Size(35, 13)
Me.LblINFmois.TabIndex = 21
Me.LblINFmois.Text = "Mois :"
'
'LblINFAnn
'
Me.LblINFAnn.AutoSize = True
Me.LblINFAnn.Location = New System.Drawing.Point(272, 172)
Me.LblINFAnn.Name = "LblINFAnn"
Me.LblINFAnn.Size = New System.Drawing.Size(50, 13)
Me.LblINFAnn.TabIndex = 22
Me.LblINFAnn.Text = "Années :"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 256)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(426, 13)
Me.Label1.TabIndex = 23
Me.Label1.Text = "Remarque : L'age peut-être rapidement séléctionné avec l'assenseur présent ci des" & _
"sus." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'FrmInput1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(482, 323)
Me.ControlBox = False
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.LblID)
Me.Controls.Add(Me.SBHAge)
Me.Controls.Add(Me.LblCaR)
Me.Controls.Add(Me.LblAns)
Me.Controls.Add(Me.LblINFAnn)
Me.Controls.Add(Me.TxtAns)
Me.Controls.Add(Me.LblINFmois)
Me.Controls.Add(Me.TxtMois)
Me.Controls.Add(Me.TxtVille)
Me.Controls.Add(Me.TxtCP)
Me.Controls.Add(Me.TxtAdrss)
Me.Controls.Add(Me.TxtPrenom)
Me.Controls.Add(Me.TxtNom)
Me.Controls.Add(Me.LblAge)
Me.Controls.Add(Me.LblVille)
Me.Controls.Add(Me.LblCP)
Me.Controls.Add(Me.LblAdrss)
Me.Controls.Add(Me.LblPrenom)
Me.Controls.Add(Me.LblNom)
Me.Controls.Add(Me.Lbl1)
Me.Controls.Add(Me.CmdNext)
Me.Controls.Add(Me.CmdAnnul)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.CmdPre)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(488, 355)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(488, 355)
Me.Name = "FrmInput1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "Assistant inscription (2/4)"
Me.Text = "Assistant création de candidature (2/4)"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents LblCaR As System.Windows.Forms.Label
Friend WithEvents TxtVille As System.Windows.Forms.TextBox
Friend WithEvents TxtCP As System.Windows.Forms.TextBox
Friend WithEvents TxtAdrss As System.Windows.Forms.TextBox
Friend WithEvents TxtPrenom As System.Windows.Forms.TextBox
Friend WithEvents TxtNom As System.Windows.Forms.TextBox
Friend WithEvents LblAge As System.Windows.Forms.Label
Friend WithEvents LblVille As System.Windows.Forms.Label
Friend WithEvents LblCP As System.Windows.Forms.Label
Friend WithEvents LblAdrss As System.Windows.Forms.Label
Friend WithEvents LblPrenom As System.Windows.Forms.Label
Friend WithEvents LblNom As System.Windows.Forms.Label
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents CmdNext As System.Windows.Forms.Button
Friend WithEvents CmdAnnul As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents CmdPre As System.Windows.Forms.Button
Friend WithEvents TmrCaR As System.Windows.Forms.Timer
Friend WithEvents Tlt1 As System.Windows.Forms.ToolTip
Friend WithEvents SBHAge As System.Windows.Forms.HScrollBar
Friend WithEvents LblAns As System.Windows.Forms.Label
Friend WithEvents LblID As System.Windows.Forms.Label
Friend WithEvents TxtMois As System.Windows.Forms.TextBox
Friend WithEvents TxtAns As System.Windows.Forms.TextBox
Friend WithEvents LblINFmois As System.Windows.Forms.Label
Friend WithEvents LblINFAnn As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

199
FrmInput1.resx Normal file
View File

@ -0,0 +1,199 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Tlt1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////wCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKD/AA==
</value>
</data>
<metadata name="TmrCaR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>87, 17</value>
</metadata>
<metadata name="Tlt1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>57</value>
</metadata>
</root>

210
FrmInput1.vb Normal file
View File

@ -0,0 +1,210 @@
Public Class FrmInput1
Public nais As Integer REM en mois. ANS*12 + MOIS
Dim auj As Integer REM en mois. Today.Year*12 + Today.Month
Dim agem As Integer REM en mois, différence entre auj et nais
Dim agea As Integer REM en années (entière), calculé a partir de agem
Dim agemin, agemax As Integer REM Intervalle de l'age, calculé a partir d'aujourd'hui
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
TmrCaR.Stop() REM arret du timer
FrmEdit.Close() REM ferme toutes les pages précédentes
FrmNouv.Close()
Me.Close() REM ferme la page courante
FrmAccueil.Show() REM retour a la page d'accueil (show)
End Sub
Private Sub TmrCaR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrCaR.Tick
LblCaR.Tag -= 1 REM décremente le temps
Me.Text = Me.Tag & " | " & FrmAccueil.Horaire & " | Temps restant : " & LblCaR.Tag REM Indicateur compte a rebourt pour la barre de titre
REM condition d'affichage divers :
If LblCaR.Tag <= 1 Then
LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " seconde."
End If
If LblCaR.Tag < 60 And LblCaR.Tag <> 1 Then
LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " secondes."
End If
If LblCaR.Tag <= 10 Then
LblCaR.ForeColor = Color.Red
End If
If LblCaR.Tag <= 0 Then REM temps écoulé
TmrCaR.Stop() REM arret du timer
LblCaR.Text = "Le temps impartie est écoulé."
MsgBox("Le temps impartie est écoulé. L'inscription a échoué.", MsgBoxStyle.Exclamation, "Echec")
FrmEdit.Close() REM ferme les feuilles précédement fermés
FrmNouv.Close() REM : Est-il necessaire de tester la feuille a fermer en fonction de l'état de boule ?
Me.Close() REM ferme la feuille pour la réinitialiser
FrmAccueil.Show() REM retour a l'accueil
End If
End Sub
Private Sub FrmIsc2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LblCaR.Tag = 60 REM initialisation du timer
auj = Today.Year * 12 + Today.Month
agemin = auj - (56 * 12) REM Permet aux personnes ayant 55 ans et quelques mois de se présenter. 56 ans pile est une valeur exclue : Df=[25, 56[
agemax = auj - (25 * 12)
SBHAge.Maximum = agemax + (SBHAge.LargeChange - SBHAge.SmallChange) + 6 REM Le +12 intervient car la Scrollbar va de 0 à 99.
SBHAge.Minimum = agemin + 12
If FrmAccueil.Boule = True Then REM true == édition
Me.Tag = "Assistant édition de candidature (2/4)"
Me.Text = "Assistant édition de candidature (2/4)"
Lbl1.Text = "Editez l'identité du canditat ici :"
TxtNom.Text = FrmAccueil.cddts.Nom
TxtPrenom.Text = FrmAccueil.cddts.Prenom
TxtAdrss.Text = FrmAccueil.cddts.Adresse
TxtCP.Text = FrmAccueil.cddts.CP
TxtVille.Text = FrmAccueil.cddts.Ville
TxtMois.Text = FrmAccueil.cddts.Age Mod 12
TxtAns.Text = FrmAccueil.cddts.Age \ 12
LblAns.Text = conv(FrmAccueil.cddts.Age, 0)
SBHAge.Value = FrmAccueil.cddts.Age
CmdPre.Visible = True
LblCaR.Visible = False
LblID.Visible = True
LblID.Text = "Id : " & FrmEdit.SelectedID REM met d'ID en cas d'édition.
End If
If FrmAccueil.Boule = False Then REM false == inscription
Me.Tag = "Assistant création de candidature (2/4)"
TmrCaR.Start() REM lancement du timer
End If
End Sub
Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
Dim OK As Boolean = True
Dim ChkNom, Chkprenom, ChkCP, ChkVille, ChkMois, chkAge As Boolean
ChkNom = False
Chkprenom = False
ChkCP = False
ChkVille = False
ChkMois = False
chkAge = False
CmdNext.Tag = ""
If TxtNom.Text = "" Then
ChkNom = True
OK = False
LblNom.Tag = "• La saisie du nom n'a pas été effectuée."
LblNom.ForeColor = Color.Red
End If
If TxtPrenom.Text = "" Then
Chkprenom = True
OK = False
LblPrenom.Tag = "• La saisie du prénom n'a pas été effectuée."
LblPrenom.ForeColor = Color.Red
End If
If TxtCP.TextLength < 5 Then
ChkCP = True
OK = False
LblCP.Tag = "• La saisie du code postal est vide ou incomplète."
LblCP.ForeColor = Color.Red
End If
If TxtVille.Text = "" Then
ChkVille = True
OK = False
LblVille.Tag = "• La saisie de la ville n'a pas été effectuée."
LblVille.ForeColor = Color.Red
End If
If (nais >= agemax Or nais < agemin) And ChkMois = False Then
chkAge = True
OK = False
LblAns.Tag = "• L'age n'est pas compris entre 25 et 55 ans."
LblAns.ForeColor = Color.Red
LblAge.ForeColor = Color.Red
End If
If OK = False Then
'Call erreur(ChkNom, LblNom.Text)
'Call erreur(Chkprenom, LblPrenom.Tag)
'etc
If ChkNom Then CmdNext.Tag = LblNom.Tag & vbNewLine
If Chkprenom Then CmdNext.Tag = CmdNext.Tag & LblPrenom.Tag & vbNewLine
If ChkCP Then CmdNext.Tag = CmdNext.Tag & LblCP.Tag & vbNewLine
If ChkVille Then CmdNext.Tag = CmdNext.Tag & LblVille.Tag & vbNewLine
If ChkMois Then CmdNext.Tag = CmdNext.Tag & TxtMois.Tag & vbNewLine
If chkAge Then CmdNext.Tag = CmdNext.Tag & LblAns.Tag & vbNewLine
MsgBox("Les erreurs suivantes se sont produites : " & vbNewLine & vbNewLine & CmdNext.Tag, MsgBoxStyle.Exclamation, "Erreur")
End If
If OK Then
TmrCaR.Stop() REM fin du timer
Me.Hide() REM cache feuille courante
FrmInput2.Show() REM montre feuille ajout
End If
End Sub
'Function erreur(ByVal chk As Boolean, ByRef mess As String)
' If chk Then CmdNext.Tag = CmdNext.Tag & mess & vbNewLine
'End Function
Private Sub CmdPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPre.Click
REM retour au fichier précédant
Me.Hide()
FrmEdit.Show()
End Sub
Private Sub TxtCP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCP.KeyPress, TxtMois.KeyPress, TxtAns.KeyPress
If e.KeyChar = vbBack Then
Exit Sub
End If
If e.KeyChar < "0" Or e.KeyChar > "9" Then REM On peut utiliser aussi Not IsNumeric(<Objet>)
e.KeyChar = Chr(0)
End If
End Sub
'Private Sub SBHAge_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles SBHAge.Scroll
' agea = SBHAge.Value / 12
' TxtAns.Text = agea
' Call conv(Today.Month, TxtAns.Text)
' TxtMois.Text = Today.Month
' LblAge.ForeColor = Color.Black
' LblAnnee.ForeColor = Color.Black
'End Sub
Private Sub SBHAge_ValueChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles SBHAge.ValueChanged
agea = SBHAge.Value / 12
TxtAns.Text = agea
Call conv(Today.Month, TxtAns.Text)
TxtMois.Text = Today.Month
LblAge.ForeColor = Color.Black
LblAns.ForeColor = Color.Black
End Sub
Private Sub TxtMois_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtMois.LostFocus, TxtAns.LostFocus
If TxtMois.Text > 12 Then TxtMois.Text = 12
If TxtMois.Text < 1 Then TxtMois.Text = 1
Call conv(TxtMois.Text, TxtAns.Text)
If nais >= agemin And nais <= agemax Then
LblAge.ForeColor = Color.Black
LblAns.ForeColor = Color.Black
End If
End Sub
'Private Sub Txtans_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtAns.LostFocus
' If nais >= SBHAge.Minimum And nais <= SBHAge.Maximum Then
' SBHAge.Value = nais
' End If
'End Sub
Function conv(ByRef mois As Integer, ByRef annee As Integer) As Integer
nais = annee * 12 + mois
agem = auj - nais
agea = agem \ 12
LblAns.Text = agea & " ans"
End Function
Private Sub txtNom_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtNom.LostFocus
If TxtNom.Text <> "" Then LblNom.ForeColor = Color.Black
End Sub
Private Sub txtPrenom_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtPrenom.LostFocus
If TxtPrenom.Text <> "" Then LblPrenom.ForeColor = Color.Black
End Sub
Private Sub txtCP_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCP.LostFocus
If TxtCP.TextLength = 5 Then LblCP.ForeColor = Color.Black
End Sub
Private Sub txtVille_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtVille.LostFocus
If TxtVille.Text <> "" Then LblVille.ForeColor = Color.Black
End Sub
End Class

598
FrmInput2.Designer.vb generated Normal file
View File

@ -0,0 +1,598 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmInput2
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput2))
Me.CboRegion = New System.Windows.Forms.ComboBox
Me.PnlFac = New System.Windows.Forms.Panel
Me.LblFac2 = New System.Windows.Forms.Label
Me.CboFac = New System.Windows.Forms.ComboBox
Me.RBno = New System.Windows.Forms.RadioButton
Me.RBYes = New System.Windows.Forms.RadioButton
Me.LblFac1 = New System.Windows.Forms.Label
Me.LblCaR = New System.Windows.Forms.Label
Me.LblRegion = New System.Windows.Forms.Label
Me.GBOral = New System.Windows.Forms.GroupBox
Me.CheckBox21 = New System.Windows.Forms.CheckBox
Me.CheckBox20 = New System.Windows.Forms.CheckBox
Me.CheckBox19 = New System.Windows.Forms.CheckBox
Me.CheckBox18 = New System.Windows.Forms.CheckBox
Me.CheckBox17 = New System.Windows.Forms.CheckBox
Me.CheckBox16 = New System.Windows.Forms.CheckBox
Me.CheckBox15 = New System.Windows.Forms.CheckBox
Me.CheckBox14 = New System.Windows.Forms.CheckBox
Me.CheckBox13 = New System.Windows.Forms.CheckBox
Me.GBEcrit = New System.Windows.Forms.GroupBox
Me.CheckBox12 = New System.Windows.Forms.CheckBox
Me.CheckBox11 = New System.Windows.Forms.CheckBox
Me.CheckBox10 = New System.Windows.Forms.CheckBox
Me.CheckBox9 = New System.Windows.Forms.CheckBox
Me.CheckBox8 = New System.Windows.Forms.CheckBox
Me.CheckBox7 = New System.Windows.Forms.CheckBox
Me.CheckBox6 = New System.Windows.Forms.CheckBox
Me.CheckBox5 = New System.Windows.Forms.CheckBox
Me.CheckBox4 = New System.Windows.Forms.CheckBox
Me.CheckBox3 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.Lbl1 = New System.Windows.Forms.Label
Me.LblNP = New System.Windows.Forms.Label
Me.CmdNext = New System.Windows.Forms.Button
Me.CmdAnnul = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.CmdPre = New System.Windows.Forms.Button
Me.TmrCaR = New System.Windows.Forms.Timer(Me.components)
Me.Tlt1 = New System.Windows.Forms.ToolTip(Me.components)
Me.LblNbEcr = New System.Windows.Forms.Label
Me.LblNbOral = New System.Windows.Forms.Label
Me.PnlFac.SuspendLayout()
Me.GBOral.SuspendLayout()
Me.GBEcrit.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'CboRegion
'
Me.CboRegion.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CboRegion.FormattingEnabled = True
Me.CboRegion.Location = New System.Drawing.Point(181, 27)
Me.CboRegion.Name = "CboRegion"
Me.CboRegion.Size = New System.Drawing.Size(104, 21)
Me.CboRegion.TabIndex = 0
Me.Tlt1.SetToolTip(Me.CboRegion, "Sélectionnez la région de passage de vos examens.")
'
'PnlFac
'
Me.PnlFac.Controls.Add(Me.LblFac2)
Me.PnlFac.Controls.Add(Me.CboFac)
Me.PnlFac.Controls.Add(Me.RBno)
Me.PnlFac.Controls.Add(Me.RBYes)
Me.PnlFac.Controls.Add(Me.LblFac1)
Me.PnlFac.Location = New System.Drawing.Point(1, 217)
Me.PnlFac.Name = "PnlFac"
Me.PnlFac.Size = New System.Drawing.Size(469, 50)
Me.PnlFac.TabIndex = 3
'
'LblFac2
'
Me.LblFac2.AutoSize = True
Me.LblFac2.Location = New System.Drawing.Point(20, 25)
Me.LblFac2.Name = "LblFac2"
Me.LblFac2.Size = New System.Drawing.Size(46, 13)
Me.LblFac2.TabIndex = 3
Me.LblFac2.Text = "Laquel ?"
'
'CboFac
'
Me.CboFac.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CboFac.FormattingEnabled = True
Me.CboFac.Location = New System.Drawing.Point(72, 22)
Me.CboFac.Name = "CboFac"
Me.CboFac.Size = New System.Drawing.Size(179, 21)
Me.CboFac.TabIndex = 2
'
'RBno
'
Me.RBno.AutoSize = True
Me.RBno.Location = New System.Drawing.Point(260, 3)
Me.RBno.Name = "RBno"
Me.RBno.Size = New System.Drawing.Size(44, 17)
Me.RBno.TabIndex = 0
Me.RBno.TabStop = True
Me.RBno.Text = "Non"
Me.RBno.UseVisualStyleBackColor = True
'
'RBYes
'
Me.RBYes.AutoSize = True
Me.RBYes.Location = New System.Drawing.Point(310, 3)
Me.RBYes.Name = "RBYes"
Me.RBYes.Size = New System.Drawing.Size(41, 17)
Me.RBYes.TabIndex = 1
Me.RBYes.TabStop = True
Me.RBYes.Text = "Oui"
Me.RBYes.UseVisualStyleBackColor = True
'
'LblFac1
'
Me.LblFac1.AutoSize = True
Me.LblFac1.Location = New System.Drawing.Point(9, 5)
Me.LblFac1.Name = "LblFac1"
Me.LblFac1.Size = New System.Drawing.Size(242, 13)
Me.LblFac1.TabIndex = 4
Me.LblFac1.Text = "Voulez-vous participer à un épreuve facultative ?"
'
'LblCaR
'
Me.LblCaR.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LblCaR.Location = New System.Drawing.Point(12, 293)
Me.LblCaR.Name = "LblCaR"
Me.LblCaR.Size = New System.Drawing.Size(273, 18)
Me.LblCaR.TabIndex = 7
Me.LblCaR.Text = "Vous disposez d'une minute et 15 secondes restantes."
Me.LblCaR.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblRegion
'
Me.LblRegion.AutoSize = True
Me.LblRegion.Location = New System.Drawing.Point(9, 30)
Me.LblRegion.Name = "LblRegion"
Me.LblRegion.Size = New System.Drawing.Size(167, 13)
Me.LblRegion.TabIndex = 10
Me.LblRegion.Text = "Choisissez la région de l'examen :"
Me.Tlt1.SetToolTip(Me.LblRegion, "Sélectionnez la région de passage de vos examens.")
'
'GBOral
'
Me.GBOral.Controls.Add(Me.CheckBox21)
Me.GBOral.Controls.Add(Me.CheckBox20)
Me.GBOral.Controls.Add(Me.CheckBox19)
Me.GBOral.Controls.Add(Me.CheckBox18)
Me.GBOral.Controls.Add(Me.CheckBox17)
Me.GBOral.Controls.Add(Me.CheckBox16)
Me.GBOral.Controls.Add(Me.CheckBox15)
Me.GBOral.Controls.Add(Me.CheckBox14)
Me.GBOral.Controls.Add(Me.CheckBox13)
Me.GBOral.Location = New System.Drawing.Point(245, 52)
Me.GBOral.Name = "GBOral"
Me.GBOral.Size = New System.Drawing.Size(225, 146)
Me.GBOral.TabIndex = 2
Me.GBOral.TabStop = False
Me.GBOral.Text = "Passage à l'oral : "
Me.Tlt1.SetToolTip(Me.GBOral, "Choisissez 3 épreuves a l'oral au maximum.")
'
'CheckBox21
'
Me.CheckBox21.AutoSize = True
Me.CheckBox21.Location = New System.Drawing.Point(8, 19)
Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox21.Name = "CheckBox21"
Me.CheckBox21.Size = New System.Drawing.Size(85, 17)
Me.CheckBox21.TabIndex = 13
Me.CheckBox21.Text = "CheckBox21"
Me.CheckBox21.UseVisualStyleBackColor = True
'
'CheckBox20
'
Me.CheckBox20.AutoSize = True
Me.CheckBox20.Location = New System.Drawing.Point(8, 40)
Me.CheckBox20.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox20.Name = "CheckBox20"
Me.CheckBox20.Size = New System.Drawing.Size(85, 17)
Me.CheckBox20.TabIndex = 14
Me.CheckBox20.Text = "CheckBox20"
Me.CheckBox20.UseVisualStyleBackColor = True
'
'CheckBox19
'
Me.CheckBox19.AutoSize = True
Me.CheckBox19.Location = New System.Drawing.Point(8, 61)
Me.CheckBox19.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox19.Name = "CheckBox19"
Me.CheckBox19.Size = New System.Drawing.Size(85, 17)
Me.CheckBox19.TabIndex = 15
Me.CheckBox19.Text = "CheckBox19"
Me.CheckBox19.UseVisualStyleBackColor = True
'
'CheckBox18
'
Me.CheckBox18.AutoSize = True
Me.CheckBox18.Location = New System.Drawing.Point(8, 82)
Me.CheckBox18.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox18.Name = "CheckBox18"
Me.CheckBox18.Size = New System.Drawing.Size(85, 17)
Me.CheckBox18.TabIndex = 16
Me.CheckBox18.Text = "CheckBox18"
Me.CheckBox18.UseVisualStyleBackColor = True
'
'CheckBox17
'
Me.CheckBox17.AutoSize = True
Me.CheckBox17.Location = New System.Drawing.Point(8, 103)
Me.CheckBox17.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox17.Name = "CheckBox17"
Me.CheckBox17.Size = New System.Drawing.Size(85, 17)
Me.CheckBox17.TabIndex = 17
Me.CheckBox17.Text = "CheckBox17"
Me.CheckBox17.UseVisualStyleBackColor = True
'
'CheckBox16
'
Me.CheckBox16.AutoSize = True
Me.CheckBox16.Location = New System.Drawing.Point(8, 124)
Me.CheckBox16.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox16.Name = "CheckBox16"
Me.CheckBox16.Size = New System.Drawing.Size(85, 17)
Me.CheckBox16.TabIndex = 18
Me.CheckBox16.Text = "CheckBox16"
Me.CheckBox16.UseVisualStyleBackColor = True
'
'CheckBox15
'
Me.CheckBox15.AutoSize = True
Me.CheckBox15.Location = New System.Drawing.Point(122, 19)
Me.CheckBox15.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox15.Name = "CheckBox15"
Me.CheckBox15.Size = New System.Drawing.Size(85, 17)
Me.CheckBox15.TabIndex = 19
Me.CheckBox15.Text = "CheckBox15"
Me.CheckBox15.UseVisualStyleBackColor = True
'
'CheckBox14
'
Me.CheckBox14.AutoSize = True
Me.CheckBox14.Location = New System.Drawing.Point(122, 40)
Me.CheckBox14.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox14.Name = "CheckBox14"
Me.CheckBox14.Size = New System.Drawing.Size(85, 17)
Me.CheckBox14.TabIndex = 20
Me.CheckBox14.Text = "CheckBox14"
Me.CheckBox14.UseVisualStyleBackColor = True
'
'CheckBox13
'
Me.CheckBox13.AutoSize = True
Me.CheckBox13.Location = New System.Drawing.Point(122, 61)
Me.CheckBox13.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox13.Name = "CheckBox13"
Me.CheckBox13.Size = New System.Drawing.Size(85, 17)
Me.CheckBox13.TabIndex = 21
Me.CheckBox13.Text = "CheckBox13"
Me.CheckBox13.UseVisualStyleBackColor = True
'
'GBEcrit
'
Me.GBEcrit.Controls.Add(Me.CheckBox12)
Me.GBEcrit.Controls.Add(Me.CheckBox11)
Me.GBEcrit.Controls.Add(Me.CheckBox10)
Me.GBEcrit.Controls.Add(Me.CheckBox9)
Me.GBEcrit.Controls.Add(Me.CheckBox8)
Me.GBEcrit.Controls.Add(Me.CheckBox7)
Me.GBEcrit.Controls.Add(Me.CheckBox6)
Me.GBEcrit.Controls.Add(Me.CheckBox5)
Me.GBEcrit.Controls.Add(Me.CheckBox4)
Me.GBEcrit.Controls.Add(Me.CheckBox3)
Me.GBEcrit.Controls.Add(Me.CheckBox2)
Me.GBEcrit.Controls.Add(Me.CheckBox1)
Me.GBEcrit.Location = New System.Drawing.Point(10, 52)
Me.GBEcrit.Name = "GBEcrit"
Me.GBEcrit.Size = New System.Drawing.Size(225, 146)
Me.GBEcrit.TabIndex = 1
Me.GBEcrit.TabStop = False
Me.GBEcrit.Text = "Passages à l'écrit : "
Me.Tlt1.SetToolTip(Me.GBEcrit, "Choisissez 4 épreuves a l'écrit au maximum.")
'
'CheckBox12
'
Me.CheckBox12.AutoSize = True
Me.CheckBox12.Location = New System.Drawing.Point(8, 19)
Me.CheckBox12.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox12.Name = "CheckBox12"
Me.CheckBox12.Size = New System.Drawing.Size(85, 17)
Me.CheckBox12.TabIndex = 1
Me.CheckBox12.Text = "CheckBox12"
Me.CheckBox12.UseVisualStyleBackColor = True
'
'CheckBox11
'
Me.CheckBox11.AutoSize = True
Me.CheckBox11.Location = New System.Drawing.Point(8, 40)
Me.CheckBox11.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox11.Name = "CheckBox11"
Me.CheckBox11.Size = New System.Drawing.Size(85, 17)
Me.CheckBox11.TabIndex = 2
Me.CheckBox11.Text = "CheckBox11"
Me.CheckBox11.UseVisualStyleBackColor = True
'
'CheckBox10
'
Me.CheckBox10.AutoSize = True
Me.CheckBox10.Location = New System.Drawing.Point(8, 61)
Me.CheckBox10.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox10.Name = "CheckBox10"
Me.CheckBox10.Size = New System.Drawing.Size(85, 17)
Me.CheckBox10.TabIndex = 3
Me.CheckBox10.Text = "CheckBox10"
Me.CheckBox10.UseVisualStyleBackColor = True
'
'CheckBox9
'
Me.CheckBox9.AutoSize = True
Me.CheckBox9.Location = New System.Drawing.Point(8, 82)
Me.CheckBox9.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox9.Name = "CheckBox9"
Me.CheckBox9.Size = New System.Drawing.Size(79, 17)
Me.CheckBox9.TabIndex = 4
Me.CheckBox9.Text = "CheckBox9"
Me.CheckBox9.UseVisualStyleBackColor = True
'
'CheckBox8
'
Me.CheckBox8.AutoSize = True
Me.CheckBox8.Location = New System.Drawing.Point(8, 103)
Me.CheckBox8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox8.Name = "CheckBox8"
Me.CheckBox8.Size = New System.Drawing.Size(79, 17)
Me.CheckBox8.TabIndex = 5
Me.CheckBox8.Text = "CheckBox8"
Me.CheckBox8.UseVisualStyleBackColor = True
'
'CheckBox7
'
Me.CheckBox7.AutoSize = True
Me.CheckBox7.Location = New System.Drawing.Point(8, 124)
Me.CheckBox7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox7.Name = "CheckBox7"
Me.CheckBox7.Size = New System.Drawing.Size(79, 17)
Me.CheckBox7.TabIndex = 6
Me.CheckBox7.Text = "CheckBox7"
Me.CheckBox7.UseVisualStyleBackColor = True
'
'CheckBox6
'
Me.CheckBox6.AutoSize = True
Me.CheckBox6.Location = New System.Drawing.Point(120, 19)
Me.CheckBox6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.Size = New System.Drawing.Size(79, 17)
Me.CheckBox6.TabIndex = 7
Me.CheckBox6.Text = "CheckBox6"
Me.CheckBox6.UseVisualStyleBackColor = True
'
'CheckBox5
'
Me.CheckBox5.AutoSize = True
Me.CheckBox5.Location = New System.Drawing.Point(120, 40)
Me.CheckBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 8
Me.CheckBox5.Text = "CheckBox5"
Me.CheckBox5.UseVisualStyleBackColor = True
'
'CheckBox4
'
Me.CheckBox4.AutoSize = True
Me.CheckBox4.Location = New System.Drawing.Point(120, 61)
Me.CheckBox4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(79, 17)
Me.CheckBox4.TabIndex = 9
Me.CheckBox4.Text = "CheckBox4"
Me.CheckBox4.UseVisualStyleBackColor = True
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Location = New System.Drawing.Point(120, 82)
Me.CheckBox3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(79, 17)
Me.CheckBox3.TabIndex = 10
Me.CheckBox3.Text = "CheckBox3"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(120, 103)
Me.CheckBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(79, 17)
Me.CheckBox2.TabIndex = 11
Me.CheckBox2.Text = "CheckBox2"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(120, 124)
Me.CheckBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(79, 17)
Me.CheckBox1.TabIndex = 12
Me.CheckBox1.Text = "CheckBox1"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Lbl1
'
Me.Lbl1.AutoSize = True
Me.Lbl1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Lbl1.Location = New System.Drawing.Point(7, 9)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(298, 13)
Me.Lbl1.TabIndex = 9
Me.Lbl1.Text = "Choisissez les examens que vous souhaitez passer :"
'
'LblNP
'
Me.LblNP.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LblNP.Location = New System.Drawing.Point(314, 11)
Me.LblNP.Name = "LblNP"
Me.LblNP.Size = New System.Drawing.Size(156, 13)
Me.LblNP.TabIndex = 8
Me.LblNP.Text = "ID - Nom Prenom"
Me.LblNP.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'CmdNext
'
Me.CmdNext.Location = New System.Drawing.Point(303, 288)
Me.CmdNext.Name = "CmdNext"
Me.CmdNext.Size = New System.Drawing.Size(75, 23)
Me.CmdNext.TabIndex = 4
Me.CmdNext.Text = "&Suivant >"
Me.CmdNext.UseVisualStyleBackColor = True
'
'CmdAnnul
'
Me.CmdAnnul.Location = New System.Drawing.Point(395, 288)
Me.CmdAnnul.Name = "CmdAnnul"
Me.CmdAnnul.Size = New System.Drawing.Size(75, 23)
Me.CmdAnnul.TabIndex = 5
Me.CmdAnnul.Text = "Annuler"
Me.CmdAnnul.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(1, 272)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(495, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(481, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 40
Me.PictureBox1.TabStop = False
'
'CmdPre
'
Me.CmdPre.Location = New System.Drawing.Point(224, 288)
Me.CmdPre.Name = "CmdPre"
Me.CmdPre.Size = New System.Drawing.Size(75, 23)
Me.CmdPre.TabIndex = 6
Me.CmdPre.Text = "< &Précédent"
Me.CmdPre.UseVisualStyleBackColor = True
Me.CmdPre.Visible = False
'
'TmrCaR
'
Me.TmrCaR.Interval = 1000
'
'LblNbEcr
'
Me.LblNbEcr.Location = New System.Drawing.Point(10, 201)
Me.LblNbEcr.Name = "LblNbEcr"
Me.LblNbEcr.Size = New System.Drawing.Size(225, 13)
Me.LblNbEcr.TabIndex = 11
Me.LblNbEcr.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'LblNbOral
'
Me.LblNbOral.Location = New System.Drawing.Point(245, 201)
Me.LblNbOral.Name = "LblNbOral"
Me.LblNbOral.Size = New System.Drawing.Size(225, 13)
Me.LblNbOral.TabIndex = 12
Me.LblNbOral.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'FrmInput2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(482, 323)
Me.ControlBox = False
Me.Controls.Add(Me.LblNbOral)
Me.Controls.Add(Me.LblNbEcr)
Me.Controls.Add(Me.CboRegion)
Me.Controls.Add(Me.PnlFac)
Me.Controls.Add(Me.LblCaR)
Me.Controls.Add(Me.LblRegion)
Me.Controls.Add(Me.GBOral)
Me.Controls.Add(Me.GBEcrit)
Me.Controls.Add(Me.Lbl1)
Me.Controls.Add(Me.CmdNext)
Me.Controls.Add(Me.CmdAnnul)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.CmdPre)
Me.Controls.Add(Me.LblNP)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(488, 355)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(488, 355)
Me.Name = "FrmInput2"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "Assistant inscription (3/4)"
Me.Text = "Assistant création de candidature (3/4)"
Me.PnlFac.ResumeLayout(False)
Me.PnlFac.PerformLayout()
Me.GBOral.ResumeLayout(False)
Me.GBOral.PerformLayout()
Me.GBEcrit.ResumeLayout(False)
Me.GBEcrit.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CboRegion As System.Windows.Forms.ComboBox
Friend WithEvents PnlFac As System.Windows.Forms.Panel
Friend WithEvents RBno As System.Windows.Forms.RadioButton
Friend WithEvents RBYes As System.Windows.Forms.RadioButton
Friend WithEvents LblFac1 As System.Windows.Forms.Label
Friend WithEvents LblCaR As System.Windows.Forms.Label
Friend WithEvents LblRegion As System.Windows.Forms.Label
Friend WithEvents GBOral As System.Windows.Forms.GroupBox
Friend WithEvents GBEcrit As System.Windows.Forms.GroupBox
Friend WithEvents CheckBox12 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox11 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox10 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox9 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents LblNP As System.Windows.Forms.Label
Friend WithEvents CmdNext As System.Windows.Forms.Button
Friend WithEvents CmdAnnul As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents CmdPre As System.Windows.Forms.Button
Friend WithEvents TmrCaR As System.Windows.Forms.Timer
Friend WithEvents Tlt1 As System.Windows.Forms.ToolTip
Friend WithEvents LblNbEcr As System.Windows.Forms.Label
Friend WithEvents LblNbOral As System.Windows.Forms.Label
Friend WithEvents CboFac As System.Windows.Forms.ComboBox
Friend WithEvents LblFac2 As System.Windows.Forms.Label
Friend WithEvents CheckBox21 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox20 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox19 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox18 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox17 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox16 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox15 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox14 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox13 As System.Windows.Forms.CheckBox
End Class

193
FrmInput2.resx Normal file
View File

@ -0,0 +1,193 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Tlt1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>108, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////AACgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKAAAA==
</value>
</data>
<metadata name="TmrCaR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

246
FrmInput2.vb Normal file
View File

@ -0,0 +1,246 @@
Public Class FrmInput2
REM variables public a la feuille (classe)
Dim tme() As String = {"Allemand", "Anglais", "Astronomie", "Biologie", "Espagnol", "Français", "Géographie", "Géologie", "Histoire", "Mathématique", "Philosophie", "Russe"}
Dim tmo() As String = {"Allemand", "Anglais", "Astronomie", "Espagnol", "Histoire", "Russe", "Lancer", "Natation", "Saut"}
Dim treg() As String = {"Auvergne", "Bordelais", "Bretagne", "Morvan", "Nord", "Normandie", "Paris", "Poitou"}
Dim ctro As Integer
Dim ctre As Integer
Private Sub FrmIsc3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer REM pour les for
Dim CB As CheckBox REM pour les for checkbox
i = 0
For Each CB In GBEcrit.Controls REM Charge l'écrit
CB.Text = tme(i)
i += 1
Next
i = 0
For Each CB In GBOral.Controls REM Charge l'oral
CB.Text = tmo(i)
i += 1
Next
i = 0
For i = 0 To UBound(treg)
CboRegion.Items.Add(treg(i))
Next
LblNP.Text = FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text REM Reprend le nom et le prénom depuis la feuille input1.
If FrmAccueil.Boule = True Then REM edition
Me.Tag = "Assistant édition de candidature (3/4)"
CboRegion.SelectedIndex = FrmAccueil.cddts.Region
For Each CB In GBEcrit.Controls
For i = 0 To UBound(FrmAccueil.cddts.Ecrit)
If FrmAccueil.cddts.Ecrit(i) = CB.Text Then CB.Checked = True
Next i
Next
For Each CB In GBOral.Controls
For i = 0 To UBound(FrmAccueil.cddts.Oral)
If FrmAccueil.cddts.Oral(i) = CB.Text Then CB.Checked = True
Next
Next
If FrmAccueil.cddts.Fac = Nothing Then
RBno.Checked = True
Else
RBYes.Checked = True
CboFac.SelectedIndex = FrmAccueil.cddts.Fac
End If
CmdPre.Visible = True
LblCaR.Visible = False
LblNP.Text = FrmEdit.SelectedID & " - " & FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text REM Ajoute l'identifiant en cas de modifications.
End If
If FrmAccueil.Boule = False Then REM inscription
Me.Tag = "Assistant création de candidature (3/4)"
LblCaR.Tag = 75
RBno.Checked = True
PnlFac.Visible = False
RBno.Checked = True
CboRegion.SelectedIndex = 0 REM met premier en tête...
TmrCaR.Start() REM timer start
End If
End Sub
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
TmrCaR.Stop() REM fin timmer
FrmEdit.Close() REM ferme toutes les fenètres...
FrmNouv.Close()
FrmInput1.Close()
Me.Close()
FrmAccueil.Show() REM retour a l'accueil
End Sub
Private Sub TmrCaR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrCaR.Tick
LblCaR.Tag -= 1
If LblCaR.Tag >= 60 Then
Me.Text = Me.Tag & " | " & FrmAccueil.Horaire & " | Temps restant : 1:" & Format(LblCaR.Tag - 60, "00")
End If
If LblCaR.Tag < 60 And LblCaR.Tag > 0 Then
Me.Text = Me.Tag & " | " & FrmAccueil.Horaire & " | Temps restant : " & LblCaR.Tag
End If
If LblCaR.Tag = 0 Then
Me.Text = Me.Tag & " | " & FrmAccueil.Horaire
End If
If LblCaR.Tag <= 1 Then
LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " seconde restante."
End If
If LblCaR.Tag > 61 Then
LblCaR.Text = "Vous disposez d'une minute et " & LblCaR.Tag - 60 & " secondes restantes."
End If
If LblCaR.Tag = 61 Then
LblCaR.Text = "Vous disposez d'une minute et " & LblCaR.Tag - 60 & " seconde restante."
End If
If LblCaR.Tag <= 60 And LblCaR.Tag <> 1 Then
LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " secondes restantes."
End If
If LblCaR.Tag <= 10 Then
LblCaR.ForeColor = Color.Red
End If
If LblCaR.Tag <= 0 Then
TmrCaR.Stop()
LblCaR.Text = "Le temps impartie est écoulée."
MsgBox("Le temps impartie est écoulé. L'inscription a échoué.", MsgBoxStyle.Exclamation, "Echec")
FrmEdit.Close()
FrmInput1.Close()
FrmNouv.Close()
Me.Close()
FrmAccueil.Show()
End If
End Sub
Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
'Dim OK As Boolean
If ctre + ctro = 7 Then
TmrCaR.Stop()
Me.Hide()
FrmInput3.Show()
Else : MsgBox("Vous devez choisir 4 examens écrits et 3 examens oraux. (Vous pouvez dès lors choisir des examens facultatifs.", MsgBoxStyle.Exclamation, "Erreur")
End If
End Sub
Private Sub CmdDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim quit As Integer
quit = MsgBox("Vous êtes sur le point de supprimer une candidature. Voulez-vous continuer ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Suppression d'un candidat")
If quit = 6 Then
MsgBox("Le Candidat a bien été supprimé.", MsgBoxStyle.Information, "Information")
FrmEdit.Close()
FrmNouv.Close()
FrmInput1.Close()
Me.Close()
FrmAccueil.Show()
End If
End Sub
Private Sub CmdPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPre.Click
REM retour au précédant
Me.Hide()
FrmInput1.Show()
End Sub
REM Dans le panel pour les examens facultatifs
Private Sub RB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBno.CheckedChanged, RBYes.CheckedChanged
If RBno.Checked Then
RBYes.Checked = False
LblFac2.Visible = False
CboFac.Visible = False
GBEcrit.Enabled = True
GBOral.Enabled = True
End If
If RBYes.Checked Then
RBno.Checked = False
LblFac2.Visible = True
CboFac.Items.Clear() REM Efface la liste des exams facultatifs
Dim Chb As CheckBox
For Each Chb In GBEcrit.Controls REM Construit la liste des exams facultatifs. Il est plus intelligent de le mettre plutôt que dans la fonction DeclencheurdeFacultatif car il est recalculé après avoir choisit la possibilité des examens, et non a chaque clique des cases. De plus, ca pose un problème de reset.
If Chb.Checked = False Then CboFac.Items.Add(Chb.Text)
Next
For Each Chb In GBOral.Controls
If Chb.Checked = False Then CboFac.Items.Add(Chb.Text)
Next
CboFac.Visible = True
CboFac.SelectedIndex = 0 REM met premier en tête...
GBEcrit.Enabled = False
GBOral.Enabled = False
End If
End Sub
Private Sub SecureEcritMAX4(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox7.CheckedChanged, CheckBox8.CheckedChanged, CheckBox9.CheckedChanged, CheckBox10.CheckedChanged, CheckBox11.CheckedChanged, CheckBox12.CheckedChanged
If sender.checkstate = CheckState.Checked Then
ctre += 1
If ctre > 4 Then
MsgBox("Vous ne pouvez pas choisir plus de 4 examens ecrits.", MsgBoxStyle.Exclamation, "Erreur")
sender.checkstate = CheckState.Unchecked
End If
Else
ctre -= 1
End If
DeclencheurDeFacultatif() REM Appelle la fonction qui déclenche l'affichage du choix de l'exam facultatif
REM Regule l'affichage du nombre d'examen choisit.
If ctre = 0 Then
LblNbEcr.Text = ""
ElseIf ctre = 1 Then
LblNbEcr.Text = ctre & " examen écrit choisit sur 4."
Else
LblNbEcr.Text = ctre & " examens écrits choisit sur 4."
End If
End Sub
Private Sub SecureOralMAX3(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged, CheckBox14.CheckedChanged, CheckBox15.CheckedChanged, CheckBox16.CheckedChanged, CheckBox17.CheckedChanged, CheckBox18.CheckedChanged, CheckBox19.CheckedChanged, CheckBox20.CheckedChanged, CheckBox21.CheckedChanged
If sender.checkstate = CheckState.Checked Then
ctro += 1
If ctro > 3 Then
MsgBox("Vous ne pouvez pas choisir plus de 3 examens oraux.", MsgBoxStyle.Exclamation, "Erreur")
sender.checkstate = CheckState.Unchecked
End If
Else
ctro -= 1
End If
DeclencheurDeFacultatif()
If ctro = 0 Then
LblNbOral.Text = ""
ElseIf ctro = 1 Then
LblNbOral.Text = ctro & " examen oral choisit sur 3."
Else
LblNbOral.Text = ctro & " examens oraux choisit sur 3."
End If
End Sub
Private Sub ChageAllemand(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged, CheckBox21.CheckedChanged
CheckBox21.Enabled = Not CheckBox12.Checked REM Active/Désactive la ChB de l'oral en fonction de l'état de la ChB de l'écrit.
CheckBox12.Enabled = Not CheckBox21.Checked REM Idem mais en fonction de l'oral
End Sub
Private Sub ChangeAnglais(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged, CheckBox20.CheckedChanged
CheckBox20.Enabled = Not CheckBox11.Checked REM Active/Désactive la ChB de l'oral en fonction de l'état de la ChB de l'écrit.
CheckBox11.Enabled = Not CheckBox20.Checked REM Idem mais en fonction de l'oral
End Sub
Private Sub ChangeAstronomie(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged, CheckBox19.CheckedChanged
CheckBox19.Enabled = Not CheckBox10.Checked REM Active/Désactive la ChB de l'oral en fonction de l'état de la ChB de l'écrit.
CheckBox10.Enabled = Not CheckBox19.Checked REM Idem mais en fonction de l'oral
End Sub
Private Sub ChangeEspagnole(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged, CheckBox18.CheckedChanged
CheckBox18.Enabled = Not CheckBox8.Checked REM Active/Désactive la ChB de l'oral en fonction de l'état de la ChB de l'écrit.
CheckBox8.Enabled = Not CheckBox18.Checked REM Idem mais en fonction de l'oral
End Sub
Private Sub ChangeHistoire(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged, CheckBox17.CheckedChanged
CheckBox17.Enabled = Not CheckBox4.Checked REM Active/Désactive la ChB de l'oral en fonction de l'état de la ChB de l'écrit.
CheckBox4.Enabled = Not CheckBox17.Checked REM Idem mais en fonction de l'oral
End Sub
Private Sub ChangeRusse(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox16.CheckedChanged
CheckBox16.Enabled = Not CheckBox1.Checked REM Active/Désactive la ChB de l'oral en fonction de l'état de la ChB de l'écrit.
CheckBox1.Enabled = Not CheckBox16.Checked REM Idem mais en fonction de l'oral
End Sub
Private Sub DeclencheurDeFacultatif()
If ctre + ctro = 7 Then REM Affiche les facultatifs après avoir coché tout les examens obligatoire
PnlFac.Visible = True
Else REM Cache tout.
PnlFac.Visible = False
End If
End Sub
End Class

228
FrmInput3.Designer.vb generated Normal file
View File

@ -0,0 +1,228 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmInput3
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput3))
Me.CmdPre = New System.Windows.Forms.Button
Me.Lbl2 = New System.Windows.Forms.Label
Me.Lbl1 = New System.Windows.Forms.Label
Me.LblAge = New System.Windows.Forms.Label
Me.LblCPV = New System.Windows.Forms.Label
Me.LblAdrss = New System.Windows.Forms.Label
Me.LblNP = New System.Windows.Forms.Label
Me.LblTitre = New System.Windows.Forms.Label
Me.CmdNext = New System.Windows.Forms.Button
Me.CmdAnnul = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.LBexam = New System.Windows.Forms.ListBox
Me.CmdDelet = New System.Windows.Forms.Button
Me.LblID = New System.Windows.Forms.Label
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'CmdPre
'
Me.CmdPre.Location = New System.Drawing.Point(208, 288)
Me.CmdPre.Name = "CmdPre"
Me.CmdPre.Size = New System.Drawing.Size(75, 23)
Me.CmdPre.TabIndex = 2
Me.CmdPre.Text = "< &Précédent"
Me.CmdPre.UseVisualStyleBackColor = True
Me.CmdPre.Visible = False
'
'Lbl2
'
Me.Lbl2.AutoSize = True
Me.Lbl2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Lbl2.Location = New System.Drawing.Point(246, 65)
Me.Lbl2.Name = "Lbl2"
Me.Lbl2.Size = New System.Drawing.Size(57, 13)
Me.Lbl2.TabIndex = 11
Me.Lbl2.Text = "Examens :"
'
'Lbl1
'
Me.Lbl1.AutoSize = True
Me.Lbl1.Location = New System.Drawing.Point(27, 65)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(57, 13)
Me.Lbl1.TabIndex = 5
Me.Lbl1.Text = "Candidat :"
'
'LblAge
'
Me.LblAge.AutoSize = True
Me.LblAge.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblAge.Location = New System.Drawing.Point(41, 160)
Me.LblAge.Name = "LblAge"
Me.LblAge.Size = New System.Drawing.Size(142, 14)
Me.LblAge.TabIndex = 9
Me.LblAge.Text = "Date de naissance (Age)"
'
'LblCPV
'
Me.LblCPV.AutoSize = True
Me.LblCPV.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblCPV.Location = New System.Drawing.Point(41, 140)
Me.LblCPV.Name = "LblCPV"
Me.LblCPV.Size = New System.Drawing.Size(100, 14)
Me.LblCPV.TabIndex = 8
Me.LblCPV.Text = "Code postal, Ville"
'
'LblAdrss
'
Me.LblAdrss.AutoSize = True
Me.LblAdrss.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblAdrss.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.LblAdrss.Location = New System.Drawing.Point(41, 120)
Me.LblAdrss.Name = "LblAdrss"
Me.LblAdrss.Size = New System.Drawing.Size(50, 14)
Me.LblAdrss.TabIndex = 7
Me.LblAdrss.Text = "Adresse"
'
'LblNP
'
Me.LblNP.AutoSize = True
Me.LblNP.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblNP.Location = New System.Drawing.Point(41, 100)
Me.LblNP.Name = "LblNP"
Me.LblNP.Size = New System.Drawing.Size(82, 14)
Me.LblNP.TabIndex = 6
Me.LblNP.Text = "Nom, Prénom"
'
'LblTitre
'
Me.LblTitre.AutoSize = True
Me.LblTitre.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
Me.LblTitre.Location = New System.Drawing.Point(10, 11)
Me.LblTitre.Name = "LblTitre"
Me.LblTitre.Size = New System.Drawing.Size(153, 13)
Me.LblTitre.TabIndex = 4
Me.LblTitre.Text = "Vérifiez vos informations :"
'
'CmdNext
'
Me.CmdNext.Location = New System.Drawing.Point(289, 288)
Me.CmdNext.Name = "CmdNext"
Me.CmdNext.Size = New System.Drawing.Size(89, 23)
Me.CmdNext.TabIndex = 0
Me.CmdNext.Text = "Enregi&strer"
Me.CmdNext.UseVisualStyleBackColor = True
'
'CmdAnnul
'
Me.CmdAnnul.Location = New System.Drawing.Point(395, 288)
Me.CmdAnnul.Name = "CmdAnnul"
Me.CmdAnnul.Size = New System.Drawing.Size(75, 23)
Me.CmdAnnul.TabIndex = 1
Me.CmdAnnul.Text = "Annuler"
Me.CmdAnnul.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 272)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(495, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(481, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 39
Me.PictureBox1.TabStop = False
'
'LBexam
'
Me.LBexam.FormattingEnabled = True
Me.LBexam.Location = New System.Drawing.Point(263, 81)
Me.LBexam.Name = "LBexam"
Me.LBexam.Size = New System.Drawing.Size(148, 108)
Me.LBexam.TabIndex = 12
'
'CmdDelet
'
Me.CmdDelet.Location = New System.Drawing.Point(12, 288)
Me.CmdDelet.Name = "CmdDelet"
Me.CmdDelet.Size = New System.Drawing.Size(121, 23)
Me.CmdDelet.TabIndex = 3
Me.CmdDelet.Text = "Supprimer le candidat"
Me.CmdDelet.UseVisualStyleBackColor = True
Me.CmdDelet.Visible = False
'
'LblID
'
Me.LblID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LblID.Location = New System.Drawing.Point(314, 11)
Me.LblID.Name = "LblID"
Me.LblID.Size = New System.Drawing.Size(156, 13)
Me.LblID.TabIndex = 10
Me.LblID.Text = "ID"
Me.LblID.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.LblID.Visible = False
'
'FrmInput3
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(482, 323)
Me.ControlBox = False
Me.Controls.Add(Me.LblID)
Me.Controls.Add(Me.CmdDelet)
Me.Controls.Add(Me.LBexam)
Me.Controls.Add(Me.CmdPre)
Me.Controls.Add(Me.Lbl2)
Me.Controls.Add(Me.Lbl1)
Me.Controls.Add(Me.LblAge)
Me.Controls.Add(Me.LblCPV)
Me.Controls.Add(Me.LblAdrss)
Me.Controls.Add(Me.LblNP)
Me.Controls.Add(Me.LblTitre)
Me.Controls.Add(Me.CmdNext)
Me.Controls.Add(Me.CmdAnnul)
Me.Controls.Add(Me.PictureBox1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(488, 355)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(488, 355)
Me.Name = "FrmInput3"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "Assistant inscription (4/4)"
Me.Text = "Assistant création de candidature (4/4)"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CmdPre As System.Windows.Forms.Button
Friend WithEvents Lbl2 As System.Windows.Forms.Label
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents LblAge As System.Windows.Forms.Label
Friend WithEvents LblCPV As System.Windows.Forms.Label
Friend WithEvents LblAdrss As System.Windows.Forms.Label
Friend WithEvents LblNP As System.Windows.Forms.Label
Friend WithEvents LblTitre As System.Windows.Forms.Label
Friend WithEvents CmdNext As System.Windows.Forms.Button
Friend WithEvents CmdAnnul As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents LBexam As System.Windows.Forms.ListBox
Friend WithEvents CmdDelet As System.Windows.Forms.Button
Friend WithEvents LblID As System.Windows.Forms.Label
End Class

187
FrmInput3.resx Normal file
View File

@ -0,0 +1,187 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////gD+goKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCAPw==
</value>
</data>
<metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

92
FrmInput3.vb Normal file
View File

@ -0,0 +1,92 @@
Public Class FrmInput3
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
Me.Close()
FrmNouv.Close()
FrmEdit.Close()
FrmInput1.Close()
FrmInput2.Close()
FrmAccueil.Show()
End Sub
Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
If FrmAccueil.Boule = False Then
Call FrmAccueil.InscBdD()
MsgBox("Votre inscription a été effectuée avec succès." & vbCrLf & "Votre numéro de candidature est : " & FrmAccueil.NbID - 1 & vbCrLf & "Gardez le précieusement.", MsgBoxStyle.Information, "Enregistrement réussi.")
FrmInput1.Close()
FrmInput2.Close()
Me.Close()
FrmAccueil.Show() REM retour a l'accueil
End If
If FrmAccueil.Boule = True Then
Call FrmAccueil.MaJBdD()
MsgBox("Votre inscription a été mise à jours avec succès.", MsgBoxStyle.Information, "Mise à jour réussie.")
FrmEdit.Close()
FrmInput1.Close()
FrmInput2.Close()
Me.Close()
FrmAccueil.Show() REM retour a l'accueil
End If
End Sub
Private Sub CmdPre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPre.Click
REM retour au précédant
Me.Hide()
FrmInput2.Show()
End Sub
Private Sub FrmInput3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If FrmAccueil.Boule = False Then
Me.Tag = "Assistant création de candidature (4/4)"
End If
If FrmAccueil.Boule = True Then
Me.Tag = Me.Text = "Assistant édition de candidature (4/4)"
CmdNext.Text = "&Mettre à jour"
CmdDelet.Visible = True
CmdPre.Visible = True
LblID.Visible = False
LblID.Text = "Id : " & FrmEdit.SelectedID REM met d'ID en cas d'édition.
End If
End Sub
Private Sub FrmInput3_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
REM Reprend et met en forme des informations depuis la feuille input1.
LblNP.Text = FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text
LblAdrss.Text = FrmInput1.TxtAdrss.Text
LblCPV.Text = FrmInput1.TxtCP.Text & ", " & FrmInput1.TxtVille.Text
LblAge.Text = FrmInput1.SBHAge.Value & " ans"
REM Reprend et met en forme tous les choix des épreuves depuis la feuille input2.
Dim CB As CheckBox
LBexam.Items.Clear()
LBexam.Items.Add("Ecrits :")
For Each CB In FrmInput2.GBEcrit.Controls
If CB.Checked Then
LBexam.Items.Add(" " & CB.Text)
End If
Next
LBexam.Items.Add(" ")
LBexam.Items.Add("Oraux :")
For Each CB In FrmInput2.GBOral.Controls
If CB.Checked Then
LBexam.Items.Add(" " & CB.Text)
End If
Next
LBexam.Items.Add(" ")
If FrmInput2.RBYes.Checked Then
LBexam.Items.Add("Examen facultatif :")
LBexam.Items.Add(" " & FrmInput2.CboFac.SelectedItem)
LBexam.Items.Add(" ")
End If
End Sub
Private Sub CmdDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDelet.Click
Dim state As Integer
state = MsgBox("Voulez-vous réelement supprimer le candidat n° " & FrmEdit.SelectedID & " ?", MsgBoxStyle.Question & MsgBoxStyle.YesNo, "Confirmation de la supression")
If state = vbYes Then
Call FrmAccueil.SupprBdD()
Call CmdAnnul_Click(sender, e)
End If
End Sub
End Class

186
FrmNouv.Designer.vb generated Normal file
View File

@ -0,0 +1,186 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmNouv
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmNouv))
Me.LblNext = New System.Windows.Forms.Label
Me.LblWarn = New System.Windows.Forms.Label
Me.Lbl1 = New System.Windows.Forms.Label
Me.LblTitre = New System.Windows.Forms.Label
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.CmdNext = New System.Windows.Forms.Button
Me.CmdAnnul = New System.Windows.Forms.Button
Me.PictureBox2 = New System.Windows.Forms.PictureBox
Me.PictureBox3 = New System.Windows.Forms.PictureBox
Me.PictureBox4 = New System.Windows.Forms.PictureBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'LblNext
'
Me.LblNext.Location = New System.Drawing.Point(11, 293)
Me.LblNext.Name = "LblNext"
Me.LblNext.Size = New System.Drawing.Size(278, 18)
Me.LblNext.TabIndex = 19
Me.LblNext.Text = "Cliquez sur Suivant pour contiuer."
Me.LblNext.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LblWarn
'
Me.LblWarn.BackColor = System.Drawing.Color.White
Me.LblWarn.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblWarn.Location = New System.Drawing.Point(195, 149)
Me.LblWarn.Margin = New System.Windows.Forms.Padding(5, 5, 5, 10)
Me.LblWarn.Name = "LblWarn"
Me.LblWarn.Size = New System.Drawing.Size(245, 110)
Me.LblWarn.TabIndex = 15
Me.LblWarn.Text = "Attention : Vous n'aurez qu'une minute (1:00) pour renseigner votre identité, et " & _
"une minute quinze secondes (1:15) pour choisir vos examens."
'
'Lbl1
'
Me.Lbl1.AutoSize = True
Me.Lbl1.BackColor = System.Drawing.Color.White
Me.Lbl1.Location = New System.Drawing.Point(176, 67)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(275, 39)
Me.Lbl1.TabIndex = 16
Me.Lbl1.Text = "Cet Assistant vous permet :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "• D'enregistrer une personne candidate," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "• D" & _
"e définir quels examens ce candidat devra passer."
'
'LblTitre
'
Me.LblTitre.AutoEllipsis = True
Me.LblTitre.BackColor = System.Drawing.Color.White
Me.LblTitre.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblTitre.Location = New System.Drawing.Point(172, 10)
Me.LblTitre.Name = "LblTitre"
Me.LblTitre.Size = New System.Drawing.Size(298, 57)
Me.LblTitre.TabIndex = 14
Me.LblTitre.Text = "Bienvenue dans l'Assissant création de candidature"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 272)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(495, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(481, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 12
Me.PictureBox1.TabStop = False
'
'CmdNext
'
Me.CmdNext.Location = New System.Drawing.Point(304, 288)
Me.CmdNext.Name = "CmdNext"
Me.CmdNext.Size = New System.Drawing.Size(75, 23)
Me.CmdNext.TabIndex = 10
Me.CmdNext.Text = "&Suivant >"
Me.CmdNext.UseVisualStyleBackColor = True
'
'CmdAnnul
'
Me.CmdAnnul.Location = New System.Drawing.Point(396, 288)
Me.CmdAnnul.Name = "CmdAnnul"
Me.CmdAnnul.Size = New System.Drawing.Size(75, 23)
Me.CmdAnnul.TabIndex = 11
Me.CmdAnnul.Text = "Annuler"
Me.CmdAnnul.UseVisualStyleBackColor = True
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(159, 1)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(322, 271)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 13
Me.PictureBox2.TabStop = False
'
'PictureBox3
'
Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
Me.PictureBox3.Location = New System.Drawing.Point(0, 0)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(159, 272)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox3.TabIndex = 20
Me.PictureBox3.TabStop = False
'
'PictureBox4
'
Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
Me.PictureBox4.Location = New System.Drawing.Point(177, 147)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(16, 16)
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox4.TabIndex = 21
Me.PictureBox4.TabStop = False
'
'FrmNouv
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(482, 323)
Me.ControlBox = False
Me.Controls.Add(Me.PictureBox4)
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.LblNext)
Me.Controls.Add(Me.LblWarn)
Me.Controls.Add(Me.Lbl1)
Me.Controls.Add(Me.LblTitre)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.CmdNext)
Me.Controls.Add(Me.CmdAnnul)
Me.Controls.Add(Me.PictureBox2)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(488, 355)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(488, 355)
Me.Name = "FrmNouv"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "Assistant création de candidature (1/4)"
Me.Text = "Assistant création de candidature (1/4)"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents LblNext As System.Windows.Forms.Label
Friend WithEvents LblWarn As System.Windows.Forms.Label
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents LblTitre As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents CmdNext As System.Windows.Forms.Button
Friend WithEvents CmdAnnul As System.Windows.Forms.Button
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
End Class

1296
FrmNouv.resx Normal file

File diff suppressed because it is too large Load Diff

16
FrmNouv.vb Normal file
View File

@ -0,0 +1,16 @@
Public Class FrmNouv
Private Sub FrmIsc1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
REM rien...
End Sub
Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
Me.Close() REM ferme la feuille, on en a plus besoin
FrmAccueil.Show() REM montre nouvelle feuille
End Sub
Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
Me.Hide()
FrmInput1.Show()
End Sub
End Class

BIN
Image 1.jpg Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB

60
LISEZ MOI.txt Normal file
View File

@ -0,0 +1,60 @@
##### BLOC NOTE #####
On reste en 7.0.x.x tant que l'on n'a pas de RC a sortir.
La RC1 sera une version 7.1.x.x
La RC2 sera une version 7.2.x.x
Dans l'ensemble, le programme apparais maintenant comme stable.
>>> Question a poser :
Est-il préférable de parcourir le fichier pour récupérer les nom et les prénom des candidats, ou de penser une structure qui s'en occuperais dans le programme ?
>>> A faire pour la Release Candidate :
1) Activer les Timers : #DESACTIVES
FrmInput1.vb Ligne 46, Caractère 13
FrmInput2.vb Ligne 35, Caractère 13
2) Activer les contraites de saisies : #DESACTIVES
FrmInput1.vb Private Sub CmdNext_Click
FrmInput2.vb
Renommer les nom de fonction pour correspondre aux Handles
>>> Difficultées & Avancement :
FrmAccueil :
• Design satisfaisant.
• Quelques fonctions sont manquantes.
• Améliorer la structure de sauvegarde : Faire appel a des indexs pour stoquer Ecrit et Oral plutot que les nom de variables ?
FrmEdit :
• La textbox et la combobox n'ont pas encore étés programmées.
FrmNouv :
FrmBilan :
• Beaucoup de chose à faire.
FrmAff :
• Beaucoup de chose à faire.
FrmInput1 :
• Il existe une erreur lors de la sélection d'un age à 25 ans par la scrollbar : Elle est refusée par le vérificateur.
[Résolu]
Problème : L'âge n'est pas entre 25 et 55 ans, mais entre 1955 (Today.year - 25 et Today.year - 55) et 1985.
Solution : FAUX : L'age se sélectionne de deux manières : Par la scrollbar en age, OU par la saisie du mois et de l'année de naissance.
• L'âge doit être maintenant obtenue par le calcul.
FrmInput2 :
• La liste des factultatifs présentes des ecrits et des oraux. Les écrits doivent êtres convertit en oraux.
FrmInput3 :
• Il existe des dysfonctionnements dans la procédure de sauvegarde : Un élément supprimé est définitivement choisit pour modification.
[Résolu]
Problème : Comment mettre a jour les élément de la fonction alors que la feuille est simplement cachée (.hide)
Solution : Utiliser .visible
Question : Cela ne risque-t-il pas de ne pas initialiser la feuille du tout au premier démarrage ?
Réponse : Aucune gène observée.

BIN
LigneH.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

38
My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.4927
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'REMARQUE : ce fichier étant généré automatiquement, ne le modifiez pas directement. Pour apporter des modifications,
' ou si vous rencontrez des erreurs de génération dans ce fichier, accédez au Concepteur de projets
' (allez dans les propriétés du projet ou double-cliquez sur le noeud Mon projet dans
' l'Explorateur de solutions), puis apportez vos modifications sous l'onglet Application.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Projet_VS_100_Priet_Sabourin.FrmAccueil
End Sub
End Class
End Namespace

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>FrmAccueil</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,39 @@
Imports System.Resources
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Les informations générales relatives à un assembly dépendent de
' l'ensemble d'attributs suivant. Changez les valeurs de ces attributs pour modifier les informations
' associées à un assembly.
' Vérifiez les valeurs des attributs de l'assembly
<Assembly: AssemblyTitle("Candidat 7 Pro")>
<Assembly: AssemblyDescription("Elève de l'Ecole normale supérieure et inspécteur d'académie, Charles Dupuy est la personnalité politique du début du XXème Siècle avant activement participé à la réforme de l'enseignement. Sa culture de l'art et de la philosophie témoigne d'une éducation complète, et aujourd'hui encore son savoir nous a inspiré la création de Candide Pro 7.")>
<Assembly: AssemblyCompany("Priet & Sabourin Corporation")>
<Assembly: AssemblyProduct("Candidat 7 Pro")>
<Assembly: AssemblyCopyright("Copyright © 2010")>
<Assembly: AssemblyTrademark("Priet & Sabourin Corporation")>
<Assembly: ComVisible(False)>
'Le GUID suivant est pour l'ID de la typelib si ce projet est exposé à COM
<Assembly: Guid("0e7d582d-ff8c-4478-88f2-c42f5f04a6e5")>
' Les informations de version pour un assembly se composent des quatre valeurs suivantes :
'
' Version principale
' Version secondaire
' Numéro de build
' Révision
'
' Vous pouvez spécifier toutes les valeurs ou indiquer les numéros de build et de révision par défaut
' en utilisant '*', comme indiqué ci-dessous :
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("7.0.5.30")>
<Assembly: AssemblyFileVersion("7.0.5.30")>
<Assembly: NeutralResourcesLanguageAttribute("fr")>

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="FrmInput1" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>Projet_VS_100_Priet_Sabourin.FrmInput1, Projet-VS_100_Priet-Sabourin, Version=7.0.2.56, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

62
My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.4927
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'<summary>
' A strongly-typed resource class, for looking up localized strings, etc.
'</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'<summary>
' Returns the cached ResourceManager instance used by this class.
'</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Projet_VS_100_Priet_Sabourin.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'<summary>
' Overrides the current thread's CurrentUICulture property for all
' resource lookups using this strongly typed resource class.
'</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
My Project/Resources.resx Normal file
View File

@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

73
My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.4927
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Projet_VS_100_Priet_Sabourin.My.MySettings
Get
Return Global.Projet_VS_100_Priet_Sabourin.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

View File

@ -0,0 +1,180 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>8.0.50727</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{6DD14E68-4EC2-4669-9E9D-34305CA574FF}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Projet_VS_100_Priet_Sabourin.My.MyApplication</StartupObject>
<RootNamespace>Projet_VS_100_Priet_Sabourin</RootNamespace>
<AssemblyName>Projet-VS_100_Priet-Sabourin</AssemblyName>
<MyType>WindowsForms</MyType>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Projet-VS_100_Priet-Sabourin.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Projet-VS_100_Priet-Sabourin.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="FrmAccueil.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmAccueil.Designer.vb">
<DependentUpon>FrmAccueil.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmAff.Designer.vb">
<DependentUpon>FrmAff.vb</DependentUpon>
</Compile>
<Compile Include="FrmAff.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmBilan.Designer.vb">
<DependentUpon>FrmBilan.vb</DependentUpon>
</Compile>
<Compile Include="FrmBilan.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmEdit.Designer.vb">
<DependentUpon>FrmEdit.vb</DependentUpon>
</Compile>
<Compile Include="FrmEdit.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmInput1.Designer.vb">
<DependentUpon>FrmInput1.vb</DependentUpon>
</Compile>
<Compile Include="FrmInput1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmInput2.Designer.vb">
<DependentUpon>FrmInput2.vb</DependentUpon>
</Compile>
<Compile Include="FrmInput2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmInput3.Designer.vb">
<DependentUpon>FrmInput3.vb</DependentUpon>
</Compile>
<Compile Include="FrmInput3.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmNouv.Designer.vb">
<DependentUpon>FrmNouv.vb</DependentUpon>
</Compile>
<Compile Include="FrmNouv.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="FrmAccueil.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmAccueil.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmAff.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmAff.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmBilan.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmBilan.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmEdit.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmEdit.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmInput1.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmInput1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmInput2.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmInput2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmInput3.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmInput3.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FrmNouv.resx">
<SubType>Designer</SubType>
<DependentUpon>FrmNouv.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\DataSources\FrmInput1.datasource" />
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<Content Include="LISEZ MOI.txt" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

88
Resource1.Designer.vb generated Normal file
View File

@ -0,0 +1,88 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.3603
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder
'à l'aide d'un outil, tel que ResGen ou Visual Studio.
'Pour ajouter ou supprimer un membre, modifiez votre fichier .ResX, puis réexécutez ResGen
'avec l'option /str ou régénérez votre projet VS.
'''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class Resource1
Private Shared resourceMan As Global.System.Resources.ResourceManager
Private Shared resourceCulture As Global.System.Globalization.CultureInfo
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend Sub New()
MyBase.New
End Sub
'''<summary>
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Projet_VS_100_Priet_Sabourin.Resource1", GetType(Resource1).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
Friend Shared ReadOnly Property Image_1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Image_1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend Shared ReadOnly Property LigneH() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("LigneH", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend Shared ReadOnly Property Warning() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Warning", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Class
End Namespace

130
Resource1.resx Normal file
View File

@ -0,0 +1,130 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Image_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Image 1.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LigneH" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>LigneH.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Resources\Warning.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Resources/Thumbs.db Normal file

Binary file not shown.

BIN
Resources/Warning.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 233 B

BIN
Thumbs.db Normal file

Binary file not shown.

BIN
blanc.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

BIN
public/Full-HD Logo.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 208 KiB

BIN
public/Modèle XP.dotx Normal file

Binary file not shown.