//***********************************************
//  函数名:  of_setodbc_sqlserver
//      功能:  完成SQL Server ODBC数据源的注册功能
//  输入参数:
//    as_database  数据库名
//    as_user   数据库用户
//    as_pwd   密码
//    as_server  数据库服务器名称或ip
//  返回值:
//     true  表示自动配置成功
//     false  表示自动配置失败
//  设计者: 魏远旺
//  完成时间: 2005年6月
//***************************************************
integer li_rtn
string ls_dsnname,ls_dbfullname,ls_driver,temp,ls_version
string ls_syspath,ls_root,ls_root_dsn

integer rtn

ls_syspath = Space( 255 )
//获得操作系统的目录
GetSystemDirectoryA(ls_syspath,255)
//
ls_driver = ls_syspath + "/sqlsrv32.dll"
ls_dsnname = as_dsn
ls_root = "HKEY_LOCAL_MACHINE/software/odbc/odbc.ini"
ls_root_dsn = ls_root + "/" + ls_dsnname
//注册数据源的名字
li_rtn = registryset(ls_root,ls_dsnname,regstring!,"")
if li_rtn= - 1 then
 return false
end if
//注册数据库库名称
li_rtn = registryset(ls_root_dsn,"Database",regstring!,as_database)
if li_rtn= - 1 then
 return false
end if
//注册数据库驱动程序
li_rtn = registryset(ls_root_dsn,"Driver",regstring!,ls_driver)
if li_rtn= - 1 then
 return false
end if
//注册数据库用户
li_rtn = registryset(ls_root_dsn,"LastUser",regstring!,as_user)
if li_rtn= - 1 then
 return false
end if
//注册数据库服务器
li_rtn = registryset(ls_root_dsn,"Server",regstring!,as_server)
if li_rtn= - 1 then
 return false
end if
return true