Expand|Select|Wrap|Line Numbers
- <%@ Page Language="vb" AutoEventWireup="True" Debug="True"%>
- <%@ IMPORT namespace="System.Data" %>
- <%@ IMPORT namespace="System.Data.OleDb" %>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml">
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
- <title>Insert Product, Admin Level</title>
- <script language="vb" runat="server">
- Dim connectioncw01 as OleDbConnection
- Dim commandcw01 as OleDbCommand
- Dim readercw01 as OleDbDataReader
- Private Sub Page_Load(Sender as Object, EventArg As EventArgs)
- connectioncw01 = New OleDbConnection ("provider=microsoft.jet.oledb.4.0; data source=" + Server.MapPath(".") + "\cw01.mdb;")
- End Sub
- Private Sub ButtonInsert_Click(Sender as Object, EventArg As EventArgs)
- commandcw01 = new OleDbCommand("INSERT INTO Products ([ProductID], [ProductName], [Supplier], [QuantityPerUnit], [UnitPrice], [UnitsInStock], [UnitsOnOrder], [Reorderlevel]) VALUES (@ID, @Name, @Supplier, @QuantityPerUnit, @UnitPrice, @UnitsInStock, @UnitsOnOrder, @Reorderlevel );")
- commandcw01.Parameters.Add(new OleDbParameter("@ID", OleDbType.Integer))
- commandcw01.Parameters("@ID").Value = TextProductID.Text
- commandcw01.Parameters.Add(new OleDbParameter("@ProductName", OleDbType.Char))
- commandcw01.Parameters("@ProductName").Value = TextProductName.Text
- commandcw01.Parameters.Add(new OleDbParameter("@Supplier", OleDbType.Char))
- commandcw01.Parameters("@Supplier").Value = TextSupplier.Text
- commandcw01.Parameters.Add(new OleDbParameter("@QuantityPerUnit", OleDbType.Char))
- commandcw01.Parameters("@QuantityPerUnit").Value = TextQuantityPerUnit.Text
- commandcw01.Parameters.Add(new OleDbParameter("@UnitPrice", OleDbType.Integer))
- commandcw01.Parameters("@UnitPrice").Value = NumberUnitPrice.Text
- commandcw01.Parameters.Add(new OleDbParameter("@UnitsInStock", OleDbType.Integer))
- commandcw01.Parameters("@UnitsInStock").Value = NumberUnitsInStock.Text
- commandcw01.Parameters.Add(new OleDbParameter("@UnitsOnOrder", OleDbType.Integer))
- commandcw01.Parameters("@UnitsOnOrder").Value =NumberUnitsOnOrder.Text
- commandcw01.Parameters.Add(new OleDbParameter("@Reorderlevel", OleDbType.Integer))
- commandcw01.Parameters("@Reorderlevel").Value =NumberReorderlevel.Text
- commandcw01.Connection = connectioncw01
- connectioncw01.Open()
- commandcw01.ExecuteNonQuery()
- connectioncw01.Close()
- Server.Transfer("Admin_Main.aspx")
- End Sub
- Private Sub ButtonBack_Click(Sender as Object, EventArg As EventArgs)
- Server.Transfer("Admin_Main.aspx")
- End Sub
- </script>
- <style type="text/css">
- .controlText {font-family: Verdana; font-size: 10pt; }
- </style>
- </head>
- <body>
- <div align="center" class="controlText">
- Administration Level<br/>Adding a product</div>
- <form runat="server">
- <table width="100%" cellspacing="2" cellpadding="2" border="0" class="controlText">
- <tr>
- <td width="39%" align="right">Product ID</td>
- <td width="53%" align="left"><asp:TextBox CssClass="controlText" Width="100" ID="TextProductID" runat="server"/>
- <asp:Button CssClass="controlText" Width="60" ID="ButtonInsert" Text="Add" OnClick="ButtonInsert_Click" runat="server"/>
-
- <asp:Button CssClass="controlText" Width="60" ID="Back" Text="Back" OnClick="ButtonBack_Click" runat="server"/></td>
- <td width="8%" align="left"> </td>
- </tr>
- <td align="right">Product Name</td>
- <td align="left"><asp:TextBox ID="TextProductName" Type="text" Size="30" Maxlength="30" runat="server"/>
- <asp:RequiredFieldValidator ID="ProductNameRequired" runat="server" ControlToValidate="TextProductName"
- ErrorMessage="Please list the product name" Display="dynamic"> </asp:RequiredFieldValidator>
- <br />
- <tr>
- <td align="right">Supplier:</td>
- <td align="left"><asp:TextBox ID="TextSupplier" Type="text" Size="30" Maxlength="30" runat="server"/>
- <asp:RequiredFieldValidator ID="SupplierRequired" runat="server" ControlToValidate="TextSupplier"
- ErrorMessage="Supplier Is Required" Display="dynamic"> </asp:RequiredFieldValidator>
- <br />
- </td>
- </tr>
- <td align="right">Quantity Per Unit</td>
- <td align="left"><asp:TextBox ID="TextQuantityPerUnit" Type="text" Size="30" Maxlength="30" runat="server"/>
- <asp:RequiredFieldValidator ID="QuantityRequired" runat="server" ControlToValidate="TextQuantityPerUnit"
- ErrorMessage="Please list the quantity" Display="dynamic"> </asp:RequiredFieldValidator>
- <br />
- </td>
- </tr>
- <tr>
- <td align="right">Unit Price (£)</td>
- <td align="left"><asp:TextBox ID="NumberUnitPrice" Type="number" Size="10" Maxlength="10" runat="server" Text='00.00'/>
- <asp:RegularExpressionValidator ID="UnitPrice" ControlToValidate="NumberUnitPrice" runat="server" ValidationExpression="(\d{1,}\.\d{1,}|\d{1,})"> Enter a price for the product (XX.XX) </asp:RegularExpressionValidator>
- <br />
- </tr>
- <tr>
- <td align="right">Units In Stock</td>
- <td align="left"><asp:TextBox ID="NumberUnitsInStock" Type="number" Size="10" Maxlength="10" runat="server" Text='0'/>
- <asp:RegularExpressionValidator ControlToValidate="NumberUnitsInStock" ValidationExpression="\d{1,}" EnableClientScript="true" ErrorMessage="Enter a range of 0 or more"
- runat="server" /> </asp:RegularExpressionValidator>
- <br />
- </td>
- </tr>
- </tr>
- <tr>
- <td align="right">Units On Order</td>
- <td align="left"><asp:TextBox ID="NumberUnitsOnOrder" Type="number" Size="10" Maxlength="10" runat="server" Text='0'/>
- <asp:RegularExpressionValidator ControlToValidate="NumberUnitsOnOrder" ValidationExpression="\d{1,}" EnableClientScript="true" ErrorMessage="Enter a range of 0 or more"
- runat="server" /> </asp:RegularExpressionValidator>
- </td>
- </tr>
- <tr>
- <tr>
- <td align="right">Reorder Level</td>
- <td align="left"><asp:TextBox ID="NumberReorderLevel" Type="number" Size="10" Maxlength="10" runat="server" Text='0'/>
- <asp:RegularExpressionValidator ControlToValidate="NumberReorderLevel" ValidationExpression="\d{1,}" EnableClientScript="true" ErrorMessage="Enter a range of 0 or more!"
- runat="server" /> </asp:RegularExpressionValidator>
- <br />
- </td>
- </tr>
- <tr>
- </table>
- </form>
- </body>
- </html>