Autor: Wlodzimierz Macewicz (w.macewicz_at_ia.pw.edu.pl)
Data: Thu 20 May 1999 - 14:41:21 MET DST
> Procedure Main()
> local cName, GetList:={}
>
> do while .t.
> cName = space(12)
> @ 0,0 say 'Podaj nazwe najwazniejszego zbioru DBF' get cName;
> valid file(alltrim(cName))
> read
> if lastkey() == K_ESC
> exit
> endif
> use (cName) new exclusive
> zap
> use
> enddo
> return
>
zapomnailes dodac ze polecenia ,,zap'' kasuje tabele (baze danych po
Clipperowsku)
WM
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:32:52 MET DST