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

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

forward prototypes
global function integer f_cnt_newdb (string arg_sername, string arg_dbname, string arg_loginid, string arg_loginpsw)
end prototypes

global function integer f_cnt_newdb (string arg_sername, string arg_dbname, string arg_loginid, string arg_loginpsw);Int rslt = 1

disconnect  using  sqlca;
sqlca.DBMS       = ProfileString (sys_inifilename, "database", "dbms",       "")
sqlca.Database   =  arg_dbname
//sqlca.UserID     = ProfileString (sys_inifilename, "database", "userid",     "")
//sqlca.DBPass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
sqlca.LogID      =  arg_loginID  //ProfileString (sys_inifilename, "database", "logid",      "")
sqlca.LogPass    = arg_loginpsw  //f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
sqlca.ServerName = arg_sername
//sqlca.DBParm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)

IF sqlca.Database = '' OR sqlca.ServerName = '' THEN
	MessageBox("提示","连接数据库失败!", Information!, OK! )
	rslt = 0
END IF

CONNECT USING sqlca;

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

update sys_DB_version set switch_chkflag=0;
commit USING sqlca;

EXECUTE IMMEDIATE "set transaction isolation level READ UNCOMMITTED";

RETURN rslt

end function