MAGMANAGEMENT
fbalien
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016
-
14 avril 2010 à 10:57
christ91147 Messages postés 17 Date d'inscription mardi 13 avril 2010 Statut Membre Dernière intervention 29 avril 2010 - 29 avril 2010 à 01:58
christ91147 Messages postés 17 Date d'inscription mardi 13 avril 2010 Statut Membre Dernière intervention 29 avril 2010 - 29 avril 2010 à 01:58
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/51614-magmanagement
https://codes-sources.commentcamarche.net/source/51614-magmanagement
29 avril 2010 à 01:58
je l expérimente et cela me permet de savoir que mon EDI m'offre de véritables conseils grâce a aide integrer
"keep Moving Forward"
25 avril 2010 à 11:21
25 avril 2010 à 00:35
je suis parvenu a faire migrer la photo dans la base de donnée .
le probleme c'est comment la récupérer lorsque je vais demander a voir par exemple le premier enregistrement.
pour cela je t'apporte le programme modifier re-telecharge le zip pour voir
la dessus essaie de voir la fiche fmachat (principalement le dbnavigator lié au adoquerry "qproduitacheter" qui me renvoie une exceptipn)
"keep Moving Forward !"
21 avril 2010 à 08:40
A+
21 avril 2010 à 01:15
j ai mis gerant ici comme pour indiquer ou se trouve les login et password dans la bd
20 avril 2010 à 07:34
19 avril 2010 à 13:54
18 avril 2010 à 19:35
17 avril 2010 à 15:13
Insert - nbInsert - Insère un enregistrement vide
Post - nbPost - Transmet l'enregistrement en cours
Concenant le dbnavigator, il faudrait que je m'y replonge car ca fait longtemps que je n'utilise plus ce truc
Moi, je fais
Un boutton pour nouveau dmMM.TGerant.Append;
Un boutton pour enregistrer dmMM.TGerant.Post;
Un boutton pour Avancer de 1 registre dmMM.TGerant.Next; etc, ... (next (avancer), prior (Reculer), first (premier), last(dernier))
En esperant que ca t'aide et si vraiment t'y arrives pas, je regarderai de nouveau ton prog ...
17 avril 2010 à 14:10
procedure TfmGerant.DBNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
begin
if Button=nbInsert then
begin
if dmMM.TGerant.Locate('noger',edNoger.Text,[loCaseInsensitive]) or dmMM.TGerant.Locate('login',edLogin.Text,[loCaseInsensitive]) then
ShowMessage('Code ou Login déja utilisé par un autre gerant')
else
begin
dmMM.TGerant.Open;
dmMM.TGerant.Insert;
dmMM.TGerantnoger.AsString:= edNoger.Text;
dmMM.TGerantnomger.AsString:= edNomger.Text;
dmMM.TGerantprenomger.AsString:= edPrenomger.Text;
dmMM.TGerantdatnaisger.AsDateTime:= dtpDatnaisger.Date;
dmMM.TGerantlieunaisger.AsString:= edLieunaisger.Text;
dmMM.TGerantdomicileger.AsString:= edDomicileger.Text;
dmMM.TGerantphoneger.AsString:= mePhoneger.Text;
dmMM.TGerantlogin.AsString:= edLogin.Text;
dmMM.TGerantpassword.AsString:= edPassword.Text;
dmMM.TGerantgroupe.AsVariant:= dblcbGroupe.Field.Value;
dmMM.TGerant.Append;
dmMM.TGerant.Post;
end;
end
le message d'erreur suivant apparait :
"impossible d'insérer une ligne vide. elle doit au moins comporter une valeur de colonne"
17 avril 2010 à 13:49
dbimgPhotoger.Stretch:=CheckBox1.Checked; // Redimensionner l'image avec distorsion
marche. merci
17 avril 2010 à 11:59
[Erreur] UnitGerant.pas(191): Identificateur non déclaré : 'Proportional'
faut il declarer 'Proportional' afin de pouvoir l'utilser avec 'dbimgPhotoger'
si c'est le cas où?
17 avril 2010 à 09:02
dans acces : le champ de ton image : Objet OLE
quant tu ajoutes mets :
TableXXX.Append;
quand tu enregistres :
TableXXX.Post;
17 avril 2010 à 08:54
Dans l'unitGerant,j'ai mis deux checkbox :
procedure TfmGerant.CheckBox1Click(Sender: TObject);
begin
dbimgPhotoger.Stretch:=CheckBox1.Checked; // Redimensionner l'image avec distorsion
end;
procedure TfmGerant.CheckBox2Click(Sender: TObject);
begin
dbimgPhotoger.Proportional:=CheckBox2.Checked; // Redimensionner l'image sans distorsion
end;
17 avril 2010 à 03:52
Exmple avec deux ChexBox :
procedure TFormAdherent.CheckBoxEchelleClick(Sender: TObject);
begin
DBImage1.Stretch:=CheckBoxEchelle.Checked; // Redimensionner l'image avec distorsion
end;
procedure TFormAdherent.CheckBoxProportionClick(Sender: TObject);
begin
DBImage1.Proportional:=CheckBoxProportion.Checked; // Redimensionner l'image sans distorsion
end;
je m'exuse pour ne pas t'avoir ecouter concernant l'acces par login.
j ai essayer de redimensioner mais il y a des chose qui manque
le cas de DBImage1.Proportional qui provoque une erreur de compilation.
il y a aussi le fait que le Stretch qui passe la compilation sans probleme ne redimensionne pas
17 avril 2010 à 03:44
Avec Ms Access, fait un champs 'Objet OLE' dans la table qui t'intéresse.
Ensuite, pour le traitement, utilise un TBlobStream. N'oublie d'enregistrer les informations des type pour les images (bmp,jpg,...).
s'il te plait donne un exemple de code pour mieux te suivre.
j ai fait comme tu l'a dit en placant le type "objet OLE" pour les champs "photocli photoger photofrs"
17 avril 2010 à 03:40
14 avril 2010 à 12:03
Avec Ms Access, fait un champs 'Objet OLE' dans la table qui t'intéresse.
Ensuite, pour le traitement, utilise un TBlobStream. N'oublie d'enregistrer les informations des type pour les images (bmp,jpg,...).
14 avril 2010 à 10:57
Il faudrait enlever les fichiers *.~* ; *.DCU qui alourdissent le ZIP
A+