Q5/ws_objects/Ew_mainface.pbl.src/f_cntdb.srf

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

forward prototypes
global subroutine f_cntdb (ref transaction arg_sqlca)
end prototypes

global subroutine f_cntdb (ref transaction arg_sqlca);arg_sqlca.DBMS       = ProfileString (sys_inifilename, "database", "dbms",       "")
arg_sqlca.Database   = ProfileString (sys_inifilename, "database", "database",   "")
arg_sqlca.UserID     = ProfileString (sys_inifilename, "database", "userid",     "")
arg_sqlca.DBPass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
arg_sqlca.LogID      = ProfileString (sys_inifilename, "database", "logid",      "")
arg_sqlca.LogPass    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
arg_sqlca.ServerName = ProfileString (sys_inifilename, "database", "servername", "")
arg_sqlca.DBParm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)

IF arg_sqlca.Database = '' OR sqlca.ServerName = '' THEN
	MessageBox("提示","连接数据库失败!", Information!, OK! )
	OpenWithParm(w_set_sqlca_ecl,'01') //0 只设连接信息  1 并允许自动新建数据库（启动首次调用）
	HALT
END IF

CONNECT USING arg_sqlca;

IF arg_sqlca.SQLCode < 0 THEN
	MessageBox("提示","连接数据库失败!", Information!, OK! )
//	OpenWithParm(w_set_sqlca,1) //0 只设连接信息  1 并允许自动新建数据库（启动首次调用）
//	HALT
END IF

EXECUTE IMMEDIATE "set transaction isolation level READ UNCOMMITTED" using arg_sqlca;
//execute immediate "set transaction isolation level REPEATABLE READ";
//messagebox("",sqlca.sqlcode)
IF arg_sqlca.SQLCode <> 0 THEN
	MessageBox("提示","设置SQL服务器系统属性失败!"+sqlca.SQLErrText, Information!, OK! )
	HALT;
END IF
end subroutine