BDD DE LOCATION COMPOS ADO AVEC ACCESS - C' EST PROMIS, C' EST LA DERNIÈRE!

Commentaire de assemple le 10/10/2005 20:03:48

Camarade MAURICIO
Salut à Toi

Tu fait aussi de la BDD ?

Moi je suis concepteur de SGBD.

Ca t'interresse  ?
(on se tutoie ... ?)

Signé : DIEGO

Commentaire de assemple le 11/10/2005 14:26:42

Je travaille avec Delphi 7 et un package basé sur un nouveau modèle de base de donnée de mon invention : EasyBase. Ce nouveau modèle encapsule le modèle classique relationnel avec de nouvelles entités.
La fenêtre de fiche, les composants champs (typés : Booléen, date, entier, réél, chaîne, liste (255 items au max), les composants champs "externe" (nom d'un fichier "document" : texte, RTF, WAV, JPG, DOc, XLS...). Le conteneur de champs Tableau, dans lequel tout champ (normal ou externe) est automatiquement disposé en colonne, permet de créer une table fille liée en quelques secondes. Un PageControl classique peut être un conteneur de champ, permet soit une répartion par thème des champs, trés utile dans le cas de fichier riche en champs, soit une "polymorphie" pilotée par un champ liste (type, catégorie, famille...).

Outre ces composants, Easybase pour Delphi contient 2 experts qui ajoutent dans le menu Aide de Delphi 2 entrées de menu :
- Nouvelle application Easybase
- Nouvelle Fiche EasyBase (pour ajouter à l'application EasyBase un fichier de données)
Dans la Fiche EasyBase on dépose les champs voulus.
A l'execution, le menu principal est créé comme suit :
- Traitements divers : Sauvegarde, Option (édition de appli.ini), Configuration de l'impression (PrinterSetupDialog : qui ne marche pas d'ailleurs ???), Style du Menu (modifier l'apparence du menu), les modules ajoutés dans la fenêtre "MainAppli", et Quiter (pour fermer l'application)
- Pour chacun des fichiers de données : "Les Fiches" : Saisie, Modification, Duplication (saisie en partant d'une fiche existante), Effacement, Listage (édition d'une liste totale ou partielle totalement paramétrable et avec aperçu avant impression), Impression Unique (imprimer une fiche choisie, aperçu avant impression, paramétrable en WYSIWYG), Imprimer plusieurs (imprimer tout où partie, par critère), les modules ajoutés dans la fiche.
- Aide ? : Table des Matières, Présentation de Appli © Assemple, A propos de Appli © Assemple

Nota : parmi les composants EasyBase, le composant Module. C'est un composant non visuel qui permet d'ajouter des entrées de menus au menu standard d'EasyBase. Il faut créer le gestionnaire d'évement OnExecute pour rédiger l'action qui sera executée si l'utilisateur clique sur l'item.
Nota 2 : les fichiers d'aides sont au format HTML et sont créés au premier lancement de l'application. Il sont illustrés de copies d'écran, elles aussi générés au lancement de l'application (dès qu'un fichier contient plus de 10 fiches).

J'ai crée aussi une petite application, PCreateInstall, qui affiche la liste des application EasyBase dans une boite liste, et qui me permet de créer en une seule passe un programme d'installation : compilation de l'application, concatenation des fichiers et compression, création et compilation d'une ressource contenant les fichiers compressés, création de Install.dpr et compilation, copie optionnelle de install.exe sur un support amovible (au début install.exe tenait sur une disquette 1.44Mo), copy optionnelle de install.exe sur mon site via FTP.
A l'execution, Install.exe reconnait s'il s'agit d'une 1° installation (on copie tous les fichiers) ou d'une mise à jour (on ne copie que Appli.exe).
Install affiche successivement 2 boite de messages :
- Install.exe va installer (ou mettre à jour) Appli © Assemple. Voulez-vous installer (ou mettre à jour) Appli © Assemple ? [OUI][NON]
- Install.exe a installé (ou mis à jour) Appli © Assemple. Voulez-vous lancer Appli © Assemple tout de suite ? [OUI][NON]

Avec EasyBase je développe une facturation (sommaire néanmoins, pour faire une démo des possibilités d'EasyBase) en 2 mn chrono !
Avant je disais 10 mn, mais un jour pour tester des modification que j'avais apportées à EasyBase, j'ai créé, pour la ennième fois cette facturation de demonstration (Article : Reférence, Désignation, Prix - Client : Nom, adresse, Ville - Facture : Numéro, date , Client, tableau détail contenant article, quantité et montant, total). J'ai foncé, et j'ai mis 2 minutes !
Bon, je savais par coeur c'qu'il y avait à faire.

La facturation faite en 2 minutes : www.assemple.fr/demo/install.exe

Une facturation faite en une heure : www.assemple.fr/freefact/install.exe

Cette dernière a été téléchargées des milliers de fois, et j'estime à 300 le nombre d'entreprise l'utilisant dans le monde.


Voilà, en résumé ce qu'est EasyBase.

Je cherche à commercialiser mon invention, mais je ne sais pas comment m'y prendre, d'autant que ça fait plus de 5 ans que cherche des partenaires. J'ai envisagé de le diffuser en open source. J'hésite.

Commentaire de assemple le 11/10/2005 19:21:43

Pour Config d'impression, tu me confirme donc que l'execution d'un TPrinterDialogSetup ne modifie pas les paramètres d'une imprimante ! (CONFIRME LE STP)

Non, les liens sont justes, sauf que pour démo j'ai oublié de le "FTPCopier". C'est maintenant à jour : www.assemple.fr/demo/install (fait avec la dernière version de EasyBase), FreeFact doit avoir quelques semaines, et EasyBase bouge vite, très vite.

Tu dis : Points faibles: fonctionnement de plusieurs utilisateurs avec tout ce que cela implique, trop simple et donc vite fait on se sent limité.
Non, car, en option, les applications EasyBase peuvent être Multi-Utilisateur. Voir démo  version multi-utilisateurs créée en 2 seconde à partir de démo normal(www.assemple.fr/demoMU/install.exe). Mot de passe Administrateur : seguret.
Nota : j'ai très peu de clients qui ont besoin de cette option, qui est propre aux grosses boîtes. Mais c'est vrai qu'avant EasyBase le sur mesure était limité aux Grosses Boites.
Grâce à EasyBase je propose de sur mesure à partir de 250 euros, mais ça avoisinne plutôt les 600-1000 euros, pour monter à 12 000 euros pour des grosses boîtes.

Nota : Toutes les applications EasyBase fonctionnent en réseau avec un verrouillage au niveau de l'enregistrement.

Ton logiciel est-il uniquement en portugais ? Peut-on le télécharger ?

Ma facturation phare s'appelle EasyFact © Assemple (www.assemple.fr/easyfact/install.exe)

J'ai commencé une version localisable (traduction en autre langue) mais c'est pas au point : j'ai sous estimé la tâche !

En option la fenêtre de choix "standard" peut être remplacée par une fenêtre de choix "tactile"

J'ai commencé une version Client/serveur.
La base donnée sera une base de données MySQL chez un hebergeur comme Free. Sur FTPPerso, 2 fichiers PHP chargé d'interpréter toutes les commandes envoyées par l'application cliente.
Mais je crois MYSQL ne sait pas verrouiller un enregistrement.

FIN (enfin ! quel Bavard ce Diégo !)

Commentaire de assemple le 11/10/2005 19:34:42

Commentaire supplémentaire sur Démo, facturation de démonstration d'EasyBase.
Démo n'est pas exploitrable tel quel, il y manque trop de chose.
Mais tu remarqueras que les articles (à vendre) sont dotés d'une photo, est qu'un lien dynamique sur la photo d'un article facturé est copié dans la facture.
Comme c'est un lien dynamique (que j'appelle vue), les photos des articles (fichier JPG) ne sont pas dupliquées à chaque facturation.
Ces photos peuvent ainsi être imprimées avec la facture. C'est très rarement utile, mais dans le cas d'un antiquaire, qui vent des articles uniques, souvent de valeur, c'est presque indispensable. En cas de vol, le client peut présenter à la police la facture, avec la photo du ou des objets disparus.
Démo, je le répète est fait en 2 minutes !

Commentaire de MAURICIO le 12/10/2005 11:21:02

J' ai oublié de dire que j' avais déjà une grande expérience des appli multi-utilisateurs. Ce qui veut dire que je connaissait déjà tous les pièges de programmation de ce genre de programme (et il y en a!!!).

Commentaire de MAURICIO le 12/10/2005 12:03:14

Il faudrait que j' essaye de créer un cas précis pour tester ton appli avec plus de profondeur ...
Oui ça m' a mis 1 an! et toi? combien de temps pour avoir créer ce système? parce que tu compares 2 choses pas comparables en disant que ça aurait pris 2 heures...
D' ailleurs, mon programme peux s' appliquer à tout commerce comme le tiens alors ...

Commentaire de assemple le 12/10/2005 12:09:12

Mais je sais qu'avec un SGBD classique c'est temps qu'il faut.
Pour faire demo il faut plus d'une semaine soit 2400 minutes (à 35h / semaine  ;) )soit 1200 fois plus qu'avec EasyBase.

Ce coéficient diminue bien sûr pour des projets plus complexes.

Commentaire de MAURICIO le 12/10/2005 12:23:09

Je te garantie que pour faire un prog. de gestion commerciale (avec SGBD) il faut bien plus d' 1 semaine! Disons des mois!

Commentaire de assemple le 12/10/2005 12:44:18

L'equivalent de Démo doit être faisable en une semaine ! ?

Commentaire de MAURICIO le 19/07/2006 10:21:04

Salut Krawsson,
la procedure Impressora_Config(FormParent_Handle: Integer) n' est pas dans cette source même si elle est bien de moi!

Retrouve la source oú j' ai utilisé cette procedure, le code y est dedans...
A+

Commentaire de MAURICIO le 19/07/2006 14:50:36

function IMPRESSORAS_LISTAR(Destino: TStrings): Integer;
var
  I: Integer;
  ByteCnt : DWORD; //Nb d'octets à réserver pour récupérer le tableau de structures
  StructCnt: DWORD; //Nb de structures récupérees = nb imprimantes
  p : pointer; //pointe sur le tableau de structures retourné par EnumPrinters
  PrinterInfo: PPrinterInfo2; //Pointeur de structures de type _Printer_Info_2
  szCurrentPrinter: PChar;
begin
  RESULT := -1;
  Destino.Clear;
  //initialisation des paramètres
  ByteCnt := 0;
  StructCnt := 0;
  PrinterInfo:=nil;
  p:=nil;

  GetMem(szCurrentPrinter,SizeOf(Char) * 256);                            // Reserver espace memoire ...
  GetProfileString('Windows', 'DEVICE', '', szCurrentPrinter, 254);       // Nome+Info de l' imprimante actuelle ...

  //Cette fonction retourne un pointeur sur les structures des imprimantes
  //Le While permet d'effectuer une réservation suffisante pour le tableau de structures
  While not EnumPrinters(PRINTER_ENUM_LOCAL, nil, 2, p, ByteCnt, ByteCnt,StructCnt) Do
    If (GetLastError = ERROR_INSUFFICIENT_BUFFER)
    Then p := AllocMem(ByteCnt);

  //Maintenant il ne reste plus qu'à lire le contenu des structures du tableau
  For I:=0 To StructCnt-1 Do //On lit chaques structures propre à chaque imprimante
  Begin
    //On se déplace dans le tableau de structures
    PrinterInfo := PPrinterInfo2(LongInt(P)+I*sizeof(_Printer_Info_2));
    Destino.add(PrinterInfo.pPrinterName);

    If PrinterInfo.pPrinterName = STRING_PORTION(szCurrentPrinter, True, ',', False)
    Then RESULT := i;
//    Memo1.lines.add(#9+'Port          ->   '+PrinterInfo.pPortName);
//    Memo1.lines.add(#9+'Pilote        ->   '+PrinterInfo.pDriverName);
//    Memo1.lines.add(#9+'Commentaire   ->   '+PrinterInfo.pComment);
  End;

  FreeMem(szCurrentPrinter, SizeOf(Char) * 256) ;                         // Libérer espace mémoire ...
end;





STRING_PORTION(szCurrentPrinter, True, ',', False)
Renvoie le nom de l' imprimante en récupérant tous les caractères jusqu' à rencontrer une virgule...

Commentaire de krassow le 20/07/2006 06:00:43

Débiteur pour m'aider…
Maintenant seulement il manque de toi pour me passer le code suivant :

procedure STRING_PORTION(szCurrentPrinter, True, ',', False)
var//se à exister
begin
// ?????? - Le code qui est entre commencent et extrémité est
//que j'ai besoin.
end ;

Commentaire de MAURICIO le 20/07/2006 14:41:24

Voici la fonction sans utiliser la procedure STRING_PORTION:

function IMPRESSORAS_LISTAR(Destino: TStrings): Integer;
var i: Integer;
    NomImprimante: String;
    szCurrentPrinter: PChar;
begin
  RESULT := -1;
  Destino.Clear;

  Try
    GetMem(szCurrentPrinter,SizeOf(Char) * 256);                            // Reserver espace memoire ...
    GetProfileString('Windows', 'DEVICE', '', szCurrentPrinter, 254);       // Nome+Info de l' imprimante actuelle ...

    for i := 0 to Printer.Printers.Count - 1 do
    begin
      NomImprimante := Copy(Printer.Printers[i] + ' on ', 1, Pos(' on ', Printer.Printers[i] + ' on ')-1);
      Destino.Add(NomImprimante);

      If Copy(szCurrentPrinter, 1, Pos(',', szCurrentPrinter)-1) = NomImprimante
      Then RESULT := i;
    end;

    FreeMem(szCurrentPrinter, SizeOf(Char) * 256) ;                         // Libérer espace mémoire ...
  Except

  End;
end;

Mais ça rien à voir avec cette source, celle dont tu parles es ici avec tout le code que tu as besoin:
http://www.delphifr.com/codes/LISTE-CHANGER-IMPRIMANTE-DEFAUT-WIN98-XP_21149.aspx
A+