个人总结的VFP操作SQL之登陆源代码

Admin | 2008-7-10 21:35:29 | 被阅次数 | 10982

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

以下代码为主程序*.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