程序代码:CLOSE DATABASES
SELECT 0
*gcTable=GETFILE('DBF', 'Browse or Create a .DBF:', 'Browse', 1, 'Browse or Create')
gcTable=GETFILE('DBF')
DO CASE
CASE 'Untitled' $ gcTable
CREATE (gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
BROWSE IN WINDOW (thisform.Name) NAME ob NOWAIT
ob.top = 12
ob.left = 120
ob.width = 577
ob.height = 217
ENDCASE