连编建立的主文件一定要是程序文件吗？是不是这样的主程序都是固定的模式。都有哪些语句？

http://blog.

通常情况是。那怕只有几句设置和引用也行。

还是设置一个主程序吧，通常在主程序设置你的运行环境
如:
set dele on
set talk off
set safety off
SET DEFAULT TO 设置默认目录
set path to 设置搜索路径
等等
...........
do form 运行你的主表单
........

向你学习！！！

主程序也可是表单

PUBLIC cjok,bjok,jsrkok
cjok=.f.
bjok=.f.
jsrkok=.t.
USE bj
IF RECCOUNT()>=1
   bjok=.t.
ENDIF

set sysmenu off
set sysmenu to
set talk off
set notify off
set safety off
set clock status
set palet off
set bell on
set escape on
set keycomp to windows
set carry on
set conf on
*set exact on设定字符比较规则,详细见vf帮助 =与==一样
set near on
set ansi off
set lock on
set mult on
set optim on
set refre to 0,5
set odome to 100
set date to YMD
set resour on
set defa to sys(5)+curdir()

 
_screen.Visible= .F.
_screen.caption="成绩统计----教学成绩考核系统  (试用)"
_screen.windowstate=2

DO FORM fm.scx
READ EVENTS

   
   *DECLARE INTEGER GetVolumeInformation IN Win32api AS GetVolInfo  STRING lpRootPathName,STRING lpVolumeNameBuffer,INTEGER nVolumeNameSize,INTEGER @lpVolumeSerialNumber, INTEGER @lpMaximumComponentLength,INTEGER @lpFileSystemFlags,STRING lpFileSystemNameBuffer,INTEGER nFileSystemNameSize
   *STORE 0 TO VolSerialNum,MaxComLen,FSysFlag,IngRetVal
   *VolLabel =REPLICATE(CHR(0),255)
   *FSysNameBuf= REPLICATE(CHR(0),255)
   *IngRetVal = GetVolInfo ("c:\", @VolLabel, LEN(VolLabel), @VolSerialNum, @MaxComLen, @FSysFlag, @FSysNameBuf, LEN(FsysNameBuf) )
   *x=VolSerialNum&&获得C盘十进制的序列号
   y=FILETOSTR("sq.yyc")
   SET LIBRARY TO myfll
   x=GetDiskSerial()&&获得硬盘物理序列号
   SET PROCEDURE TO jmjm
   x=zcm(x)&&将硬盘物理序列号进行移位加密
  
********************************************************************************  
IF not FILE("reg.ini")
   MESSAGEBOX("缺少系统文件sysreg.dll,本软件将停止启动,请软件所有者进行联系以便重新安装此软件。",16,"致命错误")
   QUIT
ENDIF
SET PROCEDURE TO jmjm

**********************************************************************************




do jskh.mpr
on shutdown do qdown.prg

_screen.AddObject("e1","image")

_screen.e1.Stretch= 2
_screen.e1.Height=_screen.Height
_screen.e1.Width=_screen.Width
_screen.e1.Picture="3.jpg"

_screen.E1.visible=1


 READ events
 quit

其中的set部分是常用设置，作用请参考VFP帮助