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

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

/****** Object:  Stored Procedure dbo.wbSP_KQ_JiaBanZBan    Script Date: 2000-02-24 11:47:59 ******/
CREATE PROCEDURE wbSP_KQ_JiaBanZBan
  @KQNO char(5),
  @SBorXB Int, -- 1: 上班 2: 下班 
  @Result Int Output
AS
begin
 Declare @KQTime DateTime

 
 Set @KQTime=GetDate()
 Set @Result=0 -- 0: 失败

 
-- Insert New Record in bJiaB_ZB_JL
 if @SBorXB=1 -- 上班
 begin
   Insert Into bJiaB_ZB_JL(KQNO,BeginTime,SBorXB) Values(@KQNO,@KQTime,'上班')
   if @@error =0
     Set @Result=1 -- 1: 成功  
 end
 else   -- 下班
 begin 
   Insert Into bJiaB_ZB_JL(KQNO,BeginTime,SBorXB) Values(@KQNO,@KQTime,'下班')
   if @@error =0
     Set @Result=1 -- 1: 成功  
 end 
 return
end