www.pudn.com > studen.rar > student.vb, change:2008-05-21,size:15083b
Imports System.Data.SqlClient
Imports System.Data
Public Class student
Dim seleccomm As SqlCommand
Dim aconn As New SqlConnection
Public Sub link()
Dim strlink As String
strlink = "server=(local);user id=sa;password=;database=class;"
aconn.ConnectionString = strlink
aconn.Open()
End Sub
Function selekecheng(ByVal A7) '年级 班级作为动态的参数
Dim ss As String
ss = "课程表"
Dim ss3 As String
ss3 = A7 + ss
seleccomm = New SqlCommand("select 课程名,学分 from """ + ss3 + """ ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function selecode(ByVal A7) '年级 班级作为动态的参数
Dim ss As String
ss = "学分表"
Dim ss3 As String
ss3 = A7 + ss
seleccomm = New SqlCommand("select zhcp_name,code from """ + ss3 + """ ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function seleheadship(ByVal A7)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("select zhcp_name,code from """ + ss3 + """ where kind='headship' ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function selegym(ByVal A7)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("select zhcp_name,code from """ + ss3 + """ where kind='gym'", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function seleliterature(ByVal A7)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("select zhcp_name,code from """ + ss3 + """ where kind='literature' ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function selenumb(ByVal A7) '用学号查询 combobox5
Dim ss As String
ss = "基本表"
Dim ss3 As String
ss3 = A7 + ss
seleccomm = New SqlCommand("select * from """ + ss3 + """ ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function seleusers(ByVal use_rname)
seleccomm = New SqlCommand("select * from users where user_name='" + use_rname + "'", aconn)
seleccomm.CommandType = CommandType.Text
'Return (seleccomm.ExecuteScalar())
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function sele_code(ByVal zhcp_name, ByVal A7)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("select code from """ + ss3 + """ where zhcp_name='" + zhcp_name + "' ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function zhcp(ByVal A7)
Dim ss As String
ss = "综合测评表"
Dim ss3 As String
ss3 = A7 + ss
seleccomm = New SqlCommand("select s_no as 学号,s_name as 姓名,专业理论素质,思想政治道德素质,身心素质,创新精神和实践能力,总成绩,学期 from """ + ss3 + """ ", aconn)
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function write_course_code(ByVal course As String, ByVal c_code As String)
Dim ss As String
Dim ss3 As String
ss = "课程表"
ss3 = A7 + ss
seleccomm = New SqlCommand("update """ + ss3 + """ set 学分= '" + c_code + "' where 课程名='" + course + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_active_code(ByVal active, ByVal active_code) '这是添加在code 表中的，其中的项不是针对每个人的，是针对活动名称的
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("update """ + ss3 + """ set code='" + active_code + "' where zhcp_name= '" + active + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_active_code_for_everyone(ByVal active_name As String, ByVal active_code As Decimal) '这个是添加在s_active 表中的。其中的项是针对每个人的活动名称的
Dim ss As String
ss = "基本表"
Dim ss3 As String
ss3 = A7 + ss
seleccomm = New SqlCommand("update """ + ss3 + """ set 专业素质分数='" + active_code.ToString() + "' where s_no= ' " + active_name.ToString() + "'", aconn) '为什么写不进去
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_headship_code(ByVal headship, ByVal headship_code) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("update """ + ss3 + """ set code='" + headship_code + "' where zhcp_name= '" + headship + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_gym_code(ByVal gym, ByVal g_code) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("update """ + ss3 + """ set code='" + g_code + "' where zhcp_name= '" + gym + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_literature_code(ByVal literature, ByVal l_code) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("update """ + ss3 + """ set code='" + l_code + "' where zhcp_name= '" + literature + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_zhcp_code(ByVal na, ByVal value) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim ss3 As String
ss = "学分表"
ss3 = A7 + ss
seleccomm = New SqlCommand("insert into """ + ss3 + """ (code,zhcp_name,kind) values('" + value + "','" + na + "', 'jichufen')", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
'Function read_p_zhcp_bys_name(ByVal name As String)
' 'seleccomm = New SqlCommand("select s_course_code,s_course_code from s_course_code where s_name= '" + numb + "'", aconn)
' 'seleccomm.ExecuteNonQuery()
' 'Return (0)
' seleccomm = New SqlCommand("select s_course,s_course_code from s_course_code where s_name= '" + name + "'", aconn)
' seleccomm.CommandType = CommandType.Text
' Dim adapter As New SqlDataAdapter
' adapter.SelectCommand() = seleccomm
' Dim tx As New DataSet
' adapter.Fill(tx)
' Return tx
''End Function
'Function read_p_zhcp_bys_no(ByVal numb As String)
' 'seleccomm = New SqlCommand("select s_course_code,s_course_code from s_course_code where s_name= '" + numb + "'", aconn)
' 'seleccomm.ExecuteNonQuery()
' 'Return (0)
' seleccomm = New SqlCommand("select s_course,s_course_code from s_course_code where s_no= '" + numb + "'", aconn) '单表的多列查询
' seleccomm.CommandType = CommandType.Text
' Dim adapter As New SqlDataAdapter
' adapter.SelectCommand() = seleccomm
' Dim tx As New DataSet
' adapter.Fill(tx)
' Return tx
'End Function
Function zhcp_course_code(ByVal keynumb) '学生成绩课程相应分 的查询
Dim ss As String
Dim A8 As String
Dim A9 As String
Dim ss1 As String
ss = "成绩表"
ss1 = "课程表"
A8 = A7 + ss
A9 = A7 + ss1
seleccomm = New SqlCommand("select * from """ + A8 + """,""" + A9 + """ where """ + A8 + """.课程名=""" + A9 + """.课程名 and 学号='" + keynumb + "'", aconn) '多表联合查询
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function zhcp_headship_code(ByVal keynumb) '学生职务相应分 的查询
Dim ss As String
Dim A8 As String
Dim A9 As String
Dim ss1 As String
ss = "学分表"
ss1 = "职务记录表"
A8 = A7 + ss
A9 = A7 + ss1
seleccomm = New SqlCommand("select max(headship_code) from """ + A8 + """,""" + A9 + """ where """ + A8 + """.zhcp_name=""" + A9 + """.s_headship and kind='headship' and s_no='" + keynumb + "'", aconn) '多表联合查询,
'前面的max是因为职务不可以累加选取其中最大的作为相应的分值加上去
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function zhcp_sxsz_code(ByVal keynumb) '学生活动相应分 的查询
Dim ss As String
Dim A8 As String
Dim A9 As String
Dim ss1 As String
ss = "学分表"
ss1 = "活动记录表"
A8 = A7 + ss
A9 = A7 + ss1
seleccomm = New SqlCommand("select distinct * from """ + A8 + """,""" + A9 + """ where """ + A8 + """.zhcp_name=""" + A9 + """.active_name and kind='gym'and zhcp_name=active_name and s_no='" + keynumb + "'", aconn) '多表联合查询
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function zhcp_cxjs_code(ByVal keynumb) '学生活动相应分 的查询
Dim ss As String
Dim A8 As String
Dim A9 As String
Dim ss1 As String
ss = "学分表"
ss1 = "活动记录表"
A8 = A7 + ss
A9 = A7 + ss1
seleccomm = New SqlCommand("select * from """ + A8 + """,""" + A9 + """ where """ + A8 + """.zhcp_name=""" + A9 + """.active_name and kind='literature'and zhcp_name=active_name and s_no='" + keynumb + "'", aconn) '多表联合查询
seleccomm.CommandType = CommandType.Text
Dim adapter As New SqlDataAdapter
adapter.SelectCommand() = seleccomm
Dim tx As New DataSet
adapter.Fill(tx)
Return tx
End Function
Function write_zysz_code_for_everyone(ByVal zysz_code As Decimal, ByVal s_no As Integer) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim A8 As String
ss = "综合测评表"
A8 = A7 + ss
seleccomm = New SqlCommand("update """ + A8 + """ set 专业理论素质= " + zysz_code.ToString() + " where s_no='" + s_no.ToString() + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_sxzzdd_code_for_everyone(ByVal sxzzdd_code As Decimal, ByVal s_no As Integer) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim A8 As String
ss = "综合测评表"
A8 = A7 + ss
seleccomm = New SqlCommand("update """ + A8 + """ set 思想政治道德素质= " + sxzzdd_code.ToString() + " where s_no='" + s_no.ToString() + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_sxsz_code_for_everyone(ByVal sxsz_code As Decimal, ByVal s_no As Integer) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim A8 As String
ss = "综合测评表"
A8 = A7 + ss
seleccomm = New SqlCommand("update """ + A8 + """ set 身心素质= " + sxsz_code.ToString() + " where s_no='" + s_no.ToString() + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_cxjs_code_for_everyone(ByVal cxjs_code As Decimal, ByVal s_no As Integer) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim A8 As String
ss = "综合测评表"
A8 = A7 + ss
seleccomm = New SqlCommand("update """ + A8 + """ set 创新精神和实践能力= " + cxjs_code.ToString() + " where s_no='" + s_no.ToString() + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function write_total_code_for_everyone(ByVal total_code As Decimal, ByVal s_no As Integer) ' ,ByVal active, ByVal active_code)
Dim ss As String
Dim A8 As String
ss = "综合测评表"
A8 = A7 + ss
seleccomm = New SqlCommand("update """ + A8 + """ set 总成绩= " + total_code.ToString() + " where s_no='" + s_no.ToString() + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
Function deleteclass(ByVal nianji As String, ByVal banji As String)
Dim strlink As String
strlink = "server=(local);user id=sa;password=;database=class;"
aconn.ConnectionString = strlink
aconn.Open()
seleccomm = New SqlCommand("delete from sdept1 where 年级='" + nianji + "'and 年级='" + banji + "'", aconn)
seleccomm.ExecuteNonQuery()
Return (0)
End Function
End Class