站内搜索：

VB.NET学生毕业生答辩管理系统(9)

来源：xiaoniu168.com 作者：本站原创添加时间：2011-11-01 点击数：29892

4. JsqzModify（权重信息编辑）
此模块可以维护权重信息，此时判断同种的角色权重总和小于等于100。如图：
计算机毕业论文

以下是引用片段：

相关代码如下：
    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.drpJs.DataTextField = "jsmc"
            Me.drpJs.DataValueField = "jsid"
            Me.drpJs.DataSource = tmpcnn.GetData("select * from jsfs")
            Me.drpJs.DataBind()
            Select Case Request.QueryString("Tag")
                Case "New"
                    '清空控件
                    Me.txtQz.Text = ""
                    Me.txtSzfz.Text = ""
                Case "Old"
                    '显示当前的角色权重信息
                    Dim tmpda As New DataTable
                    tmpda = tmpcnn.GetData("select * from jsqz where qzid=" & Request.QueryString("bh"))
                    If tmpda.Rows.Count > 0 Then
                        Me.txtQz.Text = tmpda.Rows(0)("Qzmc")
                        Me.txtSzfz.Text = tmpda.Rows(0)("Szfs")
                        Me.drpJs.SelectedValue = tmpda.Rows(0)("jsid")
                        Me.txtQz.Enabled = False
                    End If
            End Select
        End If
    End Sub