Data-Controls I: DATA-BOUND GRID

Data controls are designed to handle data in .dbf files directly.

Grid control allows to show \/ edit database records in tabular format.

'RecNo' property is use to set \/ get the selected record number (recno()).

#include "hmg.ch"
Function Main
OpenTables()
    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 640 HEIGHT 480 ;
        TITLE 'Tutor 19 - GRID Test' ;
        MAIN NOMAXIMIZE 
        DEFINE MAIN MENU 
            POPUP 'File'
                ITEM 'Set Grid RecNo' ACTION Win_1.Grid_1.Value := Val ( InputBox ('Set Grid RecNo','') )
                ITEM 'Get Grid RecNo' ACTION MsgInfo ( Str ( Win_1.Grid_1.RecNo ) )
                SEPARATOR
                ITEM 'Exit' ACTION Win_1.Release
            END POPUP
            POPUP 'Help'
                ITEM 'About' ACTION MsgInfo ("Tutor 20: GRID Test") 
            END POPUP
        END MENU
        @ 10,10 GRID Grid_1 ;
            WIDTH 610 ;
            HEIGHT 390 ; 
            HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' } ;
            WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 } ;
            ROWSOURCE "Test" ;
            COLUMNFIELDS { 'Code' , 'First' , 'Last' , 'Birth' , 'Married' , 'Bio' } ;
            ALLOWDELETE ;
            ALLOWEDIT
    END WINDOW
    CENTER WINDOW Win_1
    ACTIVATE WINDOW Win_1
Return Nil

Procedure OpenTables()
    Use Test
    Win_1.Browse_1.Value := RecNo() 
Return Nil

Procedure CloseTables()
    Use
Return Nil