如何在VFP中建立一个项目并添加一个程序进去，并设置成主文件？

1、文件菜单选新建选项目

2、在项目窗口里的代码选项卡的程序里新建prg文件

3、在新建的prg文件上右键，d出菜单选设置主文件

注：你新建的prg文件要是没有内容的话，可以粘贴如下代码：

x=Val(Inputbox("请输入一个数：","测试"))

If x>0

Y=x*x

Endif

If x=0

Y=100

Endif

If x<0

Y=x*10

Endif

Messagebox("Y="+Transform(Y),0+64,"输出")

呵呵~~~

贴个我的C/S系统中动态创建数据库及表后从TXT中导入数据的函数和使用方法供你参考

1、使用方法：=Txt2Dbf('SELECT Teams.* From Teams','Teams.TXT','INSERT INTO Teams(Team_ID,Team_Name,Begin_Time,End_Time)','班次代码')

2、函数：*!* 从文本文件获得数据

Function Txt2Dbf

Parameters lcSql,lcFile,lcStr,lchint

If LNConn>0

If SQLEXEC(LNConn,lcSql,'MyTxt')>0

Select MyTxt

If Reccount()<=0

Store Fopen(lcFile) To GNFileHandle&&打开文件

Store Fseek(GNFileHandle, 0, 2) To GNEnd&&移动指针到文件尾

Store Fseek(GNFileHandle, 0) To GNTOP &&移动指针到文件头

If GNEnd <= 0 &&文件是否为空?

Return

Endif

For I=0 To GNEnd

GCString = Fgets(GNFileHandle)

If !Empty(GCString)

GCString=lcStr+" VALUES('"+Strtran(Strtran(GCString,'"',""),',',"','")+"')"

SQLEXEC(LNConn,GCString,'MyTxt')

Endif

Endfor

= Fclose(GNFileHandle) &&关闭打开的文件

Endif

Else

Messagebox(lchint+' 查询失败！',16,gcMyCorp,3000)

Endif

Else

Messagebox('建 '+lchint+' 时数据库连接失败！',16,gcMyCorp,3000)

EndifEndfunc

---