73 lines
1.6 KiB
Plaintext
73 lines
1.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
How to Encrypt/Decrypt DBF on The Fly
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cFile1 := "TEST1.DBF"
|
|
LOCAL aStruct1 := { ;
|
|
{ "MYCHAR1" , "C", 15, 0 }, ;
|
|
{ "MYCHAR2" , "C", 15, 0 }, ;
|
|
{ "MYCHAR3" , "C", 15, 0 }, ;
|
|
{ "MYDATE" , "D", 8, 0 }, ;
|
|
{ "MYLOGIC" , "L", 1, 0 }, ;
|
|
{ "MYNUM1" , "N", 8, 0 }, ;
|
|
{ "MYNUM2" , "N", 7, 2 }, ;
|
|
{ "MYMEMO" , "M", 10, 0 } }
|
|
|
|
CLS
|
|
SX_RDDSETDEFAULT( "SDEFOX" )
|
|
SET CENTURY ON
|
|
SET DATE ANSI
|
|
|
|
?
|
|
? 'Creating DBF ...'
|
|
CREATE DBF cFile1 STRUCT aStruct1
|
|
? 'Opening File ...'
|
|
USE cFile1 ALIAS MYALIAS EXCLUSIVE
|
|
? 'Setting Password ...'
|
|
SX_SETPASSWORD( "HARBOUR" ) // Set Password On Current Area - MAX 8 characters
|
|
? 'Append Blank ...'
|
|
APPEND BLANK
|
|
? 'Update Record ...'
|
|
REPLACE MYCHAR1 WITH "THIS IS MYCHAR1", ;
|
|
MYCHAR2 WITH "THIS IS MYCHAR2", ;
|
|
MYCHAR3 WITH "THIS IS MYCHAR3", ;
|
|
MYDATE WITH DATE(), ;
|
|
MYLOGIC WITH .T. , ;
|
|
MYNUM1 WITH 100, ;
|
|
MYNUM2 WITH 200.50, ;
|
|
MYMEMO WITH "Harbour Power!"
|
|
?
|
|
? 'Now BROWSE .. Press any key ...'
|
|
PAUSE
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
CLS
|
|
?
|
|
? 'Browse with Wrong PASSWORD .. Press any key ...'
|
|
PAUSE
|
|
USE cFile1 ALIAS MYALIAS EXCLUSIVE
|
|
SX_SETPASSWORD( "XHARBOUR" ) // Wrong Password
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
|
|
CLS
|
|
?
|
|
? 'Browse with Correct PASSWORD .. Press any key ...'
|
|
PAUSE
|
|
USE cFile1 ALIAS MYALIAS EXCLUSIVE
|
|
SX_SETPASSWORD( "HARBOUR" ) // Correct Password
|
|
CLS
|
|
BROWSE
|
|
|
|
CLOSE ALL
|