以下代码为主程序*.prg的源代码

clear all
set help to helps\helps.chm
set century on
set exclusive on
set status bar on
set date ansi
set mark to "/"
do chengxu\setting

_screen.show
_screen.left=-10000
_screen.caption="正在连接服务器………"
if  SYSMETRIC(2)!=768 and SYSMETRIC(1)!=1024
    messagebox("建议使用1024×768的分辨率，否则将严重影响显示效果！",0+64,"提示")
endif   

SQLSETPROP(0,"DispLogin" ,3)        && 设置环境为“从不显示 ODBC 登录对话框”
SQLSETPROP(0,"ConnectTimeOut" ,60)  && 设置登陆时间为一分钟

public loadingtime   &&该变量为登陆错误次数的计数器，若该值大于等于３，则视为侵权登陆，系统给予警告并自动退出！
loadingtime=0
public exportdata
exportdata=.f.
public scores(16)   &&该变量为整个系统在运行时刻存储学生各科成绩！

public n             &&该变量为整个系统在运行时刻的服务器连接参数！
n=sqlstringconnect("Provider=MSDASQL;driver={SQL Server};server=服务器地址或名称;uid=登陆名;pwd=密码;database=SQL数据库名")

if n<0
   messagebox("连接服务器失败！",0+48,"信息提示")
   do chengxu\resett
else
   p=sqlexec(n,"select * from servercnys")
    if p<>1
        messagebox("无法连接服务器，操作已被取消！",0+64,"提示")
        do chengxu\resett
   else
       select alias()
       if alltrim(教师连接)="暂停"
           messagebox("目前已暂停教师服务",0+48,"消息提示")
           do chengxu\resett
       else
           run /N welcome\secondpict
           wait timeout 4
           close all
          
           _screen.MaxButton=.f.
           _screen.Alwaysontop=.t.
           _screen.icon="imagines\ico\help.ico"
           _screen.caption="正在尝试登陆………"
          
           do form biaodan\loading
          
       endif  
   endif     
endif

read events
do chengxu\resett

        转载请注明本网站地址！