Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

QUICK_EXP : BASE DE DONNÉES


Information sur la source

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é: 10 437 / 2 573

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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-EXPEDITIONS-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

Pour les "Membres Club", vous pouvez 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

Commentaires et avis

signaler à un administrateur
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 ?"
@+

signaler à un administrateur
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

signaler à un administrateur
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 ;)
++

signaler à un administrateur
Commentaire de Exploreur le 09/06/2007 23:02:27

Salut PCPT,

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

A+
Exploreur

signaler à un administrateur
Commentaire de Exploreur le 11/06/2007 10:10:49

Bonjour à tous,

Maj....Bonne prog

A+
Exploreur

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
Commentaire de Exploreur le 21/06/2007 14:56:29

Bonsoir à tous,

MAJ générale...

A+
Exploreur

signaler à un administrateur
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

signaler à un administrateur
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]

signaler à un administrateur
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

signaler à un administrateur
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 ^^
++

signaler à un administrateur
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

signaler à un administrateur
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 ++ ;)

signaler à un administrateur
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

signaler à un administrateur
Commentaire de Exploreur le 02/07/2007 11:26:52

Bonjour à tous,

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

A+
Exploreur

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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 ++

signaler à un administrateur
Commentaire de Exploreur le 10/07/2007 20:01:20

Salut PCPT,





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

A+
Exploreur

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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é

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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]

signaler à un administrateur
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

signaler à un administrateur
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

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

Exploreur en mode Globe Trotter....

"Bonsoir" à 14h00 pourquoi pas ^^

signaler à un administrateur
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

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

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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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 ++

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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 ;)

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

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

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

signaler à un administrateur
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

signaler à un administrateur
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

++

signaler à un administrateur
Commentaire de Exploreur le 28/01/2008 11:40:17

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


A+
Exploreur

signaler à un administrateur
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?

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

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 Base De Données SQL [ par sabiha93 ] Bonjour,Je suis débutante et g bcp de mal pour accéder a ma base de données sql sous vb6. Tous les tutoriaux d'ici ne parlent que de bases Access! J'a Trier base de données SQL [ par poilusduboux ] Bonjour   <p class="MsoNormal" styl Liaison Excel <-> Access en ADO et SQL [ par nico39 ] Bonjour à tous,Je souhaiterais à partir d'une macro VBA sous Excel aller chercher certaines données dans une base de données Access, mais qui contient ouvrir une base de données avec VB6 [ par imad_lol ] salut tout le monde.je demande de l'aide a propos de l'ouverture d'une base de données avec SQL server 2005 a partir du VB6.moi je travail avec acces lecture d'une structure de base de données avec ado [ par torride legende ] Bonjour à tous, vous remercie d'avance :mon probleme est l'ajout du contrôle TREEVIEW sur ma feuille pour pouvoir acceder à la lecture de la structure Reconduite d'une application ACCESS en SQL [ par LEBLONPI ] Je dois reconduire une application ACCESS en SQL... Dans un premier temps, je n'ai reconduit que la base de données tout en Base de données sql server 2000 [ par anoh ] Salut,J'ai un problème : je n'arrive pas à me connecter à une base de données sql server 2000 située sur une autre machine dans le réseau se conneter a une base de données sql [ par SalutSava ] je&nbsp;cherche un code vba qui va me permettre de se connecter a une base de donn&#233;es sql installer sur un active directory windows serveur 2003&


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,499 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.