mysql 存储过程demo

从没写过mysql 存储过程，靠着百度和以前写oracle存储过程的经验写了一个，还算顺利，留个例子吧

CREATE DEFINER=`west_brain`@`%` PROCEDURE `man_tree_area`( )
BEGIN
  -- 存储树状结果处理sql变量
	DECLARE
		var_code VARCHAR ( 1000 );
	DECLARE
		var_pcode VARCHAR ( 1000 );
	DECLARE
		var_name VARCHAR ( 1000 );
	DECLARE
		var_count INT;
		
	-- 存储的一些标记变量	
	DECLARE
		buf_parents VARCHAR ( 1000 ) DEFAULT '';
	DECLARE
		buf_names VARCHAR ( 1000 ) DEFAULT '';
	DECLARE
		buf_code VARCHAR ( 100 ) DEFAULT '';
	DECLARE
		buf_update INT DEFAULT FALSE;
	DECLARE 
	  buf_is_leaf INT DEFAULT 0;
		
	-- 树级别 根为1
	DECLARE 
	  buf_tree_level int DEFAULT 0;
	-- 是否叶子节点 0 非 1是
	DECLARE 
	  buf_tree_leaf int DEFAULT 1;
		
	-- 存储表循环游标的变量
	DECLARE
		vcode VARCHAR ( 64 );
	DECLARE
		vparent VARCHAR ( 1000 );
		
	-- 游标结束的处理变量
	DECLARE
		done INT DEFAULT FALSE;
		
	-- 定义表循环游标
	DECLARE
		mycursor CURSOR FOR ( SELECT CODE, parent FROM adm_sys_area_info );
		
	-- 定义游标溢出的处理操作
	DECLARE
		CONTINUE HANDLER FOR NOT FOUND 
		SET done = TRUE;
		
	-- 打开游标
	OPEN mycursor;
	
	-- 定义游标循环
	tableloop :
	LOOP
	    -- 读取游标的一条数据到变量里
			FETCH mycursor INTO vcode,
			vparent;
			
		-- 如果上步游标操作没有读取到记录，则done 会被设置为 TRUE，退出 名称为myloop的循环
		IF
			done THEN
				LEAVE tableloop;
		END IF;
		
		-- 记录当前记录的区域编码
		SET buf_code = vcode; 
		
		-- 判断自己是否是叶子节点
		SELECT count(*) into var_count from adm_sys_area_info where parent  = vcode;
		
		if var_count = 0 then
		  update adm_sys_area_info set tree_leaf = 1 where code = vcode;
		else
		  update adm_sys_area_info set tree_leaf = 0 where code = vcode;
		end if;
		
		set var_count = 0;
		
    -- 循环查找自己的父节点
		treeloop :
		LOOP
		  
		  -- 判断自己是否存在父节点，用count来判断
			SELECT
				count( * ) INTO var_count 
			FROM
				adm_sys_area_info 
			WHERE
				CODE = vparent;

			IF
				var_count = 0 THEN
				-- 没有上级节点了，则开始处理以前找到的父节点
				IF
					buf_update THEN-- 更新缓存的数据
					-- buf_update 为TRUE 则说明找到过父节点
					
					-- 下面两个记录处理拼接的字符串末尾多的逗号的问题
					IF
						( length( buf_parents ) > 0 ) THEN
							
							SET buf_parents = LEFT ( buf_parents, CHAR_LENGTH( buf_parents ) - 1 );
					END IF;
					IF
						( length( buf_names ) > 0 ) THEN
							
							SET buf_names = LEFT ( buf_names, CHAR_LENGTH( buf_names ) - 1 );
					END IF;
					
					-- 更新当前节点的父信息
					UPDATE adm_sys_area_info 
					SET parents = buf_parents,
					tree_names = buf_names ,tree_level = buf_tree_level 
					WHERE
						CODE = buf_code;
					
					
					
				ELSE
				  -- 当前记录是根节点
					update adm_sys_area_info set tree_level = 1 where code = buf_code;
				END IF;
				
				-- 清理变量
				SET buf_parents = '';
				SET buf_names = '';
				SET vparent = '';
				SET buf_code = '';
				SET buf_update = FALSE;
				SET buf_tree_level = 1;
				
				-- 结束当前记录的处理循环
				LEAVE treeloop;
				
				ELSE 
				  -- 查找到了父节点
					SET buf_update = TRUE;
					-- 查询当前节点的父节点信息
					SELECT CODE,
						parent,
						area_name INTO var_code,
						var_pcode,
						var_name 
					FROM
						adm_sys_area_info 
					WHERE
						CODE = vparent;
					
					-- 连接字符串
					SET buf_parents = CONCAT_WS( ',', var_code, buf_parents );
					SET buf_names = CONCAT_WS( ',', var_name, buf_names );
					-- 记录当前查找到记录的父节点code
					SET vparent = var_pcode;
					SET buf_tree_level = buf_tree_level + 1;
				
			END IF;
			
		END LOOP;
		
	END LOOP;
	CLOSE mycursor;

END