as=' ======================================================================='+CHR(13)+CHR(13)+CHR(13)+CHR(13)+;
' ★★ 系统正在检查网络及远程数据库的连接是否正常,请耐心等候... ★★'+CHR(13)+CHR(13)+CHR(13)+CHR(13)+;
' ========================================================================'
WAIT windows as NOWAIT noclear
*---------------------------------------------------------------------------------- \\ 设置数据库变量和系统环境
PUBLIC GNMYLOGHANDLE&&,connect_temp,Server_temp,uid_temp,Pwd_temp,Database_temp
Sqlsetprop(0,"displogin",3) &&设置环境为:从不显示ODBC登陆对话框
Driver_temp="Sql Server"
* ---------------------------------------------------------------------------------- \\ 赋值变量
Server_temp='Server' && sql服务器名称 sql2005如果有实例要:server\sql2005
Uid_temp='sa' && 数据库用户名
Pwd_temp='126' && 密码
Database_temp='zc' && 数据库名称
*----------------------------------------------------------------------------------- \\ 建立连接变量
connect_temp="driver="+driver_temp+";server="+server_temp+";uid="+uid_temp+";pwd="+pwd_temp+";database="+database_temp
GNMYLOGHANDLE=sqlstringconnect(connect_temp)
IF GNMYLOGHANDLE<=0
MESSAGEBOX(connect_temp)
MESSAGEBOX('网络连接出现故障,请检查本机或远程服务器的网络故障原因!错误连接内容如下:'+CHR(13)+'('+cennect_temp+')',48,'众成软件提醒您!')
CLEAR EVENTS
QUIT
ENDIF
WAIT clear