VB.NET实验室管理系统(11)

来源：xiaoniu168.com 作者：本站原创添加时间：2011-10-26 点击数：30207

计算机毕业设计编辑教学计划功能介绍：

5.5 JxjhEdit（编辑教学计划）
此模块用于编辑教学计划信息，包括计划标题、计划内容、实验室名称和备注以及确定和返回按钮。如图5-5所示：

计算机毕业论文

以下是引用片段：

其主要代码实现如下：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not Page.IsPostBack Then
            Dim tmpcnn As New Sql2000DB
            '邦定实验室显示列表
            Me.DropDownList1.DataTextField = "实验室名称"
            Me.DropDownList1.DataValueField = "实验室编号"
            Me.DropDownList1.DataSource = tmpcnn.GetData("select * from 实验室")
            Me.DropDownList1.DataBind()
            Select Case Request.QueryString("Tag")
                Case "New"
                    '清空显示控件
                Case "Old"
                    '显示当前的教学计划
                    Dim tmpda As New DataTable
                    tmpda = tmpcnn.GetData("select * from 教学计划 where 计划编号=" & Request.QueryString("bh"))
                    If tmpda.Rows.Count > 0 Then
                        Me.txtID.Text = tmpda.Rows(0)("计划标题")
                        Me.DropDownList1.SelectedValue = tmpda.Rows(0)("实验室编号")
                        Me.txtJj.Text = tmpda.Rows(0)("计划内容")
                        Me.Textbox2.Text = tmpda.Rows(0)("备注")
                    End If
            End Select
        End If
    End Sub