Soyez le premier à donner votre avis sur cette source.
Vue 8 475 fois - Téléchargée 850 fois
' Défintion des variables Public Numéro As Integer Public MaxEnreg As Integer Private Type Enreg Nom As String * 25 Prénom As String * 25 Adresse As String * 200 Telephone As String * 20 Fax As String * 25 End Type Dim adr As Enreg Private Sub Command6_Click() Form2.Show End Sub Private Sub dernier_Click() If Nom.Text <> nul Then Ecrit Else MaxEnreg = MaxEnreg - 1 End If Numéro = MaxEnreg lit Nom.SetFocus End Sub Private Sub Form_Load() ' ouverture du fichier de données Open "c:\adresse.adr" For Random As #1 Len = Len(adr) Get #1, 1, adr If Asc(adr.Nom) <> 0 Then MaxEnreg = Val(adr.Nom) Else MaxEnreg = 2 End If Numéro = 2 lit End Sub Sub lit() 'Lecture de l'enregistrement "numéro" Get #1, Numéro, adr Nom.Text = adr.Nom Prénom.Text = adr.Prénom Adresse.Text = adr.Adresse Telephone.Text = adr.Telephone Fax.Text = adr.Fax End Sub Private Sub precedent_Click() If Numéro > 2 Then If Nom.Text <> nul Then Ecrit Else MaxEnreg = MaxEnreg - 1 End If Numéro = Numéro - 1 lit Nom.SetFocus Else Beep End If End Sub Private Sub Premier_Click() If Nom.Text <> nul Then Ecrit Else MaxEnreg = MaxEnreg - 1 End If Numéro = 2 lit Nom.SetFocus End Sub Private Sub Quitter_Click() If Nom.Text <> nul Then Ecrit End If adr.Nom = MaxEnreg Put #1, 1, adr Close #1 End End Sub Private Sub suivant_Click() If Nom.Text <> nul Then Ecrit Numéro = Numéro + 1 If Numéro > MaxEnreg Then MaxEnreg = Numéro End If lit Nom.SetFocus Else Beep End If End Sub Sub Ecrit() adr.Nom = Nom.Text adr.Prénom = Prénom.Text adr.Adresse = Adresse.Text adr.Telephone = Telephone.Text adr.Fax = Fax.Text Put #1, Numéro, adr End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.