周路db_studentsearch.aspx.vb

本套软件适用于各大高校、培训机构等单位的教学管理软件。

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Drawing


Partial Class _Default
    Inherits System.Web.UI.Page
    Public index As Integer
    Public sqlstr As String
    Public DS As DataSet
    Public DR As DataRow
    Public ConnectStr As String
    Public DataAdapter As SqlDataAdapter
    Public DataConnection As SqlConnection
    Public DataSet As DataSet
    Public 课程号 As String
    Public 学号 As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        学号 = "200508213"
        Me.TextBox1.Text = 学号
        Me.TextBox1.ReadOnly = True

    End Sub
    Public Function UpdataDataBase(ByVal sqlstr As String) As Boolean
        ConnectStr = "data source=.;initial catalog=选修课管理系统;user id=sa;password=;"
        Dim sqlconn As New SqlConnection(ConnectStr)
        'Try
        Dim cmdTable As SqlCommand = New SqlCommand(sqlstr, sqlconn)
        sqlconn.Open()
        cmdTable.ExecuteNonQuery()
        sqlconn.Close()

        'Catch
        Return False

        ' End Try
        'Return True
    End Function
    Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
        Try
            DataConnection = New SqlConnection()
            DataConnection.ConnectionString = ConnectStr
            DataAdapter = New SqlDataAdapter(sqlstr, DataConnection)
            DataSet = New DataSet()
            DataSet.Clear()
            DataAdapter.Fill(DataSet)
            DataConnection.Close()
            If Not DataSet Is Nothing Then
                Return DataSet

            End If
        Catch
            Return Nothing
        End Try
    End Function


    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged

    End Sub
    Public ReadOnly Property DataFromForm() As Sign
        Get
            Dim Sings As New Sign()
            Sings.课程号 = Me.DropDownList1.SelectedItem.Text.Trim
            Sings.学号 = 学号
            Return Sings




        End Get
    End Property

    Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strsql1 As String
        Dim str As Integer
        Dim conn1 As New SqlConnection("Server=localhost;Database=选修课管理系统;Uid=sa;Pwd=;")
        strsql1 = "SELECT  课程号 FROM 选修表 WHERE 学号 = '" & 学号 & "'" + "AND 课程号 = '" + DropDownList1.Text + "'"
        Dim cmd1 As New SqlCommand(strsql1, conn1)
        conn1.Open()
        str = 0
        Dim dr As SqlDataReader = cmd1.ExecuteReader()
        If (dr.Read()) Then
            str = dr.GetValue(0)
        End If
        If (str <> DropDownList1.Text) Then
            Dim strsql As String
            Dim strSign As New Sign()
            strSign = DataFromForm
            strsql = "INSERT INTO 选修表 (学号,课程号)" & _
            "VALUES('" & strSign.学号 & "','" & strSign.课程号 & "')"

            If UpdataDataBase(strsql) = True Then

                Load课程号()
                课程号 = Me.DropDownList1.SelectedItem.Text.Trim
            End If
            Dim 学号 As String
            学号 = Me.TextBox1.Text.Trim
            Me.Response.Redirect("DB_StudentAdd.aspx")
        Else
            Response.Write("<script>alert('该学生已选择该课!');</script>")
        End If
        conn1.Close()


    End Sub

 


    Public Sub Load课程号()
        sqlstr = "SELECT DISTINCT 课程号 FROM 课程表"
        DS = New DataSet()
        DS.Clear()
        DS = GetDataFromDB(sqlstr)
        Dim temp As String
        Me.DropDownList1.Items.Clear()
        For Each DR In DS.Tables(0).Rows
            temp = Trim(DR.Item(0))
            Me.DropDownList1.Items.Add(temp)

        Next
    End Sub



End Class

Public Class Sign
    Public 学号 As String
    Public 课程号 As String
    Public 上课时间 As String
    Public 上课地点 As String

End Class