Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров
Посетитель увидит в списке DropDownList содержимое поля TheChoice:
-
DataTextField="TheChoice"
-
DataValueField="QuestionID">
-
<asp:button
id="butOK"
text="OK"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
В результате выполнения щелчка на кнопке активизируется процедура SubmitBtn_Click.
Элементы DropDownList и Button выводятся на экран только в том случае, если форма содержит вопрос.
С данной страницей связаны две процедуры. Первая запускается во время открытия страницы.-
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack then
Dim DBConn as 01eDbConnection\
Dim DBCommand As OleDbDataAdapter
Dim DSHelpDeskData as DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETCIO;"
& "User Id=sa;"
& "Password=yourpassword;")
DSHelpDeskData = New DataSet()
DBCommand = New OleDbDataAdapter _
("Select QuestionID, TitleText, TheMessage " _
& "From HelpDesk Where ParentID - 0",DBConn)
DBCommand.Fill(DSHelpDeskData, _
"Question")
DBCommand = New OleDbDataAdapter _
("Select QuestionID, TheChoice "
& "From HelpDesk "
& "Where ParentID = " _
& DSHelpDeskData.Tables("Question"). _
Rows(O) .ItemC'QuestionID") _
,DBConn)
DBCommand.Fill(DSHelpDeskData, _
"Choices")
IblTitle.BorderWidth = New Unit("7px")
IblTitle.BorderStyle =9
IblTitle.Width = New Unit("90%")
IblTitle.Font.Size = New FontUnit("25pt")
IblTitle.Font.Name = "Arial"
IblTitle.Text = "Поиск решения - " _
& DSHelpDeskData.Tables("Question"). _
Rows(O).Item("TitleText")
IblQuestion.Font.Size = New FontUnit("12pt")
IblQuestion.Font;Name = "Verdana"
IblQuestion,Text = _
DSHelpDeskData.Tables("Question"). _
Rows(O).Item("TheMessage")
ddlAnswers.DataSource = _
DSHelpDeskData.Tables("Choices"),DefaultView
ddlAnswers.DataBind()
End If
End Sub
Сначала извлекаются параметры первого вопроса (вопроса наивысшего уровня), признаком которого служит значение «О» в поле ParentID:
-
DBCommand = New OleDbDataAdapter _
("Select QuestionID, TitleText, TheMessage " _
& "From HelpDesk Where ParentID = 0",DBConn)
-
DBCommarid.Fill(DSHelpDeskData, _
"Question")
-
DBCommand = New OleDbDataAdapter _
("Select QuestionID, TheChoice " _
& "From HelpDesk " _
& "Where ParentID = " _
& DSHelpDeskData.Tables("Question"). _
Rows (0) .ItemC'QuestionID") _
,DBConn)
-
DBCommand.Fill (DSHelpDeskData, _
"Choices")
 |
 |
|
