Fusion linkcontact v1 - agenda & gestionnaire de contact

Commenter

Contenu du snippet

- Bon le code est assez simple, j'utilise une BDD Access relié à du Data, personnellement j'aurai préféré utilisé de l'ADO mais cété pour un PTI de BTS.

- Cette source a plusieurs mois déjà, elle a relativement bien marché sur le site www.telecharger.com (dont je remercie en passant) avec plus de 2500 téléchargements chaque mois.

- Pour ce code a au moins un bug, la modification de rendez-vous merde un peu. Si quelqu'un a envie de s'amuser à réparer ce bug qui se trouve dans la form "frmChargement", je lui en serait redevable...

Extrait d'un bout de code gérant la BDD avec le composant data :

Source / Exemple : 


Private Sub subGestionBDD(sens As Boolean)
    'Gère la gestion des erreurs
    'On Error GoTo erreur_bdd2
    Dim i2 As Integer, iContact As Integer, iRV As Integer
    If sens = True Then
        'Enregistrement de la BDD
        For i = 0 To 1
            If Dir$(App.Path & "\" & AdresseBDD) <> vbNullString Then
                Me.DataBDD(i).DatabaseName = App.Path & "\" & AdresseBDD
            Else
                GoTo erreur_bdd2
            End If
            Me.DataBDD(i).Refresh
            If Me.DataBDD(i).Recordset.RecordCount > 0 Then Me.DataBDD(i).Recordset.MoveFirst
            'module d'ajout d'un enregistrement
            If i = 0 And CountContact(0) > 0 Then
                For i2 = 1 To CountContact(0)
                    Me.DataBDD(i).Recordset.AddNew
                    Call subRemplissementBDD_Contact(i, ContactGestion(0, i2))
                    Me.DataBDD(i).Recordset.Update
                Next i2
            ElseIf i = 1 And CountRendezvous(0) > 0 Then
                For i2 = 1 To CountRendezvous(0)
                    Me.DataBDD(i).Recordset.AddNew
                    Call subRemplissementBDD_RV(i, RendezvousGestion(0, i2))
                    Me.DataBDD(i).Recordset.Update
                Next i2
            End If
            If Me.DataBDD(i).Recordset.RecordCount > 0 Then
                'module de supression d'un enregistrement
                If i = 0 And CountContact(2) > 0 Then
                    For i2 = 1 To CountContact(2)
                        Me.DataBDD(i).Refresh
                        If Me.DataBDD(i).Recordset.RecordCount = 1 Then
                            Me.DataBDD(i).Recordset.Delete
                        ElseIf Me.DataBDD(i).Recordset.RecordCount > 1 Then
                            Me.DataBDD(i).Recordset.Move ContactGestion(2, i2) - i2
                            Me.DataBDD(i).Recordset.Delete
                        End If
                    Next i2
                ElseIf i = 1 And CountRendezvous(2) > 0 Then
                    For i2 = 1 To CountRendezvous(2)
                        Me.DataBDD(i).Refresh
                        If Me.DataBDD(i).Recordset.RecordCount = 1 Then
                            Me.DataBDD(i).Recordset.Delete
                        ElseIf Me.DataBDD(i).Recordset.RecordCount > 1 Then
                            Me.DataBDD(i).Recordset.Move RendezvousGestion(2, i2) - i2
                            Me.DataBDD(i).Recordset.Delete
                        End If
                    Next i2
                End If
                'module de modification d'un enregistrement
                If i = 0 And CountContact(1) > 0 Then
                    For i2 = 1 To CountContact(1)
                        Me.DataBDD(i).Refresh
                        Me.DataBDD(i).Recordset.Move ContactGestion(1, i2) - i2
                        Me.DataBDD(i).Recordset.Edit
                        Call subRemplissementBDD_Contact(i, ContactGestion(1, i2))
                        Me.DataBDD(i).Recordset.Update
                    Next i2
                ElseIf i = 1 And CountRendezvous(1) > 0 Then
                    For i2 = 1 To CountRendezvous(1)
                        Me.DataBDD(i).Refresh
                        Me.DataBDD(i).Recordset.Move RendezvousGestion(1, i2)
                        If Me.DataBDD(i).Recordset.AbsolutePosition < 0 Then Me.DataBDD(i).Recordset.AbsolutePosition = 0
                        Me.DataBDD(i).Recordset.Edit
                        Call subRemplissementBDD_RV(i, RendezvousGestion(1, i2))
                        Me.DataBDD(i).Recordset.Update
                    Next i2
                End If
                Me.DataBDD(i).Refresh
            End If
        Next i
    Else
...

Conclusion :


Pour la source entière désolé, il faut la télécharger ici :
http://anti.shareware.free.fr/FTP/FusionLinkContact.zip
parce qu'elle fait environ 800 ko.

- Dans le code donc :

- Il y a de gestion de BDD avec un composant Data
- Enregistrement de clé registre (mais bon c pa du tout nouveau)
- Par contre l'utilisation de la fonction commande au démarrage de l'application n'es pa très courante dans la plupart des sources ici.
- Sinon un peu de shell...

Enfin voila la routine des développeurs...

Si ca peu aider certain qui sont par exemple en BTS...

Sur ce, bon test !!

Sinon une version deux va sortir, mais elle réuni en fait logiciel de la vie courante, Agenda, Contact, Boite de réception, P2P, Messagerie Instantanés, Album Photo, ... enfin tout un programme...

Pour le logiciel complet avec installateur :

http://telecharger.01net.com/id.php?id=27362&system=windows&rub=Bureautique : Agenda

Et je rappel la source est ici : http://anti.shareware.free.fr/FTP/FusionLinkContact.zip

Merci de comprendre que VbFrance ne peut pas accepter les sources trop grosses.

++

A voir également

S'inscrire maintenant

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.

Du même auteur (Disicom)