Bouton ajout et supprimer
ouzzinfall
Messages postés
18
Date d'inscription
mardi 6 septembre 2005
Statut
Membre
Dernière intervention
3 mai 2011
-
3 mai 2011 à 11:06
numberone1 Messages postés 2 Date d'inscription jeudi 3 mars 2011 Statut Membre Dernière intervention 26 décembre 2011 - 8 mai 2011 à 05:12
numberone1 Messages postés 2 Date d'inscription jeudi 3 mars 2011 Statut Membre Dernière intervention 26 décembre 2011 - 8 mai 2011 à 05:12
1 réponse
numberone1
Messages postés
2
Date d'inscription
jeudi 3 mars 2011
Statut
Membre
Dernière intervention
26 décembre 2011
8 mai 2011 à 05:12
8 mai 2011 à 05:12
SALUT VOICI UNE PETIT APPLICATION EN ASSISTANCE DE NOTRE PROF DE VB:
-------(-_-)------(-_-)-----(-_-)-------(-_-)-------
Private Type Tetudiant
mtr As Integer
nom As String * 20
Adr As String * 100
End Type
----------------------------------------------
Dim x As Tetudiant
Dim numEnreg As Integer
Dim nouv As Boolean
----------------------------------
Private Sub CmdDebut_Click()
If numEnreg <> 0 Then
Get #1, 1, x
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
numEnreg = 1
End If
End Sub
------------------------------------------
Private Sub CmdEnreg_Click()
If nouv Then
Dim n As Integer
n = LOF(1) / Len(x)
x.mtr = Val(TxtMtr)
x.nom = TxtNom
x.Adr = TxtAdr
Put #1, n + 1, x
numEnreg = n + 1
nouv = False
Else
x.mtr = TxtMtr
x.nom = TxtNom
x.Adr = TxtAdr
Put #1, numEnreg, x
End If
End Sub
-------------------------------------------------------------------
Private Sub CmdFin_Click()
If numEnreg <> 0 Then
numEnreg = LOF(1) / Len(x)
Get #1, numEnreg, x
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
End If
End Sub
------------------------------------------------------------
Private Sub Cmdouv_Click()
TxtMtr = ""
TxtAdr = ""
TxtNom = ""
TxtMtr.SetFocus
nouv = True
End Sub
------------------------------------------------------------------------
Private Sub CmdPrec_Click()
If numEnreg > 1 Then
Get #1, numEnreg - 1, x
numEnreg = numEnreg - 1
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
End If
End Sub
-------------------------------------------------------------------------
Private Sub CmdSuiv_Click()
If numEnreg < LOF(1) / Len(x) Then
Get #1, numEnreg + 1, x
numEnreg = numEnreg + 1
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
End If
End Sub
--------------------------------------------------------------------------
Private Sub Form_Load()
Open App.Path & "\etudiants.dat" For Random As #1 Len = Len(x)
If LOF(1) > 0 Then
Get #1, , x
numEnreg = 1
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
Else
numEnreg = 0
nouv = True
End If
End Sub
---------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
-------(-_-)------(-_-)-----(-_-)-------(-_-)-------
Private Type Tetudiant
mtr As Integer
nom As String * 20
Adr As String * 100
End Type
----------------------------------------------
Dim x As Tetudiant
Dim numEnreg As Integer
Dim nouv As Boolean
----------------------------------
Private Sub CmdDebut_Click()
If numEnreg <> 0 Then
Get #1, 1, x
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
numEnreg = 1
End If
End Sub
------------------------------------------
Private Sub CmdEnreg_Click()
If nouv Then
Dim n As Integer
n = LOF(1) / Len(x)
x.mtr = Val(TxtMtr)
x.nom = TxtNom
x.Adr = TxtAdr
Put #1, n + 1, x
numEnreg = n + 1
nouv = False
Else
x.mtr = TxtMtr
x.nom = TxtNom
x.Adr = TxtAdr
Put #1, numEnreg, x
End If
End Sub
-------------------------------------------------------------------
Private Sub CmdFin_Click()
If numEnreg <> 0 Then
numEnreg = LOF(1) / Len(x)
Get #1, numEnreg, x
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
End If
End Sub
------------------------------------------------------------
Private Sub Cmdouv_Click()
TxtMtr = ""
TxtAdr = ""
TxtNom = ""
TxtMtr.SetFocus
nouv = True
End Sub
------------------------------------------------------------------------
Private Sub CmdPrec_Click()
If numEnreg > 1 Then
Get #1, numEnreg - 1, x
numEnreg = numEnreg - 1
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
End If
End Sub
-------------------------------------------------------------------------
Private Sub CmdSuiv_Click()
If numEnreg < LOF(1) / Len(x) Then
Get #1, numEnreg + 1, x
numEnreg = numEnreg + 1
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
End If
End Sub
--------------------------------------------------------------------------
Private Sub Form_Load()
Open App.Path & "\etudiants.dat" For Random As #1 Len = Len(x)
If LOF(1) > 0 Then
Get #1, , x
numEnreg = 1
TxtMtr = x.mtr
TxtNom = x.nom
TxtAdr = x.Adr
nouv = False
Else
numEnreg = 0
nouv = True
End If
End Sub
---------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub