gusucode.com > 精典源码Delphi044:指纹考勤管理系统源码程序 > 精典源码Delphi044:指纹考勤管理系统源码程序/精典源码Delphi044:指纹考勤管理系统/顺发指纹考勤管理系统/指纹考勤系统/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