Проект Библиотека
Проект Отчет о происшествии

DBCoimand = New OleDbDataAdapter _
("Select LibOserlD, UserType from " _
& "LibUsers Where " _
& "OserName = '" _
& Replace(txtUserName.Text, "'", '""') _
& "' and Password = '" _
& Replace(txtPassword.Text, "'", "'"') _
& "'", DBConn)
и помещаются в объект DataSet:
DBCommand.Fill(DSPageData, _
"Signln")

If DSPageData.Tables("Signln"). _
Rows.Count = 0 Then

IblMessage.Text = "Имя пользователя и пароль " _
& "не найдены. Введите их еще раз."

Session("LibUserlD") = DSPageData.Tables("Signln").
Rows(O).Item("LibUserlD")

Session("UserType") = DSPageData.Tables("Signln"). _
Rows(O).Item("UserType")

Response.Redirect("./menu.aspx")

Страница Меню позволяет сотруднику просмотреть каталог книг, отыскать нужную книгу и возвратить взятую ранее. Если сотрудник является библиотекарем, с этой страницы он может перейти на страницу Меню библиотекаря.

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text="MeHK> библиотеки"
runat="server"
/>

<ASP:DropDownList
id="ddlSearchField"
runat=server>
<asp:ListItem Value="BookTitle" Selected="True">Ha3BaHMe _
</asp:ListItem>
<asp:ListItem Value="Author">ABTOp</asp:Listltem>
<asp:ListItem Value-"ISBN">ISBN</asp:ListItem>
<asp:ListItem Value="Keywords">Kлючeвыe cлoвa</asp:ListItem>
<asp:ListItem Value="Description">AHHOTaiwa</asp:ListItem>
</ASP:DropDownList>

<asp:TextBox
id="txtSearchText"
Columns="25"
MaxLength="30"
runat=server
/>

<asp:button
id="butSearch"
text="IIo&icK"
Type="Submit"
OnClick="Search_Click"
runat=" server"
/>

<asp:dropdownlist
id="ddlCategory"
runat=server
DataTextField="CategoryName"
DataValueField="LibBookCategoryID">
</asp:dropdownlist>

<asp:button
id="butBrowse"
text="пpocмотp"
Type="Submit"
OnClick="Browse_Click"
runat="server"
/>