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é: 9 869 / 2 325

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


vo