78 lines
3.3 KiB
VB.net
78 lines
3.3 KiB
VB.net
Public Class FrmAccueil
|
|
|
|
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)
|
|
UbdE = UBound(cddts.Ecrit)
|
|
UbdO = UBound(cddts.Oral)
|
|
TmrHor.Start()
|
|
cddts.CP = ClefMAX REM ClefMAX 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.C7P", 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, ClefMAX)
|
|
ClefMAX += 1 REM Il passe a 2 pour la prochaine clef dans le fichier.
|
|
|
|
REM Sert pour travailler avec une base déjà préparée.
|
|
'FileGet(nf, cddts, 1)
|
|
'ClefMAX = cddts.CP
|
|
'PosMAX = ClefMAX - 1
|
|
|
|
ReDim Preserve Tindex(PosMAX)
|
|
|
|
auj = Today.Year * 12 + Today.Month
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub CmdQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuit.Click
|
|
Boule = True REM Boule change pour quitter le programme
|
|
FrmBilanSelect.Tag = "Quitter Candidat 7 Pro"
|
|
FrmBilanSelect.LblInfo.Text = "Avant de fermer les inscriptions, vous pouvez afficher un bilan individuel pour un candidat, un bilan par matière, et un bilan des candidats supprimés." & vbNewLine & "Que voulez-vous faire ?"
|
|
FrmBilanSelect.CmdQuit.Visible = True
|
|
FrmBilanSelect.ShowDialog()
|
|
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()
|
|
Boule = False
|
|
FrmBilanSelect.Tag = "Choisir un bilan"
|
|
FrmBilanSelect.LblInfo.Text = "Vous pouvez afficher un bilan individuel pour un candidat, un bilan par matière, et un bilan des candidats supprimés." & vbNewLine & "Que voulez-vous faire ?"
|
|
FrmBilanSelect.CmdQuit.Visible = False
|
|
FrmBilanSelect.ShowDialog()
|
|
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) Then
|
|
ActiveForm.Text = ActiveForm.Tag & " | " & Horaire REM Sert a mettre l'heure dans les autres fenetres (mais fait des messages d'erreur parfois)
|
|
End If
|
|
End Sub
|
|
End Class
|