/*ATM取款機系統資料庫設計*/


/*
某銀行擬開發一套ATM取款機系統，實現如下功能：
1、開戶（到銀行填寫開戶申請單，卡號自動生成）
2、取錢
3、存錢
4、查詢餘額
5、轉賬（如使用一卡通代繳手機話費、個人股票交易等）
現要求對“ATM櫃員機系統”進行資料庫的設計並實現，資料庫儲存在D:\bank目錄下，檔案增長率為15% 。

*/


--建立資料庫
if exists(select * from sysdatabases where name='BankDB')
drop database BankDB
create database BankDB
on(
	name='BankDBmdf',
	filename='d:\SQL2008Workspace\BankDB.mdf',
	size=5mb,
	maxsize=15mb,
	filegrowth=15%
)
log on
(
	name='BankDBldf',
	filename='d:\SQL2008Workspace\BankDB.ldf',
	size=5mb,
	maxsize=15mb,
	filegrowth=15%
)
go


--建立使用者資訊表
use BankDB
if exists(select * from sysobjects where name ='userInfo')
drop table userInfo
create table userInfo
(
	customerID int not null  identity(1,1),--客戶編號
	customerName nvarchar(8) not null,--開戶名
	pID varchar(20) not null, --身份證號
	telephone varchar(13) not null,--電話號碼
	uaddress nvarchar(50)--家庭住址
)
go
--新增約束
alter table userInfo 
add constraint PK_customer primary key (customerID),--主鍵約束
    constraint UQ_pID unique (pID),--唯一約束
    constraint CK_piD check (len(pID)=15 or len(pID)=18),--檢查約束
    constraint CK_telephone check (telephone like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]' or telephone like '[0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]')--檢查約束
go


--建立銀行卡資訊表
use BankDB
if exists(select * from sysobjects where name='cardInfo')
drop table cardInfo
create table cardInfo    
(
	cardID varchar(18) not null,--銀行卡號
	curType varchar(3) not null,--貨幣種類
	savingType nvarchar(4) not null,--存款型別
	openDate datetime not null,--開戶日期
	openMoney money not null,--開戶金額
	balance money not null,--餘額
	pass char(6) not null,--密碼
	isReportPass nvarchar(2) not null,--是否掛失
	customerID int not null--顧客編號	
)
go
--新增約束
alter table cardInfo
add constraint PK_cardID primary key (cardID),--主鍵約束
	constraint CK_cardID check (cardID like '1010 3576 [0-9][0-9][0-9][0-9] [0-9][0-9][0-9]'),--檢查約束
	constraint DF_curType default ('RMB') for curType,--預設約束
	constraint CK_savingType check (savingType = '活期' or savingType = '定期' or savingType = '定活兩便'),--檢查約束
	constraint DF_opendate default (getdate()) for opendate,--預設約束
	constraint CK_openMoney check (openMoney>=1),--檢查約束
	constraint CK_balance check (balance>=1),--檢查約束
	constraint CK_pass check (pass like '[0-9][0-9][0-9][0-9][0-9][0-9]'),--檢查約束
	constraint DF_pass default ('888888') for pass,--預設約束
	constraint CK_isReportPass check (isReportPass = '是' or isReportPass = '否'),
	constraint DF_isReportPass default ('否') for isReportPass,
	constraint FK_customerID foreign key (customerID) references userInfo(customerID)--外來鍵約束
go


--建立交易資訊表
use BankDB
if exists(select * from sysobjects where name='transInfo')
drop table transInfo
create table transInfo
(
	transDate datetime not null,--交易日期
	cardID varchar(18) not null,--卡號
	transType nvarchar(4) not null,--交易型別
	transMoney money not null,--交易金額
	remark nvarchar(50)--備註
) 
go
--新增約束
alter table transinfo
add constraint DF_transDate default (getdate()) for transDate,--預設約束
    constraint FK_cardID foreign key (cardID) references cardInfo(cardID),--外來鍵約束
    constraint CK_transType check (transType = '存入' or transType = '支取'),--檢查約束
    constraint CK_transMoney check (transMoney>0 )
go




--給衛莊和蓋聶開戶
insert into userInfo(customerName,pID,telephone,uaddress) values('衛莊','123456789123456789','13921210101','韓國新鄭')
insert into userInfo(customerName,pID,telephone,uaddress) values('蓋聶','123456780123456780','0712-81210101','秦國咸陽')

insert into cardInfo (cardID,savingType,openMoney,balance,pass,customerID) values ('1010 3576 6221 543','活期',1000,1000,'123456',1)
insert into cardInfo (cardID,savingType,openMoney,balance,customerID) values ('1010 3576 3890 871','定期',999,999,2)

select * from userInfo
select * from cardInfo
go
--衛莊取錢500,蓋聶存錢1001
insert into transInfo (cardID,transType,transMoney) values ('1010 3576 6221 543','支取',500)
update cardInfo set balance=balance-500 where cardID='1010 3576 6221 543'
insert into transInfo (cardID,transType,transMoney) values ('1010 3576 3890 871','存入',1001)
update cardInfo set balance=balance+1001 where cardID='1010 3576 3890 871'
select * from transInfo 
select * from cardInfo 
go

--蓋聶修改密碼和掛失賬號
update cardInfo set pass=654321 where cardID='1010 3576 3890 871'
update cardInfo set isReportPass = '是' where cardID = '1010 3576 3890 871'
select * from cardInfo
go

--給cardID建立非聚集索引
create nonclustered index index_cardID on transInfo(cardID) with fillfactor=60
go
--根據索引進行查詢
select * from transInfo with (index=index_cardID) where cardID = '1010 3576 3890 871'
go
--建立檢視:查詢各表要求欄位為中文欄位名
create view view_user
as
	select  customerID '客戶編號',customerName as '開戶名','身份證號'=pID,
	telephone '電話號碼',uaddress '居住地址'
	from userInfo
go
select * from view_user


/*---建立儲存過程(獲取卡號)---*/
if exists (select * from sysobjects where name='pro_getcID')
drop procedure pro_getcID

create procedure pro_getcID @randID char(18) output
as
	declare @r numeric(15,8)
	declare @tempStr char(10)
	--隨機函式
	select @r=rand(datepart(mm,getdate())*100000 + datepart(ss,getdate())*1000 + datepart(ms,getdate()) )
	set @tempStr=convert(char(10),@r)
	--substring是返回指定位置的字串,從@tempStr字串第4個字元開始,返回長度為4的字元
	set @randID='1010 3576'+' '+substring(@tempStr,4,4)+' '+substring(@tempStr,8,3)
go
--測試產生隨機卡號
declare @cardID varchar(18)
exec pro_getcID @cardID output
print '產生的隨機卡號為:'
 
[email protected]
go

	



/*---建立儲存過程(開戶)---*/
if exists (select * from sysobjects where name = 'pro_openAccount')
drop procedure pro_openAccount

create procedure Pro_openAccount
@customerName nvarchar(8),@pID varchar(18),@telephone varchar(13),
@openMoney money,@savingType varchar(4),@uaddress nvarchar(50)=' '
as
	declare @cardID char(18)
	declare @customerID int
	exec pro_getcID @cardID output
	while exists(select * from cardInfo where cardID 
 
[email protected])
		begin
			exec pro_getcID @cardID output
		end
	print '尊敬的客戶,開戶成功!系統為您產生的隨機卡號為:'[email protected]
	print '開戶日期'+convert(char(10),getdate(),111)+'開戶金額'+convert(varchar(20),@openMoney)	
	if exists(select * from userInfo where @pID=pID)
		begin
			update userInfo set [email protected]
 
,[email protected]
			select @customerID=customerID from userInfo where @pID=pID
			insert into cardInfo (cardID,savingType,openMoney,balance,customerID) values (@cardID,@savingType,@openMoney,@openMoney,@customerID)
		end
	else
		begin
			insert into userInfo (customerName,pID,telephone,uaddress) values (@customerName,@pID,@telephone,@uaddress)
			select @customerID=customerID from userInfo where @pID=pID
			insert into cardInfo (cardID,savingType,openMoney,balance,customerID) values (@cardID,@savingType,@openMoney,@openMoney,@customerID)
		end
go
--呼叫儲存過程開戶
set nocount on--不顯示"受影響的行數資訊"
set nocount off--顯示"受影響的行數資訊"
EXEC pro_openAccount '王五','334456889012678','2222-63598978',1000,'活期','河南新鄉' 
EXEC pro_openAccount '李四','213445678912342222','0760-44446666',1,'定期',
go




/*---取錢或存錢的儲存過程---*/
if exists (select * from sysobjects where name = 'pro_playMoney')
drop procedure pro_playMoney

create procedure pro_playMoney
--輸入引數
@cardID varchar(18),@transType nvarchar(4),@transMoney money,@pass char(6)=''
as
	print '交易正在進行中......'
	declare @balance money
	select @balance=balance from  cardInfo where [email protected]
	if (@transType='支取')
		begin
			if (@pass=(select pass from cardInfo where [email protected]))
				begin
					if(@balance>[email protected]+1)
						begin
							update cardInfo set [email protected] where [email protected]
							insert into transInfo (cardID,transType,transMoney) values (@cardID,@transType,@transMoney)
							print '交易成功! 交易金額:'+convert(varchar(10),@transMoney)
							select @balance=balance from  cardInfo where [email protected]
							print '卡號:'[email protected]+'餘額:'+convert(varchar(10),@balance)
						end
					else
						begin
							raiserror('交易失敗,餘額不足!',16,1)
							print '卡號:'[email protected]+'餘額:'+convert(varchar(10),@balance)
							return
						end
				end
			else
				begin	
					raiserror('密碼錯誤',16,1)
					return
				end
		end
	if(@transType='存入')
		begin
			update cardInfo set [email protected] where [email protected]
			insert into transInfo (cardID,transType,transMoney) values (@cardID,@transType,@transMoney)
			print '交易成功! 交易金額:'+convert(varchar(10),@transMoney)
			select @balance=balance from  cardInfo where [email protected]
			print '卡號:'[email protected]+'餘額:'+convert(varchar(10),@balance)
		end
go
	
--衛莊存1000,蓋聶取600
exec pro_playMoney '1010 3576 6221 543','存入',1000
exec pro_playMoney '1010 3576 3890 871','支取',600,'654321'
go


--統計銀行的流通餘額和盈利結算
declare @inMoney money
declare @outMoney money
declare @profit money
select @inMoney=sum(transMoney) from transInfo where transType='存入'
select @outMoney=sum(transMoney) from transInfo where transType='支取'
print '銀行的流通餘額總計為:'+convert(varchar(20),@[email protected])+'RMB'
set @[email protected]*[email protected]*0.003
print '盈利結算為:'+convert(varchar(20),@profit)+'RMB'
go

--查詢本週開戶的卡號,顯示該卡的相關資訊
select * from cardInfo where datediff(day,getdate(),openDate)<datepart(weekday,getdate())
--查詢本月交易金額最高的卡號
select cardID from transinfo where transMoney=(select max(transMoney) from transInfo)
--查詢掛失賬號的客戶資訊
select * from userInfo where customerID in (select customerID from cardInfo where isReportPass='是')
--提醒資訊:當發現客戶賬戶餘額少於200,致電提醒
select customerName,cardID,balance,telephone from userInfo u,cardInfo c 
where u.customerID=c.customerID
and balance<200






/*---轉賬的儲存過程---*/
if exists(select * from sysobjects where name='pro_exMoney')
drop procedure pro_exMoney

create procedure pro_exMoney
@cardID1 char(18),@cardID2 char(18),@transMoney money
as
	print '開始轉賬,請稍後......'
	begin transaction
	declare @error int
	set @error=0
	exec pro_playMoney @cardID1,'支取',@transMoney,123456
	set @[email protected][email protected]@ERROR
	exec pro_playMoney @cardID2,'存入',@transMoney
	set @[email protected][email protected]@ERROR 
	if(@error<>0)
		begin
			print '轉賬失敗!'
			rollback transaction
		end
	else
		begin
			print '轉賬成功!'
			commit transaction
		end
go
--衛莊給蓋聶轉賬2000
exec pro_exMoney '1010 3576 6221 543','1010 3576 3890 871',2000

		
	
--賬戶安全
--1.新增SQL登入賬號
if exists(select * from syslogins where loginname='haha')
exec sp_droplogin 'haha'--刪除SQL登入賬號
begin
	exec sp_addlogin 'haha','1234'--新增SQL登入賬號
	exec sp_defaultdb 'haha','BankDB'--修改登入的預設資料庫時BankDB
end
go	
--2.建立資料庫使用者
exec sp_grantdbaccess 'haha','dbuser'
go
--3.授予資料庫使用許可權,為dbuser分配物件許可權(增刪改查的許可權)
grant insert,delete,update,select on userInfo to dbuser
grant insert,delete,update,select on cardInfo to dbuser
grant insert,delete,update,select on transInfo to dbuser
go