USE [YJLIS_LZ]
GO
/****** 对象:  StoredProcedure [dbo].[AddTheNextMonthQCItems]    脚本日期: 11/11/2011 14:25:16 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO/* --   add yj yj10 2008-06-20   
检查下月的质控项目是否添加,否则把本月的质控设置复制到下月  
*/CREATE PROCEDURE [dbo].[AddTheNextMonthQCItems]
(
  @x_yiqmc nvarchar(200),--仪器名称
  @x_xitbz nvarchar(30),  --系统标志
  @CurDate Datetime--当前日期
)
AS
/*
declare @x_yiqmc nvarchar(200)--仪器名称
declare @x_xitbz nvarchar(30)  --系统标志
declare @CurDate Datetime--当前日期set @x_yiqmc ='CEOLL-DYN3200五分类血球仪'
set @x_xitbz='LIS'
set @CurDate =Getdate()--*/
  declare @CurMonthTemp int --当前月
  declare @TempMonth int--变量临时保存月
  declare @CurYear int --当前年
  declare @TempYear int --变量临时保存年
  declare @XiaYear nvarchar(4)--下年
  declare @CurMonth nvarchar(2)--当前月
  declare @XiaMonth nvarchar(2)--下月
  declare @LastMonth nvarchar(2)--下下月
  declare @PriorMonth nvarchar(2)--上月  --得到当前年
    set @CurYear=Year(@CurDate)
    set @TempYear=@CurYear
  --得到当前月编号
    set @CurMonthTemp=Month(@CurDate)  if @CurMonthTemp<10 --如果当前月小于10
    set @CurMonth='0'+cast(@CurMonthTemp as nvarchar(1))--当前月编号要两位数。所以在月前加0
  else
    set @CurMonth=cast(@CurMonthTemp as nvarchar(2))--当前月  declare @CurMBH nvarchar(20) --当前月编号
    set @CurMBH='ZKRQ'+cast(@CurYear as nvarchar(4))+@CurMonth
  --得到上月编号
    set @TempMonth=@CurMonthTemp-1
  if @TempMonth=0
   begin
    set @TempYear=@CurYear-1 --跨年减一
    set @PriorMonth='12' --上月
   end
  else if @TempMonth<10
    set @PriorMonth='0'+cast(@TempMonth as nvarchar(1))--上月
  else if (@TempMonth>=10 and @TempMonth<=12)
    set @PriorMonth=cast(@TempMonth as nvarchar(2)) --上月
  
  declare @PriorMBH nvarchar(20) --上月编号
    set @PriorMBH='ZKRQ'+cast(@TempYear as nvarchar(4))+@PriorMonth
    
  --得到下月编号
    set @TempMonth=@CurMonthTemp+1
  if @TempMonth<10
    set @XiaMonth='0'+cast(@TempMonth as nvarchar(1))--下月
  else if (@TempMonth>=10 and @TempMonth<=12)
    set @XiaMonth=cast(@TempMonth as nvarchar(2)) --下月
  else 
   begin
    set @TempYear=@CurYear+1 --跨年加一
    set @XiaMonth='01' --下月
   end
  
  declare @XiaMBH nvarchar(20) --下月编号
    set @XiaMBH='ZKRQ'+cast(@TempYear as nvarchar(4))+@XiaMonth  --得到下下月编号
    set @TempMonth=@CurMonthTemp+2
  if @TempMonth<10
    set @LastMonth='0'+cast(@TempMonth as nvarchar(1))--下下月
  else if (@TempMonth>=10 and @TempMonth<=12)
    set @LastMonth=cast(@TempMonth as nvarchar(2)) --下下月
  else if (@TempMonth=13)
   begin
    set @TempYear=@CurYear+1 --跨年加一
    set @LastMonth='01' --下下月
   end
  else if (@TempMonth=14)
   begin
    set @TempYear=@CurYear+1
    set @LastMonth='02' --下下月
   end  declare @LastMBH nvarchar(20) --下下月编号
    set @LastMBH='ZKRQ'+cast(@TempYear as nvarchar(4))+@LastMonth--增加质控项目到下月
 
  DECLARE @c_zhikszbh nvarchar(30)
  DECLARE @c_jianyxmbh nvarchar(30),@c_jianyxmyx int,@c_meirzhbhs int,@c_diyhzkbbh nvarchar(30),@c_diehzkbbh nvarchar(30),@c_dishzkbbh nvarchar(30),
          @c_zhiktms int,@n_diyhzknd nvarchar(30),@n_diehzknd nvarchar(30),@n_dishzknd nvarchar(30),@z_diyhzkbz nvarchar(30),
          @z_diehzkbz nvarchar(30),@z_dishzkbz nvarchar(30),@s_diyhzksdz nvarchar(30),@s_diehzksdz nvarchar(30),@s_dishzksdz nvarchar(30),
          @c_diyhzkcvz nvarchar(30),@c_diehzkcvz nvarchar(30),@c_dishzkcvz nvarchar(30),@j_diyhzksj nvarchar(30),@j_diehzksj nvarchar(30),
          @j_dishzksj nvarchar(30),@b_diyhzkbc float,@b_diehzkbc float,@b_dishzkbc float,@f_diyhzkff nvarchar(30),@f_diehzkff nvarchar(30),@f_dishzkff nvarchar(30)   BEGIN TRANSACTION
    DECLARE MyCur CURSOR FOR SELECT c_jianyxmbh,c_jianyxmyx,c_meirzhbhs,c_diyhzkbbh,c_diehzkbbh,
                 c_dishzkbbh,c_zhiktms,n_diyhzknd,n_diehzknd,n_dishzknd,z_diyhzkbz,z_diehzkbz,z_dishzkbz,
                 s_diyhzksdz,s_diehzksdz,s_dishzksdz,c_diyhzkcvz,c_diehzkcvz,c_dishzkcvz,j_diyhzksj,
                 j_diehzksj,j_dishzksj,b_diyhzkbc,b_diehzkbc,b_dishzkbc,f_diyhzkff,f_diehzkff,f_dishzkff
                 FROM r_zhiksz WHERE x_yiqmc=@x_yiqmc and x_xitbz=@x_xitbz and c_zhikszrqbh=@PriorMBH--@CurMBH
    OPEN MyCur
    FETCH NEXT FROM MyCur INTO @c_jianyxmbh,@c_jianyxmyx,@c_meirzhbhs,@c_diyhzkbbh,@c_diehzkbbh,
                 @c_dishzkbbh,@c_zhiktms,@n_diyhzknd,@n_diehzknd,@n_dishzknd,@z_diyhzkbz,@z_diehzkbz,@z_dishzkbz,
                 @s_diyhzksdz,@s_diehzksdz,@s_dishzksdz,@c_diyhzkcvz,@c_diehzkcvz,@c_dishzkcvz,@j_diyhzksj,
                 @j_diehzksj,@j_dishzksj,@b_diyhzkbc,@b_diehzkbc,@b_dishzkbc,@f_diyhzkff,@f_diehzkff,@f_dishzkff
     WHILE @@FETCH_STATUS=0 
       BEGIN
         IF NOT EXISTS(SELECT * FROM r_zhiksz WHERE c_jianyxmbh=@c_jianyxmbh AND x_yiqmc=@x_yiqmc AND x_xitbz=@x_xitbz AND c_zhikszrqbh=@CurMBH)--@XiaMBH) 
         BEGIN
           EXECUTE GetMaxNo_Output 'r_zhiksz','c_zhikszbh', 'P',8,1,@Result=@c_zhikszbh  OUTPUT
           IF @@ERROR<>0 GOTO UnDo         
           INSERT INTO r_zhiksz
                            (d_id,d_upid,c_id,c_upid,c_upztm,c_zhikszbh,c_zhikszrqbh,c_jianyxmbh,c_jianyxmyx,
                             c_meirzhbhs,c_diyhzkbbh,c_diehzkbbh,c_dishzkbbh,c_zhiktms,n_diyhzknd,n_diehzknd,
                             n_dishzknd,z_diyhzkbz,z_diehzkbz,z_dishzkbz,s_diyhzksdz,s_diehzksdz,s_dishzksdz,
                             c_diyhzkcvz,c_diehzkcvz,c_dishzkcvz,j_diyhzksj,j_diehzksj,j_dishzksj,b_diyhzkbc,
                             b_diehzkbc,b_dishzkbc,f_diyhzkff,f_diehzkff,f_dishzkff,x_xitbz,x_yiqmc)                
                  VALUES(GETDATE(),GETDATE(),'MS SQL Server','MS SQL Server','NA',@c_zhikszbh,@CurMBH,
                         @c_jianyxmbh,@c_jianyxmyx,@c_meirzhbhs,@c_diyhzkbbh,@c_diehzkbbh,
                         @c_dishzkbbh,@c_zhiktms,@n_diyhzknd,@n_diehzknd,@n_dishzknd,@z_diyhzkbz,@z_diehzkbz,@z_dishzkbz,
                         @s_diyhzksdz,@s_diehzksdz,@s_dishzksdz,@c_diyhzkcvz,@c_diehzkcvz,@c_dishzkcvz,@j_diyhzksj,
                         @j_diehzksj,@j_dishzksj,@b_diyhzkbc,@b_diehzkbc,@b_dishzkbc,@f_diyhzkff,@f_diehzkff,@f_dishzkff,
                         @x_xitbz,@x_yiqmc)
             IF @@ERROR<>0 GOTO UNDO       
           END
           FETCH NEXT FROM MyCur INTO @c_jianyxmbh,@c_jianyxmyx,@c_meirzhbhs,@c_diyhzkbbh,@c_diehzkbbh,
                 @c_dishzkbbh,@c_zhiktms,@n_diyhzknd,@n_diehzknd,@n_dishzknd,@z_diyhzkbz,@z_diehzkbz,@z_dishzkbz,
                 @s_diyhzksdz,@s_diehzksdz,@s_dishzksdz,@c_diyhzkcvz,@c_diehzkcvz,@c_dishzkcvz,@j_diyhzksj,
                 @j_diehzksj,@j_dishzksj,@b_diyhzkbc,@b_diehzkbc,@b_dishzkbc,@f_diyhzkff,@f_diehzkff,@f_dishzkff
       END
   
    CLOSE MyCur
    DEALLOCATE  MyCur
    COMMIT TRANSACTION
    IF @@ERROR<>0 GOTO UNDO
    RETURNUNDO:
  ROLLBACK TRANSACTION
  CLOSE MyCur
  DEALLOCATE MyCur
  RETURN

解决方案 »

  1.   

    记住一些常用的,如:
    1.没有SET2.if then elsif then end;3.每句的结束要用;4.等号是用:=5.没有用@
      

  2.   

    不知道问什么?SQLServer和Oracle的常用函数对比 
     
      1.绝对值 
      S:select abs(-1) value
      O:select abs(-1) value from dual  2.取整(大) 
      S:select ceiling(-1.001) value 
      O:select ceil(-1.001) value from dual  3.取整(小) 
      S:select floor(-1.001) value 
      O:select floor(-1.001) value from dual  4.取整(截取)
      S:select cast(-1.002 as int) value 
      O:select trunc(-1.002) value from dual   5.四舍五入
      S:select round(1.23456,4) value 1.23460
      O:select round(1.23456,4) value from dual 1.2346  6.e为底的幂 
      S:select Exp(1) value 2.7182818284590451 
      O:select Exp(1) value from dual 2.71828182  7.取e为底的对数
      S:select log(2.7182818284590451) value 1
      O:select ln(2.7182818284590451) value from dual; 1  8.取10为底对数
      S:select log10(10) value 1
      O:select log(10,10) value from dual; 1  9.取平方
      S:select SQUARE(4) value 16
      O:select power(4,2) value from dual 16  10.取平方根
      S:select SQRT(4) value 2
      O:select SQRT(4) value from dual 2  11.求任意数为底的幂
      S:select power(3,4) value 81
      O:select power(3,4) value from dual 81  12.取随机数
      S:select rand() value 
      O:select sys.dbms_random.value(0,1) value from dual;  13.取符号
      S:select sign(-8) value -1
      O:select sign(-8) value from dual -1
      ----------数学函数  14.圆周率
      S:SELECT PI() value 3.1415926535897931
      O:不知道  15.sin,cos,tan 参数都以弧度为单位
      例如:select sin(PI()/2) value 得到1(SQLServer)  16.Asin,Acos,Atan,Atan2 返回弧度  17.弧度角度互换(SQLServer,Oracle不知道)
      DEGREES:弧度-〉角度
      RADIANS:角度-〉弧度  ---------数值间比较  18. 求集合最大值
      S:select max(value) value from 
      (select 1 value
      union
      select -2 value
      union
      select 4 value
      union
      select 3 value)a  O:select greatest(1,-2,4,3) value from dual  19. 求集合最小值
      S:select min(value) value from 
      (select 1 value
      union
      select -2 value
      union
      select 4 value
      union
      select 3 value)a  O:select least(1,-2,4,3) value from dual  20.如何处理null值(F2中的null以10代替)
      S:select F1,IsNull(F2,10) value from Tbl
      O:select F1,nvl(F2,10) value from Tbl  --------数值间比较  21.求字符序号
      S:select ascii('a') value
      O:select ascii('a') value from dual  22.从序号求字符
      S:select char(97) value
      O:select chr(97) value from dual  23.连接
      S:select '11'+'22'+'33' value
      O:select CONCAT('11','22')||33 value from dual  23.子串位置 --返回3
      S:select CHARINDEX('s','sdsq',2) value 
      O:select INSTR('sdsq','s',2) value from dual  23.模糊子串的位置 --返回2,参数去掉中间%则返回7
      S:select patindex('%d%q%','sdsfasdqe') value 
      O:oracle没发现,但是instr可以通过第四霾问刂瞥鱿执问?BR>  select INSTR('sdsfasdqe','sd',1,2) value from dual 返回6  24.求子串
      S:select substring('abcd',2,2) value 
      O:select substr('abcd',2,2) value from dual  25.子串代替 返回aijklmnef
      S:SELECT STUFF('abcdef', 2, 3, 'ijklmn') value
      O:SELECT Replace('abcdef', 'bcd', 'ijklmn') value from dual  26.子串全部替换
      S:没发现
      O:select Translate('fasdbfasegas','fa','我' ) value from dual  27.长度
      S:len,datalength
      O:length  28.大小写转换 lower,upper  29.单词首字母大写
      S:没发现
      O:select INITCAP('abcd dsaf df') value from dual  30.左补空格(LPAD的第一个参数为空格则同space函数)
      S:select space(10)+'abcd' value
      O:select LPAD('abcd',14) value from dual  31.右补空格(RPAD的第一个参数为空格则同space函数)
      S:select 'abcd'+space(10) value
      O:select RPAD('abcd',14) value from dual  32.删除空格
      S:ltrim,rtrim
      O:ltrim,rtrim,trim  33. 重复字符串
      S:select REPLICATE('abcd',2) value 
      O:没发现  34.发音相似性比较(这两个单词返回值一样,发音相同)
      S:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe')
      O:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe') from dual
      SQLServer中用SELECT DIFFERENCE('Smithers', 'Smythers') 比较soundex的差
      返回0-4,4为同音,1最高  --------------日期函数  35.系统时间
      S:select getdate() value
      O:select sysdate value from dual  36.前后几日
      直接与整数相加减  37.求日期
      S:select convert(char(10),getdate(),20) value
      O:select trunc(sysdate) value from dual
      select to_char(sysdate,'yyyy-mm-dd') value from dual  38.求时间
      S:select convert(char(8),getdate(),108) value
      O:select to_char(sysdate,'hh24:mm:ss') value from dual  39.取日期时间的其他部分
      S:DATEPART 和 DATENAME 函数 (第一个参数决定) 
      O:to_char函数 第二个参数决定  参数---------------------------------下表需要补充
      year yy, yyyy 
      quarter qq, q (季度)
      month mm, m (m O无效)
      dayofyear dy, y (O表星期)
      day dd, d (d O无效)
      week wk, ww (wk O无效)
      weekday dw (O不清楚)
      Hour hh,hh12,hh24 (hh12,hh24 S无效)
      minute mi, n (n O无效)
      second ss, s (s O无效)
      millisecond ms (O无效)
      ----------------------------------------------  40.当月最后一天
      S:不知道
      O:select LAST_DAY(sysdate) value from dual  41.本星期的某一天(比如星期日)
      S:不知道
      O:SELECT Next_day(sysdate,7) vaule FROM DUAL;  42.字符串转时间
      S:可以直接转或者select cast('2004-09-08'as datetime) value
      O:SELECT To_date('2004-01-05 22:09:38','yyyy-mm-dd hh24-mi-ss') vaule FROM DUAL;  43.求两日期某一部分的差(比如秒)
      S:select datediff(ss,getdate(),getdate()+12.3) value
      O:直接用两个日期相减(比如d1-d2=12.3)
      SELECT (d1-d2)*24*60*60 vaule FROM DUAL;  44.根据差值求新的日期(比如分钟)
      S:select dateadd(mi,8,getdate()) value
      O:SELECT sysdate+8/60/24 vaule FROM DUAL;  45.求不同时区时间
      S:不知道
      O:SELECT New_time(sysdate,'ydt','gmt' ) vaule FROM DUAL;  -----时区参数,北京在东8区应该是Ydt-------
      AST ADT 大西洋标准时间
      BST BDT 白令海标准时间
      CST CDT 中部标准时间
      EST EDT 东部标准时间
      GMT 格林尼治标准时间
      HST HDT 阿拉斯加—夏威夷标准时间
      MST MDT 山区标准时间
      NST 纽芬兰标准时间
      PST PDT 太平洋标准时间
      YST YDT YUKON标准时间  
    Oracle支持的字符函数和它们的Microsoft SQL Server等价函数:函数 Oracle Microsoft SQL Server 
    把字符转换为ASCII ASCII ASCII 
    字串连接 CONCAT (expression + expression) 
    把ASCII转换为字符 CHR CHAR 
    返回字符串中的开始字符(左起) INSTR CHARINDEX 
    把字符转换为小写 LOWER LOWER 
    把字符转换为大写 UPPER UPPER 
    填充字符串的左边 LPAD N/A 
    清除开始的空白 LTRIM LTRIM 
    清除尾部的空白 RTRIM RTRIM 
    字符串中的起始模式(pattern) INSTR PATINDEX 
    多次重复字符串 RPAD REPLICATE 
    字符串的语音表示 SOUNDEX SOUNDEX 
    重复空格的字串 RPAD SPACE 
    从数字数据转换为字符数据 TO_CHAR STR 
    子串 SUBSTR SUBSTRING 
    替换字符 REPLACE STUFF 
    将字串中的每个词首字母大写 INITCAP N/A 
    翻译字符串 TRANSLATE N/A 
    字符串长度 LENGTH DATELENGTH or LEN 
    列表中最大的字符串 GREATEST N/A 
    列表中最小的字符串 LEAST N/A 
    如果为NULL则转换字串 NVL ISNULL  日期函数函数 Oracle Microsoft SQL Server 
    日期相加 (date column +/- value) or
    ADD_MONTHS DATEADD 
    两个日期的差 (date column +/- value) or
    MONTHS_BETWEEN DATEDIFF 
    当前日期和时间 SYSDATE GETDATE() 
    一个月的最后一天 LAST_DAY N/A 
    时区转换 NEW_TIME N/A 
    日期后的第一个周日 NEXT_DAY N/A 
    代表日期的字符串 TO_CHAR DATENAME 
    代表日期的整数 TO_NUMBER
    (TO_CHAR)) DATEPART 
    日期舍入 ROUND CONVERT 
    日期截断 TRUNC CONVERT 
    字符串转换为日期 TO_DATE CONVERT 
    如果为NULL则转换日期 NVL ISNULL  转换函数函数 Oracle Microsoft SQL Server 
    数字转换为字符 TO_CHAR CONVERT 
    字符转换为数字 TO_NUMBER CONVERT 
    日期转换为字符 TO_CHAR CONVERT 
    字符转换为日期 TO_DATE CONVERT 
    16进制转换为2进制 HEX_TO_RAW CONVERT 
    2进制转换为16进制 RAW_TO_HEX CONVERT  其它行级别的函数函数 Oracle Microsoft SQL Server 
    返回第一个非空表达式 DECODE COALESCE 
    当前序列值 CURRVAL N/A 
    下一个序列值 NEXTVAL N/A 
    如果exp1 = exp2, 返回null DECODE NULLIF 
    用户登录账号ID数字 UID SUSER_ID 
    用户登录名 USER SUSER_NAME 
    用户数据库ID数字 UID USER_ID 
    用户数据库名 USER USER_NAME 
    当前用户 CURRENT_USER CURRENT_USER 
    用户环境(audit trail) USERENV N/A 
    在CONNECT BY子句中的级别 LEVEL N/A  合计函数函数 Oracle Microsoft SQL Server 
    Average AVG AVG 
    Count COUNT COUNT 
    Maximum MAX MAX 
    Minimum MIN MIN 
    Standard deviation STDDEV STDEV or STDEVP 
    Summation SUM SUM 
    Variance VARIANCE VAR or VARPOracle还有一个有用的函数EXTRACT,提取并且返回日期时间或时间间隔表达式中特定的时间域:
    EXTRACT(YEAR FROM 日期) 
      

  3.   

     看你这样子是为了把sql里面的存储过程转变成oracle中的存储过程,在这个基础上你改动一点就行了,oracle存储过程的语法
    CREATE OR REPLACE PROCEDURE "SP_CARDREG_ZJSY" (参数1 in 数据类型,参数2 in 数据类型,......参数N  out 数据类型)
    is
    声明变量的区域结束加上;
    begin
      IF 条件 then
         v_ret:=-10;
         dbms_output.put_line('错误');
         return;
      end if;
      
      begin
         业务处理区
        exception
           when others then
              begin
                 //一下是异常处理的地方
                 dbms_output.put_line('error0');
                 v_ret := -1;--自定义错误参数
                 rollback;
                 return;
              end;
        end;
        --如果遇到sql里面的游标赋值,你可以用下面的循环来实现
         begin
            业务区
           //以下可以声明临时变量
            declare
            lv_length number;
            lv_str varchar(100);
            begin
            lv_length:=0;
            while lv_length<Get_StrArrayLength(批量参数,',') loop
                 lv_str:=Get_StrArrayStrOfIndex(批量参数,',',lv_length);
                 --Get_StrArrayLength(批量参数,',')是额外的函数(你不管)
                 --lv_str:=Get_StrArrayStrOfIndex也是额外的函数(你不管)
                 else 
                
                 end if;
                 if u_id>0 then
                    
                 else              end if;
                 lv_length:=lv_length+1;
            end loop;
            --commit;
            end;
         exception
               when others then
               begin
               v_ret := -7;--同样自定义错误参数
               rollback;
               return;
               end;
        end;
        
        commit;
        v_ret := v_id;
        /*
         exception
                  when others then
         begin
            v_ret := -8;--同样自定义错误参数
            rollback;
            return;     
         end;
         */end SP_CARDREG_ZJSY;