PETIT REPERTOIRE

Commentaire de lapucedu88 le 15/02/2005 16:08:57

Salut, il sert à quoi ce composant, je n'en ait jamais entendu parler

Commentaire de jmp77 le 15/02/2005 16:24:24

Lol!!! A toi de me dire c'est ta source

Tu as ceci dans les declarations :
B_nom: TGradBtn;
b_tel: TGradBtn;

et dans les uses :
GradBtn

Tu travailles avec delphi combien?

Commentaire de jmp77 le 15/02/2005 19:56:14

Merci pour ces precisions ni69.

Allez la pucedu88 mets nous des compos standard ca arrangera bien tout le monde.

Bonne prog,
JMP77.

Commentaire de ni69 le 16/02/2005 14:10:35

La source du compo, tout le monde peut l'avoir en suivant le lien que j'ai donné...

Il vaut cependant mieux mettre des compos standards  car certains sont "allergiques" aux composants additionnels... D'un certain coté, ils ont raison, car si dans chacune des sources déposées sur ce site, il y avait un compo additionnel, on ne s'y retrouverait plus dans la palette :P
Bien sur, je ne dis pas ça pour les composants que je pense indispensables, tels que Indy, Jedi, ou bien la RXLib... ;)

Perso, je préfère une source simple qui marche plutôt qu'une source très belle à regarder qui ne peut pas fonctionner... ;) Je pense que d'autres seront de mon avis :D

Conclusion : Fais une mise à jour avec des TButton svp...

@+
Nico

Commentaire de ni69 le 16/02/2005 14:41:02

merci ;)

Commentaire de MAURICIO le 16/02/2005 19:03:57

Je te conseille qques petites ameliorations:
Connection.cursorLocation := clUseServer;
(curseur coté server)
Connection.IsolationLevel := ilReadCommitted;
(permet de lire les changements faits par d' autres PCs en reseau)
Connection.LoginPrompt := False;
(Pas de mot de passe exigé)
Connection.Mode := cmReadWrite;
(Mode lecture/ecriture)

ReqContact.cursorLocation := clUseServer;
ReqContact.LockType := ltPessimistic;
(le Edit ne fonctionne que si le record actuel n' est pas en edition)

A+

Commentaire de MAURICIO le 17/02/2005 12:22:20

Oui, je t' ai donné vite fait les valeurs des propriétés sans regarder celles que tu utilisais déjà.
Par contre, les groupBoxs Ajout/modif/eliminer contact ont la propriété left à 719 pixels ?! Donc, on les voient pas à moins de changer la valeur à 0.

Commentaire de MAURICIO le 17/02/2005 15:24:14

lapucedu88: pkoi t' as pas utilisé un TADOTable qui est bcp plus simple à utiliser que le code SQL ?
Avantages nombreux:
- Pas besoin de fermer/ouvrir la table
- Tu peux visualiser/modifier les enregistrements dans une DBGrid.
- Nouveau => Table.Append; ... Table.Post;
- Editer => Table.Edit; ... Table.Post;
- Eliminer => Table.delete;
- Rechercher => Locate;

PS: au lieu d' utiliser des GroupBox, utilise un TPageControl. Tu ecrits ensuite un code comme celui-ci dans le OnShow de la Form:
  for i := 0 to PageControl1.PageCount-1 do
    PageControl1.Pages[i].tabVisible := False;

Ensuite, pour montrer celui que tu veux tu fais:
  PageControl1.ActivePageIndex := 0 ou 1 etc ... ;