mainprg.bak

来自「一个将电话号码进行很好管理的软件」· BAK 代码 · 共 27 行

*this is main prg
set century on &&以四位数显示年份
set date to ymd  &&设置日期格式

mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
*set path to mypath\class;mypath\img
mainpath=strtran(mypath,'FORMS\','')

*wait wind mypath
*wait wind mainpath
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