Страница 269 из 476 Еще один элемент управления — Button: <asp:button id-"butOK" text-"OK" Type-"Submit" OnClick-"SubmitBtn_Click" runat-"server" /> В результате выполнения щелчка на кнопке активизируется Процедура Sub-mitBtn_Click. Элементы DropDownList и Button выводятся на экран только в том случае, если форма содержит вопрос. С данной страницей связаны две процедуры. Первая запускается во время открытия страницы. Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack then Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSHelpDeskData as DataSet DBConn - New OleDbConnection("Provider-sqloledb;" ? "server-localhost;" ft "Initial Catalog-INETCIO;" ft "User Id-sa;" _ & "Password-yourpassword;") DSHelpDeskData - New DataSet() DBCommand - New OleDbDataAdapter ("Select QuestionID, TitleText, TheMessage " _ ft "From HelpDesk Where ParentID * 0",DBConn) DBCommand.Fill(DSHelpDeskData, "Question") DBCommand - New OleDbDataAdapter ("Select QuestionID, TheChoice " ft "From HelpDesk " ft "Where ParentID - " ft DSHelpDeskData.Tables("Question"). _ Rows(0).Item("QuestionID") ,DBConn) DBCommand.Fill(DSHelpDeskData, "Choices") lblTitle.BorderWidth - New Unit("7px") lblTitle.BorderStyle - 9 • lblTitle.Width - New Unit("90%") lblTitle.Font.Size - New FontUnit("25pt") lblTitle.Font.Name - "Arial" lblTitle.Text - "Поиск решения - " ft DSHelpDeskData.Tables("Question"). _ Rows(0).Item("TitleText") lblQuestion.Font.Size - New FontUnit("12pt") lblQuestion.Font.Name - "Verdana" lblQuestion.Text - DSHelpDeskData.Tables("Question"). Rows(0).11em("TheMe s sage") ddlAnswers.DataSource - DSHelpDeskData-Tables("Choices").DefaultView
|