National Change Case

Posted on November 10, 2011 by vivaclipper

SET LANGUAGE TO xxxx,
EXTERNAL HB_CODEPAGE_xxxx
REQUEST HB_SETCODEPAGE
HB_SETCODEPAGE('xxxx')
... 
and others...

All are useful and adequate functions / commands, no doubt.

But sometime inefficient for me; and, I’m using my own case convert function

By changing two national character set layout, usable for all languages.

Download source.

National Alternate Collating Sequence

Posted on November 10, 2011 by vivaclipper

Some (including mine) language include accented characters and in PC everything likes for English ! All non-english character come after “z” ! Damn !

Fortunately (many thanks to builders of Clipper), dBase indexes have opportunity of based (none only field content), any valid expression, including a return value of a function

So we can use a function for product correct value for correct indexing.

Download source.

Auto fill in text box

Posted on November 10, 2011 by vivaclipper

An experimental work on AutoFill feature in text box.

Some friends told about it and some commercial products support it with some high promotions.

It is very primitive stage and enhanced by friends. For details look at here.

Download source.

Low-Level DBU

Posted on November 10, 2011 by vivaclipper

Not a real DBU, only an experimental work with very limited DB operations.

Primary goal of this project is access, detect, inspect and digg a damaged table.

Reasons of damage may be various, so recovery method too depends damage type.

This program open a table by Low_Level file access and read methods.

A second usage may be inspecting how data recorded into a table; always in the visible form or not.

I also tried some function to easy using of Virtual Grid. The virtual grid is a very handy control (even have more possibilities than standard Grid). But don’t have AddItems and Refresh methods. This program have two little functions for this purpose ( VGridAddItem() and VGridRefresh() ).

Another interesting point may be showing how can be implement “returning beginning of procedure” from anywhere of that procedure ( procedure : LL_UseTable() ).