QUICK_EXP : BASE DE DONNÉES
cs_jolicoeur79
Messages postés
62
Date d'inscription
samedi 2 octobre 2004
Statut
Membre
Dernière intervention
1 avril 2018
-
7 juin 2007 à 20:02
tetranix Messages postés 1 Date d'inscription mercredi 16 août 2006 Statut Membre Dernière intervention 24 janvier 2013 - 24 janv. 2013 à 20:07
tetranix Messages postés 1 Date d'inscription mercredi 16 août 2006 Statut Membre Dernière intervention 24 janvier 2013 - 24 janv. 2013 à 20:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43031-quick-exp-base-de-donnees
https://codes-sources.commentcamarche.net/source/43031-quick-exp-base-de-donnees
24 janv. 2013 à 20:07
27 mars 2008 à 15:31
PCPT >> C'est fachement bien le Enum...
A+
Exploreur
28 janv. 2008 à 14:04
Pour l'instant la class n'est pas encore mise en fonction...
A+
Exploreur
28 janv. 2008 à 11:59
Merci de l'info, je n'avais pas vu...
A+
Exploreur
28 janv. 2008 à 11:50
28 janv. 2008 à 11:40
A+
Exploreur
28 janv. 2008 à 11:24
http://files.codes-sources.com/fichier.aspx?id=45148&f=class%2fcCommonDialog.cls
++
28 janv. 2008 à 11:11
Merci de ta réponse...Je vais ce qui est a ma portée >> une Frm dédiée...lol...
A+
Exploreur
28 janv. 2008 à 10:50
28 janv. 2008 à 10:38
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
18 sept. 2007 à 09:00
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
17 sept. 2007 à 13:39
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
17 sept. 2007 à 13:19
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 ;)
17 sept. 2007 à 09:42
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
17 sept. 2007 à 09:22
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
17 sept. 2007 à 08:52
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
14 sept. 2007 à 10:01
Bravo à toi pour ce bon programme.
pcpt --> j'attend de voir ce que tu vas lui dire sur son code ..
A+
Le Schti
13 sept. 2007 à 23:42
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
10 sept. 2007 à 09:13
explo -> j'ai hâte de voir le résultat et de t'offrir un "virtual coffee"
Le Schti
7 sept. 2007 à 18:45
Leschti >> Ok, les modificaions on commencées...!
PCPT >> Oui, ta classe m'intérèsse fortement..
A+
Exploreur
7 sept. 2007 à 17:05
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 ++
7 sept. 2007 à 09:40
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
7 sept. 2007 à 09:13
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
6 sept. 2007 à 13:35
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
5 sept. 2007 à 10:27
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
21 août 2007 à 08:53
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
25 juil. 2007 à 16:11
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
19 juil. 2007 à 09:26
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
18 juil. 2007 à 14:51
18 juil. 2007 à 14:30
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
18 juil. 2007 à 14:16
"Bonsoir" à 14h00 pourquoi pas ^^
18 juil. 2007 à 14:00
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
18 juil. 2007 à 08:22
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
17 juil. 2007 à 22:22
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]
17 juil. 2007 à 15:53
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
17 juil. 2007 à 13:36
MAJ sur le Enum des droits utilisateurs pour pouvoir accéder à certaines parties de la source.
Merci PCPT.
A+
Exploreur
17 juil. 2007 à 09:33
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
16 juil. 2007 à 21:38
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é
16 juil. 2007 à 15:36
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
16 juil. 2007 à 13:14
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
16 juil. 2007 à 12:26
14 juil. 2007 à 10:34
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
13 juil. 2007 à 16:12
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
13 juil. 2007 à 14:05
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
10 juil. 2007 à 20:01
# ## # ## #######
## ## ## ##
## ## ## ##
######## ## ####
## ## ## ##
## ## ## #######
A+
Exploreur
10 juil. 2007 à 19:50
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 ++
10 juil. 2007 à 14:11
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
3 juil. 2007 à 21:28
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
2 juil. 2007 à 11:26
Mise à jour sur le dernier point(Test sur App.Path).
A+
Exploreur
1 juil. 2007 à 14:27
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
28 juin 2007 à 23:23
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 ++ ;)
28 juin 2007 à 19:46
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
24 juin 2007 à 12:47
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 ^^
++
24 juin 2007 à 12:07
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
24 juin 2007 à 00:06
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]
21 juin 2007 à 16:47
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
21 juin 2007 à 14:56
MAJ générale...
A+
Exploreur
11 juin 2007 à 13:27
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
11 juin 2007 à 13:07
il manque quelques ocs dans ton projet, je n'arrive pas à l'ouvrir
A+
BB
11 juin 2007 à 10:10
Maj....Bonne prog
A+
Exploreur
9 juin 2007 à 23:02
Aie..C'est ce que je redoute...lol
A+
Exploreur
7 juin 2007 à 22:46
par contre on peut bidouiller avec un activex propre (classe & timer / api)
source pas vue mais çà ne saurait tarder ;)
++
7 juin 2007 à 20:55
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
7 juin 2007 à 20:02
tu es toujours au niveau.
j'ai un petit question "est ce qu'on peu utiliser les triggers avec visaul basic ?"
@+