ATM-简单SQL查询

于 2018-09-25 22:12:00 发布
阅读量130 收藏
点赞数
原文链接：http://www.cnblogs.com/RemMai/p/9703899.html
版权 
use master 
go
if exists(select * from sysDatabases where name = 'BankDB')
drop database BankDB
go
create database BankDB
go
use BankDB
go
--建用户信息表
if exists(select * from sysObjects where name = 'Xxl_UserInfo')
drop table Xxl_UserInfo
go
create table Xxl_UserInfo
(
    Xxl_User_Id            int                not null    primary key identity ,
    Xxl_User_Name        nvarchar(20)    not null    ,
    Xxl_User_Sex        bit                not null    ,
    Xxl_User_IDcard        char(18)        not null    unique ,
    Xxl_User_Moblie        char(11)        not null    check(Xxl_User_Moblie like '1[3579][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'),
    Xxl_User_Address    nvarchar(50)    not null 
)
go
--建用户卡信息表
if exists(select * from sysObjects where name = 'Xxl_CardInfo')
drop table Xxl_CardInfo
go
create table Xxl_CardInfo
(
    Xxl_Card_No            char(16)        not null    primary key check(Xxl_Card_No like '66668888[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]') ,
    Xxl_Card_pwd        char(6)            not null    default('666888') ,
    From_Xxl_User_Id    int                not null    references Xxl_UserInfo(Xxl_User_Id),
    Xxl_Card_Date        DateTime        not null    default(getdate()) ,
    Xxl_Card_Balance    decimal(18,2)    not null    check(Xxl_Card_Balance >= 0) ,
    Xxl_Card_State        int                not null    check(Xxl_Card_State in (0,1,2)),
    Xxl_Card_Text        nvarchar(50)    not null
)
go
--建交易信息表
if exists(select * from sysObjects where name = 'Xxl_TransInfo')
drop table Xxl_TransInfo
go
create table Xxl_TransInfo
(
    Xxl_Trans_FlowNum        int                not null    identity primary key    ,
    From_Xxl_Card_No        char(16)        not null    references Xxl_CardInfo(Xxl_Card_No) ,
    Xxl_Trans_Type            int                not null    check(Xxl_Trans_Type in (1,2)) ,
    Xxl_Trans_Quota            decimal(18,2)    not null    check(Xxl_Trans_Quota > 0) ,
    Xxl_Trans_Date            DateTime        not null    default(getdate()) ,
    Xxl_Trans_ed_Balance    decimal(18,2)    not null    check(Xxl_Trans_ed_Balance >= 0) ,
    Xxl_Trans_Text            varchar(50)        not null
)
go
------添加用户信息
insert Xxl_UserInfo values('徐小龙',1,'42028120000114125X','13071226588','湖北武汉')
insert Xxl_UserInfo values('张小杨',0,'42028119980515543X','13045114154','湖北武汉')
insert Xxl_UserInfo values('吴小心',0,'42028120001202114X','13071557444','湖北武汉')
----添加用户卡信息
insert Xxl_CardInfo values('6666888845125214','666888',1,'2006-2-12',600,0,'使用')
insert Xxl_CardInfo values('6666888865896548','666888',1,'2007-2-20',3000,0,'使用')
insert Xxl_CardInfo values('6666888812454852','666888',2,'2016-6-12',6300,0,'使用')
insert Xxl_CardInfo values('6666888852145698','666888',3,'2018-3-24',500,0,'使用')    
----添加交易信息
insert Xxl_TransInfo values('6666888845125214',1,300,'2016-3-12',300,'存入300元')
insert Xxl_TransInfo values('6666888845125214',1,300,'2017-5-3',600,'存入300元')
insert Xxl_TransInfo values('6666888865896548',1,6000,'2013-9-1',6000,'存入6000元')
insert Xxl_TransInfo values('6666888865896548',2,3000,'2014-9-1',3000,'转账3000元给6666888812454852')
insert Xxl_TransInfo values('6666888812454852',1,3000,'2017-3-6',3000,'6666888865896548转入的3000元')
insert Xxl_TransInfo values('6666888812454852',1,3300,'2017-12-1',6300,'存入3300元')
insert Xxl_TransInfo values('6666888852145698',1,3000,'2018-6-3',3000,'存入3000元')
insert Xxl_TransInfo values('6666888852145698',2,2500,'2018-7-3',500,'取出2500元')
------备份交易信息表
select * into Xxl_TransInfo_BAK from Xxl_TransInfo
--------查询各表数据
--select * from Xxl_UserInfo
--select * from Xxl_CardInfo
--select * from Xxl_TransInfo
--select * from Xxl_TransInfo_BAK
----------------------------------------创建函数----------------------------------------
--加逗号的函数
if exists(select * from sysObjects where name='function_JiaDouhao')
    drop function function_JiaDouhao
go
create function function_JiaDouhao( @Money decimal(18,2))
    returns varchar(50) as
    begin
        declare @a varchar(50)= left(@Money,len(@Money)-3)
        declare @b varchar(50)= right(@Money,3)
        while (len(@a)>3)
            begin
                select @b = ','+right(@a,3)+@b
                select @a = left(@a,len(@a)-3)
            end 
        return @a+@b
    end
go
------------------------------------------结束------------------------------------------
----------------------------------------创建视图----------------------------------------
--用户信息视图
if exists(select * from sysObjects where name    ='vw_UserInfo')
    drop view vw_UserInfo
go
create view vw_UserInfo 
    as                    
    select    
        Xxl_User_Id                编号,
        Xxl_User_Name            姓名,
        case Xxl_User_Sex 
            when 0 then '女'
            when 1 then '男'
            end                    性别,
        Xxl_User_IDcard            身份证,
        Xxl_User_Moblie            联系电话,
        Xxl_User_Address        籍贯
        from Xxl_UserInfo 
go
--使用视图
--select * from vw_UserInfo
--卡信息视图
if exists(select * from sysObjects where name='vw_CardInfo')
    drop view vw_CardInfo
go
create view vw_CardInfo 
    as                    
    select    
        Xxl_Card_No                                    卡号,
        Xxl_User_Name                                姓名,
        Xxl_Card_Balance                            余额,
        Xxl_Card_Date                                开卡日期,
        case Xxl_Card_State
            when 0 then '正常'
            when 1 then '冻结'
            when 2 then '注销'
        end                                            状态,
        dbo.function_JiaDouhao(Xxl_Card_Balance)    货币表示
        from Xxl_UserInfo UserInfo inner join Xxl_CardInfo CardInfo on UserInfo.Xxl_User_Id = CardInfo.From_Xxl_User_Id
go
--使用视图
--select * from vw_CardInfo
--交易记录视图
if exists(select * from sysObjects where name='vw_TransInfo')
    drop view vw_TransInfo
go
create view vw_TransInfo 
    as                    
    select    ----卡号，交易日期，交易类型，交易金额，余额，描述
        Xxl_Card_No                卡号,
        Xxl_Trans_Date            交易日期,
        case Xxl_Trans_Type
            when 1 then '存入'
            when 2 then    '支取'
        end                     交易类型,
        case Xxl_Trans_Type
            when 1 then '+'+convert(varchar(20),Xxl_Trans_Quota)
            when 2 then '-'+convert(varchar(20),Xxl_Trans_Quota)
            end                    交易金额,
        Xxl_Trans_ed_Balance    余额,
        Xxl_Trans_Text            描述
        from Xxl_CardInfo CardInfo inner join Xxl_TransInfo TransInfo on CardInfo.Xxl_Card_No = TransInfo.From_Xxl_Card_No
go
--使用视图
--select * from vw_TransInfo
--------------------------------------------结束--------------------------------------------
----------------------------------------创建存储过程----------------------------------------
--1、    查询余额
if exists(select * from sysObjects where name='p_SelectBalance')
    drop proc p_SelectBalance
go
create proc p_SelectBalance
    @CardNo char(16)
as
    select 货币表示 as 余额 from vw_CardInfo where 卡号 = @CardNo
go
--exec p_SelectBalance '6666888845125214'
--2、    查询某两日期之间交易记录
if exists(select * from sysObjects where name='p_SelectStart_StopDate')
    drop proc p_SelectStart_StopDate
go
create proc p_SelectStart_StopDate
    @CardNo char(16),
    @StartDate datetime,
    @StopDate datetime
as
    select * from vw_TransInfo where 卡号 = @CardNo and 交易日期 >= @StartDate and 交易日期 < dateadd(dd,1,@StopDate)
go
--exec p_SelectStart_StopDate '6666888845125214','1990-1-1','2018-9-9'

--3、    修改密码功能
if exists(select * from sysObjects where name='p_Update_Pwd')
    drop proc p_Update_Pwd
go
create proc p_Update_Pwd
    @CardNo char(16),
    @CardPwdStart char(6),
    @CardPwdStop char(6)
as
    update Xxl_CardInfo set Xxl_Card_pwd=@CardPwdStop where Xxl_Card_No = @CardNo and Xxl_Card_pwd = @CardPwdStart
go
--exec p_Update_Pwd '6666888845125214','666888','548888'
--4、    存款功能（备份）
if exists(select * from sysObjects where name='p_SeveMoney')
    drop proc p_SeveMoney
go
create proc p_SeveMoney
    @CardNo    char(16),
    @Quota    decimal(18,2),
    @errMeg varchar(50) output
as
    --判断存款金额
    if @Quota <= 0
    begin
        set @errMeg =  '输入金额有误！'
        return -1
    end
    begin tran
    declare @err int = 0
    declare @startBalance decimal(18,2) = 0
    select @startBalance=Xxl_Card_Balance from Xxl_CardInfo where Xxl_Card_No = @CardNo
    --添加存款记录
    insert Xxl_TransInfo values(@CardNo,1,@Quota,getdate(),(@startBalance + @Quota),('存入' + convert(varchar(50), @Quota) + '元'))
    select @err = @@ERROR + @err
    --更新余额
    update Xxl_CardInfo set Xxl_Card_Balance = (@startBalance + @Quota) where Xxl_Card_No = @CardNo
    select @err = @@ERROR + @err
    if @err = 0
    begin
        set @errMeg =  '操作成功'
        commit tran
        return 0
    end
    begin
        set @errMeg =  '未知错误！'
        rollback tran
        return -1
    end
go
--5、    取款功能（备份）
if exists(select * from sysObjects where name='p_GetMoney')
    drop proc p_GetMoney
go
create proc p_GetMoney
    @CardNo char(16),
    @Quota decimal(18,2),
    @errMeg varchar(50) output
as
    --判断取款金额
    if @Quota <= 0
    begin
        set @errMeg = '输入金额有误！'
        return -1
    end
    --查询原有余额
    declare @startBalance decimal(18,2)
    select @startBalance=Xxl_Card_Balance from Xxl_CardInfo where Xxl_Card_No = @CardNo
    --判断余额是否足够
    if @startBalance > @Quota
    begin
        set @errMeg = '余额不足！'
        return -1
    end
    begin tran
    declare @err int = 0
    --添加取款记录
    insert Xxl_TransInfo values(@CardNo,2,@Quota,getdate(),(@startBalance - @Quota),('取出' +  convert(varchar(50), @Quota) + '元'))
    select @err = @@ERROR + @err
    --更新余额
    update Xxl_CardInfo set Xxl_Card_Balance = (@startBalance - @Quota) where Xxl_Card_No = @CardNo
    select @err = @@ERROR + @err
    if @err = 0
    begin
        set @errMeg = '操作成功'
        commit tran
        return 0
    end
    else
    begin
        set @errMeg = '未知错误！'
        rollback tran
        return -1
    end
go
--6、    转帐功能（备份）
if exists(select * from sysObjects where name='p_TeansferMoney')
    drop proc p_TeansferMoney
go
create proc p_TeansferMoney
    @FromCardNo char(16),
    @ToCardNo char(16),
    @Quota decimal(18,2),
    @errMeg varchar(50) output
as
    --判断目标账户是否为本身
    if @FromCardNo != @ToCardNo
    begin
        set @errMeg =  '目标账户不可以为自己！'
        return -1
    end
    --判断目标账户是否存在
    if not exists(select * from Xxl_CardInfo where Xxl_Card_No = @ToCardNo)
    begin
        set @errMeg =  '目标账户不存在！'
        return -1
    end
    --判断转账金额是否正确
    if @Quota <= 0
    begin
        set @errMeg =  '输入金额有误！'
        return -1
    end
    --查询From原有余额
    declare @FromStartBalance decimal(18,2)
    select @FromStartBalance=Xxl_Card_Balance from Xxl_CardInfo where Xxl_Card_No = @FromCardNo
    --判断From余额是否充足
    if @FromStartBalance < @Quota
    begin
        set @errMeg =  '余额不足！'
        return -1
    end
    begin tran
    declare @err int = 0
    --查询To原有余额
    declare @ToStartBalance decimal(18,2)
    select @ToStartBalance=Xxl_Card_Balance from Xxl_CardInfo where Xxl_Card_No = @ToCardNo
    --更新余额
    update Xxl_CardInfo set Xxl_Card_Balance = (@FromStartBalance - @Quota) where Xxl_Card_No = @FromCardNo
    select @err = @@ERROR + @err
    update Xxl_CardInfo set Xxl_Card_Balance = (@ToStartBalance + @Quota) where Xxl_Card_No = @ToCardNo
    select @err = @@ERROR + @err
    --添加交易记录
    insert Xxl_TransInfo values(@FromCardNo,2,@Quota,getdate(),(@FromStartBalance - @Quota), '转出' + convert(varchar(50), @Quota) + '元给'+@ToCardNo)
    select @err = @@ERROR + @err
    insert Xxl_TransInfo values(@ToCardNo,1,@Quota,getdate(),(@ToStartBalance + @Quota),('由' +@FromCardNo+ '转入'+ convert(varchar(50), @Quota) + '元'))
    select @err = @@ERROR + @err
    if @err = 0
    begin
        set @errMeg =  '操作成功！'
        commit tran
        return 0
    end
    else
    begin
        set @errMeg =  '未知错误！'
        rollback tran
        return -1
    end
go
--exec p_TeansferMoney '6666888812454852','6666888845125214',300.00
--7、    随机产生卡号（卡号格式为：8228 6688 XXXX XXXX） 注：随机产生的卡号已经存在的不能用 
if exists(select * from sysObjects where name='P_GenerateBankcard')
    drop proc P_GenerateBankcard
go
create proc P_GenerateBankcard
    @Card char(16) output
as 
    while 1 = 1
    begin
        select @Card  = convert (varchar(8), '66668888')+right(convert(dec(10,10),rand()),8)
        if not exists(select * from Xxl_CardInfo where Xxl_Card_No = @Card)
            break
    end
go
--declare @Card char(16)
--exec P_GenerateBankcard @Card output
--select @Card as 卡号
--8、    开户功能
if exists(select * from sysobjects where name = 'P_AccountOpening')
    drop proc P_AccountOpening
go
create proc P_AccountOpening
    @Name nvarchar(20),
    @Sex bit,
    @IdCard char(18),
    @Moblie char(11),
    @Address nvarchar(50),
    @errMeg varchar(50) output
as
    if exists (select * from Xxl_UserInfo where Xxl_User_IDcard =@IdCard)
    begin
        set @errMeg =  '存在此账户！'
        return -1
    end
    begin tran
    declare @UserID int
    declare @err int = 0
    insert Xxl_UserInfo values(@Name,@Sex,@IdCard,@Moblie,@Address)
    select @err =  @@ERROR + @err
    declare @Card varchar(16)
    exec P_GenerateBankcard @Card output
    select @UserID = Xxl_User_Id from Xxl_UserInfo where Xxl_User_IDcard = @IdCard
    insert Xxl_CardInfo values(@Card,default,@UserId,getdate(),0,0,'使用')
    select @err =  @@ERROR + @err
    if(@err = 0)
    begin
        set @errMeg =  '开户成功！'
        commit tran
        return 0
    end 
    else 
    begin
        set @errMeg =  '未知错误！'
        rollback tran
        return -1
    end
go
--9、    解冻功能
if exists(select * from sysobjects where name = 'P_ThawAccount')
    drop proc P_ThawAccount
go
create proc P_ThawAccount
    @CardNo nchar(18)
as
    update Xxl_CardInfo set Xxl_Card_State = 0 where Xxl_Card_No = @CardNo
    return 0
go
--10、    根据用户身份证，查询该用户下所有的银行卡信息
if exists(select * from sysobjects where name = 'P_SelectCard')
    drop proc P_SelectCard
go
create proc P_SelectCard
    @IdCard nchar(18)
as
    declare @ID varchar(20)
    select @ID = Xxl_User_Id from Xxl_UserInfo where Xxl_User_IDcard = @IdCard
    select * from Xxl_CardInfo where From_Xxl_User_Id = @ID
go
--------------------------------------------结束--------------------------------------------

 

转载于:https://www.cnblogs.com/RemMai/p/9703899.html

weixin_34245749
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
银行ATM取款系统数据库及sql语句
05-01
数据库作业——ATM。 写了一些代码描述功能啊什么的。
SQL之ATM机实例
风情路96号
03-22 1497
/*创建帐户表*/　　　　/*ATM机业务！*/　　create table bank　　(　　bid int primary key identity(1000,1),　　--流水号　　bcid numeric(15,0) default rand()*1000000000000000 unique check(bcid>=100000000000000), 　　--银行卡号，仅限15位数字,应
银行ATM（SQL脚本）
weixin_30340775的博客
04-07 220
exec xp_cmdshell 'mkdir d:\bank' --创建文件目录 use master go if exists(select * from sysdatabases where name='ATM') drop database ATM go create database ATM on ( name='ATM_data', filen...
数据库 ATM
06-13
代码 代码
银行ATM取款机（sql语句）
02-20
银行ATM取款机（sql代码） 银行ATM取款机（sql代码）
ATM-SQL.zip_atm
09-19
通过学习ATM-SQL.zip_atm中的内容，初学者可以了解到如何使用SQL来实现一个简单的ATM系统，包括数据库设计原则、SQL语句的应用以及数据库管理的关键概念。这将为他们进一步深入数据库管理和软件开发打下坚实的基础。
利用Java实现ATM代码，数据库使用SQL.
04-10
利用Java实现ATM代码，数据库使用SQL.要确定需用到什么类，开户：输入姓名，密码，实现登录，修改密码，存取款，查看用户信息等功能。private void RegisterUser(atmJFrame atmjframe, atmJButton atmjbutton) { ...
atm-machine:自动取款机演示项目
03-13
3. **用户界面**：虽然这里没有具体提到GUI（图形用户界面），但在实际的ATM机模拟项目中，可能会用到Swing或JavaFX库来创建一个简单的UI，用于接收用户输入并显示交易结果。 4. **并发处理**：如果ATM机允许多个...
ATM自动取款机系统-软件设计说明书.pdf
最新发布
11-24
因此，银行希望设计一个系统，能让客户在系统上进行简单的操作，比如存款、取款、查询余额、转账等。 1.3 定义 ATM：Automatic Teller Machine，自动柜员机。 2.1 目标 为了解决ATM自动取款机系统的安全隐患，...
ATM银行的sql小项目 写的不好见谅
05-10
create table user_info ( u_id bigint not null auto_increment, u_name varchar(20) not null, u_pid varchar(18) not null unique, u_tel varchar(12) not null, u_address varchar(50), primary key (u_id) )engine=InnoDB insert into user_info(u_id,u_name,u_pid,u_tel,u_address)values('01','一','130555063837830521', '13080251791', '福建厦门'); insert into user_info(u_id,u_name,u_pid,u_tel,u_address)values('02','二','130555063837830522', '13080251792', '福建厦门'); insert into user_info(u_id,u_name,u_pid,u_tel,u_address)values('03','三','130555063837830523', '13080251793', '福建厦门'); insert into user_info(u_id,u_name,u_pid,u_tel,u_address)values('04','四','130555063837830524', '13080251794', '福建厦门'); insert into user_info(u_id,u_name,u_pid,u_tel,u_address)values('05','五','130555063837830525', '13080251795', '福建厦门');
SQL 项目 完整的银行ATM系统
07-13
SQL ATM 系统 包括 基本的增删改查，以及用户的密码修改等等多个功能！
T-SQL的项目（ATM取款机）
04-13
其中包括事务，存储过程，函数，触发器的大量使用，很能复习T-SQL的不足和欠缺，还包括通过数据库级在电脑硬盘上新建文件夹等功能
ATM取款系统数据库SQL设计
07-30
某银行拟开发一套ATM取款机系统，实现如下功能： 1、开户（到银行填写开户申请单，卡号自动生成）
银行ATM存款机SQL数据库设计
02-21
银行ATM存款机SQL数据库设计，适合学生学习参考。本人写的批处理思路一般，逻辑性不强。适合新手学习。
银行ATM机数据库SQL代码
05-01
银行的简单数据库SQL代码
北大青鸟S2项目实战项目1 SQL银行ATM提款机系统
12-15
作业做完了，发上来看看，帮助有需要的同志
SQL高级 第九章 9 银行ATM存取款机系统
qq_36074362的博客
02-22 1332
create procedure usp_takeMoney @card char(19), --卡号 @m money, --交易金额,（我存入的钱或取出的钱） @type char(4), --支取，存入（交易类型） @inputPass char(6)='' --密码 AS
SQL SERVER 版ATM银行操作系统
05-18
SQL SERVER 版ATM银行操作系统

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值