Contributed work of M., Ronaldo ( IMATECH )
MR-Print: Harbour Print System (array, txt, prn, dbf => pdf)
Tag Archives: DBF()*
Dr. Claudio Soto
Contributed samples and applications by Dr. Claudio Soto
A simple way to modify the cursor …
Harbour All Functions – D
dbAppend()
dbClearFilter()
dbCloseAll()
dbCloseArea()
dbCommit()
dbCommitAll()
dbCreate()
dbDelete()
dbEval()
dbF()
dbFilter()
dbGoBottom()
dbGoTo()
dbGoTop()
dbReCall()
dbRLock()
dbRLockList()
dbRUnlock()
dbSeek()
dbSelectArea()
dbSetDriver()
dbSetFilter()
dbSkip()
dbSkipper()
dbStruct()
dbUnlock()
dbUnlockAll()
dbUseArea()
DecToBin()
DecToHexa()
DecToOctal()
Deleted()
Descend()
DevOutPict()
DirChange()
DirRemove()
DiskSpace()
Harbour Database Functions
Database Functions
| AFields | Fills referenced arrays with database field information |
| Alias | Returns the alias name of a work area |
| BOF | Test for the beggining-of-file condition |
| dbAppend | Appends a new record to a database file |
| dbClearFilter | Clears the current filter condiction in a work area |
| dbCloseAll | Close all open files in all work areas. |
| dbCloseArea | Close a database file in a work area |
| dbCommit | Updates all index and database buffers for a given workarea |
| dbCommitAll | Flushes the memory buffer and performs a hard-disk write |
| dbCreate | Creates an empty database from a array |
| dbDelete | Mark a record for deletion in a database |
| dbEval | Performs a code block operation on the current Database |
| DBF | Alias name of a work area |
| dbFilter | Return the filter expression in a work area |
| dbGoBottom | Moves the record pointer to the bottom of the database |
| dbGoto | Position the record pointer to a specific location |
| dbGoTop | Moves the record pointer to the top of the database |
| dbRecall | Recalls a record previousy marked for deletion |
| dbSeek | Searches for a value based on an active index |
| dbSelectArea | Change to another work area |
| dbSetDriver | Establishes the RDD name for the selected work area |
| dbSetFilter | Establishes a filter condition for a work area |
| dbSkip | Moves the record pointer in the selected work area |
| dbSkipper | Helper function to skip a database |
| dbStruct | Builds a multidimensional array of a database structure |
| dbUseArea | Opens a work area and uses a database file |
| Deleted | Tests the record’s deletion flag |
| EOF | Test for end-of-file condition |
| FCount | Counts the number of fields in an active database |
| FieldDeci | Determines the number of decimal places of a given numeric field |
| FieldGet | Obtains the value of a specified field |
| FieldName | Return the name of a field at a numeric field location |
| FieldPos | Return the ordinal position of a field |
| FieldPut | Set the value of a field variable |
| FieldSize | Determines the size of a given field |
| FieldType | Determines the type of a given field |
| Found | Determine the success of a previous search operation |
| Header | Return the length of a database file header |
| LastRec | Returns the number of records in an active work area or database |
| LUpdate | Yields the date the database was last updated |
| RecCount | Counts the number of records in a database |
| RecNo | Returns the current record number or identity |
| RecSize | Returns the size of a single record in an active database |
| Select | Returns the work area number for a specified alias |
| Used | Checks whether a database is in use in a work area |
Alias()
ALIAS()
Returns the alias name of a work area
Syntax
Alias([<nWorkArea>]) --> <cWorkArea>
Arguments
<nWorkArea> Number of a work area
Returns
<cWorkArea> Name of alias
Description
This function returns the alias of the work area indicated by <nWorkArea> If <nWorkArea> is not provided, the alias of the current work area is returned.
Examples
PROCEDURE Main()
USE test
SELECT 0
? iif( Alias() == "", "No Name", Alias() )
? test->( Alias() )
? Alias( 1 )
RETURN
Compliance
Clipper
Files
Library is rdd
Seealso
DBF()
SP_SUM_AVE
SUM_AVE()
Short:
------
SUM_AVE() Interactive sum or average on a dbf field
Returns:
--------
Nothing
Syntax:
-------
SUM_AVE([cSumAve])
Description:
------------
Does a SUM or AVERAGE on a selected numeric field
[csumAve] = "SUM" or "AVE". Default is "SUM"
Examples:
---------
case nChoice = 3 && sum
SUM_AVE("SUM")
case nChoice = 4 && average
SUM_AVE("AVE")
Notes:
-------
If sls_query() is not empty, an optional SUM or
AVERAGE for QUERY can be done.
Source:
-------
S_SUMAV.PRG
SP_SCONVDELIM
SCONVDELIM() Short: ------ SCONVDELIM() Convert a delimited file to a DBF Returns: -------- None Syntax: ------- SCONVDELIM() Description: ------------ This allows the user to create a DBF file from a delimited file. Several options for defining the delimited file are available. Examples: --------- use CUSTOMER SCONVDELIM() Source: ------- S_CVTDEL.PRG
SP_SATTPICK
SATTPICK() Short: ------ SATTPICK() Sets up SuperLib color vars by selecting from DBF Returns: -------- Nil Syntax: ------- SATTPICK() Description: ------------ This sets up the system color and interface variables described in SLS_*() by allowing a picklist of them from the colors dbf defined in SLSF_COLOR(). Examples: --------- SATTPICK() Notes: ------- SATTPUT() and SETCOLORS() allow storage of color sets to disk. SETCOLORS() makes use of SATTPICK(). Source: ------- S_CLRFUN.PRG
SP_PROGEVAL
PROGEVAL()
Short:
------
PROGEVAL() Perform a Database DBEVAL() with a progress box
Returns:
--------
Nil
Syntax:
-------
PROGEVAL(bBlock,expCondit,[cMessage],[bMessage],[lPause])
Description:
------------
Pops up a progress bar box with PROGON().
Performs a DBEVAL() using <bBlock> as the first
parameter, and <expCondit> as the FOR condition. (can be
passed as a codeblock or a string).
[cMessage] is an optional box title for the progress
box
[bMessage] is a codeblock which returns a string
which will be displayed on the bottom inside line of the progress
box for each record processed.
[lPause] if True will pause before removing the box
with PROGOFF()- default is False.
Examples:
---------
// here is a counting example
nCount := 0
nScanned := 0
bDisplay := {||alltrim(str(nCount))+" matches of "+;
alltrim(str(nScanned++))+" scanned"}
ProgEval({||++nCount},"[S]$LNAME","Counting",bDisplay,.t.)
// OR
ProgEval({||++nCount},{||"S"$LNAME},"Counting",bDisplay,.t.)
Notes:
-------
Look up on DBEVAL() and note that this function is
the same, except it uses only the first two parameters.
Source:
-------
S_PROG.PRG
See also : PROGCOUNT(), PROGDISP(), PROGINDEX(), PROGOFF(), PROGON()
SP_PROGDISP
PROGDISP()
Short:
------
PROGDISP() Displays progress bar in box created with PROGON()
<quick descrip>
Returns:
--------
<expReturn> => determined by several things
Syntax:
-------
PROGDISP(nCurrent,nTotal,[bMessage],[bReturn])
Description:
------------
Updates a progress bar created with PROGON().
<nCurrent> is the current item/position. <nTotal> is
the total items. What is displayed is the percentage <nCurrent>
is of <nTotal>.
[bMessage] is an optional message line block, which
is displayed
on the bottom inside line of the box [bReturn] is an
optional return value, with the default being True
Examples:
---------
//---------- this just shows progress from 1 - 1000
initsup()
ProgOn("Test")
for i = 1 to 1000
IF !ProgDisp(i,1000,{||alltrim(str(i))+" of 1000"},;
{||inkey()#27} )
exit
endif
next
ProgOff()
//--------- this show indexing progress
use Customer
ProgOn("Index")
dbcreateindex("Eraseme","(LNAME)", ;
{||ProgDisp( recno(),recc() ),LNAME},.f.)
ProgOff()
// note the use of parentheses around LNAME.
// see also PROGINDEX()
//--------- this shows a count progress
nCounted := 0
nMatches := 0
bDisplay := {||alltrim(str(nMatches))+" matches of "+;
alltrim(str(nCounted)) }
ProgOn("Counting")
count for "S"$LNAME to ;
nMatches while ProgDisp(++nCounted,recc(),bDisplay )
ProgOff()
Source:
-------
S_PROG.PRG
See also : PROGCOUNT(), PROGEVAL(), PROGINDEX(), PROGOFF(), PROGON()
