stefan_JKSL wrote Nu doresc sa-l integrez intr-un grid. Cand am spus tabel m-am referit la dbf nu la grid. Scuze pentru exprimarea inexacta. Mai concret doresc sa realizez o diagrama pentru hotel. Un tabel (dbf) retine numarul camerei si starea (1-libera, 2-ocupata, 3-murdara, 4-rezervata) iar ca reprezentare grafica a camerelor am ales CommandButton. Doresc ca generarea formului sa se faca automat in functie de nr. de camere si de starea acestora. Ori de cate ori intervine o modificare in dbf form-ul sa-mi afiseze diagrama actualizata. Nu sunt multe camere si pot sa le definesc manual insa conducerea doreste ca, la nevoie, sa adauge camere virtuale si asta imi strica planurile.

Cred ca este o idee buna sa dai cat mai multe detalii despre ce doresti sa faci. In felul acesta ti se pot da si solutii alternative la problema ta, nu numai raspunsuri tehnice (ex cum sa legi controlsource-ul din grid cu commandbuton.caption)

Poti sa faci un tabel cu camerele si cu informatii de genul (id, nume, left_pos, top_pos), unde:
nume = numele camerei
left_pos = offset fata de marginea din stanga a formularului
left_pos = offset fata de marginea de sus a formularului

Apoi scanezi tabelul cu camerele si le desenezi pe formular:

Select camere

   lcNume = nume && 101

   lcCameraName = "oCamera" + Alltrim(Str(Id))

   Thisform.AddObject(lcCameraName, "commandbutton")

   loCamera = Thisform.&lcCameraName

   loCamera.Caption = lcNume && 101

stefan_JKSL wrote ThisForm.Refresh && Abracadabra... diagrama-i gata

Am inteles acum - doresti un buton magic :)

Cum era vorba? "stiinta este magie care functioneaza" sau "magia este stiinta care nu s-a explicat". Vad ca stiinta este, vrei sa o faci magie :)

Solutia de mai sus am aplicat-o si eu, cu niste adaptari. La modificarea starii unei camere, actualizez doar controlul camerei respective, ca sa nu trebuiasca sa redesenez tot.

Redesenarea starii unei camere poti sa o incapsulezi in control (commandbutton), dar nu cred ca si popularea initiala cu camere, sau la schimbarea zilei curente.

Asa de curiozitate si fara nici un subinteles, cum crezi face un grid sa se lege de un tabel? Are un cod scris pe undeva. Dar daca nu vezi codul ai putea sa spui ca face Abracadabra :D

1. Tabela cu camerele hotelului va contine atatea inregistrari cate camere sunt in hotel.

2. Un tabel temporar poate fi o vedere care se incarca automat la deschidere sa cu ceea ce ai filtrat atunci cand ai construit-o (aici este chiar recomandata utilizarea vederilor parametrizate).

3. Formularul va contine o metoda numita Reinprospatare() in care parcurgi tabela (vederea). Pentru fiecare inregistrare vei genera butonul caruia ii vei asocia proprietatile in functie de valorile inregistrarii. Metoda se va termina cu un ThisForm.Refresh().

4. In metoda Init() a formularului vei apela aceasta metoda.

5. Formularul va mai contine un Timer din care se va apela aceasta metota pentru ca eventualele actualizari facute pe o alta statie de lucru sa se poata vedea si pe statia curenta.

Dupa cum vezi nu am pomenit nimic de o clasa din care sa instantiez butoanele formularului. In cazul acestei constructii sunt prea putine proprietati care ar fi comune (eventual latimea si inaltimea) tuturor butoanelor ca sa se justifice crearea clasei. Restul proprietatilor le stabilesti in functie de valorile din tabela.

La urma urmei din tabela ce proprietati ei pentru un buton ? Numarul camerei pe care il pui in Caption, (eventual concatenat cu numele clientului) si starea camerei care va genera BackColor-ul Proprietatile Top si Left  evident ca vor fi calculate pentru fiecare buton in parte.

Sugestii

a) Proprietatea Themes = .T. a butonului se va folosi pentru camera ocupata si Themes = .F. pentru camera neocupata.

b) Proprietatea ToolTipText a butonului ocupat va contine numele clientului.