FXApp/ws_objects/checkpda.pbl.src/f_re_conect.srf

$PBExportHeader$f_re_conect.srf
global type f_re_conect from function_object
end type

forward prototypes
global function integer f_re_conect (ref string arg_msg)
end prototypes

global function integer f_re_conect (ref string arg_msg);DISCONNECT using sqlca;

environment    lenv_env // holds environment information
//string         ls_startupfile          // holds name of start-up file

// Get the environment information
If ( GetEnvironment(lenv_env) <> 1 ) THEN
	MessageBox( "Application: Open", &
		"Unable to get environment information.~nHalting ..." )
//	HALT
END IF

// Select start-up file by operating system
CHOOSE CASE lenv_env.OSType
	CASE windows!, windowsnt!
		//            ls_startupfile = "car_wiz.ini"
		//               if ( lenv_env.charset = charsetunicode! ) then
		//                  ls_startupfile = "pbu.ini"
		//               end if
		  CASE ELSE
		MessageBox( "Application: Open", &
			"Unrecognized operating system.~nHalting ..." )
		HALT
END CHOOSE
// Profile l1_aps_demo
//SQLCA.DBMS = "ADO.Net"
//sqlca.Database   = ProfileString (sys_inifilename, "database", "database",   "")
//sqlca.UserID     = ProfileString (sys_inifilename, "database", "userid",     "")
//sqlca.DBPass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
//sqlca.LogID      = ProfileString (sys_inifilename, "database", "logid",      "")
//sqlca.LogPass    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
//sqlca.ServerName = ProfileString (sys_inifilename, "database", "servername", "")
//sqlca.DBParm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)
//SQLCA.Lock = "RU"
//SQLCA.AutoCommit = false
//sqlca.DBParm   =   "Namespace='System.Data.SqlClient',DataSource='"+sqlca.ServerName+"',Database= '" + sqlca.Database + "',PBTrimCharColumns='YES'"


//Populate sqlca from current preference-file settings
sqlca.DBMS       = "SNC SQL Native Client(OLE DB)"
sqlca.Database   = ProfileString (sys_inifilename, "database", "database",   "")
sqlca.UserID     = ProfileString (sys_inifilename, "database", "userid",     "")
sqlca.DBPass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
sqlca.LogID      = ProfileString (sys_inifilename, "database", "logid",      "")
sqlca.LogPass    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
sqlca.ServerName = ProfileString (sys_inifilename, "database", "servername", "")
sqlca.DBParm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)
SQLCA.Lock = "RU"
SQLCA.AutoCommit = false
sqlca.DBParm   =   "Database= '" + sqlca.Database + "',PBTrimCharColumns='YES'"

//sqlca.DBMS       = ProfileString (sys_inifilename, "database", "dbms",       "")
//sqlca.Database   = ProfileString (sys_inifilename, "database", "database",   "")
//sqlca.UserID     = ProfileString (sys_inifilename, "database", "userid",     "")
//sqlca.DBPass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
//sqlca.LogID      = ProfileString (sys_inifilename, "database", "logid",      "")
//sqlca.LogPass    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
//sqlca.ServerName = ProfileString (sys_inifilename, "database", "servername", "")
//sqlca.DBParm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)
IF sqlca.Database = '' OR sqlca.ServerName = '' THEN
	arg_msg = "连接数据库失败!"
	return 0
END IF

CONNECT USING sqlca;
IF sqlca.SQLCode < 0 THEN
	arg_msg = "连接数据库失败!" + sqlca.sqlerrtext
	return 0
END IF

EXECUTE IMMEDIATE "set transaction isolation level READ UNCOMMITTED";
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "设置SQL服务器系统属性失败!"+sqlca.SQLErrText
	return 0
END IF


return 1

end function