www.gusucode.com > 精典源码Delphi130：顺某指纹考勤管理系统 > 精典源码Delphi130：顺某指纹考勤管理系统/11065顺某指纹考勤管理系统delphi/wbSP_KQ_LingShiChuRu.txt

    /****** Object:  Stored Procedure dbo.wbSP_KQ_LingShiChuRu    Script Date: 2000-03-22 12:27:47 ******/

/****** Object:  Stored Procedure dbo.wbSP_KQ_LingShiChuRu    Script Date: 2000-02-24 11:47:59 ******/
CREATE PROCEDURE wbSP_KQ_LingShiChuRu
  @KQNO char(5),
  @ChuOrRu Int , -- 1: 临时出，2：临时入,3:简单出,4: 简单入
  @Result Int Output
AS
begin
 Declare @KQTime DateTime

 Set @Result=0 -- 0: 失败
 Set @KQTime =GetDate() 
-- Insert New Record in bLinSChuR
 if @ChuOrRu=1 or @ChuOrRu=3
 begin
   Insert Into bLinSChuR(KQNO,ShiJ,ChuOrRu,Type) Values(@KQNO,@KQTime,'出',@ChuOrRu)
   if @@error =0
     Set @Result=1 -- 1: 成功  
 end
 else
 begin
   Insert Into bLinSChuR(KQNO,ShiJ,ChuOrRu,type) Values(@KQNO,@KQTime,'入',@ChuOrRu)
   if @@error =0
     Set @Result=1 -- 1: 成功 
 end
 
 return
end