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

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

计算机毕业设计系统实现部分介绍:

(一)系统主界面
在IE里运行本系统,出现系统的主界面,包括系统登陆、选择角色,转到“毕业设计分配”系统页面。如图:
计算机毕业论文

以下是引用片段:

相关代码如下:
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim tmpcnn As New Sql2000DB
        Dim tmpda As New DataTable
        Dim tmpYh As New clsYh
        If Me.RadioButton1.Checked = True Then
            '如果是学生登陆 判断用户和密码是否正确
            tmpda = tmpcnn.GetData("select * from student where id='" & Me.TextBox1.Text & "' and mm='" & Me.TextBox2.Text & "'")
            If tmpda.Rows.Count > 0 Then
                '保存信息 跳转页面
                tmpYh.strId = tmpda.Rows(0)("ID")
                tmpYh.strMM = tmpda.Rows(0)("mm")
                tmpYh.strXm = tmpda.Rows(0)("Xm")
                tmpYh.strJB = "学生"
                Session("Yh") = tmpYh
                Response.Redirect("StudentSee.aspx")
                Exit Sub
            Else
                Response                Exit Sub
            End If
        End If
        If Me.RadioButton2.Checked = True Then
            '如果是教师登陆 判断用户或密码是否正确
            tmpda = tmpcnn.GetData("select * from teacher where id='" & Me.TextBox1.Text & "' and mm='" & Me.TextBox2.Text & "'")
            If tmpda.Rows.Count <= 0 Then
                Response
                Exit Sub
            End If
            '根据标志 保存信息 跳转到不同页面
            tmpYh.strId = tmpda.Rows(0)("ID")
            tmpYh.strMM = tmpda.Rows(0)("mm")
            tmpYh.strXm = tmpda.Rows(0)("Xm")
            If tmpYh.strId = "admin" Then
                tmpYh.strJB = "管理员"
                Session("Yh") = tmpYh
                Response
            Else
                tmpYh.strJB = "教师"
                Session("Yh") = tmpYh
                Response            End If
        End If
    End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第7页为计算机毕业论文基本功能介绍......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网