Codant pour les Boutons de navigation

Une partie d'un tutoriel en cours. Ce cours fait partie d'un tutoriel en cours. La première partie est ici:

Codage vos propres projets de base de données VB Net.

Dans la dernière leçon , vous configurez un formulaire avec quatre boutons et deux zones de texte. Dans cette leçon, vous allez ajouter du code pour les boutons.

Comment avancer d'un enregistrement à la fois

Double-cliquez sur Suivant votre bouton d'enregistrement pour accéder au code. Ajoutez les lignes suivantes si ... else:

Si Inc <> MaxRows - 1 alors

inc = inc + 1

NavigateRecords ()

Else

MsgBox ("Pas plus de lignes»)

End If

Nous vérifions pour voir si la valeur dans inc n'est pas égale à la valeur de MaxRows - 1. S'ils sont tous les deux égaux alors nous savons que nous avons atteint le dernier enregistrement dans le DataSet. Dans ce cas, nous venons d'afficher une boîte de message. Si elles ne sont pas égales, ces deux lignes sont exécutées:

inc = inc + 1
NavigateRecords ()

Tout d'abord, nous allons le compteur augmentations par un. Ensuite, nous appelons les Sub nous mettons en place:

NavigateRecords ()

Notre sous-programme est l'endroit où se déroule l'action, et les valeurs du DataSet sont placés dans les zones de texte. Ici, il est à nouveau:

NavigateRecords Private Sub ()

txtFirstName.Text = ds.Tables ("AddressBook"). Lignes (inc). Item (1)
txtSurname.Text = ds.Tables ("AddressBook"). Lignes (inc). Item (2)

End Sub

La partie qui se déplace le dossier vers l'avant (et arrière bientôt) est cette partie:

Lignes (inc)

Auparavant, nous avons codé en dur avec cette:

Lignes (0)

Maintenant, la valeur vient de la variable appelée inc. Parce que nous sommes incrémenter cette variable avec le code, la valeur change à chaque fois que le bouton est cliqué. Et si un autre enregistrement sera affiché.
Vous pouvez tester votre bouton Suivant. Exécutez votre programme et cliquez sur le bouton. Vous devriez maintenant être en mesure d'avancer dans le DataSet. Lorsque vous arrivez à la fin, vous devriez voir la boîte de message affiche «a plus de lignes."
Aucun autre bouton ne fonctionnera encore, bien sûr. Passons donc à l'envers.

Reculer d'un enregistrement à la fois

Pour revenir en arrière dans le DataSet, nous devons diminuer le compteur inc. Tout cela signifie est diminuée de 1 à partir de ce qui est actuellement dans inc.
Mais nous devons aussi vérifier que inc ne va pas sans passé, qui est le premier enregistrement dans le DataSet. Voici le code à ajouter à votre btnPrevious:

Si inc> 0 Then

inc = inc - 1

NavigateRecords ()

Else

MsgBox ("First Record")

End If

Donc, l'instruction if vérifie d'abord que inc est supérieur à zéro. Si c'est le cas, inc obtient 1 déduits. Puis les NavigateRecords () sous-programme est appelé. Si inc est de zéro ou moins, nous affichons un message.
Lorsque vous avez fini d'ajouter le code, tester votre programme sur. Cliquez d'abord sur le bouton Précédent. La boîte de message devrait s'afficher, même si aucun enregistrement ont été chargés dans les zones de texte. C'est parce que la variable inc a une valeur de 1 lorsque le premier chargement du formulaire. Il ne se déplace à zéro lorsque le bouton Suivant est cliqué. Vous pouvez modifier votre SI Déclaration à ceci:

Si inc> 0 Then

inc = inc - 1

NavigateRecords ()

ElseIf inc = -1 ALORS

MsgBox ("Aucun Yet")

ElseIf inc = 0 Then

MsgBox ("First Record")

End If

Cette nouvelle if vérifie maintenant à voir si inc est égal à moins 1, et affiche un message si c'est le cas. Il vérifie également si inc est égal à zéro, et affiche le "Premier enregistrement" boîte de message.

Déménagement au dernier enregistrement dans le DataSet

Pour accéder au dernier enregistrement dans le DataSet, vous avez seulement besoin de savoir combien de dossiers ont été chargées dans le DataSet - le MaxRows variable dans notre code. Vous pouvez ensuite mettre le compteur inc à cette valeur, mais moins 1. Voici le code à ajouter à votre btnLast:

Si Inc <> MaxRows - 1 alors

inc = MaxRows - 1

NavigateRecords ()

End If

La raison pour laquelle nous disons MaxRows - 1, c'est que le nombre de lignes peut-être 5, par exemple, mais le premier enregistrement de l'ensemble de données commence à zéro. Ainsi, le nombre total d'enregistrements serait de zéro à 4. A l'intérieur de l'if, nous mettons en place le compteur inc à MaxRows - 1, puis en appelant les NavigateRecords () sous-programmes.
C'est tout ce que nous devons faire. Donc exécuter votre programme. Cliquez sur le bouton dernière, et vous devriez voir le dernier enregistrement affiché dans vos zones de texte.

Déménagement au premier enregistrement dans le DataSet

Déplacement sur le premier enregistrement est assez simple. Nous avons seulement besoin de remettre le compteur à zéro inc, si ce n'est pas déjà à cette valeur. Ensuite, appelez la sous-ensembles:

Si inc <> 0 Then

inc = 0

NavigateRecords ()

End If

Ajoutez le code de votre btnFirst. Exécutez votre programme et de tester tous vos boutons. Vous devriez être capable de se déplacer à travers les noms dans la base de données, et de sauter sur les premier et dernier enregistrements.
Pour l'instant, cependant, nous n'avons pas un moyen d'ajouter de nouveaux enregistrements à mettre à jour les dossiers, ou de les supprimer. Faisons cela suivante.

Posted in: Visual Basic .NET