[Gambas-user] pictures inside a DB

Hamilton Geminiano Andrioli Junior handriolijr at ...626...
Fri Mar 30 19:35:22 CEST 2007


Steven, i did what you said, but:
1. The first time was ok! My 33,6Kb picture was in DB
2. The second time, when i updated to a 56,8KB, there were just 8kb. Why?
3. I have to put 4 pictures inside this DB: Sales_man, Finan_man, 
Costumer_place, Costumer_job, every one has a 8kb picture...

Problems?
Please, help me. Here is my code:



PUBLIC SUB Button5_Click()
Mfunc.sData = file.load(label30.Text)
mfunc.rs1 = mfunc.db.edit("clientes", "idclientes=&1", textbox3.text)
mfunc.rs1!foto_compras = MFunc.sData
mfunc.rs1.Update
mfunc.db.Commit
END

PUBLIC SUB Button6_Click()
Mfunc.sData = file.load(label31.Text)
mfunc.rs2 = mfunc.db.edit("clientes", "idclientes=&1", textbox3.text)
mfunc.rs2!foto_finan = MFunc.sData
mfunc.rs2.Update
mfunc.db.Commit
END

PUBLIC SUB Button9_Click()
Mfunc.sData = file.load(label32.Text)
mfunc.rs3 = mfunc.db.edit("clientes", "idclientes=&1", textbox3.text)
mfunc.rs3!foto_fachada = MFunc.sData
mfunc.rs3.Update
mfunc.db.Commit
END

PUBLIC SUB Button11_Click()
Mfunc.sData = file.load(label33.Text)
mfunc.rs4 = mfunc.db.edit("clientes", "idclientes=&1", textbox3.text)
mfunc.rs4!foto_socios = MFunc.sData
mfunc.rs4.Update
mfunc.db.Commit
END

Some thing wrong??????

Steven Lobbezoo escreveu:
> Let me send you some examples, 
> it's work in progress, but i hope 
> it will help you.
> Steven
> (see attachement)
>
> Le vendredi 30 mars 2007 14:55, Hamilton Geminiano Andrioli Junior a écrit :
>   
>> Steven, i didn't understand your code.
>> see:
>>
>> ' DIM sData AS String
>> ' sData = File.Load("/file/path")
>> ' MyResult!MyBlobField = sData
>>
>>
>> How can i make a database connection. I said that, because i work only
>> with SQL, and to update a database i use "update customers set
>> picture='" & Sdata & "' where id=xx"
>> If i make what you said, Gambas returns me: Result is read-only.
>>
>> What i'm doing wrong?
>>
>> []'s
>> Hamilton From Brazil!
>>
>> Steven Lobbezoo escreveu:
>>     
>>>   rsK = db.Exec("select Thumb, Id from Photos where prop_num = " &
>>> Str(Id)) IF rsK.available = TRUE THEN
>>>     FOR EACH rsK
>>>       sData = rsK!Thumb.Data
>>>       ' write the photo to local file
>>>       File.Save("~/TempPhot" & Str(rsK!Id) & ".jpg", sData)
>>>       ' Fill with the image
>>>       AddImage("~/TempPhot" & Str(rsK!Id) & ".jpg", Str(rsK!Id))
>>>       KILL "~/TempPhot" & Str(rsK!Id) & ".jpg"
>>>
>>> AND
>>>
>>> ' TO put a file inside a blob field:
>>>
>>> ' DIM sData AS String
>>> ' sData = File.Load("/file/path")
>>> ' MyResult!MyBlobField = sData
>>>
>>>
>>> Well, I only got a lot of help, and adapted it a bit.
>>> Still looking for a possibility to read blobs without
>>> writinig them to files !
>>>
>>> Steven
>>>
>>> Le lundi 26 mars 2007 18:18, Hamilton Geminiano Andrioli Junior a écrit :
>>>       
>>>> Please, i have to put some pictures inside a mysql database.
>>>> How can i save and retrieve those?
>>>>
>>>> Anyone can help me?
>>>>
>>>> thanks.
>>>>
>>>> Hamilton
>>>> ------------------------------------------------------------------------
>>>> - Take Surveys. Earn Cash. Influence the Future of IT
>>>> Join SourceForge.net's Techsay panel and you'll get the chance to share
>>>> your opinions on IT & business topics through brief surveys-and earn
>>>> cash
>>>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDE
>>>> V _______________________________________________
>>>> Gambas-user mailing list
>>>> Gambas-user at lists.sourceforge.net
>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>>         
>>> -------------------------------------------------------------------------
>>> Take Surveys. Earn Cash. Influence the Future of IT
>>> Join SourceForge.net's Techsay panel and you'll get the chance to share
>>> your opinions on IT & business topics through brief surveys-and earn cash
>>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>>> _______________________________________________
>>> Gambas-user mailing list
>>> Gambas-user at lists.sourceforge.net
>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>       
>> -------------------------------------------------------------------------
>> Take Surveys. Earn Cash. Influence the Future of IT
>> Join SourceForge.net's Techsay panel and you'll get the chance to share
>> your opinions on IT & business topics through brief surveys-and earn cash
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>     
>> ------------------------------------------------------------------------
>>
>> # Gambas Form File 1.0
>>
>> { Form Form
>>   MoveScaled(0,0,96,83)
>>   'Move(0,0,672,581)
>>   Background = &HFFFFBF&
>>   Expand = True
>>   Text = ("")
>>   Icon = Picture["icon:/16/color"]
>>   AutoResize = True
>>   { ToolButton1 ToolButton TBs
>>     Name = "ToolButton1"
>>     MoveScaled(1,1,6,3)
>>     'Move(7,7,42,21)
>>     Background = &HFFFFBF&
>>     Tag = "No|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("No")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton2 ToolButton TBs
>>     Name = "ToolButton2"
>>     MoveScaled(9,1,11,3)
>>     'Move(63,7,77,21)
>>     Background = &HFFFFBF&
>>     Tag = "Prenom|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Prenom")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton3 ToolButton TBs
>>     Name = "ToolButton3"
>>     MoveScaled(23,1,10,3)
>>     'Move(161,7,70,21)
>>     Background = &HFFFFBF&
>>     Tag = "Nom|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Nom")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton4 ToolButton TBs
>>     Name = "ToolButton4"
>>     MoveScaled(41,1,12,3)
>>     'Move(287,7,84,21)
>>     Background = &HFFFFBF&
>>     Tag = "Adresse|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Adresse")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton5 ToolButton TBs
>>     Name = "ToolButton5"
>>     MoveScaled(63,1,10,3)
>>     'Move(441,7,70,21)
>>     Background = &HFFFFBF&
>>     Tag = "Ville|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Ville")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton6 ToolButton TBs
>>     Name = "ToolButton6"
>>     MoveScaled(82,1,9,3)
>>     'Move(574,7,63,21)
>>     Background = &HFFFFBF&
>>     Tag = "Pays|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Pays")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { VSplit1 VSplit
>>     MoveScaled(0,4,96,79)
>>     'Move(0,28,672,553)
>>     Expand = True
>>     { VPanel1 VPanel
>>       MoveScaled(1,1,94,42)
>>       'Move(7,7,658,294)
>>       Expand = True
>>       AutoResize = True
>>       { GridView2 GridView
>>         MoveScaled(-1,-1,94,43)
>>         'Move(-7,-7,658,301)
>>         Background = &HFFFFBF&
>>         Foreground = &H404040&
>>         ToolTip = ("Clique une propriétaire\npour voir / changer les\ndétails de celle si")
>>         Expand = True
>>         Scrollbar = Scroll.Vertical
>>         AutoResize = True
>>       }
>>     }
>>     { Panel1 Panel
>>       MoveScaled(1,44,93,34)
>>       'Move(7,308,651,238)
>>       { Prenom TextBox
>>         MoveScaled(10,0,35,3)
>>         'Move(70,0,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Nom TextBox
>>         MoveScaled(10,4,35,3)
>>         'Move(70,28,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { TextLabel1 TextLabel
>>         MoveScaled(0,4,5,3)
>>         'Move(0,28,35,21)
>>         Text = ("Nom :")
>>       }
>>       { TextLabel3 TextLabel
>>         MoveScaled(0,8,10,3)
>>         'Move(0,56,70,21)
>>         Text = ("Téléphone :")
>>       }
>>       { Telephone TextBox
>>         MoveScaled(10,8,35,3)
>>         'Move(70,56,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Fax TextBox
>>         MoveScaled(10,12,35,3)
>>         'Move(70,84,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { TextLabel4 TextLabel
>>         MoveScaled(0,12,10,3)
>>         'Move(0,84,70,21)
>>         Text = ("Fax :")
>>       }
>>       { TextLabel5 TextLabel
>>         MoveScaled(0,16,10,3)
>>         'Move(0,112,70,21)
>>         Text = ("Portable :")
>>       }
>>       { Portable TextBox
>>         MoveScaled(10,16,35,3)
>>         'Move(70,112,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { TextLabel2 TextLabel
>>         MoveScaled(0,0,7,3)
>>         'Move(0,0,49,21)
>>         Text = ("Prenom :")
>>       }
>>       { Button1 Button
>>         MoveScaled(79,30,13,3)
>>         'Move(553,210,91,21)
>>         Background = &H800000&
>>         Foreground = &HFFFFBF&
>>         ToolTip = ("Appuyer pour quitter le programme")
>>         Text = ("Sortir")
>>       }
>>       { TextLabel6 TextLabel
>>         MoveScaled(0,20,10,3)
>>         'Move(0,140,70,21)
>>         Text = ("Travail :")
>>       }
>>       { Travail TextBox
>>         MoveScaled(10,20,35,3)
>>         'Move(70,140,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Email TextBox
>>         MoveScaled(10,25,35,3)
>>         'Move(70,175,245,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { TextLabel7 TextLabel
>>         MoveScaled(0,25,8,3)
>>         'Move(0,175,56,21)
>>         Text = ("E-Mail :")
>>       }
>>       { Adresse TextArea
>>         MoveScaled(57,12,36,7)
>>         'Move(399,84,252,49)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { TextLabel8 TextLabel
>>         MoveScaled(47,12,9,3)
>>         'Move(329,84,63,21)
>>         Text = ("Adresse :")
>>       }
>>       { TextLabel9 TextLabel
>>         MoveScaled(47,20,8,5)
>>         'Move(329,140,56,35)
>>         Text = ("Code P- Ville")
>>       }
>>       { TextLabel10 TextLabel
>>         MoveScaled(47,25,10,3)
>>         'Move(329,175,70,21)
>>         Text = ("Pays :")
>>       }
>>       { TextLabel11 TextLabel
>>         MoveScaled(47,0,13,3)
>>         'Move(329,0,91,21)
>>         Text = ("Observations:")
>>       }
>>       { Observations TextArea
>>         MoveScaled(47,3,46,8)
>>         'Move(329,21,322,56)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Code_Postal TextBox
>>         MoveScaled(57,20,7,3)
>>         'Move(399,140,49,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Ville TextBox
>>         MoveScaled(66,20,27,3)
>>         'Move(462,140,189,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Pays TextBox
>>         MoveScaled(57,25,36,3)
>>         'Move(399,175,252,21)
>>         Background = &HFFFFBF&
>>         Text = ("")
>>       }
>>       { Detail Button
>>         MoveScaled(4,30,12,3)
>>         'Move(28,210,84,21)
>>         Background = &H4E8036&
>>         Foreground = &HFFFFBF&
>>         ToolTip = ("Appuyer pour voir des\ndétails supplementaires")
>>         Text = ("+ Détails")
>>       }
>>       { Mandat Button
>>         MoveScaled(34,30,12,3)
>>         'Move(238,210,84,21)
>>         Background = &H4E8036&
>>         Foreground = &HFFFFBF&
>>         ToolTip = ("Appuyer pour voir le(s)\nmandat(s) du \npropriétaire")
>>         Text = ("Mandat(s)")
>>       }
>>       { Delete Button
>>         MoveScaled(64,30,12,3)
>>         'Move(448,210,84,21)
>>         Background = &H800000&
>>         Foreground = &HFFFFBF&
>>         ToolTip = ("Appuyer pour supprimer\nle client selectionné(e) ?")
>>         Text = ("Supprimer")
>>       }
>>       { Nouveau Button
>>         MoveScaled(49,30,12,3)
>>         'Move(343,210,84,21)
>>         Background = &H323C80&
>>         Foreground = &HFFFFBF&
>>         ToolTip = ("Appuyer pour nettoyer\net entrer une nouveau\n---------Client------------\nAprès avoir remplit les\nchamps, une 2ième\nclique sauvegarde les\ndonnées !")
>>         Text = ("Nouveau")
>>       }
>>       { Chercher Button
>>         MoveScaled(19,30,12,3)
>>         'Move(133,210,84,21)
>>         Background = &H4E8036&
>>         Foreground = &HFFFFBF&
>>         ToolTip = ("Appuyer pour chercher\nune client spécifique")
>>         Text = ("Chercher")
>>       }
>>     }
>>   }
>>   { Details Panel
>>     MoveScaled(0,1,95,46)
>>     'Move(0,7,665,322)
>>     Visible = False
>>     Background = &HFFFFBF&
>>     { Fermer Button
>>       MoveScaled(81,41,12,3)
>>       'Move(567,287,84,21)
>>       Background = &H4E8036&
>>       Foreground = &HFFFFBF&
>>       ToolTip = ("Appuyer pour fermer \nle panneau 'détails'")
>>       Text = ("Fermer +")
>>     }
>>     { TextLabel12 TextLabel
>>       MoveScaled(27,3,13,3)
>>       'Move(189,21,91,21)
>>       Text = ("Ã  Ville, Pays :")
>>     }
>>     { TextLabel13 TextLabel
>>       MoveScaled(3,3,9,3)
>>       'Move(21,21,63,21)
>>       Text = ("Né(e) le :")
>>     }
>>     { TextLabel14 TextLabel
>>       MoveScaled(3,7,8,3)
>>       'Move(21,49,56,21)
>>       Text = ("Metier :")
>>     }
>>     { TextLabel15 TextLabel
>>       MoveScaled(3,11,17,3)
>>       'Move(21,77,119,21)
>>       Text = ("Quote-part proprio :")
>>     }
>>     { TextLabel16 TextLabel
>>       MoveScaled(27,11,3,3)
>>       'Move(189,77,21,21)
>>       Text = ("%")
>>     }
>>     { TextLabel17 TextLabel
>>       MoveScaled(3,15,11,3)
>>       'Move(21,105,77,21)
>>       Text = ("Relation :")
>>     }
>>     { TextLabel18 TextLabel
>>       MoveScaled(27,15,11,3)
>>       'Move(189,105,77,21)
>>       Text = ("Avec qui :")
>>     }
>>     { TextLabel19 TextLabel
>>       MoveScaled(3,19,11,3)
>>       'Move(21,133,77,21)
>>       Text = ("Depuis :")
>>     }
>>     { TextLabel20 TextLabel
>>       MoveScaled(27,19,15,3)
>>       'Move(189,133,105,21)
>>       Text = ("Ou (Ville, Pays) :")
>>     }
>>     { TextLabel21 TextLabel
>>       MoveScaled(3,23,12,3)
>>       'Move(21,161,84,21)
>>       Text = ("Conditions :")
>>     }
>>     { TextLabel22 TextLabel
>>       MoveScaled(75,19,5,3)
>>       'Move(525,133,35,21)
>>       Text = ("Noce :")
>>     }
>>     { TextLabel23 TextLabel
>>       MoveScaled(3,27,31,3)
>>       'Move(21,189,217,21)
>>       Text = ("Desciption Conditions / Observations")
>>     }
>>     { Ne TextBox
>>       MoveScaled(12,3,14,3)
>>       'Move(84,21,98,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { NeOu TextBox
>>       MoveScaled(40,3,50,3)
>>       'Move(280,21,350,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { Metier TextBox
>>       MoveScaled(12,7,78,3)
>>       'Move(84,49,546,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { Quote TextBox
>>       MoveScaled(20,11,6,3)
>>       'Move(140,77,42,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { Mariage TextBox
>>       MoveScaled(12,19,14,3)
>>       'Move(84,133,98,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { MariageOU TextBox
>>       MoveScaled(41,19,30,3)
>>       'Move(287,133,210,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { Noce TextBox
>>       MoveScaled(82,19,8,3)
>>       'Move(574,133,56,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { Conditions TextBox
>>       MoveScaled(12,23,78,3)
>>       'Move(84,161,546,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { Conddesc TextArea
>>       MoveScaled(3,30,75,14)
>>       'Move(21,210,525,98)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { DateChooser2 DateChooser
>>       MoveScaled(27,18,44,20)
>>       'Move(189,126,308,140)
>>       Visible = False
>>       Background = &H606060&
>>       Foreground = Color.Foreground
>>       ToolTip = ("Selectionnez une date")
>>     }
>>     { Relation TextBox
>>       MoveScaled(41,15,49,3)
>>       'Move(287,105,343,21)
>>       Background = &HFFFFBF&
>>       Text = ("")
>>     }
>>     { TypeLiaison ComboBox
>>       MoveScaled(12,15,14,3)
>>       'Move(84,105,98,21)
>>       Background = &HFFFFBF&
>>       Foreground = Color.Foreground
>>       Text = ("ComboBox1")
>>       List = [(""), ("Epouse"), ("Enfant"), ("Parent"), ("Paxé"), ("Famille"), ("Consort"), ("Associé"), ("Copro"), ("Divers")]
>>     }
>>     { DateChooser1 DateChooser
>>       MoveScaled(27,2,44,20)
>>       'Move(189,14,308,140)
>>       Visible = False
>>       Background = &H606060&
>>       Foreground = Color.Foreground
>>       ToolTip = ("Selectionnez une date")
>>     }
>>     { TextLabel24 TextLabel
>>       MoveScaled(28,0,33,2)
>>       'Move(196,0,231,14)
>>       Font = Font["Bold"]
>>       Text = ("........................... les détails ..........................")
>>     }
>>   }
>>   { Nombre TextLabel
>>     MoveScaled(90,0,6,2)
>>     'Move(630,0,42,14)
>>     Font = Font["-1"]
>>     ToolTip = ("Nombre des \nenregistrements")
>>     Text = ("TextLabel25")
>>   }
>> }
>>     
>> ------------------------------------------------------------------------
>>
>> # Gambas Form File 1.0
>>
>> { Form Form
>>   MoveScaled(0,0,110,86)
>>   'Move(0,0,770,602)
>>   Text = ("Revimmo - Les Agences")
>>   { GridView2 GridView
>>     MoveScaled(1,5,69,24)
>>     'Move(7,35,483,168)
>>     ToolTip = ("Clique une agence\npour voir les détails")
>>   }
>>   { TextLabel1 TextLabel
>>     MoveScaled(2,31,9,3)
>>     'Move(14,217,63,21)
>>     Text = ("Nom")
>>   }
>>   { TextLabel2 TextLabel
>>     MoveScaled(2,36,11,3)
>>     'Move(14,252,77,21)
>>     Text = ("Addresse")
>>   }
>>   { TextLabel3 TextLabel
>>     MoveScaled(2,41,11,3)
>>     'Move(14,287,77,21)
>>     Text = ("PCode + Ville")
>>   }
>>   { TextLabel4 TextLabel
>>     MoveScaled(2,56,11,3)
>>     'Move(14,392,77,21)
>>     Text = ("Tcp-IP")
>>   }
>>   { TextLabel5 TextLabel
>>     MoveScaled(2,51,11,3)
>>     'Move(14,357,77,21)
>>     Text = ("Fax")
>>   }
>>   { TextLabel6 TextLabel
>>     MoveScaled(2,46,11,3)
>>     'Move(14,322,77,21)
>>     Text = ("Téléphone")
>>   }
>>   { TextLabel7 TextLabel
>>     MoveScaled(58,33,4,3)
>>     'Move(406,231,28,21)
>>     Text = ("Actif")
>>   }
>>   { TextLabel8 TextLabel
>>     MoveScaled(2,66,11,3)
>>     'Move(14,462,77,21)
>>     Text = ("Site marie")
>>   }
>>   { TextLabel9 TextLabel
>>     MoveScaled(2,61,11,3)
>>     'Move(14,427,77,21)
>>     Text = ("Repertoire")
>>   }
>>   { TextLabel10 TextLabel
>>     MoveScaled(39,47,11,3)
>>     'Move(273,329,77,21)
>>     Text = ("Responsable")
>>   }
>>   { TextLabel11 TextLabel
>>     MoveScaled(39,51,11,3)
>>     'Move(273,357,77,21)
>>     Text = ("Carte")
>>   }
>>   { photo PictureBox
>>     MoveScaled(71,5,38,24)
>>     'Move(497,35,266,168)
>>     ToolTip = ("Cliquer double\nsur le photo pour\npouvoir le changer")
>>     Alignment = Align.Center
>>     Border = Border.Etched
>>   }
>>   { photo_ville PictureBox
>>     MoveScaled(71,32,38,24)
>>     'Move(497,224,266,168)
>>     ToolTip = ("Cliquer double\nsur le photo pour\npouvoir le changer")
>>     Alignment = Align.Center
>>     Border = Border.Etched
>>   }
>>   { TextLabel12 TextLabel
>>     MoveScaled(71,1,11,3)
>>     'Move(497,7,77,21)
>>     Text = ("Photo")
>>   }
>>   { TextLabel13 TextLabel
>>     MoveScaled(71,29,16,3)
>>     'Move(497,203,112,21)
>>     Text = ("Photo Ville")
>>   }
>>   { directeur ComboBox
>>     MoveScaled(51,46,16,3)
>>     'Move(357,322,112,21)
>>     Text = ("")
>>   }
>>   { chef_secteur ComboBox
>>     MoveScaled(51,51,16,3)
>>     'Move(357,357,112,21)
>>     Text = ("")
>>   }
>>   { ToolButton4 ToolButton TBs
>>     Name = "ToolButton4"
>>     MoveScaled(36,1,14,3)
>>     'Move(252,7,98,21)
>>     Background = Color.Background
>>     Tag = "tel|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Téléphone")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton5 ToolButton TBs
>>     Name = "ToolButton5"
>>     MoveScaled(56,1,10,3)
>>     'Move(392,7,70,21)
>>     Background = Color.Background
>>     Tag = "fax|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Fax")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { ToolButton3 ToolButton TBs
>>     Name = "ToolButton3"
>>     MoveScaled(3,1,10,3)
>>     'Move(21,7,70,21)
>>     Background = Color.Background
>>     Tag = "nom|DESC"
>>     ToolTip = ("Clique moi pour faire\nune tri sur la colonne")
>>     Text = ("Nom")
>>     Picture = Picture["icon:/16/redo"]
>>   }
>>   { nom TextBox Stxt
>>     Name = "nom"
>>     MoveScaled(14,31,37,3)
>>     'Move(98,217,259,21)
>>     Text = ("")
>>   }
>>   { rue TextBox Stxt
>>     Name = "rue"
>>     MoveScaled(14,36,37,3)
>>     'Move(98,252,259,21)
>>     Text = ("")
>>   }
>>   { plz TextBox Stxt
>>     Name = "plz"
>>     MoveScaled(14,41,11,3)
>>     'Move(98,287,77,21)
>>     Text = ("")
>>   }
>>   { ville TextBox Stxt
>>     Name = "ville"
>>     MoveScaled(26,41,25,3)
>>     'Move(182,287,175,21)
>>     Text = ("")
>>   }
>>   { tel TextBox Stxt
>>     Name = "tel"
>>     MoveScaled(14,46,18,3)
>>     'Move(98,322,126,21)
>>     Text = ("")
>>   }
>>   { fax TextBox Stxt
>>     Name = "fax"
>>     MoveScaled(14,51,18,3)
>>     'Move(98,357,126,21)
>>     Text = ("")
>>   }
>>   { tcpip TextBox Stxt
>>     Name = "tcpip"
>>     MoveScaled(14,56,18,3)
>>     'Move(98,392,126,21)
>>     Text = ("")
>>   }
>>   { repertoire TextBox Stxt
>>     Name = "repertoire"
>>     MoveScaled(14,61,31,3)
>>     'Move(98,427,217,21)
>>     Text = ("")
>>   }
>>   { site_marie TextBox Stxt
>>     Name = "site_marie"
>>     MoveScaled(14,66,31,3)
>>     'Move(98,462,217,21)
>>     Text = ("")
>>   }
>>   { actif CheckBox
>>     MoveScaled(59,36,2,3)
>>     'Move(413,252,14,21)
>>     Text = ("CheckBox1")
>>   }
>>   { Button1 Button
>>     MoveScaled(97,81,11,3)
>>     'Move(679,567,77,21)
>>     Background = &H800000&
>>     Foreground = &HFFFFBF&
>>     ToolTip = ("Appuyer pour quitter le programme")
>>     Text = ("Sortir")
>>   }
>>   { Separator1 Separator
>>     MoveScaled(36,46,1,13)
>>     'Move(252,322,7,91)
>>   }
>>   { TextLabel14 TextLabel
>>     MoveScaled(2,71,10,9)
>>     'Move(14,497,70,63)
>>     Text = ("Territoire \n(Villes secteur \nagence)")
>>   }
>>   { villes ListBox
>>     MoveScaled(14,71,31,9)
>>     'Move(98,497,217,63)
>>   }
>>   { TextLabel15 TextLabel
>>     MoveScaled(51,59,29,3)
>>     'Move(357,413,203,21)
>>     Text = ("Texte commerciale de l'agence")
>>   }
>>   { textecom TextArea Stxt
>>     Name = "textecom"
>>     MoveScaled(51,62,58,18)
>>     'Move(357,434,406,126)
>>     Text = ("")
>>   }
>>   { Nouveau Button
>>     MoveScaled(51,81,12,3)
>>     'Move(357,567,84,21)
>>     Background = &H323C80&
>>     Foreground = &HFFFFBF&
>>     ToolTip = ("Vous pouvez enregistrée\nune nouvelle agence ici->")
>>     Text = ("Nouveau")
>>   }
>>   { SelVilles ToolButton
>>     MoveScaled(33,81,12,3)
>>     'Move(231,567,84,21)
>>     Background = &HFFFF5F&
>>     ToolTip = ("Cliquer pour ajouter\nau supprimer des\nvillages du territoir\nde cette agence")
>>     Text = ("Changer")
>>     Picture = Picture["Images/go-up.png"]
>>     Border = True
>>   }
>> }
>>     
>> ------------------------------------------------------------------------
>>
>> -------------------------------------------------------------------------
>> Take Surveys. Earn Cash. Influence the Future of IT
>> Join SourceForge.net's Techsay panel and you'll get the chance to share your
>> opinions on IT & business topics through brief surveys-and earn cash
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>     





More information about the User mailing list