TTable / TAccTable

Fuente: source/classes/ttable.prg, source/classes/tacctbl.prg

TTable provides DBF table metadata management — it stores the table name, alias, field definitions and index list, and can create or import DBF structures. TAccTable manages Windows accelerator tables, allowing keyboard shortcuts (virtual key + modifier state) to be associated with control IDs.

TTable — DBF Table Metadata

Key DATA Members

DATA	Type	Description
`cName`	Character	Table file name (without extension)
`cAlias`	Character	Alias used when opening the table
`lShared`	Logical	Open table in shared mode
`aFields`	Array	Array of TField objects defining the structure
`aIndexes`	Array	Array of index definitions

Methods

Method	Description
`New( cName, cAlias, lShared, cComments )`	Create a new table metadata descriptor
`Import( cDbfFile )`	Import the field structure from an existing DBF file
`Create( cPath )`	Physically create the DBF file on disk from the stored field definitions

TAccTable — Accelerator Table

Key DATA Members

DATA	Type	Description
`nHandle`	Numeric	Windows accelerator table handle (returned by SetAccTable)
`aItems`	Array	Array of items, each is `{ nVirtKey, nVKState, nId }`

Methods

Method	Description
`New()`	Create an empty accelerator table
`Add( nVK, nState, nId )`	Add an accelerator entry (virtual key + modifier state + command ID)
`Del( nVK, nState )`	Remove an accelerator entry by virtual key and state
`Activate()`	Set this accelerator table as active for the calling thread
`DeActivate()`	Restore the previous accelerator table (pass nil to SetAccTable)
`End()`	Destroy the accelerator table and deactivate it if currently active

Example: Create Table and Accelerator

#include "FiveWin.ch"

function Main()

   local oTable, oAccel

   // TTable: define and create a DBF
   oTable := TTable():New( "customers", "CUST", .F. )
   AAdd( oTable:aFields, TField():New( "customers", 1, .F., "NAME", "C", 40, 0 ) )
   AAdd( oTable:aFields, TField():New( "customers", 2, .F., "CITY", "C", 30, 0 ) )
   oTable:Create( "c:\data" )

   // TAccTable: define keyboard shortcuts
   oAccel := TAccTable():New()
   oAccel:Add( VK_F2, 0, 101 )
   oAccel:Add( VK_F3, 0, 102 )
   oAccel:Add( VK_S, MOD_CONTROL, 103 )
   oAccel:Activate()

return nil

Notes

TTable does not manage record-level operations; it is solely for structure definition and physical DBF creation.
The Import() method reads an existing DBF header and populates aFields with TField instances.
TAccTable wraps the Windows SetAccTable() API. The modifier state (nVKState) can be a combination of MOD_CONTROL, MOD_ALT, MOD_SHIFT, etc.
Call Activate() to register the table; the handle is stored in nHandle for later deactivation.
Only one accelerator table can be active at a time per thread.

TTable / TAccTable

TTable — DBF Table Metadata

Key DATA Members

Methods

TAccTable — Accelerator Table

Key DATA Members

Methods

Example: Create Table and Accelerator

Notes

Ver También