收藏本站 收藏本站
积木网首页 - 技术学院 - 软件测试 - 网站黄页 - 常用手册 - 站长工具 - 技术社区
首页 > 数据库 > MsSql > 正文

首页 - PHP - 数据库 - 操作系统 - 游戏开发 - JS - Android - MySql - Redis - MongoDB - Win8 - Shell编程 - DOS命令 - jQuery - CSS样式 - Python - Perl

Access - Oracle - DB2 - SQLServer - MsSql2008 - MsSql2005 - Sqlite - PostgreSQL - node.js - extjs - JavaScript vbs - Powershell - Ruby

实用的银行转账存储过程和流水号生成存储过程

银行转账存储过程

USE [BankInfor]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[Transfer](@inAccount int,@outAccount int,@amount float)
as declare
  @totalDeposit float;
  begin
  select @totalDeposit=total from Account where AccountNum=@outAccount;
  if @totalDeposit is null
  begin
  rollback;
  print'转出账户不存在或账户中没有存款'
  return;
  end
  if @totalDeposit<@amount
  begin
  rollback;
  print'余额不足,不能操作'
  return;
  end
  update Account set total=total-@amount where AccountNum=@outAccount;
  update Account set total=total+@amount where AccountNum=@inAccount;
  print'转账成功!'
  commit;
  end;

流水号生成存储过程

if exists(select 1 from sysobjects where id=OBJECT_ID('GetSerialNo') and xtype='p')
drop proc GetSerialNo
go
Create procedure [dbo].[GetSerialNo]  
(  
  @sCode varchar(50)  
)  
as 
begin 
 Declare @sValue varchar(16),@dToday  datetime,@sQZ varchar(50) --这个代表前缀 
  Begin Tran   
  Begin Try  
   -- 锁定该条记录,好多人用lock去锁,起始这里只要执行一句update就可以了 
  --在同一个事物中,执行了update语句之后就会启动锁 
  Update SerialNo set sValue=sValue where sCode=@sCode  
  Select @sValue = sValue From SerialNo where sCode=@sCode  
  Select @sQZ = sQZ From SerialNo where sCode=@sCode  
   -- 因子表中没有记录,插入初始值  
   If @sValue is null  
   Begin 
    Select @sValue = convert(bigint, convert(varchar(6), getdate(), 12) + '000001')  
    Update SerialNo set sValue=@sValue where sCode=@sCode  
   end else  
   Begin        --因子表中没有记录  
    Select @dToday = substring(@sValue,1,6)  
    --如果日期相等,则加1  
    If @dToday = convert(varchar(6), getdate(), 12)  
     Select @sValue = convert(varchar(16), (convert(bigint, @sValue) + 1))  
    else       --如果日期不相等,则先赋值日期,流水号从1开始  
     Select @sValue = convert(bigint, convert(varchar(6), getdate(), 12) +'000001')  
   Update SerialNo set sValue =@sValue where sCode=@sCode  
   End 
  Select result = @sQZ+@sValue   
   Commit Tran  
  End Try  
  Begin Catch  
   Rollback Tran  
   Select result = 'Error' 
  End Catch  
end 
select*from SerialNo
select convert(varchar(6), getdate(), 12)+'000001'

asp.net中如何调用sql存储过程实现分页
首先看下面的代码创建存储过程1、创建存储过程,语句如下:CREATEPROCP_viewPage@TableNameVARCHAR(200),--表名@FieldListVARCHAR(2000),--显示列名,如果是全部字段则

SQL Server 2005附加数据库时Read-Only错误的解决方案
SQLServer2005附加数据库文件时出现了Read-Only错误,附加的时候,系统提示mdf文件为只读,可是打开文件属性,这个属性不为只读。该怎么解决呢?本文我

解决SQL Server无法启动的小技巧
SQLServer无法启动主要的原因在登录上,下面就教您一个解决SQLServer无法启动的小技巧,如果您也遇到过SQLServer无法启动的问题,不妨一看。SQLServer有时

本周排行

更新排行

强悍的草根IT技术社区,这里应该有您想要的! 友情链接:b2b电子商务
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号