Baze de Date4

Forma principala a aplicatiei contine un control de tip CommandGroup cu trei butoane componente  proprietatea ButtonCount = 3. Efectele de culoare s-au generat cu ajutorul proprietatii BackColor a formei precum si a controlului de tip CommandGroup.

procedura - frmMeniu _Activate

set default to "D:Baze_de_dateEx2"

procedura  cmdStergere_Click

do form frmstergere

thisform.release

Fig. 2.6 Fereastra de cod atasata butonului cmdStergere din cadrul controlului CmdGrup1

procedura  cmdAfisare_Click

do form frmAfisare

thisform.release

procedura  cmdIesire_Click

thisform.release

procedura - frmStergere _Activate

open database evid

use agenda order coda

thisform.cbocoda.listindex = 1

thisform.container1.visible = .F.

thisform.txtcoda.visible = .F.

thisform.txtnume.visible = .F.

thisform.txtpren.visible = .F.

thisform.txttelef.visible = .F.

thisform.lblcoda.visible = .F.

thisform.lblnume.visible = .F.

thisform.lblpren.visible = .F.

thisform.lbltelef.visible = .F.

= messagebox("Alegeti un cod, vizualizati-l, ;

apoi apasati butonul Stergere!")