BaseDef SK
sk.New("skup")

sk.Key(0x0100,"ID")
sk.KeyField(15,4,"ID")
sk.Create()
String sciezka=KatalogFirmy()+"SK.DAT"
Create sciezka for base "skup"
BaseError (sciezka,4)

String sciezka=KatalogFirmy() + "sk.DAT"
Int sk=Open sciezka For base "skup"
baseError (sk, 4)

// falgi kluczy
int BKF_EXT       = 0x0100 // wartość stała dla wszystkich kluczy   
int BKF_MOD       = 0x0002 // dane klucza można modyfikować
int BKF_DUP       = 0x0001 // klucz może być duplikowany


// rodzaje pól w rekordzie
#define FT_STRING   0      
#define FT_INT      1      
#define FT_FLOAT    2   
#define FT_DATE     3         
#define FT_AUTOINC  15

BaseDef bDef

bDef.New("LUDZIE")
bDef.Field(FT_STRING, 50, "nazwisko")
bDef.Field(FT_STRING, 50, "imie")


// klucz 1 - ten klucz pilnuje żeby nie było w bazie dwóch osób o takim samym nazwisku

bDef.Key(BKF_EXT | BKF_MOD , "nazwisko")
bDef.KeyField(FT_STRING, 50, "nazwisko")

// klucz 2
bDef.Key(BKF_EXT | BKF_MOD | BKF_DUP , "imie")
bDef.KeyField(FT_STRING, 50, "imie")

bDef.Create()

int bBaza, errBaza

bBaza = Open KatalogFirmy() + "LUDZIE.DAT" for base "LUDZIE"

if bBaza <= 0 then
   Create KatalogFirmy() + "LUDZIE.DAT" for base "LUDZIE"
   BaseError(KatalogFirmy() + "LUDZIE.DAT",  4)

   //otwieramy stwrzoną baze danych
   bBaza = Open KatalogFirmy() + "LUDZIE.DAT" for base "LUDZIE"
   BaseError(KatalogFirmy() + "LUDZIE.DAT",  4)

endif

Close( bBaza )