帮我转换一下，谢谢

2009-10-23 02:44:10 238 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

微机原理--输入输出实验--emu8086 通过实验，验证了基本要求，实现了一位数加法运算的功能，同时实现了两位数加法运算的功能，还有一位数的除法。思考题（1）输入输出数据和计算用数据的区别：从键盘上输入以及输出的数据要在通过转化为计算机所识别的二进制的数字，和计算所用的数据之间相差30H。（2）单字符输入输出和串输入输出的不同之处：单字符的输入使用1号功能键，输出通过2号功能调用，且待显示字符送给DL寄存器；串输入使用0A功能，输出通过9号功能调用，DS:DX指向待显示字符串，且字符串必须以“$”结束。阅读详情

我写了一个SQL server存储过程，但我不会ORACLE，现在需要把这个存储过程改成ORACLE，谢谢各位了
create procedure pr_ModifyHQSchedule--生成总部计划
@scheduleName varchar(50),
@scheduleType varchar(1),
@scheduleCreater varchar(38),
@yearMonth varchar(10),
@scheduleData varchar(100)
as
DECLARE @PointerPrev int
DECLARE @PointerCurr int
DECLARE @TId varchar(10)
declare @guid varchar(100)
declare @scheduleDay int
declare @tdate datetime
Set @PointerPrev=1
SET @scheduleDay=0--将具体日期初始化为0
---先处理主表T_HQ_Schedule的数据
set @guid=newid()
if((select count(1) from T_HQ_Schedule
where HQ_Schedule_Name=@yearMonth)>0)
begin
delete from T_HQ_Schedule
where HQ_Schedule_Date=@yearMonth
end
if((select count(1) from T_HQ_Schedule_Date_Record
where cast(year(Schedule_Date) as varchar(10))+cast(month(Schedule_Date) as varchar(10))=@yearMonth
)>0)
begin
delete from T_HQ_Schedule_Date_Record
where cast(year(Schedule_Date) as varchar(10))+cast(month(Schedule_Date) as varchar(10))=@yearMonth
end
insert into T_HQ_Schedule(HQ_Schedule_Guid,HQ_Schedule_Name,Schedule_Class,Record_Creator,
Is_Published,Record_CreatorDateTime,HQ_Schedule_Date)
values(@guid,@scheduleName,@scheduleType,@scheduleCreater,'N',getdate(),@yearMonth)
---处理明细表T_HQ_Schedule_Date_Record的数据
while (@PointerPrev < LEN(@scheduleData))
Begin
Set @PointerCurr=CharIndex(',',@scheduleData,@PointerPrev)
if(@PointerCurr>0)
Begin
set @TId=SUBSTRING(@scheduleData,@PointerPrev,@PointerCurr-@PointerPrev)
------
set @scheduleDay=@scheduleDay+1
set @tdate = cast( substring(@yearMonth,1,4)+'-'+substring(@yearMonth,5,len(@yearMonth) - 4)+'-'
+ cast(@scheduleDay as varchar(10) as datetime)
insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date,
Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime)
values(newid(),@guid,@tdate,@TId,@scheduleCreater,getdate())
SET @PointerPrev = @PointerCurr+1
End
else
Break
End
--处理最后一个,因为最后一个后面没有逗号,所以在循环中跳出,需另外再处理
set @scheduleDay=@scheduleDay+1
set @TId=SUBSTRING(@scheduleData,@PointerPrev,LEN(@scheduleData)-@PointerPrev+1)
set @tdate = cast( substring(@yearMonth,1,4)+'-'+substring(@yearMonth,5,len(@yearMonth) - 4)+'-'
+ cast(@scheduleDay as varchar(10) as datetime)
insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date,
Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime)
values(newid(),@guid,@tdate,@TId,@scheduleCreater,getdate())

...全文

图灵奖：计算机科学领域的诺贝尔奖最后，图灵奖也是计算机科学领域发展的重要推动力之一，它促进了该领域的进步和繁荣。图灵奖作为计算机科学领域的诺贝尔奖，不仅是对获奖者卓越贡献的肯定，更是对整个计算机科学领域的推动和激励。在未来的发展中，我们期待看到更多的科学家和团队在图灵奖的激励下不断取得新的突破和创新成果为计算机科学的发展注入新的活力和动力。Vinton G. Cerf和Robert E. Kahn：2004年图灵奖得主，由于他们在互联网方面开创性的工作而获奖，这包括设计和实现了互联网的基础通讯协议TCP/IP，以及在网络方面的卓越领导。阅读详情

TTLOVEYOU3344

基础和管理 17,379 成员 95,111 内容

+ 关注 + 加入社区

切换为时间正序

sxx_tt 2009-10-23

打赏
举报

 create sequence gid

minvalue 1

maxvalue 99999999999999999999999999

start with 1

increment by 1

cache 20;



create or replace procedure pr_ModifyHQSchedule--生成总部计划 

(     scheduleName varchar2, 

      scheduleType varchar2, 

      scheduleCreater varchar2, 

      yearMonth varchar2, 

      scheduleData varchar2

) 

as 

PointerPrev int(100); 

PointerCurr int(100); 

TId varchar2(10); 

guid varchar2(100);--该处理解为取序列号，用之前先定义一个序列gid 

scheduleDay int(100); 

tdate date

PointerPrev number(10) :=1 

scheduleDay number(10) :=0--将具体日期初始化为0 

v_count number(10);

---先处理主表T_HQ_Schedule的数据 

begin

     select gid.nextval into guid from dual;

     select count(1) into v_count from T_HQ_Schedule 

     where HQ_Schedule_Name= yearMonth;

     

      if v_count >0 then

         begin 

               delete from T_HQ_Schedule 

               where HQ_Schedule_Date=@yearMonth 

         exception

                  when others then

                       dbms_output.put_line(sqlcode||':'||sqlerrm);

         end;

      end if;

      

      select count(1) into v_count from T_HQ_Schedule_Date_Record 

      where extract(year from Schedule_Date)||extract(month from Schedule_Date)= yearMonth

      

      if v_count >0 then 

         begin 

               delete from T_HQ_Schedule_Date_Record 

               where extract(year from Schedule_Date)||extract(month from Schedule_Date)= yearMonth 

         end;

      end if;

      

      insert into T_HQ_Schedule

      (   HQ_Schedule_Guid,

          HQ_Schedule_Name,

          Schedule_Class,

          Record_Creator, 

          Is_Published,

          Record_CreatorDateTime,

          HQ_Schedule_Date

      ) 

      values(guid,scheduleName,scheduleType,scheduleCreater,'N',sysdate,yearMonth);

      

      

      ---处理明细表T_HQ_Schedule_Date_Record的数据 

    while PointerPrev < length(scheduleData) loop 

          Begin 

                PointerCurr := instr(scheduleData,',',PointerPrev);

                if PointerCurr>0 then 

                   Begin 

                        TId := substr(scheduleData,PointerPrev,PointerCurr-PointerPrev);

                    ------ 

                        scheduleDay := scheduleDay+1;

                         

                        tdate := to_date(substr(yearMonth,1,4)||'-'||substr(yearMonth,5,len(yearMonth) - 4)||'-' 

                                 ||extract(day from scheduleDay),'yyyy-mm-dd'); 

                                 

                         insert into T_HQ_Schedule_Date_Record

                         (HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date, 

                         Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime) 

                         values(gid.nextval,guid,tdate,TId,scheduleCreater,sysdate);

                         

                         PointerPrev := PointerCurr+1 ;

                   End;

                end if; 

          end;

     end loop;

exception

         when others then

              dbms_output.put_line(sqlcode||':'||sqlerrm);

End;

小灰狼W 2009-10-23

打赏
举报

过程头部as后的declare忘了去掉了

小灰狼W 2009-10-23

打赏
举报

..慢了一步``
把我的结果也发出来吧
那个newid()不知道是干什么用的函数，所以没转换

create procedure pr_ModifyHQSchedule--生成总部计划 

(p_scheduleName varchar2, 

 p_scheduleType varchar2, 

 p_scheduleCreater varchar2, 

 p_yearMonth varchar2, 

 p_scheduleData varchar2 )

as 

DECLARE 

 v_PointerPrev number ;

 v_PointerCurr number; 

 v_TId varchar2(10) ;

 v_guid varchar2(100) ;

 v_scheduleDay number;

 v_tdate date;

 v_count number;

begin

 v_PointerPrev:=1; 

 scheduleDay:=0;--将具体日期初始化为0 

---先处理主表T_HQ_Schedule的数据 

v_guid:=newid() 

 select count(1) into v_count from T_HQ_Schedule 

where HQ_Schedule_Name=p_yearMonth;

if v_count>0 then 

  delete from T_HQ_Schedule 

    where HQ_Schedule_Date=p_yearMonth ;

end if;

 select count(1) into v_count from T_HQ_Schedule_Date_Record 

    where to_char(Schedule_Date,'yyyymm')=p_yearMonth ;

if v_count>0 then  

delete from T_HQ_Schedule_Date_Record 

where to_char(Schedule_Date,'yyyymm')=p_yearMonth ;

end if;

insert into T_HQ_Schedule(HQ_Schedule_Guid,HQ_Schedule_Name,Schedule_Class,Record_Creator, 

Is_Published,Record_CreatorDateTime,HQ_Schedule_Date) 

values(v_guid,p_scheduleName,p_scheduleType,p_scheduleCreater,'N',sysdate,p_yearMonth) ;

---处理明细表T_HQ_Schedule_Date_Record的数据 

while (v_PointerPrev < LENGTH(p_scheduleData)) 

loop

    v_PointerCurr:=instr(p_scheduleData,',',v_PointerPrev) 

    if(v_PointerCurr>0) 

    then

        v_TId:=SUBSTR(p_scheduleData,v_PointerPrev,v_PointerCurr-v_PointerPrev) ;

        ------ 

 v_scheduleDay:=v_scheduleDay+1 ;

 tdate = cast( p_yearmonth||'-'||scheduleDay,'yyyymm-dd'); 

insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date, 

Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime) 

values(newid(),v_guid,v_tdate,v_TId,p_scheduleCreater,sysdate); 

     v_PointerPrev := v_PointerCurr+1 ;

    

    else 

        exit; end if;

End loop;

--处理最后一个,因为最后一个后面没有逗号,所以在循环中跳出,需另外再处理 

v_scheduleDay:=v_scheduleDay+1 ;

v_TId:=SUBSTR(p_scheduleData,v_PointerPrev,LENGTH(p_scheduleData)-v_PointerPrev+1) ;

v_tdate = to_date( p_yearMonth||'-'||scheduleDay ,'yyyymm-dd') ;

insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,Schedule_Date, 

Schedule_Content,Record_Creator,Record_Creator,Record_CreatorDateTime) 

values(newid(),v_guid,v_tdate,v_TId,p_scheduleCreater,sysdate);

fyqwork 2009-10-23

打赏
举报

语法其本上差不多，oracle参数前不用加@
给个简单的例子希望对lz有帮助：
PROCEDURE sp_u_provideMaterialHead(smainbillheadid in out varchar2) is
begin
update t_drm_providematerialhead
set MainBillState = '3'
where Trim(mainbillheadid) = Trim(smainbillheadid);
exception
when others then
smainbillheadid := sqlerrm;
rollback;
end sp_u_provideMaterialHead;

wh62592855 2009-10-23

打赏
举报

[Quote=引用 4 楼 shiyiwan 的回复:]
SQL codecreateorreplaceprocedure pr_ModifyHQSchedule(
v_scheduleNameinvarchar2(50),
v_scheduleTypeinvarchar2(1),
v_scheduleCreaterinvarchar2(38),
v_yearMonthinvarchar2(10),
v_schedu¡
[/Quote]
我刚才在博客给你发了个消息你看一下

shiyiwan 2009-10-23

打赏
举报

create or replace procedure pr_ModifyHQSchedule(

   v_scheduleName       in varchar2(50), 

   v_scheduleType       in varchar2(1), 

   v_scheduleCreater    in varchar2(38), 

   v_yearMonth          in varchar2(10), 

   v_scheduleData       in varchar(100)

) 

as 

   v_PointerPrev     number         := 1;

   v_PointerCurr     number         := 0; 

   v_TId             varchar2(10) ;

   v_guid            varchar2(100)  := sys_guid();

   v_scheduleDay     number         := 0;

   v_tdate           date;



---先处理主表T_HQ_Schedule的数据 

begin



   delete from T_HQ_Schedule 

   where HQ_Schedule_Date   = v_yearMonth;



   delete from T_HQ_Schedule_Date_Record 

   where to_char(Schedule_Date,'yyyymm')   = v_yearMonth;



   insert into T_HQ_Schedule(HQ_Schedule_Guid,HQ_Schedule_Name,Schedule_Class,

                             Record_Creator,Is_Published,

                             Record_CreatorDateTime,HQ_Schedule_Date) 

   values(v_guid,v_scheduleName,v_scheduleType,v_scheduleCreater,'N',

          sysdate,v_yearMonth);



---处理明细表T_HQ_Schedule_Date_Record的数据 

   while v_PointerPrev < length(v_scheduleData) loop 

      v_PointerCurr  := INSTR(v_scheduleData,',',v_PointerPrev); 

      if v_PointerCurr > 0 then

         v_TId          := SUBSTR(v_scheduleData,v_PointerPrev,v_PointerCurr-v_PointerPrev); 

         v_scheduleDay  := v_scheduleDay + 1; 

         v_tdate        := to_date(v_yearMonth||lpad(v_scheduleDay,2,'0'),'yyyymmdd');

         insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,

                                               Schedule_Date, Schedule_Content,

                                               Record_Creator,Record_Creator,

                                               Record_CreatorDateTime)

         values(sys_guid(),v_guid,v_tdate,v_TId,v_scheduleCreater,sysdate); 



         v_PointerPrev  := v_PointerCurr + 1;

      end if;

   end loop;



--处理最后一个,因为最后一个后面没有逗号,所以在循环中跳出,需另外再处理 

   v_scheduleDay  := v_scheduleDay + 1;

   v_TId          := SUBSTR(v_scheduleData,v_PointerPrev,v_PointerCurr-v_PointerPrev+1); 

   v_tdate        := to_date(v_yearMonth||lpad(v_scheduleDay,2,'0'),'yyyymmdd');



   insert into T_HQ_Schedule_Date_Record(HQ_Schedule_Date_Guid,HQ_Schedule_Guid,

                                               Schedule_Date, Schedule_Content,

                                               Record_Creator,Record_Creator,

                                               Record_CreatorDateTime)

         values(sys_guid(),v_guid,v_tdate,v_TId,v_scheduleCreater,sysdate); 



exception

   when others then

      raise;

end pr_ModifyHQSchedule;

sxx_tt 2009-10-23

打赏
举报

@scheduleName varchar(50),
@scheduleType varchar(1),
@scheduleCreater varchar(38),
@yearMonth varchar(10),
@scheduleData varchar(100)
是输入参数？

wh62592855 2009-10-23

打赏
举报

会ORACLE 但不会MS SQL 呵呵

Dave 2009-10-23

打赏
举报

头看晕了...帮顶..

帮我转换一下，谢谢

相关推荐