rendered paste body/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
File 5 : players.aspx
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
<%@ Page Language="VB" MasterPageFile="~/default.master" AutoEventWireup="false" CodeFile="players.aspx.vb" Inherits="players" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<asp:GridView ID="gridEvent" runat="server" AutoGenerateColumns="False" DataSourceID="dataEvents" DataKeyNames="Event.player_id"
Style="z-index: 100; left: 574px; position: absolute; top: 134px" Width="372px" CellPadding="2" ForeColor="White" GridLines="Vertical" AllowSorting="True" BackColor="#333333" BorderColor="White" BorderStyle="Solid" BorderWidth="1px" EmptyDataText="There are currently no players entered into the tournament." Font-Size="10pt" Caption="Players Entered into Tournament">
<Columns>
<asp:BoundField DataField="Event.player_id" HeaderText="Event.player_id" SortExpression="Event.player_id"
Visible="False" />
<asp:BoundField DataField="player_name" HeaderText="Player" SortExpression="player_name" />
<asp:BoundField DataField="seat" HeaderText="Seat" SortExpression="seat" />
<asp:TemplateField HeaderText="Remove">
<ItemTemplate>
<asp:LinkButton ID="LinkButton2" runat="server" CommandName="QDelete" Style="position: static">Delete</asp:LinkButton>
</ItemTemplate>
<ControlStyle Font-Underline="False" ForeColor="White" />
<ItemStyle Font-Underline="False" ForeColor="White" />
</asp:TemplateField>
</Columns>
<RowStyle BackColor="#404040" ForeColor="White" HorizontalAlign="Center" VerticalAlign="Middle" />
<AlternatingRowStyle BackColor="#333333" ForeColor="White" />
</asp:GridView>
<br />
<br />
<br />
Click on a player's name to add them to the tournament.<br />
<br />
<asp:GridView ID="gridPlayers" runat="server" AutoGenerateColumns="False" DataKeyNames="player_id"
DataSourceID="dataPlayers" Style="z-index: 101; left: 26px; position: absolute;
top: 134px" Width="531px" CellPadding="2" ForeColor="White" GridLines="Vertical" AllowSorting="True" BackColor="#333333" BorderColor="White" BorderStyle="Solid" BorderWidth="1px" Caption="Player Database" Font-Size="10pt" HorizontalAlign="Center">
<Columns>
<asp:BoundField DataField="player_id" HeaderText="Player ID" InsertVisible="False"
ReadOnly="True" SortExpression="player_id" Visible="False" />
<asp:TemplateField HeaderText="Player" SortExpression="player_name">
<EditItemTemplate>
<asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("player_name") %>'></asp:TextBox>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="False" CommandName="CopyQ"
Style="position: static" Text='<%# Bind("player_name") %>' Font-Underline="False" ForeColor="White"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="nickname" HeaderText="Nickname" SortExpression="nickname" />
<asp:CommandField ShowEditButton="True" >
<ItemStyle Font-Underline="False" />
<ControlStyle Font-Underline="False" />
</asp:CommandField>
<asp:TemplateField HeaderText="Delete Player">
<ItemTemplate>
<asp:LinkButton ID="LinkButton3" runat="server" CommandName="QDelete" Font-Underline="False"
ForeColor="White" Style="position: static">Delete</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="New Player">
<ItemTemplate>
<asp:LinkButton ID="lblNew" runat="server" CausesValidation="false"
CommandName="Insert"
Text="New" style="vertical-align: top; text-align:
center" Font-Bold="False" ForeColor="White"
Height="0px" Width="49px"
OnClick="GridViewInsert" Font-Underline="False"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle BackColor="#404040" Font-Underline="False" HorizontalAlign="Center" VerticalAlign="Middle" />
<AlternatingRowStyle BackColor="#333333" />
<EmptyDataTemplate>
There are currently no players in the database. Please
<asp:LinkButton ID="lblNew" runat="server" CausesValidation="false" CommandName="Insert"
Font-Bold="False" Font-Underline="False" ForeColor="White" Height="0px" OnClick="GridViewInsert"
Style="vertical-align: top; position: static; text-align: center" Text="add a player"
Width="86px"></asp:LinkButton>.
</EmptyDataTemplate>
</asp:GridView>
<br />
<asp:Panel ID="Panel1" runat="server" Height="50px" Style="z-index: 104; left: 573px;
position: absolute; top: 292px" Width="125px">
<asp:Button ID="Button1" runat="server" Style="z-index: 100; left: 0px; position: absolute;
top: 0px" Text="Assign Seats" />
</asp:Panel>
<br />
<br />
<br />
<br />
<asp:AccessDataSource ID="dataEvents" runat="server" DataFile="~/App_Data/blindsbase.mdb"
SelectCommand="SELECT * FROM [Event], [Players] WHERE [Players].[player_id] = [Event].[player_id] " DeleteCommand="DELETE * FROM [Event] WHERE [player_id] = ?"></asp:AccessDataSource>
<asp:AccessDataSource ID="dataPlayers" runat="server" DataFile="~/App_Data/blindsbase.mdb"
DeleteCommand="DELETE FROM Event WHERE (player_id = ?)" InsertCommand="INSERT INTO [Players] ([player_name], [nickname]) VALUES (?, ?)"
SelectCommand="SELECT * FROM [Players]" UpdateCommand="UPDATE [Players] SET [player_name] = ?, [nickname] = ? WHERE [player_id] = ?">
<DeleteParameters>
<asp:Parameter Name="player_id" Type="Int32" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="player_name" Type="String" />
<asp:Parameter Name="nickname" Type="String" />
<asp:Parameter Name="player_id" Type="Int32" />
</UpdateParameters>
<InsertParameters>
<asp:Parameter Name="player_id" Type="Int32" />
<asp:Parameter Name="player_name" Type="String" />
<asp:Parameter Name="nickname" Type="String" />
</InsertParameters>
</asp:AccessDataSource>
</asp:Content>
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
File 6 : players.aspx.vb
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////
Partial Class players
Inherits System.Web.UI.Page
Dim QCount As Integer
Protected Sub GridViewInsert(ByVal sender As Object, ByVal e As System.EventArgs)
dataPlayers.Insert()
End Sub
Protected Sub gridPlayers_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles gridPlayers.PreRender
Dim index As Integer = gridPlayers.Rows.Count
For index = 0 To (gridPlayers.Rows.Count - 2)
gridPlayers.Rows(index).Cells(5).Controls(1).Visible = False
Next index
End Sub
'Protected Sub gridEvent_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles gridEvent.PreRender
' Dim index As Integer = gridEvent.Rows.Count
' For index = 0 To (gridPlayers.Rows.Count - 2)
' gridPlayers.Rows(index).Cells(3).Controls(1).Visible = False
' Next index
'End Sub
Protected Sub gridPlayers_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gridPlayers.RowCommand
If e.CommandName = "CopyQ" Then
'Get Item_ID from Row Index
Dim QRow As GridViewRow = e.CommandSource.Parent.Parent
Dim QIndex = QRow.RowIndex
'Dim QRow As GridViewRow = gridPlayers.Rows(CInt(e.CommandArgument))
Dim QPlayerID = gridPlayers.DataKeys(QIndex).Value()
dataEvents.InsertCommand = "INSERT INTO [Event] ([player_id]) VALUES (" & QPlayerID & ")"
dataEvents.Insert()
gridPlayers.DataBind()
End If
If e.CommandName = "QDelete" Then
Dim QRow As GridViewRow = e.CommandSource.Parent.Parent
Dim QIndex = QRow.RowIndex
'Dim QRow As GridViewRow = gridPlayers.Rows(CInt(e.CommandArgument))
Dim QPlayerID = gridPlayers.DataKeys(QIndex).Value()
dataEvents.DeleteCommand = "DELETE FROM [Event] WHERE [player_id] = " & QPlayerID
dataEvents.Delete()
dataEvents.DeleteCommand = "DELETE FROM [Players] WHERE [player_id] = " & QPlayerID
dataEvents.Delete()
gridPlayers.DataBind()
End If
End Sub
Protected Sub gridEvent_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gridEvent.RowCommand
If e.CommandName = "QDelete" Then
Dim QRow As GridViewRow = e.CommandSource.Parent.Parent
Dim QIndex = QRow.RowIndex
'Dim QRow As GridViewRow = gridPlayers.Rows(CInt(e.CommandArgument))
Dim QPlayerID = gridEvent.DataKeys(QIndex).Value()
dataEvents.DeleteCommand = "DELETE FROM [Event] WHERE [player_id] = " & QPlayerID
dataEvents.Delete()
QPlayerID = 0
gridEvent.DataBind()
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SQLStr As String = "SELECT COUNT(*) AS QC FROM [Event]"
Dim LoginConn As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("App_Data/blindsbase.mdb"))
Dim LoginCommand As New Data.OleDb.OleDbCommand(SQLStr, LoginConn)
LoginConn.Open()
Dim LoginReader As Data.OleDb.OleDbDataReader = LoginCommand.ExecuteReader()
LoginReader.Read()
QCount = LoginReader.Item("QC")
MsgBox("QCount = user count = " & QCount)
LoginReader.Close()
LoginConn.Close()
Dim QArray(0 To QCount - 1) 'Ordered array
Dim QRandom As Integer
Dim QMyArray(QCount) 'Shuffled array
For i As Integer = 0 To (QCount - 1)
QArray(i) = i + 1 'Populate ordered array
MsgBox("QArray(" & i & ") = " & QArray(i))
Next
MsgBox("Quick check : " & QArray(0) & " " & QArray(1))
For i As Integer = 0 To (QCount - 1)
Randomize()
QRandom = CInt((Rnd() * (QArray.Length - 1)))
MsgBox("QRandom = " & QRandom)
QMyArray(i) = QArray(QRandom)
MsgBox("QMyArray(" & i & ") = " & QMyArray(i))
MsgBox("QArray.Length = " & QArray.Length)
Array.Clear(QArray, QRandom, 1)
Next
SQLStr = "SELECT [player_id] FROM [Event]"
LoginConn.Open()
Dim LoginReader2 As Data.OleDb.OleDbDataReader = LoginCommand.ExecuteReader
LoginReader2.Read()
Dim QIndex = 1
Dim QUserID As Integer
While LoginReader2.HasRows()
QUserID = LoginReader2.Item("player_id")
MsgBox("QUserID = " & QUserID)
dataEvents.UpdateCommand = "UPDATE [Event] SET [seat] = " & QMyArray(QIndex) & " WHERE [player_id] = " & QUserID
MsgBox("Seat = " & QMyArray(QIndex))
dataEvents.Update()
LoginReader2.Read()
QIndex = QIndex + 1
End While
LoginReader.Close()
LoginConn.Close()
gridEvent.DataBind()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Public Sub QShuffleArray()
End Sub
End Class