Files
sql-server-samples/samples/features/security/ledger/source/WorldCup/Scripts/Create Database Schema.sql
T
2022-12-01 13:57:08 +01:00

177 lines
6.5 KiB
Transact-SQL

CREATE DATABASE WorldCup
GO
ALTER DATABASE [WorldCup] SET ALLOW_SNAPSHOT_ISOLATION ON
GO
USE WorldCup
GO
CREATE TABLE [dbo].[MoneyLine](
[MoneyLineID] [int] IDENTITY(1,1) NOT NULL,
[HomeCountry] [nvarchar](50) NOT NULL,
[HomeCountryOdds] [INT] NOT NULL,
[DrawOdds] [INT] NOT NULL,
[VisitCountry] [nvarchar](50) NOT NULL,
[VisitCountryOdds] [INT] NOT NULL,
[GameDateTime] [datetime2] NOT NULL
)
WITH
(
SYSTEM_VERSIONING = ON,
LEDGER = ON
);
GO
--https://sportsbook.draftkings.com/leagues/soccer/world-cup-2022?category=game-lines&subcategory=moneyline-(regular-time)
INSERT INTO [dbo].[MoneyLine] ([HomeCountry], [HomeCountryOdds], [DrawOdds], [VisitCountry],[VisitCountryOdds],[GameDateTime])
VALUES ('Qatar', 250, 245, 'Ecuador',105,'2022-11-20 17:00:00'),
('England', -340, 390, 'Iran', 1000, '2022-11-21 14:00:00' ),
('Senegal', 475, 270, 'Netherlands',-165, '2022-11-21 17:00:00'),
('USA', 145, 205, 'Wales',205, '2022-11-21 20:00:00'),
('Argentina', -575, 600, 'Saudi Arabia',1500, '2022-11-22 11:00:00'),
('Denmark', -230, 340, 'Tunisia',600, '2022-11-22 14:00:00'),
('Mexico', 170, 215, 'Poland',165, '2022-11-22 17:00:00'),
('France', -550, 600, 'Australia',1300, '2022-11-22 20:00:00'),
('Morocco', 370, 230, 'Croatia',-125, '2022-11-23 11:00:00'),
('Germany', -280, 400, 'Japan',700, '2022-11-23 14:00:00'),
('Spain', -380, 475, 'Costa Rica',1000, '2022-11-23 17:00:00'),
('Belgium', -350, 450, 'Canada',900, '2022-11-23 20:00:00'),
('Switzerland', -120, 240, 'Cameroon',350, '2022-11-24 11:00:00'),
('Uruguay', -120, 235, 'South Korea',360, '2022-11-24 14:00:00'),
('Portugal', -210, 310, 'Ghana',600, '2022-11-24 17:00:00'),
('Brazil', -235, 350, 'Serbia',600, '2022-11-24 20:00:00'),
('Wales', 120, 215, 'Iran',250, '2022-11-25 11:00:00'),
('Qatar', 275, 225, 'Senegal',105, '2022-11-25 14:00:00'),
('Netherlands', 155, 300, 'Ecuador',390, '2022-11-25 17:00:00'),
('England', 140, 255, 'USA',400, '2022-11-25 20:00:00'),
('Tunisia', 190, 195, 'Australia',165, '2022-11-26 11:00:00'),
('Poland', -140, 255, 'Saudi Arabia',390, '2022-11-26 14:00:00'),
('France', -110, 240, 'Denmark',310, '2022-11-26 17:00:00'),
('Argentina', -170, 285, 'Mexico',475, '2022-11-26 20:00:00'),
('Japan', -105, 230, 'Costa Rica',310, '2022-11-27 11:00:00'),
('Belgium', -195, 310, 'Morocco',500, '2022-11-27 14:00:00'),
('Croatia', -130, 275, 'Canada',340, '2022-11-27 17:00:00'),
('Spain', 155, 230, 'Germany',170, '2022-11-27 20:00:00'),
('Cameroon', 300, 235, 'Serbia',-105, '2022-11-28 11:00:00'),
('South Korea', 145, 195, 'Ghana',210, '2022-11-28 14:00:00'),
('Brazil', -230, 340, 'Switzerland',600, '2022-11-28 17:00:00'),
('Portugal', 110, 225, 'Uruguay',260, '2022-11-28 20:00:00');
CREATE TABLE [dbo].[Bets](
[BetID] [int] IDENTITY(1,1) NOT NULL,
[MoneylineID] [int] NOT NULL,
[FirstName] [nvarchar](50) NOT NULL,
[LastName] [nvarchar](50) NOT NULL,
[Country] [nvarchar](50),
[Bet] [money] NOT NULL,
[Payout] [money] NOT NULL,
[BetDateTime] [datetime2] NOT NULL
)
WITH (LEDGER = ON (APPEND_ONLY = ON));
GO
CREATE FUNCTION fn_CalucatePayout
(
-- Add the parameters for the function here
@Stake decimal(8,2), @Odds decimal(8,2)
)
RETURNS decimal(8,2)
AS
BEGIN
-- Declare the return variable here
DECLARE @Payout decimal(8,2)
-- Add the T-SQL statements to compute the return value here
IF @Odds > 0
SET @Payout = @Stake * (@Odds/100) + @Stake
ELSE
SET @Payout = @Stake / (ABS(@Odds)/100) + @Stake
-- Return the result of the function
RETURN @Payout
END
GO
-- Calculating Payouts From Positive Moneyline Odds ---- Potential Profit = Stake x (Odds/100) + Stake
-- Calculating Payouts From Negative Moneyline Odds ---- Potential Profit = Stake / (Odds/100) + Stake
CREATE PROCEDURE usp_PlaceBet
@MoneylineID INT,
@FirstName NVARCHAR(50),
@LastName NVARCHAR(50),
@Country NVARCHAR(50),
@Bet MONEY,
@Odds INT
AS
BEGIN
SET NOCOUNT ON;
INSERT INTO [dbo].[Bets] ([MoneylineID], [FirstName], [LastName], [Country], [Bet], [Payout],[BetDateTime]) VALUES (@MoneylineID, @FirstName, @LastName, @Country, @Bet, dbo.fn_CalucatePayout(@Odds,@Bet),GETDATE())
END
GO
/*
EXEC usp_PlaceBet @MoneylineID=1, @Firstname='Catherine', @LastName='Abel', @Country='Qatar', @Bet=150, @Odds=250
EXEC usp_PlaceBet @MoneylineID=2, @Firstname='Brandon', @LastName='Flowers', @Country='England', @Bet=350, @Odds=-340
EXEC usp_PlaceBet @MoneylineID=3, @Firstname='Lenny', @LastName='Kravitz', @Country='Netherlands', @Bet=250, @Odds=-165
EXEC usp_PlaceBet @MoneylineID=8, @Firstname='Eric', @LastName='Clapton', @Country='France', @Bet=400, @Odds=-550
EXEC usp_PlaceBet @MoneylineID=12, @Firstname='Pieter', @LastName='Vanhove', @Country='Belgium', @Bet=300, @Odds=-350
*/
CREATE CREDENTIAL [https://ledgerdemostg.blob.core.windows.net/sqldbledgerdigests]
WITH IDENTITY='SHARED ACCESS SIGNATURE',
SECRET = 'st=2022-10-18T13:24:48Z&se=2023-10-18T21:24:48Z&si=Ledger&spr=https&sv=2021-06-08&sr=c&sig=KhSroFrZ4HHUn%2B7LldOljrTWqPueV72heqYoaFFjfUk%3D'
GO
ALTER DATABASE SCOPED CONFIGURATION
SET LEDGER_DIGEST_STORAGE_ENDPOINT = 'https://ledgerdemostg.blob.core.windows.net';
GO
CREATE PROCEDURE sp_TamperWithBet
@PageID int,
@ID int,
@PayOut money
AS
BEGIN
SET NOCOUNT ON;
DROP TABLE IF EXISTS #DBCCPAGE
CREATE TABLE #DBCCPAGE
(ParentObject NVARCHAR(128),
Object NVARCHAR(128),
Field NVARCHAR(128),
Value NVARCHAR(256))
DECLARE @OffsetPayOut INT
DECLARE @DBName VARCHAR(256) = DB_NAME()
INSERT INTO #dbccpage EXEC('DBCC TRACEON(3604) WITH NO_INFOMSGS;
DBCC PAGE(' + @DBName + ', 1, ' + @PageID + ', 3) WITH NO_INFOMSGS,TABLERESULTS
');
WITH DBCCPAGE_Offset_PayOut (ParentObject,Object,Field,Value)
AS
(
SELECT ParentObject, Object, Field,Value FROM #DBCCPAGE
WHERE ParentObject=(SELECT ParentObject FROM #DBCCPAGE WHERE Field='BetID' AND Value=@ID)
)
SELECT @OffsetPayOut=
CONVERT(INT,CONVERT(VARBINARY,'0x'+ REPLICATE('0', 8-LEN(SUBSTRING(ParentObject,CHARINDEX('0x',ParentObject)+2,CHARINDEX('Length',ParentObject)-CHARINDEX('0x',ParentObject)-3)))+SUBSTRING(ParentObject,CHARINDEX('0x',ParentObject)+2,CHARINDEX('Length',ParentObject)-CHARINDEX('0x',ParentObject)-3),1)) +
CONVERT(INT,CONVERT(VARBINARY,'0x'+ REPLICATE('0', 8-LEN(SUBSTRING(Object,CHARINDEX('0x',Object)+2,CHARINDEX('Length',Object)-charindex('0x',Object)-3)))+SUBSTRING(Object,CHARINDEX('0x',Object)+2,CHARINDEX('Length',Object)-CHARINDEX('0x',Object)-3),1))
FROM DBCCPAGE_Offset_PayOut
WHERE Field='Payout';
DECLARE @BinaryPayout VARBINARY(8) = CONVERT(binary(8), REVERSE(CONVERT(VARBINARY(8), @Payout)))
DBCC WRITEPAGE(@DBName, 1, @PageID, @OffsetPayOut, 8, @BinaryPayout)
END