怎么写存储过程调用类?

Question

怎么写一个存储过程调用类?
我刚学delphi,请多关照!

Answer 1

先学写存储过程。在程序中调用存储过程。
这个与类没有关系。给个例子你看看。
create procedure dbo.ST_PromNoteSheet @SheetID char(16),@Checker char(8)
WITH ENCRYPTION
-----------------------------------------------------------------
--Version Number:myShop1.3_20040402_15,Last Mender:Wufuyin
-----------------------------------------------------------------
AS BEGIN
  declare @Err int;
  declare @BreakPoint int;
  declare @Msg varchar(255);
  
  declare @SheetType  int;
 
  SET NOCOUNT ON
  select @SheetType = 2103;
  select @BreakPoint = 336201;
  select @Msg = '',@Err=0;  update PromNoteSheet0
set Flag=100,CheckDate=getdate(),Checker=@Checker
where SheetID=@SheetID and Flag=0;
  if @@ROWCOUNT=0 begin
select @Err=0;
select @Msg='单据已审核或不存在!'
goto ErrHandle;
  end
-- 写入正式表
  select @BreakPoint = 336280;
  execute @Err=TL_SheetTransfer @SheetID,1,'PromNoteSheet0','PromNoteSheetItem0','','PromNoteSheet','PromNoteSheetItem','';
  if @Err <> 0 or @Err is null begin
select @Msg='数据转移正式表失败';
goto ErrHandle;
  end  select @BreakPoint = 336250;
  execute @Err=IF_PromNoteSheet @SheetID;
  if @Err <> 0 or @Err is null begin
select @Msg='执行失败!'
goto ErrHandle;
  end  return 0;ErrHandle:
  raiserror('%s,断点=%d,Err=%d',16,1,@Msg,@BreakPoint,@Err);
  return -1;End
Go

Answer 2

在程序里怎么调用呢？直接exec吗？