|
|
Додаток 1 – Лістинг програми ⇐ ПредыдущаяСтр 5 из 5 Лістинг файлу «index.aspx»
<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) if Not IsPostBack Then Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("/INetBook/C3/StoreLocator/" _ & "Access/C3StoreLocator.mdb;")) DBCommand = New OleDbDataAdapter _ ("Select Distinct ZipCode " _ & "From StoreLocations " _ & "Order By ZipCode", DBConn) DBCommand.Fill(DSPageData, _ "ZipCodes") ddlZipCode.DataSource = _ DSPageData.Tables("ZipCodes").DefaultView ddlZipCode.DataBind() End If End Sub Sub ddl_Change(Sender As Object, E As EventArgs) Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet DBConn = New OleDbConnection("Provider=sqloledb;" _ & "server=bhv2k;" _ & "Initial Catalog=INETC3;" _ & "User Id=sa;" _ & "Password=bhv;") DBCommand = New OleDbDataAdapter _ ("Select FriendlyName as [Название], " _ & "StoreAddress as [Адрес], " _ & "StoreDirections as [Как проехать] " _ & "From StoreLocations Where " _ & "ZipCode = '" & ddlZipCode.SelectedItem.Text _ & "' Order By FriendlyName " _ , DBConn) ' DBCommand.Fill(DSPageData, _ ' "FriendlyName") ' dgStores.DataSource = _ 'DSPageData.Tables("FriendlyName").DefaultView dgStores.DataBind() End Sub Sub Sort_Grid(ByVal Sender as Object, _ ByVal E as DataGridSortCommandEventArgs) Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet Dim SortField as String If E.SortExpression.ToString() = "Name" Then SortField = "FriendlyName" ElseIf E.SortExpression.ToString() = "Address" Then SortField = "StoreAddress" Else SortField = "StoreDirections" End If DBConn = New OleDbConnection("Provider=sqloledb;" _ & "server=bhv2k;" _ & "Initial Catalog=INETC3;" _ & "User Id=sa;" _ & "Password=bhv;") DBCommand = New OleDbDataAdapter _ ("Select FriendlyName as [Название], " _ & "StoreAddress as [Адрес], " _ & "StoreDirections as [Как проехать] " _ & "From StoreLocations Where " _ & "ZipCode = '" & ddlZipCode.SelectedItem.Text _ & "' Order By " & SortField _ , DBConn) DBCommand.Fill(DSPageData, _ "Stores") dgStores.DataSource = _ DSPageData.Tables("Stores").DefaultView dgStores.DataBind() End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Поиск магазина</TITLE> </HEAD> <BODY BACKGROUND="./lightblue.gif" TEXT="black" LINK="darkblue" VLINK="darkblue" ALINK="red" LEFTMARGIN="40"> <form runat="server"> <asp:Label id="lblTitle" BorderWidth="7px" BorderStyle=7 Width="90%" Font-Size="25pt" Font-Name="Arial" Text="<CENTER>Поиск магазина</CENTER>" runat="server" /> <Font Face="Arial"> <BR><BR> <asp:Label id="lblMessage" Font-Bold="True" Text="Выберите почтовый индекс для получения списка магазинов региона." runat="server" /> <BR><BR> <asp:dropdownlist id="ddlZipCode" runat=server DataTextField="ZipCode" AutoPostBack="True" OnSelectedIndexChanged="ddl_Change" > </asp:dropdownlist> <BR><BR> <ASP:DataGrid id="dgStores" Width="90%" BackColor="beige" AlternatingItemStyle-BackColor="cornsilk" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Arial" Font-Size="8pt" ForeColor="Black" HeaderStyle-BackColor="burlywood" HeaderStyle-Font-Bold="True" AllowSorting="true" OnSortCommand="Sort_Grid" runat="server"> </asp:DataGrid> </Font> </Form> </BODY> </HTML> Додаток 2 – Схеми проекту
Рис. 1 – Схема бази даних проекту.
Рис. 2 – Схема розмітки файлів проекту в файловій системі.
  Что вызывает тренды на фондовых и товарных рынках Объяснение теории грузового поезда Первые 17 лет моих рыночных исследований сводились к попыткам вычислить, когда этот...  ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...  Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...  Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
