begin process at 2012 02 15 23:42:34
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > ONEDAYS

ONEDAYS


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Classé sous :sav, données, base, gestion, ado Niveau :Débutant Date de création :18/03/2005 Date de mise à jour :11/11/2006 16:50:56 Vu / téléchargé :6 009 / 1 378

Auteur : Exploreur

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


 Description

Cliquez pour voir la capture en taille normale
Petit logiciel que j'ai développé pour mon service SAV, permettant de gérer les entrées de matériel des clients pour réparation ou autre.
Je pense qu'il doit y avoir encore des bugs, j'ai pu en trouver quelques uns....mais pas tous, je vous remercie donc d'avance pour votre aide concernant ces bugs...
Soyez indulgent pour la note, si vous voulez noter.
Veuillez m'excuser si le code ne vous plait pas, ainsi que l'aspect du logiciel.

Exploreur A+



 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

21 mars 2005 14:15:56 :
Modifications le 21/03/05, suite commentaires sur ma source de : *** Jack, Pluplu, EBArtSoft, Brosske *** Merci à vous ***
22 mars 2005 13:29:24 :
22_03_05 : Changement de la feuille "A propos ..."
24 mars 2005 15:37:05 :
24/03/05 : Code de la partie impréssion terminé
25 mars 2005 11:41:47 :
25/03/2005 : Rajout d'un boutons sur la Form principal, et mofification du code pour l'impréssion.
11 novembre 2006 16:50:57 :
A la demande de BART1984, j'ai rajouter dans cette source une partie recherche dans la base de donnée par certains critères

 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 Source avec une capture QUICK_EXP : BASE DE DONNÉES
Source avec Zip BASE DE DONNÉES EN ADO POUR DÉBUTANT

 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 Source avec une capture QUICK_EXP : BASE DE DONNÉES par Exploreur
Source avec Zip BASE DE DONNÉES EN ADO POUR DÉBUTANT 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 tbbuim1 le 18/03/2005 11:03:43

Tu utilses ADO ou DAO pour manipuler ta base?

Commentaire de NISANDSYSTEMS le 18/03/2005 11:16:20

ADO, regarde le module connect.bas

Commentaire de Exploreur le 18/03/2005 11:39:02

Bonjour à tous,

J'utilise ADO, ttbbuim1

A+

Exploreur

Commentaire de jack le 18/03/2005 14:10:59 administrateur CS

Salut
Un gadget qui est bien pratique : Dimensionner automatiquement la largeur des colonnes de ton ListView.
Ca évite que l'utilisateur ait besoin d'utiliser la barre de déplacement horizontale pour voir les colonnes suivantes (ça énerve je trouve).

Au moment de l'insertion des données dans ton ListView, mémorise quelle est la donnée la plus large dans chaque colonne.
Par contre, on ne peut pas se suffire de tester le nombre de caractères puisqu'un 'i' prend moins de place qu'un 'm'.
Il faut calculer cette taille en twips
Il suffit utiliser la fonction .TextWidth de certains controles comme les Formes et les PictureBox :

Dim MaxCol1 As Long, MaxCol2 As Long, ...
' Donne à la forme la même police que celle utilisée dans le ListView
Me.Font = lv.Font

' Dans la boucle d'insertion, pour chaque colonne :
' Si la longueur du texte que tu vas mettre dans la colonne est supérieure (en twips)
'   à celle mémorisée, on mémorise cette dernière valeur
If Me.TextWidth(DonnéeCol1) > MaxCol1 Then MaxCol1 = Me.TextWidth(DonnéeCol1)
' et faire de même avec chaque colonne

' Quand tu as terminé l'insertion des données, il suffit d'appliquer les largeurs calculées
lv.ColumnHeaders(1).width = MaxCol1 + 200 ' le 200 donne un peu d'espace après la donnée
lv.ColumnHeaders(2).width = MaxCol2 + 200
...

Commentaire de Exploreur le 18/03/2005 15:01:16

Bonjour Jack,

Je te remerci de ton conseil, et je vais mettre cette modification dans mon source.....Car étant donné que je débute dans VB, je ne comprend pas tout, tout de suite....Tes explication sont claire pour toi, elles sont un peu confusent pour moi...alors je vais essayer de comprendre certaines choses....Faut bien commancer un jour à apprendre de nouvelles choses !

A+
Exploreur

Commentaire de EBArtSoft le 18/03/2005 18:24:50 administrateur CS

Attention un conseil a respecter lors de la creation de ce genre de logiciel (crm ou autre)

Quand tu clique sur supprimer l'enregistrement ne doit pas etre physiquement supprimé mais plutot flaggé par exemple avec un champ date de suppression. Car on doit pouvoir assurer le suivie des fiches supprimé. Il n'apparaitrons pas sur le systeme sauf pour l'administrateur. J'espere que tu vois ce que je veux dire...

Bon c'est un conseil pour eviter tout future litige

@+

Commentaire de Exploreur le 18/03/2005 19:23:14

Bonsoir EBArtsoft,

Ok pour le conseil....à l'avenir je ferai une table "Survie" des fiches supprimées.D'ailleurs je ferai cette modife bientôt.Merci encore.

A+

Exploreur

Commentaire de Exploreur le 18/03/2005 19:28:32

Les codes déblocages :

pour la supréssion : Exploreur
pour les différentes supréssion dans les combos : 5333

a+

Exploreur

Commentaire de pluplu le 18/03/2005 23:14:45

C'est un bon début, mais il y a quelques erreurs dans la conception de ta base. Il faudrais séparer la table client de la table Intervention etc. en regle general on essaie dans une base de donnee de ne pas avoir de redondance d'information, du style si l'on a 10 interventions pour le même client on ne saisit pas 10 fois le nom du client et ses références dans la base, mais on pointe sur l'enregistrement unique qui determine ce client dans la table "Client" c'est pour cela que l'on appel Access une base de donnée relationnel.
Et puis il faut bannir tes fichiers ini, tout doit se trouver dans ta base. Si tu veux un exemple de BD Client/Prestation fais moi signe, et donne moi un email sur laquel je t'enverrai un échantillon

Commentaire de jack le 19/03/2005 14:27:30 administrateur CS

re
Désolé, hier je n'avais pas trop le temps.
Voilà comment réajuster automatiquement la largeur de chaque colonne d'un ListView en fonction de son contenu :
Mets ce code dans un module et, après avoir afficher des données dans un ListView, lance la Sub comme ceci :
Call ListViewColumnAdjustment (Me, monListView)
Vala

Public Sub ListViewColumnAdjustment(FormeName As Form, LV As ListView)

    ' On va régler la largeur des colonnes en fonction du contenu
    
    Dim r As Integer, t As Long, Largeur As Long, Max As Long
    
    ' Donne à la forme la même police que le ListView
    FormeName.Font = LV.Font
    
    ' 1ere colonne (n'est pas une SubItem)
    ' 1ere valeur : la largeur de l'étiquette
    Max = FormeName.TextWidth(LV.ColumnHeaders(1).Text)
    For t = 1 To LV.ListItems.Count
        Largeur = FormeName.TextWidth(LV.ListItems(t).Text)
        If Largeur > Max Then Max = Largeur
    Next t
    LV.ColumnHeaders(1).Width = Max + 200
    
    For r = 2 To LV.ColumnHeaders.Count
        ' 1ere valeur : la largeur de l'étiquette
        Max = FormeName.TextWidth(LV.ColumnHeaders(r).Text)
        ' Ensuite, le test de ttes les données
        For t = 1 To LV.ListItems.Count
            Largeur = FormeName.TextWidth(LV.ListItems(t).SubItems(r - 1))
            If Largeur > Max Then Max = Largeur
        Next t
        LV.ColumnHeaders(r).Width = Max + 200
    Next r

End Sub

Commentaire de Exploreur le 19/03/2005 15:15:35

Bonjour Jack,

Merci énormement de ton aide. Je ne trouve pas les mots pour te remercier....Je vais inclure ton code dans mon source, et grâce à toi j'ai appris quelque chose d'autre, merci encore.

Exploreur

Commentaire de Brosske le 19/03/2005 15:18:03

Pour imprimer qque chose de correct, utilise une feuille EXCEL. Une fois la feuille crée on injecte par la suite les données et on imprimer.

Commentaire de Exploreur le 19/03/2005 22:15:45

Bonsoir Brosske,

Merci pour ta solution. Je suis en train de voir pour faire un formulaire pré-définit sous VB, et de lancer mon impréssion depuis Vb.
Sur mon formulaire j'aurai des zones de texte en fixe(qui ne changerons pas) et j'insererai mes données de ma base, et je lancerai mon impréssion.

Je profite pour tous vous remerciez de vos aides qui me sont très utiles...D'ailleurs quand j'aurai fini de faire les mise à jours, si vous êtes Ok, je mettrai des remerciments dans ma source avec vos pseudo...Merci encore.

Exploreur

Commentaire de Exploreur le 18/06/2005 21:41:44

Bonsoir à tous,

Je vous remercies pour l'intérêt que vous portez à ma source.
Soyez sympas, donne moi vos appréciations, vos remarque, une note, quelque chose qui puisse m'aider à avancer dans le code, comme la fait Jack.

Merci encore à tous

Exploreur

Commentaire de Exploreur le 18/06/2005 21:45:26

Re,

Oups.... dans post ci-dessus c'est : "donnez moi..."

Exploreur

Commentaire de Exploreur le 01/09/2006 15:37:32

Bonjour à tous,

Soyez sympas en regardant ce code(critiques), et une note serai la bien venue pour une motivation plus haute, de plus cela fait plaisir !!

Merci à tous
A+
Exploreur..

Commentaire de patou60110 le 14/04/2007 16:56:38

salut exploreur, comme promis je vais jetter un oeil. et j'ai vue des chose qui sur vont m'interesse pour mon prog. j'avance doucement, mais surement a+ et bonne continuation.

Commentaire de patou60110 le 14/04/2007 20:24:51

j'ai un probleme j'ai telecharger le prog et il marche pas, il me que plein de fichier manque. a+

Commentaire de Exploreur le 14/04/2007 21:01:38

Salut Patou60110,

Lesquels?

A+
Exploreur

Commentaire de patou60110 le 15/04/2007 09:55:49

rey_xpbasic.ocx, acceuil_d.log,reception.log, trigamme.log, optioncombo5.log, optionconbo1.log, optioncombo2.log, optioncombo3.log, optioncombo4.log, info.log, visu_base.log voila les fichier manquand

Commentaire de Exploreur le 15/04/2007 10:50:42

Salut Patou60110,

Les fichiers .Log, sont des fichiers "erreur" du fait que la programme n'a pas trouver dans le repertoire par defaut :
rey_xpbasic.ocx.

Alors soit tu le charge manuellement, une fois le projet lancer tu vas dans Projet >> Composant >> Parcourir et tu cherches le fichier rey_xpbasic que j'ai fournie avec la source, soit tu le fais via la base de  registre, là je ne connais pas la syntaxe, malgré qu'elle fut décrite plusieur fois..

Essaye cela et tiens moi informé.

A+
Exploreur

Commentaire de dianalam le 15/07/2008 11:54:54

slt exploreur je voulais consulter ta BD mais elle est protégé par un code de securité

Commentaire de Exploreur le 15/07/2008 19:12:25

Salut,

Dianalam >> Réponse par MP

++
Exploreur

Commentaire de TARIKEY le 05/02/2010 22:35:53

GENIALE VOUS ETES SUPER

Commentaire de NISANDSYSTEMS le 08/02/2010 12:50:31

Bjr,

Viens de tester ta source, c'est pas dans l'ensemble mais il y a pleins de choses à rectifier.

a) desactive dans la form principal l'option hottracking sur le control ListView1: rien de plus énervant de voir des messages signalant ceci ou cela.

b) ne déclare pas en double ces variables ci dans la form Acceuil:
'Dim connectionADO As New ADODB.Connection   ' Connection base de données
'Dim commandeADO As New ADODB.Command        ' Commande base de données
'Dim resultatADO As New ADODB.Recordset      ' Résultat de la commande
<ils existent déjà dans le module Connection en public.

c) gére les fermetures des variables de la base de donnée.
ex: if not resultatADO is nothing then set resultatADO =nothing'destruction de l'instance en cours

d)pourquoi utiliser des fichiers ini?
Créer un table spécifique pour cela.

e) dans l form Visu_base,fonction=miseàjourlistview1, dim i ,ne sert pas, de plus ne la declare pas en type variant.

d)Dim hMenu As Long
hMenu = GetSystemMenu(hwnd, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)

creer un module type ModForms
ajoute les declarations là:
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYCOMMAND = &H0
Public Const SC_CLOSE = &HF060

supprime les dans le module Connection

créer une fonction unique pour toutes tes feuilles.

public FunctionDisableBtnCloseForm(chwnd as long)as boolean
Dim hMenu As Long
on error resume next
   hMenu = GetSystemMenu(chwnd, 0)
   Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
   FunctionDisableBtnCloseForm=true
exit function

if err then
   err.clear
   FunctionDisableBtnCloseForm=false
   exit function
end if
end sub

ensuite tu l'emploi dans chaque form comme ceci
Private Sub Form_Load()
'Appelle de la function qui désactive la croix et ALT+F4

FunctionDisableBtnCloseForm me.hwnd
  
End Sub

f) et en dernier,
il faut créer une requete pour chaque situation et ensuite fermer ta base de donnée.

ici elle est constamment ouverte ce qui suppose des erreurs sans cesse et des conflits.
pas bien pratique pour faire des mises à jours de tes tables.

Sinon, c'est pas mal
continue.

@+


Commentaire de caballep le 15/02/2010 20:40:12

slt exploreur,
je voulais consulter ta BD mais elle est protégé par un code de sécurité.

caballep

Commentaire de NISANDSYSTEMS le 16/02/2010 10:00:04

Bjr,
caballep,

Regarde dans le module Connection, dans la fonction: Connect()

dans la chaine de connexion, le password y figure.

connectionADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= Base de Données\Sav.mdb;" & _
"Jet OLEDB:Database Password=exploreur"

Password=exploreur

Voilà.
Bonne journée

@+

 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 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 Base de données 2 [ par MSI ] Travaillant sur une base de données ACCES, mon programme utilise uncontrole ADO Data.Ma base de données MABASE est amenée a être utilisée en reseau et ADO - Rechercher une données dans ma base en Access [ par anspauldou ] Salutje voudrai un exemple de code qui me permettrai d'effectuer une recherche dans ma base de donnée par l'ADO. La recherche devant se faire sur un c Base de données pour la gestion des E-mail [ par imad8 ] Je vous demande cheres DBA de m'envoyer la structure classique d'une base de données capable de gérer les boites au lettres d'un grand nombre d'utilis Comment creer une base de données avec ADO ? [ par JeanFrancis68 ] Comment creer une base de données en ADO ??Merci :) Gestion de base de données Access [ par Boris88 ] Je suis débutant et je réalise un jeu en VB. Je doit lire, des données dans une table. Celles-ci sont susceptibles d'être modifiées et doivent ecraser access a une base sur Reseau [ par elifqaoui ] bonjour,je developpe une application utilisant ADO sur un monoposte actuellement, je prévois de mettre sur le reseau la base de données utilisée par l ADO.NET - Connexio et récupération des données d'une base [ par FiSiKeMan ] Je débute dans la connexion aux bases de données en VB.NET, et un premier problème se pose à moi. Je crée une connexion à une base access, récupere la ADO MSJet 4 bizarre [ par FRH ] J'utilise une base de données ACCESS et les contrôles ADO avec moteur MSJet 4.0.Lorsqu'une table est nommée zone dans ma base de données, impossible d


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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 : 1,903 sec (4)

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