begin process at 2010 03 19 17:08:30
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > FUSION LINKCONTACT V1 - AGENDA & GESTIONNAIRE DE CONTACT

FUSION LINKCONTACT V1 - AGENDA & GESTIONNAIRE DE CONTACT


 Description

Cliquez pour voir la capture en taille normale
- 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

  • 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
  • ...
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/FusionLinkCon tact.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&syste m=windows&rub=Bureautique : Agenda

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

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

++


 Sources du même auteur

Source avec Zip Source avec une capture SHUT DOWN - ETEINDRE, REDÉMARRER SON PC DANS LE TEMPS !
Source avec Zip Source avec une capture MORPION (JOUEUR VS JOUEUR) ET (JOUEUR VS ORDINATEUR)
Toutes les sources de Disicom

 Sources de la même categorie

Source avec Zip CHARGER DES DONNÉES DEPUIS UN FICHIER TXT DANS UNE BASE DE D... par ig3
Source avec Zip Source avec une capture GESTIONPMPT par mark100
Source avec Zip Source .NET (Dotnet) DATA ACCESS COMPONENT par zaimfaycal
Source avec Zip GESTION ENSEIGNANTS par Elmarzougui
Source avec Zip GESTION D'UNE BIBLIOTHÈQUE par Elmarzougui
Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de gbillerty le 24/04/2004 19:45:42

On peut pas avoir la source???

Commentaire de Disicom le 26/04/2004 15:26:19

je te prépare ca, attend je le remet sur le ftp dans la journée

Commentaire de Disicom le 26/04/2004 15:38:33

je te prépare ca, attend je le remet sur le ftp dans la journée

Commentaire de Disicom le 26/04/2004 16:00:39

http://anti.shareware.free.fr/FTP/FusionLinkContact.zip

voila (2mo)

Commentaire de BozzoDodo le 16/04/2005 14:20:09

Ca serait bien si ce lien marchait...
Qu'utilise tu comme controle pour inscrire une date et une heure? merci

Commentaire de tau le 22/07/2005 08:15:15

salut peut tu m'envoyer le source c'est super important j'ai un projet similaire à faire

karim.messeguem@wanadoo.fr

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Console Nintendo DS Lite Rouge
Entre 137€ et 160€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

  
  

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,309 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)