mainprg.prg

来自「VFP教程示例」· PRG 代码 · 共 23 行

*this is main prg
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
*set path to mypath\class;mypath\img
mainpath=strtran(mypath,'FORMS\','')
*!*	?mainpath
*!*	cancel
if not(file("tele.dbc"))
   set safety on
   CREATE DATABASE [tele.dbc]&& 创建数据库
    *创建新电话簿
   filename=[我的电话簿.dbf]
   CREATE TABLE  (filename) (姓名 C(8),性别 C(2), 家庭电话 C(40),单位电话 C(40),移动电话 C(40),;
                       传呼 C(40),电子信箱 C(40),家庭住址 C(40),工作单位 C(40),备注 M)   
   index on 姓名 tag 姓名  &&建立普通索引
   *插入一条记录
   INSERT INTO (alltrim(dbf())) (姓名,性别,电子信箱) VALUES ([庄稼],[男],[[e-mail]])
endif   
*wait window [program is staring]

do form main15 name main15
read event