[Gambas-user] RichDBGrid Alpha

[Jacky]

Le Monday 10 December 2007 16:07:57 Fabien Bodard, vous avez écrit :
> This is a little encapsulation class to make rich grid viewer for  Database
> .
>
> There is a dynamic Conditional set of class used by the gridview and a
> system to store and restore cells or anything that have a simple format in
> a string. It store BackColor, ForeColor, Alignment, Font, Padding.
>
> For exemple this :
>
> Epuises = "BackColor: &FF0000&; ForeColor: &HFFFFFF&; Font: Bold,+2"
> hCondition = NEW Conditions("salary", Conditions.EstSuperieur, 4000,
> Epuises) hCondition.Add("salary", Conditions.EstInferieur, 6500)
> $hDBGrid.CondFormats.Add(hCondition)
>
> Say to change format on line where the salary > 4000 and < 6500
>
> it set the bgcolor to red and the Forecolor to white set the font bold and
> increase it to grade +2
>
> TODO
>
> The Column Format.. i will use an array of format string ..
>
> Spécific Column Format.. or better Specific Column conditionality
>
> Some word are in french... sorry, the CFormat and Conditions classes can be
> used in many other cases..
>
> An advise ?
>
>
>
> Fabien

On t'a déjà dis que t'étais bon ?

Je peux pas tester car je n'ai pas de base test et l'exemple database me pete 
une erreur 6.

Peux-tu corriger un bug génant en facture

il faudrait que tu supprimes  ", block_ligbl = &15 " dans les deux procedures 
suivantes.

'* Pour les articles.
PUBLIC SUB Enrg_LigArt()
'
'

  IF rResult.Available THEN
    Utils.db.Exec("UPDATE  " & tab & "  SET  num_ligbl = &1 , numlig_ligbl = 
&2 , code_ligbl = &3, libel_ligbl = &4, fam_ligbl = &5, pu_ligbl = &6, 
qte_ligbl = &7, brut_ligbl = &8, rem_ligbl = &9, netht_ligbl = &10, tx_ligbl 
= &11, nettc_ligbl = &12, typel_ligbl = &13, dec_ligbl = &14 WHERE num_ligbl 
= &1 and numlig_ligbl = &2", num.Text, Nlgart.Text, Cart.Text, Artdsg.Text, 
ArtFam.Text, Artpu.Text, Artqte.Text, Artbrut.Text, Artrm.Text, Artnet.Text, 
Arttx.Text, Arttc.Text, typeL, Dec.Text)
 


'* Pour la MO.
PUBLIC SUB Enrg_LigMo()
'
'
  IF rResult.Available THEN
    Utils.db.Exec("UPDATE  " & tab & "  SET  num_ligbl = &1 , numlig_ligbl = 
&2 , code_ligbl = &3, libel_ligbl = &4, fam_ligbl = &5, pu_ligbl = &6, 
qte_ligbl = &7, brut_ligbl = &8, rem_ligbl = &9, netht_ligbl = &10, tx_ligbl 
= &11, nettc_ligbl = &12, typel_ligbl = &13, tm_ligbl = &14 WHERE num_ligbl = 
&1 and numlig_ligbl = &2", num.Text, Nlg.Text, Cmo.Text, libelle.Text, 
CdFam.Text, Txhr.Text, Tmont.Text, Brutht.Text, Rem.Text, Netht.Text, 
Tmo.Text, Nettc.Text, typeL, Tm.Text)


A +