begin process at 2012 02 13 17:46:49
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > QUICK_EXP : BASE DE DONNÉES

QUICK_EXP : BASE DE DONNÉES


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Classé sous :base, ado, sql, données, gestion Niveau :Débutant Date de création :07/06/2007 Date de mise à jour :27/03/2008 11:29:44 Vu / téléchargé :12 554 / 3 191

Auteur : Exploreur

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (63)
Ajouter un commentaire et/ou une note


 Description

Cliquez pour voir la capture en taille normale
Bonsoir,

Enfin voilà....Je viens de terminer une mise à jour d'une source que j'ai déjà déposé sur le site il y a quelque temps déjà voir ici :

http://www.vbfrance.com/codes/GESTION-EXPEDITIO NS-FOURNISSEURS-CLIENTS_39214.aspx

En faite je n'aie pas fait une mise à jour de celle-ci, car cette nouvelle source n'a plus aucun rapport avec l'anciène, je m'explique ! :

- Moins de feuilles(5 en moins (form))
- Utilisation du Language SQL pour :
   - Ajout
   - Suppression
   - Modification
   - Recherche partielle

- Nouvelle interface utilisateur
- Gestion des droits d'accès au logiciel
- Possibilté de mettre une caricature User(délire!!!)
- Code optimisé(du moins par rapport à l'anciene source)
....
..... A découvrir

J'ai fait de nombreux test avant de poster et j'espère qu'il n'y a plus de bug.

Pour vous connecté : Pseudo : Exp *** Code : 1971

Il y a aussi, deux touches secrète dans le prog(L et M), qu'il faut préssées une aprés l'autre, cela vous permet de passer en mode(tout droits) sur un poste qui ne l'ait pas..Peut être utile pour débloquéer une session..

Il y aura une mise à jour, cela concernera : L'impression

MERCI à toutes les personnes qui m'on aidé à avancer dans ce projet, les remerciements sont dans la source.

Enfin je pense avoir tout dit, et j'espère que cette source pourra répondre à vos demandes...

Si vous trouvez, quelque chose à dire en général(critiques positives/négative, améliorations....), ne pas hésiter.

Comme d'habitude : commentaire, note, cela fait toujours plaisir, et cela est une "récompense"..Lol...

A+
Exploreur

Source

  • - Tout dans le zip -
 - Tout dans le zip - 


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

07 juin 2007 17:26:51 :
Rajout Capture
07 juin 2007 18:02:01 :
Oublis de quelques fichiers TXT
07 juin 2007 19:42:22 :
Upload capture
08 juin 2007 13:55:26 :
Ben, vla un bug que j'ai trouvé(quand je faisait un refresh, je ne recharger pas ma Listview correctement). Correction donc dans le bouton refresh de : Frm_Options_Users. Modification au niveau des touches secrètes : Le droit admin sera valable pendant 20 secondes, après ce délai, on repasse automatiquement sur les droit du poste courant.
09 juin 2007 12:01:54 :
J'ai supprimer dans la Form : Frm_Options du code redondant et l'aie remplacé par une fonction(VerifeDroitSupp et VerifeDroitAdd).. Le je le ferai bientôt dans les autres Form
11 juin 2007 08:41:55 :
Correction d'un bug que j'avais dans la form : Frm_Visu_Base...en faite quand je faisait une recherche cela planté au niveau de l'insertion dans la listview quand un item était vide, donc correction faite avec If Not....
14 juin 2007 08:27:03 :
Bon, j'ai juste rajouter la sauvegarde de tous les fichiers "journal" de l'application..Rien de bien méchant...lol
18 juin 2007 10:55:50 :
Simple rajout d'une progressBar dans la form : Frm_Visu_Base.. Car quand la base est bien remplie et que l'on sélectionne dans le combo : Toutes années, cela prend un peu de temps et on peut se demander si le prog à planter, donc c'est juste un effet visuel comme quoi cela fonctionne.
21 juin 2007 13:54:04 :
A la suite d'une demande de : Cheval(www.Vbfrance.com), rajout dans la Frm_Gestion_Bl la possibilité de saisir une nouvelle société, désignation, d'un nouveau délai, transporteur. Rajout(premier temps) d'une fonction qui vérifie les droits 2 et 3(bientôt une généralité) Correction de nom de frame qui était identique quand on faisait un ajout de société, désignation, délai, transport...Idem pour la
25 juin 2007 15:41:07 :
Petit oubli d'un petit truc un peu génant...
28 juin 2007 19:41:29 :
Grosse Maj suivant post de PCPT, reste plus que 4 point à revoir...
01 juillet 2007 14:23:15 :
Mise à jour, et correction bug(petit..lol..)
01 juillet 2007 19:46:08 :
Suppréssion de 2 Sub qui ne me serve plus..
02 juillet 2007 11:25:16 :
Maj du dernier point(Test sur App.Path).
03 juillet 2007 21:26:46 :
J'ai rajouter une Form (Frm_Sauvegarde), qui est une sauvegarde manuelle de certains fichiers de la source(pour las maniaques de la sauvegarde !!! Lol...)
10 juillet 2007 14:09:39 :
Rajout d'une Frm_Adresse, qui permet la saisie des adresses clients et ou fournisseurs.. Revues(Salut PCPT), de certaines MessageBox dans les modules qui reste présente mais cette fois-ci dans des Sub et non des fonctions..
13 juillet 2007 14:01:21 :
Modifes(certains points) suivant post de PCPT du : 10/07/2007 à 19h50...voir détails dans mon commentaire.
13 juillet 2007 16:09:36 :
Hello, c'est re-moi...bon modife du point 4 de mon post du 13/07/2007 à 14h05 >> ok...youpi!!!! Modife synatxe dans mes requêtes ajout / modification pour la prise en compte de l'apostrophe << Oh le pas beau je l'avais oublié celui-là...
14 juillet 2007 10:33:07 :
MAJ : Bon...Enfin..Sauf oublis de ma part, il n'y a plus d'accents dans la base, et sur tous les contrôles de la source..
16 juillet 2007 15:35:11 :
Maj de la function WriteJournal dans le module Fonctions_Projet. Je n'ai pas fait un Enum, mais j'ai(je pense) simplifié l'écriture dans les fichiers.
17 juillet 2007 09:31:31 :
MAJ : 1 - Modife du commentaire dans la fonction : >> DisplayError 2 - Suppression de la fonction : >> SecurityLevel Remplacée par un Enum des droits
17 juillet 2007 13:34:30 :
MAJ sur le Enum des droits utilisateurs pour pouvoir accéder à certaines parties de la source. Merci PCPT
17 juillet 2007 15:51:26 :
Maj, rajout d'une possibilité d'imprimer le détail de la fiche sélectionnée dans : Frm_Details_Visu.
18 juillet 2007 13:41:48 :
Maj : - Modification du caption(toutes Frm) quand on choisi d'arrêter la déconnection automatique. - Vérification présence répertoire, si présence Nothing, si pas présent on créer ceux-ci - Possibilité d'imprimer l'adresse client / fournisseur
19 juillet 2007 09:25:47 :
MAJ : - Réctification dans la Frm_Adresse du code pour l'impréssion, j'avais laissé mon code de "test" (30 lingnes) et j'ai remplacé tout cela par une boucle sur les contrôles qui sont indéxés.
25 juillet 2007 10:38:40 :
Modification d'un acccé pour l'ajout de transporteur dans le menu de Frm_Options. Modification de l'intitulé dans Frm-Statistiques, quand il n'y a pas de stat à afficher.
21 août 2007 08:51:53 :
Quelques petites modife au niveau de la création de répertoire quand on en a besoin..
05 septembre 2007 10:26:15 :
Rajout d'un Frm, pour pouvoir modifiées les couleurs de l'application...Me reste plus à faire le code pour pouvoir enregistrer les nouvelles couleurs dans la base de données...cela va venir...
06 septembre 2007 13:33:42 :
Enfin, j'ai fini la mise au point de la dernière feuille ajoutée au projet : Frm_color...Celle-ci est maitenant opérationnelle...Je vous laisse découvrir cette nouvelle fonctionnalitée.
06 septembre 2007 15:09:11 :
Aie....Il y avait un petit petit bug dans mes cases à cocher de la Frm_Color...Lol....
13 septembre 2007 23:39:48 :
Grosse mise à jour.... Pour les détails de se qui à été fait voir post sur cette source de : Leschti du 07/09/2007. J'ai apporté quelques correction aussi, car il resté quelques "petits bugs". Modife : Possibilité de mettre sa propre photo suivant un formalisme définit , possiblité de changer son login et code, revus des menus, fermeture de l'appli par la "croix" ok, changement du scrolling(Start/Stop/Pause), etc...etc... Le code n'est peut-être pas trop optimisé, mais je reverais cela plus tard ainsi que la mise en place d'un fichier d'aide. Merci PCPT pour ta class sur le scrolling
14 septembre 2007 14:50:31 :
Arff...Il y avait encore quelques souçis de mise au point...Mais je pense que maintenant tout rouler correctement.
18 septembre 2007 08:59:03 :
Bon..ben voilà j'ai "pôfiner" quelques petits trucs en espérant bien sur que cela soit bon... Je pense que cette fois-ci ce sont les dernières mises à jour que j'effectue sur cette source car ma tête commence à resemblée à un disque dur non défragmenté..lol Comme me la dit PCPT, faut s'aérer la tête de temps en temps, donc je vais soit me mettre sur un dev d'une autre source, ou comme j'ai déjà commencé, à refaire la source X-Trem(et là j'ai du boulot!!!)
21 novembre 2007 09:11:18 :
J'ai rajouter un test sur l'année du bl quand on fait une modification de celui-ci, pour empêcher de modifier des bl qui ont une année antérieur à l'année en cours. J'ai corrigé un bug au niveau de la modification du mot de passe de l'user, je vérifie que la saisie soit bien que des numérique !Finalement...on en trouve toujours des petits bugs....!!!!
28 janvier 2008 10:34:58 :
Salut à tous, Arffff....j'avais encore un petit bug au niveau de ma Frm_Details_Visu.frm. J'utiliser pour imprimer la fiche une CommonDialog d'une autre Frm, et en faite(lol) je passé par l'évènement Form_Load de cette feuille, et le bug résider dans le fait que l'application(même aprés avoir fait Quitter) restée en Processus ! Correction du bug fait par l'ajout d'une CommonDialog à Frm_Details_Visu.frm. A+ Exploreur
28 janvier 2008 14:03:30 :
Correction du zip concernant une Frm en trop et ajout de la class(cCommonDialog.cls). A+ Exploreur
27 mars 2008 11:29:47 :
Maj du 27/03/2008 : Salut à tous, 2 petites maj, la première modife concerne le rajout d'un droit d'utilisation 4(AllLevel), car j'en avais besoin pour vérouiller l'accés à la Frm_Options_Users. La deuxième modife concerne le Frm_Visu_Base, on ne pouvais faire une recherche que dans toute la base...maitenant quand l'user laisse par défaut dans le Cmb_Annee (Année) on fait bien une recherche sur toute la base...par contre quand il choisi une année précise, la recherche se porte sur celle-ci. Voilà, comme d'hab, vos commentaires, critiques sont les bienvenues. A+ Exploreur

 Sources du même auteur

Source avec Zip PLEASE WAIT...(USERCONTROL)
Source avec Zip DIGITAL HORLOGE (CONTRÔLE UTILISATEUR)
Source avec Zip Source avec une capture STOCK INFO ** GESTION INFORMATIQUE **
Source avec Zip BASE DE DONNÉES EN ADO POUR DÉBUTANT
Source avec Zip Source avec une capture GESTION DE STOCK ** X-TREM **

 Sources de la même categorie

Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DE BASE DE DONNÉE ACCESS COMPLÈTE AVEC ORIENTÉ OBJET par ThoT49
Source avec Zip Source .NET (Dotnet) GESTION D'UN CONCOURS DE PÊCHE SANS BASE DE DONNÉES par theboogymaster
Source avec Zip BASE DE DONNÉES EN ADO POUR DÉBUTANT par Exploreur
Source avec Zip Source avec une capture ONEDAYS par Exploreur
Source avec Zip Source avec une capture BASE DE DONNÉES POUR GÉRER LES COMPOSANTS ÉLÉCTRONIQUE CHEZ ... par Exploreur

Commentaires et avis

Commentaire de jolicoeur79 le 07/06/2007 20:02:21

merci Exploreur
tu es toujours au niveau.
j'ai un petit question "est ce qu'on peu utiliser les triggers avec visaul basic ?"
@+

Commentaire de Exploreur le 07/06/2007 20:55:34

Salut JoliCoeur79,

Merci de ton commentaire.

C'est bien quelque chose que je n'aie pas encore utiliser...un déclencheur SQL(triggers) suivant une action précise sur la table concernée.. Je dirai oui, mais faudrait faire l'essai....

A+
Exploreur

Commentaire de PCPT le 07/06/2007 22:46:38 administrateur CS

pas de trigger en VB.
par contre on peut bidouiller avec un activex propre (classe & timer / api)

source pas vue mais çà ne saurait tarder ;)
++

Commentaire de Exploreur le 09/06/2007 23:02:27

Salut PCPT,

Aie..C'est ce que je redoute...lol

A+
Exploreur

Commentaire de Exploreur le 11/06/2007 10:10:49

Bonjour à tous,

Maj....Bonne prog

A+
Exploreur

Commentaire de brunob le 11/06/2007 13:07:15

Hello

il manque quelques ocs dans ton projet, je n'arrive pas à l'ouvrir

A+

BB

Commentaire de Exploreur le 11/06/2007 13:27:30

Salut,

Regarde bien, les Ocx sont dans le répertoire : OCX...Ils sont aux nombres de 3 :

- Rey_XpBasics.ocx
- HookMenuPlus.ocx
- GradientFrame.ocx

Il faut juste que tu ailles dans : Projet >> Composants et tu les rajoutes 1 aprés l'autre et tu ne devrais plus avoir de problème pour lancer l'application..

A+
Exploreur

Commentaire de Exploreur le 21/06/2007 14:56:29

Bonsoir à tous,

MAJ générale...

A+
Exploreur

Commentaire de Exploreur le 21/06/2007 16:47:50

Salut,

Rectification de ma description :

A la suite d'une demande de : Cheval(www.Vbfrance.com), rajout dans la Frm_Gestion_Bl la possibilité de saisir une nouvelle société, désignation, d'un nouveau délai, transporteur. Rajout(premier temps) d'une fonction qui vérifie les droits 2 et 3(bientôt une généralité) Correction du titre le l'InputBox(Frm_Options) qui était identique quand on faisait un ajout de société, désignation, délai, transport...Idem pour la suprssion...

A+
Exploreur

Commentaire de PCPT le 24/06/2007 00:06:28 administrateur CS

salut Exploreur,
bon, j'avais promis de regarder ton code de près alors... ;)

à l'attaque :

Frm_Présentation
*agrandir légèrement Op_Oui et Op_non, sinon la zone rect à la sélection est croquée
*valeur vbchecked à op_non en design mode (sinon pourquoi commencer par cliquer dessus par exemple ;))
*mettre "CloseDataBase" dans le Form_Unload, çà permettra de supprimer cette instruction dans le Timer2 et le CmdQuitter
*CmdOk_Click -> timer.interval=0, timer.enabled=false. pas besoin des 2
*2 timers lancés en même temps, au même intervalle. y'en a peut-être un de trop ;)
*revoir Timer1. d'ailleurs je te conseille même de virer çà complètement et de faire juste défiler ton texte dans une picturebox. exemple dispo

sur l'API-Guid et dans les premiers tutos VbF je crois)
*ferme tes timers au Form_Unload, pas au cmdok



Fonction_Projet
*Frm_Déconnection -> ah le joli test inutile ^^. pour ce cas utilise simplement le tag de la form (attention : string à convertir en long) et

recompose le caption avec ce tag, çà sera bien plus pratique pour récupérer la valeur
*Frm_Déconnection -> tu renvoies justes true false et le caption en public. tu pourrais renvoyer le caption ou vbnullstring, ou le caption par

param byref (à noter qu'avec la remarque précédente, plus besoin de cette fonction)
*Txt_Visible -> çà marche mais... c'est peu générique. si tu ajoutes une form avec autant de zones texte, tu sera obligé de les nommer

"Txt_Livraison". juste un objet en param, avec l'indice début / fin du groupe de contrôle, çà peut être une idée non?
*idem pour "Cmd_Options_Visible". un test du type de contrôle passé en param...
*TxtSaisieOk -> encore le param..., et ton msgbox DANS la fonction. pourquoi faire un true false alors...
*WriteJournal -> var Fichier à initialiser plus tôt (çà évite une double saisie), test du "\" pour app.path, éventuellement passer par un enum

pour MyFichierWrite (pratique en cas de maj)
*CountFilesFromDirectory -> y'a des comm à virer, surtout que çà n'a plus grand chose avec la fonction d'origine. et faut revoir la

construction de ton select case. redondance de code inutile
*ChargeCmb -> faut que tu m'expliques ton "Select Case MyForm" ;)
*VerifeDroit -> il est beau ton param juste pour un msgbox. un enum pour Var_Droits et çà suffirait non?


*revoir en général tes msgbox dans les fonctions, y'en a encore ailleurs
*idem pour ton app.path qui n'est traité que pour le chemin de la base
*évite les accents sur les objets et variables
*nomme TOUS tes contrôles, et garde le même type de nomenclature (avec ou sans underscore)



DataBaseADO
*faire un tri dans les comments qui ne sont plus très utiles ;)



Frm_Users
*closedatabase / form_unload
*CmdValider pas du tout optimisé, on se perd dans des if inutiles



Frm_Gestion_Bl
*Timer4 -> à partir du moment ou tu fais un if et qu'il y a la même instruction dans le if et le else, c'est qu'il y a qqc à changer ;)
*AddItem -> "If rep = vbNullString And StrPtr(rep) <> 0 Or rep = vbNullString And StrPtr(rep) = 0 Then", faut m'expliquer l'intérêt du test strptr....


*regarde test test base (et c'est tout de même le plus important), en général : sql, execute. si OK alors message OK paramétré selon la table, sinon message erreur toujours le même.
tu gagnerais énormément de lignes avec une sub avec le nom de la table en param. elle fera ton affichage selon oui non de la requête qu'elle executera elle-même (ou une fonction exceptionnellement ^^ avec un retour boolean)



Frm_Options_Users
*pour Txt_Options_User : http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx
*TxtFalseTrue -> eheh, nous revoilà avec le commentaire pour "Fonction_Projet.Txt_Visible" ;)


*quelques points paufinables dans Frm_Statistiques
*Frm_Visu_Base.Txt_Recherche_Change -> la listview génèrerait une erreur en cas de champs vide? si oui alors je ne dit rien :p
quoi que, si dans ta base (pas regarde :D) contient tes champs dans l'ordre, alors tu peux boucler...
RstAdo!MonChamps s'écrit aussi RstAdo.Fields(X). choix entre taille du code et lisibilité



j'espère que je ne t'ai pas démotivé, il y a beaucoup de broutilles mais le résultat est déjà présent, félicitations ;)
tes choix pour le côté esthétique : sobre et agréable, à peu près respectés partout (vilaine progressbar ^^)

un 8/10 en suspend, avec mes encouragements

++
PCPT  [AFCK]

Commentaire de Exploreur le 24/06/2007 12:07:19

Salut PCPT,

Ben cela me fait très plaisir que tu commentes comme cela ma source avec tes commentaires très constructif, qui vont me permettre de faire cette mise au point et surtout, je ne le cache pas, merci pour tes félicitations et note en suspend(faut dire aussi, que ""j'ai" un instructeur" hors pair pour m'expliquer pas mal de choses...Tu vois qui je veux dire...Lol..Merci)

En ce qui concerne les points énumérés dans tes com, je vais revoir tout cela tranquillement à tête reposée pour bien faire la Maj..

Pour la progress, je ne comprend pas pourquoi celle de l'ocx ne fonctionne pas comme je veux ou alors c'est moi qui ne sait pas ou cet ocx est un peu bugué..Je vais voir si je ne peux pas faire autrement pour l'attente....

En tout cas merci pour tout...

Ps: Merci pour le com sur le snippet..

A+
Exploreur

Commentaire de PCPT le 24/06/2007 12:47:54 administrateur CS

pour la progressbar (Frm_Visu_Base), celle du Rey_XpBasics semble en effet être bugguée.
ajoute un me.refresh (pour sa PBar) dans la boucle (testé OK).
et pour un gain de rapidité d'execution tu peux aussi rendre la listview invisible durant son remplissage (essaye avec et sans, la différence est plus flagrante)

ps : "Pour vous connecté : Pseudo : Exp *** Code : 1971", plus le cas dans cette base ;)

merci pour tes remerciements ^^
++

Commentaire de Exploreur le 28/06/2007 19:46:48

Bonsoir à tous,

Grosse Maj suivant post de PCPT du 24/06/2007 00:06:28

Reste plus que 4 points à revoir :

1 - Test du "\" sur App.path
2 - Faire un Enum pour Var_Droits
3 - Enlever MsgBox dans fonction
4 - regarde test base (et c'est tout de même le plus important), en général : sql, execute. si OK alors message OK paramétré selon la table, sinon message erreur toujours le même.
tu gagnerais énormément de lignes avec une sub avec le nom de la table en param. elle fera ton affichage selon oui non de la requête qu'elle executera elle-même (ou une fonction exceptionnellement ^^ avec un retour boolean)

Point 4 j'ai pas suivi ?

Note : Dans le répertoire Ocx, il y a deux fichiers .Bat :
1 - Install Ocx.Bat << Déclare ceux-ci sur votre machine
2 - Désinstall Ocx.Bat << Supprime ceux-ci de votre machine

A+
Exploreur

Commentaire de PCPT le 28/06/2007 23:23:56 administrateur CS

salut,
point 4, c'est pas forcément le meilleur exemple mais bon....

avec une fonction de ce genre...

Public Function DisplayError(hBox As Long, sMsgText As String, Optional sMsgTitle As String = "", Optional lMsgFlag As Long = vbOKOnly, Optional bRunSql As Boolean = True) As Boolean
'   retourne TRUE si on affiche le msgbox
    DisplayError = False
    
    If bRunSql Then
        If Execute_Sql Then Exit Function
    End If
    
    MessageBox hBox, sMsgText, sMsgTitle, lMsgFlag
    DisplayError = True
End Function


voici comment modifier le début de ton Frm_Users.CmdValider_Click()

Private Sub CmdValider_Click()
    ' Variable création fichier texte
     Dim Fichier As String, LFile As Integer
    
    ' Verifie que les zones de texte soit remplies
     If Txt_pseudo.Text = vbNullString Or Txt_code.Text = vbNullString Then
    
       ' Suivant zone de text vide
        If Txt_code.Text = vbNullString Then Txt_code.SetFocus
        If Txt_pseudo.Text = vbNullString Then Txt_pseudo.SetFocus
        
       ' Affichage boîte de dialogue
       DisplayError Me.hwnd, "Veuillez remplir toutes les zones de texte" & vbCrLf & "avant de valider la connection !" & vbCrLf, "Information utilisateur", vbInformation Or vbOKOnly, False

       ' Sortie procédure
        Exit Sub
     End If
        
        
    ' Préparation requête recherche pseudo et code
     Sql = "SELECT * FROM Users WHERE  Pseudo = '" & Txt_pseudo.Text & "';"
     If DisplayError(Me.hwnd, "Une erreur est survenue pendant l'exécution !" & vbCrLf & "Veuillez réessayer, ou conctater l'administrateur." & vbCrLf & vbCrLf, "Information utilisateur", vbExclamation Or vbOKOnly) Then Exit Sub
    
    
    ' Maintenant on vérifie si pseudo et code existe dans le recordset

(...)


c'est un peu plus clair?
(j'ai pas testé ^^)

bonne continuation ++ ;)

Commentaire de Exploreur le 01/07/2007 14:27:24

Bonjour à tous,

Maj, suivant mon post du 28/06/2006 à 19:46:48

Point 2 - Fait(une Fonction SecurityLevel)
Point 3 - Fait
Point 4 - Fait (Merci PCPT)

Reste plus que Point 1

A+
Exploreur

Commentaire de Exploreur le 02/07/2007 11:26:52

Bonjour à tous,

Mise à jour sur le dernier point(Test sur App.Path).

A+
Exploreur

Commentaire de Exploreur le 03/07/2007 21:28:32

Bonsoir à tous ,

Maj >> J'ai rajouter une Form (Frm_Sauvegarde), qui est une sauvegarde manuelle de certains fichiers de la source(pour las maniaques de la sauvegarde !!!

A venir : Peut-être l'auto-compactage de la base de données

A+
Exploreur

Commentaire de Exploreur le 10/07/2007 14:11:36

Salut,

Maj...

Rajout d'une Frm_Adresse, qui permet la saisie des adresses clients et ou fournisseurs..
Revues(Salut PCPT), de certaines MessageBox dans les modules qui reste présente mais cette fois-ci dans des Sub et non des fonctions..

A+
Exploreur

Commentaire de PCPT le 10/07/2007 19:50:27 administrateur CS

salut,



Variables_Projet.MyAnnée

4 API sans portée dans Fonction_Projet

MyFichierWrite n'est pas un enum dans Fonction_Projet.WriteJournal

Fonction_Projet.SecurityLevel, à repenser (3 = tous les droits? 2 = moyen... si "1", => "<2", un enum suffit)

Frm_Présentation

Frm_Détails_Visu

Frm_Présentation/scrolling -> inchangé

Frm_Présentation.Label2

Frm_Présentation.Fra_Déscription

Frm_Options.MnuAddDés

Frm_Options.MnuAddDél

Frm_Options.MnuSuppDél

Frm_Options.MnuSuppDés

accents idem pour la base elle-même

Frm_Options.Timer1_Timer(), tu calcule avec le tag. attention : le tag est un string!

Frm_Options.WhereFrm -> en inversant tes MyForm.Txt_Livraison 7 et 6, tu pourrais résuire ton code à : MyForm.Txt_Livraison(MyIndex + 4).Text = Cmb_options(MyIndex).Text

Frm_Users.Txt_code_KeyPress -> valide directement non?

Frm_Gestion_Bl.Form_Unload -> redondance de code (param change). une boucle avec uen fonction "FileCopy" perso pour l'occasion

Frm_Sauvegarde.SetPathDirListBox -> tu pourais passer par ta fonction setpath

Frm_Sauvegarde.PathCopyOk -> je pige pas là...

Frm_Visu_Base.Cmb_Recherche_Click -> exit sub inutile, le else suffit

Frm_Visu_Base -> mauvaise progressbar

Frm_Visu_Base.MnuExporter_Click -> tu peux faire plusieurs print successif, pas besoin de concaténer une chaîne

Frm_Visu_Base.MnuExporter_Click -> MsgBox...


j'ai pas tout regardé
bon courage ++

Commentaire de Exploreur le 10/07/2007 20:01:20

Salut PCPT,





                
    # ## #      ##       #######
   ##    ##     ##       ##
   ##    ##     ##       ##
   ########     ##       ####
   ##    ##     ##       ##
   ##    ##     ##       #######

A+
Exploreur

Commentaire de Exploreur le 13/07/2007 14:05:37

Bonsoir à tous,

Points restants du commentaire de PCPT du : 10/07/2007 à 19h50 :

1 - MyFichierWrite n'est pas un enum dans Fonction_Projet.WriteJournal

2 - Fonction_Projet.SecurityLevel, à repenser (3 = tous les droits? 2 = moyen... si "1", => "<2", un enum suffit)

3 - accents idem pour la base elle-même

4 - Frm_Options.WhereFrm -> en inversant tes MyForm.Txt_Livraison 7 et 6, tu pourrais résuire ton code à : MyForm.Txt_Livraison(MyIndex + 4).Text = Cmb_options(MyIndex).Text

5 - Frm_Visu_Base.MnuExporter_Click -> tu peux faire plusieurs print successif, pas besoin de concaténer une chaîne

Note : Le point 4 est chaud...chaud...!lol

A+
Exploreur

Commentaire de Exploreur le 13/07/2007 16:12:38

Bonsoir à tous,

Maj....

Modife du point 4 de mon post du 13/07/2007 à 14h05 >> ok...youpi!!!!

Modife syntaxe dans mes requêtes ajout / modification pour la prise en compte de l'apostrophe << Oh le pas beau je l'avais oublié celui-là...

Changement du scrolling dans Frm_Presentation...

A+
Exploreur

Commentaire de Exploreur le 14/07/2007 10:34:20

Bonjour à tous,

MAJ : Bon...Enfin..Sauf oublis de ma part, il n'y a plus d'accents dans la base, et sur tous les contrôles de la source..

A+
Exploreur

Commentaire de patou60110 le 16/07/2007 12:26:39

Salut explorer, desoler de poster seulement maintenant. mais j'ai eu des probleme avec mon pc, rien de grave, mais tout remarche normalement. pour ton programme je le trouve super, et trés utile pour le prog que je fait, et le garde sous le coude ainsi que les autres prog que tu as fait. Merci a toi . de tout l'aide que tu apport au debutant

Commentaire de Exploreur le 16/07/2007 13:14:56

Salut Patou60110,

Merci de ton commentaire qui me fait très plaisir....Et tant mieux si rien de grave sur ton pc...

Ps : Il me tarde de la voir ta source...!!

A+
Exploreur

Commentaire de Exploreur le 16/07/2007 15:36:39

Bonsoir à tous,

Maj de la function WriteJournal dans le module Fonctions_Projet.
Je n'ai pas fait un Enum, mais j'ai(je pense) simplifié l'écriture dans les fichiers.

A+
Exploreur

Commentaire de PCPT le 16/07/2007 21:38:47 administrateur CS

WriteJournal bien mieux ;)
ps : le comm dans DisplayError est faux :
"Et affiche seulement une msgbox si bRunSql = false"
non non, si la requête plante le msg est traité

Commentaire de Exploreur le 17/07/2007 09:33:43

Bonjour à tous :

MAJ :

1 - Modife du commentaire dans la fonction  :
     >> DisplayError

2 - Suppression de la fonction :
     >> SecurityLevel
     Remplacée par un Enum des droits


Me reste sûrement des "broutilles" à faire, mais je pense PCPT, que tous les points sont traités(sauf errreur ou oublis de ma part)

A+
Exploreur

Commentaire de Exploreur le 17/07/2007 13:36:06

Bonsoir à tous,

MAJ sur le Enum des droits utilisateurs pour pouvoir accéder à certaines parties de la source.

Merci PCPT.

A+
Exploreur

Commentaire de Exploreur le 17/07/2007 15:53:04

Bonsoir à tous,

Maj, rajout d'une possibilité d'imprimer le détail de la fiche sélectionnée dans : Frm_Details_Visu...

Bon c'est simple mais fonctionnel..

A+
Exploreur

Commentaire de PCPT le 17/07/2007 22:22:14 administrateur CS

salut Explo,
je n'ai pas tout regardé dans le détail mais c'est beaucoup beaucoup mieux.
le code est clair, peut-être pas assez tourné "tuto" à mon goût mais ce n'est pas non plus le but premier.
il y a encore quelques petites erreurs, surtout des oublis (comme désactivation du timer mais le caption ne change pas, suppression du user en cours qui ne ferme pas la session, "ne pas supprimer" qui ne sert pas à grande chose,ce genre de bricoles) mais sans grande conséquence.

je n'en doute pas, tu vas encore faire des maj sur cette source très représentative de tes efforts
pas parfaite, un 10 s'impose néanmoins (tiens? j'suis le premier à noter....)

bon courage pour la suite, beau boulot
++ ;)
PCPT   [AFCK]

Commentaire de Exploreur le 18/07/2007 08:22:54

Salut PCPT,

Et bien je dois dire que je ne m'attendais pas à cette note...Et tu m'en vois très content....Merci pour tout le temps que tu m'as accordé, toutes tes explcations, tes approches..enfin tout quoi!

Pour le "Ne pas supprimer", j'ai mis cela dans les répertoires pour qu'ils ne soient pas vide, car il me semble, que quand je fait l'upload sur le site et qu'ils sont vident, ils ne sont pas pris en compte dans la source, me tromperais-je ?

Des mises à jours, oui il y en aura, au fur et à mesure que je retoucherai ce code..

Voilà, je te remercie pour tout.

A+
Exploreur

Commentaire de Exploreur le 18/07/2007 14:00:36

Bonsoir tous,

Maj :

- Modification du caption(toutes Frm) quand on choisi d'arrêter la déconnection automatique.
- Vérification présence répertoire, si présence Nothing, si pas présent on créer ceux-ci
- Possibilité d'imprimer l'adresse client / fournisseur


A+
Exploreur

Commentaire de Renfield le 18/07/2007 14:16:08 administrateur CS

Exploreur en mode Globe Trotter....

"Bonsoir" à 14h00 pourquoi pas ^^

Commentaire de Exploreur le 18/07/2007 14:30:34

Salut Renfield,

il me semble bien que :

Jusqu'à 12h00 c'est bonjour
A partir de 12h01 c'est bonsoir...Lol..

Mais il est vrai que si on ne vois pas une personne que l'on connait dans la matinée, et qu'on l'apperçois dans l'aprés-midi, le reflexe est : Bonjour....

Euh...A gue la donffe..Pourquoi Mode Globe Trotter..?!!

A+
Exploreur

Commentaire de Renfield le 18/07/2007 14:51:30 administrateur CS

m'étais dit que c'etais une histoire de décalage horaire ^^

Commentaire de Exploreur le 19/07/2007 09:26:59

Bonjour à tous,

MAJ :

- Réctification dans la Frm_Adresse du code pour l'impréssion, j'avais laissé mon code de "test" (30 lingnes) et j'ai remplacé tout cela par une boucle sur les contrôles qui sont indéxés.

A+
Exploreur

Commentaire de Exploreur le 25/07/2007 16:11:23

Bonsoir à tous,

Maj :

Modification d'un acccé(SecurityLevel) pour l'ajout d'un transporteur dans le menu de Frm_Options(Le top PCPT le Enum....)

Modification du message de la boite de dialogue dans Frm_Statistiques quand il n'y a pas de stat à afficher.

C'est tout pour le moment...

A+
Exploreur

Commentaire de Exploreur le 21/08/2007 08:53:28

Bonjour à tous ,

Quelques petites modife au niveau de la création de répertoire quand on en a besoin..

J'ai encore quelques petits trucs à pofiner...

A+
Exploreur

Commentaire de Exploreur le 05/09/2007 10:27:10

Bonjour à tous ,

Rajout d'un Frm, pour pouvoir modifiées les couleurs de l'application...Me reste plus à faire le code pour pouvoir enregistrer les nouvelles couleurs dans la base de données...cela va venir...

A+
Exploreur

Commentaire de Exploreur le 06/09/2007 13:35:54

Bonsoir à tous,

Enfin, j'ai fini la mise au point de la dernière feuille ajoutée au projet : Frm_color...Celle-ci est maitenant opérationnelle...Je vous laisse découvrir cette nouvelle fonctionnalitée.

Je pense que cela sera la dernière modife que j'appliquerais à cette source...Si défois, vous avez de nouvelles idées ou découvert de nouveaux bugs, faite moi le savoir pour que je puisse aplliquer les corrections à la source

A+
Exploreur

Commentaire de leschti le 07/09/2007 09:13:22

Salut Explorer.
Ca fait bien longtemps que je ne suis pas passé par ici, et je viens de découvrir ton programme.
Techniquement je le trouve très bien fait, rien à dire, je serais bien incapable de faire aussi bien pour le moment.
Mes critiques seront plus du domaine de la finition. Voici les points qui pour moi me chagrines.

- J'ai lu le préambule, je me dis "ca défile ok, j'arrive à lire, aie trop rapide j'arrête le défilement, o k, c'est bon je reprends le défilement. Et là "mer__ "ca reprend à Zéro" Ton défilement ne peut pas reprendre la ou tu l'as arrêté ??

- tu en es à la personnalisation, pourquoi ne pas faire un module qui permettrait à un utilisateur d'ajouter de façon conviviale une photo ou tu obligerais un certain formalisme (taille de l'image, poids de l'image, format de l'image), et qui permettrait à cette personne et elle seul de pouvoir l'afficher. Par ex j'ajoute moi une photo, et toi tu ne peux pas la voir et donc l'utiliser

- perso, ca n'engage que moi, c'est chiant que la croix en haut à droite de chaque fenêtre soit désactivé. Soit elle y est et fonctionne soit tu l'enlèves totalement.

- les menus en haut sont à réorganiser... le menu option fait trop four tout  et on s'y perd.  Déjà il manque le ? Avec a "propos de". Dans ce menu tu pourrais y mettre "vos droit", les statistiques... Ensuite, si tu fais de la personnalisation, je verrais bien un menu spécifique pour cela comme "outil" puis "option" et là tu ouvres ta fenêtre pour changer les couleurs, tu ajoutes une photo, tu changes le mot de passe … Pourquoi ne pas faire un menu "édition"
- tu as un sous menu "saisies options" heuuu kézako ? Une aide succincte dans le menu ? Serait bienvenue.

- les couleurs : tu veux changer une couleur, ok tu coches la case, le bouton s'active, tu choisis la couleur tu test et là poum c'est à nouveau un bouton grisé. Il faut redécocher et recocher à nouveau pour réactiver le bouton. Ca m'énerve !!!

- Dans un soft de pro, tu as dans les menu des raccourcis clavier tout come toi, mais à la différence la lettre utilisé comme raccourci est soulignée... un détail mais voilà je fais ma remarque.


Par rapport à d'autres personnes mes remarques ne sont pas sur la manière de coder, mais plus sur la forme. A toi de voir si cela vaut le coup de s'y pencher.

Si jamais tu les fais toutes, je t'offre un café virtuel  lol ;-)

Bon courrage
Le schti

Commentaire de Exploreur le 07/09/2007 09:40:59

Salut Leschti,

Merci pour ces remarques constructives....Bon me voilà donc replongé dans cette source....

Cool, tes remarques et je vais essayer de les faire toutes...

Ok, pour le café....

A+
Exploreur

Commentaire de PCPT le 07/09/2007 17:05:52 administrateur CS

leschti -> l'ergonomie est capitale dans toute appli, tes remarques sont précises et judicieuses !

Explo -> j'ai une classe pour le défilement si tu veux (ne sera pas postée, à ta dispo)
dès que possible je re-regarderai ta source "à jour" :p

bon courage ++

Commentaire de Exploreur le 07/09/2007 18:45:03

Salut,

Leschti >> Ok, les modificaions on commencées...!

PCPT >> Oui, ta classe m'intérèsse fortement..

A+
Exploreur

Commentaire de leschti le 10/09/2007 09:13:11

PCPT -> Merci, je me suis placé coté utilisateur. Ayant l'habitude d'utiliser bien des logiciels plus variés les uns que les autres, et ayant déjà utilisé le programme de exploreur, je pouvais donner cette critique. Je ne doute pas qu'il va réussir à faire toutes les modifications demandées.

explo -> j'ai hâte de voir le résultat et de t'offrir un "virtual coffee"

Le Schti

Commentaire de Exploreur le 13/09/2007 23:42:06

Bonsoir à tous,

Enfin elle est là....lol..

Grosse mise à jour !

Pour les détails de se qui à été fait voir post sur cette source de : Leschti du 07/09/2007.

J'ai apporté quelques correction aussi, car il resté quelques "petits bugs".

Modife : Possibilité de mettre sa propre photo suivant un formalisme définit , possiblité de changer son login et code, revus des menus, fermeture de l'appli par la "croix" ok, changement du scrolling(Start/Stop/Pause), etc...etc...

Le code n'est peut-être pas trop optimisé, mais je reverais cela plus tard ainsi que la mise en place d'un fichier d'aide.

Merci PCPT pour ta class sur le scrolling

Ps : Leschti...le café c'est pour quand ??!!!

A+
Exploreur

Commentaire de leschti le 14/09/2007 10:01:07

obligé le café virtuel arrive .... Je ne pensais pas que Mr Exploreur arriverait si vite à terminer toutes mes demandes...

Bravo à toi pour ce bon programme.

pcpt --> j'attend de voir ce que tu vas lui dire sur son code ..

A+
Le Schti

Commentaire de leschti le 17/09/2007 08:52:59

j'ai mis une note,  et j'ai mis 9
On va me dire mais pourquoi 9 ca vallait 10.
Je m'explique, un programmeur c'est comme un cuisinier, comme un photographe, comme beaucoup de métier. Si je met 10 ca voudra dire que c'est parfait, et que l'on ne pourrait pas faire mieux. Si y'a toujours moyen de faire mieux.
Alors oui le programme est très bien, oui le logiciel fonctionne parfaitement, oui tout va, mais on peut encore faire mieux aussi bien au niveau du code que du fonctionnement du soft.
D'ou mon 9 qui est pour moi plus qu'une excelente note

j'espère avoir été clair.

A+

Le Schti

Commentaire de Exploreur le 17/09/2007 09:22:39

Salut,

Leschti >> Merci pour le commentaire et ta note, qui sont pour moi la récompense du travail effectué et surtout grâce à PCPT, qui ma appris beaucoup de chose en VB, et qui ma donner beaucoup de son temps, donc cette note général lui est dédiée...

Je suis encore entrain de faire des petites modifes au niveau du code et de créer des sub pour emplacer du code redondant, disont que je suis au "pofinage" de la source...lol..

A+
Exploreur

Commentaire de leschti le 17/09/2007 09:42:54

exploreur --> j'esperais que PCPT regarderait la fin de ton code pour "t'obliger" à l'optimiser, mais il semble bien occupé. Peut-être plus tard.
Je sais que tu y a passé beaucoup de temps, du moins je m'en doute, vue le résultat, et je ne peux que te féliciter.

Le Schti

Commentaire de PCPT le 17/09/2007 13:19:15 administrateur CS

salut,
ces derniers temps j'ai délaissé le forum donc....
mais je vais le regarder de près sachant que, connaissant Exploreur, c'est pas plus mal de faire tarder les choses pour le laisser peaufiner justement ;)

tout comme là note mise ; pour ma part elle n'est pas basée que sur le code mais plus généralement sur le travail fourni au moment T et la certitude d'une suite et d'un courage, déjà prouvés depuis!

Explo -> une idée pour les images perso ajoutées : convertir les BMP fournies en JPG
(voir dans mes sources pour cette conversion par API, ou sur codyx pour d'autres formats)

++ bonne continuation ;)

Commentaire de Exploreur le 17/09/2007 13:39:00

Salut PCPT,

Ben, je pôfine...je pôfine...lol...Euh...ne regarde pas dessuite...lol...

En ce qui concerne la convertion, j'y avait penser ce week, et j'avais trouver une source dispo de Soldier8514, mais je vais aussi regarder dans tes sources...

Par contre pour le format je pense garder les formats lu et reconnu par la PictureBox...

Voilu...voilà...

A+
Exploreur

Commentaire de Exploreur le 18/09/2007 09:00:04

Salut à tous,

Bon..ben voilà j'ai "pôfiner" quelques petits trucs en espérant bien sur que cela soit bon...
Je pense que cette fois-ci ce sont les dernières mises à jour que j'effectue sur cette source car ma tête commence à resemblée à un disque dur non défragmenté..lol

Comme me la dit PCPT, faut s'aérer la tête de temps en temps, donc je vais soit me mettre sur un dev d'une autre source, ou comme j'ai déjà commencé, à refaire la source X-Trem(et là j'ai du boulot!!!)

A+
Exploreur

Commentaire de Exploreur le 28/01/2008 10:38:28

Bonjour à tous,

Petite Maj...Voir Historique.

Laisser vos commentaires(si vous le voulez, quand vous utilisez/téléchargez cette source), cela fait toujours plaisir..lol

Note : Ne vaut-il pas mieux que je fasse une Frm avec une seule CommonDialog pour tout le prog ?

Merci de vos réponses.

A+
Exploreur

Commentaire de PCPT le 28/01/2008 10:50:09 administrateur CS

çà ou une classe déclarée en module public ;)

Commentaire de Exploreur le 28/01/2008 11:11:18

Salut PCPT,

Merci de ta réponse...Je vais ce qui est a ma portée >> une Frm dédiée...lol...

A+
Exploreur

Commentaire de PCPT le 28/01/2008 11:24:51 administrateur CS

y'a du tout fait, pas besoin de t'arracher les cheveux ^^
http://files.codes-sources.com/fichier.aspx?id=45148&f=class%2fcCommonDialog.cls

++

Commentaire de Exploreur le 28/01/2008 11:40:17

Effectivement.....je suis inéxcusable !


A+
Exploreur

Commentaire de PCPT le 28/01/2008 11:50:32 administrateur CS

au fait dans le zip tu as Frm_Presentation.frm et Frm_Présentation.frm, normal?

Commentaire de Exploreur le 28/01/2008 11:59:55

Non pas normal...petite boulette de ma part, j'en ferais la correction PM...

Merci de l'info, je n'avais pas vu...

A+
Exploreur

Commentaire de Exploreur le 28/01/2008 14:04:47

Salut,

Pour l'instant la class n'est pas encore mise en fonction...

A+
Exploreur

Commentaire de Exploreur le 27/03/2008 15:31:18

Salut,

PCPT >> C'est fachement bien le Enum...

A+
Exploreur

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Gestion de bases de données SQL [ par LostEmpathy ] Hello All, Avant de me lancer directement dans le code, auriez-vous quelque chose de simple pour la gestion de bases de données SQL avec VB.NET. Par g Accès Base de données SQL avec ADO [ par sabiha93 ] Bonjour,Je dispose d'une mshflexgrid et j'aimerais que des données provenant d'une base sql s'y affichent. Le problème est que je ne sais pas cmt fair impossible de se connecter à la base de données sql 2008 [ par koneangel ] Bonjour à tous Au secours!!!!!!!!! mon soucis est le suivant: je n'arrive pas à me connecter ma base de données sql server 2008 sur un PC(se:Windows faire un dump de la base de données avec sql server [ par lilj ] Bonjour, je voulais savoir s'il était possible de faire un dump de la base de données sql server. c'est dire que lorsque dans mon application, l'utili connexion a une base de données sql serveur 2008 [ par Consty25 ] Salut a tous je suis débutant en VB.net je développe actuellement une application en VB 2010 mais je ne sait pas quel code taper pour me connecter a m création de base des données [ par locedric ] je n'arrive pas à créer une BDD sur le sql server compatible à Windows seven que j'ai crée. Voici donc le message qui s'affiche lorsque je fais la cré base de données gestion parc automobile [ par sadokb ] bonjour , je suis en train de faire une application gestion parc automobile , est ce que je peux trouver un exemple base des données sous oracle ou so Sauvegarder une Base de Données SQL SERVER 2005 [ par code_vb_source ] Selem Je cherche à créer une copie sur les fichiers de Base de Données SQL SERVER2005 qui contient mes données ou un sauvegarde que je peut restaurer insertion dans une Base des Données SQL Server [ par limi18 ] bonjour à tous, s'il vous plait, je suis débutant en programmation. jusqu'ici, je crée mes formulaires et parvient à les connecter à la BD sur VB6 et


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

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,215 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales