Dzwebs.Net

撰写电脑技术杂文十余年

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

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

温馨提示!

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

以下代码为主程序*.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   &&该变量为登陆错误次数的计数器,若该值大于等于3,则视为侵权登陆,系统给予警告并自动退出!
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

        转载请注明本网站地址!


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231