DELPHI CSB (CODE SOURCE BIBLIOTHÈQUE)

Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 14 mars 2009 à 16:49
Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009 - 15 mars 2009 à 14:42
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/49499-delphi-csb-code-source-bibliotheque

Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009
15 mars 2009 à 14:42
Merci CANTADOR je vais voir ca.
Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009
15 mars 2009 à 14:29
Non je crois comprendre, j'ai fais 3 visualisations et validé 1 mise à jour.
Il y à du y avoir un bug.
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
15 mars 2009 à 14:27
bonjour,
je n'ai tout regardé..pas trop le temps en ce moment
juste ce détail:
ExecSQL;
Open;

seule Open est nécessaire
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
15 mars 2009 à 14:24
Faut croire que tu en as fait 3 ...

Cordialement, Bacterius !
Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009
15 mars 2009 à 14:15
15 mars 2009 14:07:39 :
Suppression des composants jcvl. Modifictation d'écriture.
15 mars 2009 14:10:17 :
Suppression des composants jvcl Modification de code
15 mars 2009 14:12:46 :
Suppression composants JVCL Correction de code

3 mise à jour à lors que j'en ai fais qu'une?!?
Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009
14 mars 2009 à 17:24
Il est vrai que les composants jvcl ne sont pas indispensable, c'étais pour le coté interface.

Merci pour :

with ADODelphi do
begin
CursorLocation := clUseServer;
SQL.Clear;
...
end;

Je modifie dès que je peux et je met à jour.
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
14 mars 2009 à 17:14
C'est pas mal écrit, juste quelques trucs qu'on peut améliorer :

ADOdelphi.CursorLocation := clUseServer;
ADOdelphi.LockType := ltPessimistic;
ADOdelphi.SQL.Clear;
ADOdelphi.sql.add('Select count(*) as nb from Delphi');
ADOdelphi.ExecSQL;
ADOdelphi.Open;
Compte:=ADOdelphi.Fieldbyname('nb').AsInteger;
ADOdelphi.SQL.Clear;
ADOdelphi.SQL.add('Select titre from Delphi');
ADOdelphi.ExecSQL;
ADOdelphi.Open;

Tu peux remplacer par :

with ADODelphi do
begin
CursorLocation := clUseServer;
SQL.Clear;
...
end;

Pareil avec les autres.
Et tu peux aussi renommer les composants c'est plus facile à la lecture.

Cordialement, Bacterius !
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
14 mars 2009 à 17:09
Ben tu vois elle n'était pas indispensable :)
Bon maintenant je n'ai pas les composants ADO, mais là tu n'y es pour rien. Je vais regarder le code, plutôt que me pencher sur la fonctionnalité (nul en BDD).

Cordialement, Bacterius !
Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009
14 mars 2009 à 17:05
Si tout à fais mais l'interface en serra moins beau.
Je vais donc modifier tout ca... Pas de problèmes.
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
14 mars 2009 à 17:01
Eh bien je n'ai pas la librairie JVCL, je ne peux pas l'installer et de toutes façons je ne veux pas l'installer. En général, on publie des sources qui utilisent des composants standard, ou alors les tiens (mais tu fais une création dynamique).

Tu ne peux vraiment pas te débarrasser de la JVCL ?.

Cordialement, Bacterius !
Delphinet27 Messages postés 6 Date d'inscription jeudi 12 mars 2009 Statut Membre Dernière intervention 15 mars 2009
14 mars 2009 à 16:56
Tu n'as pas la librairie JVCL?
Que veux tu dire?
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
14 mars 2009 à 16:49
"Librairie JVCL indispensable."

Tu viens de perdre un membre pour ce source.

Cordialement, Bacterius !
Rejoignez-nous