Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







Додаток 1 – Лістинг програми





Лістинг файлу «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 лет моих рыночных исследований сводились к попыткам вычис­лить, когда этот...

ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...

Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...

Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...





Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2024 zdamsam.ru Размещенные материалы защищены законодательством РФ.