www.pudn.com > studen.rar > Form5.vb
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.OleDb
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
Public Class Form5
Dim stu As New student
Dim seleccomm As SqlCommand
Dim aconn As New SqlConnection
Dim i As Integer
Dim j As Integer
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
stu.link()
Dim ds As New DataSet
Dim st2 As New DataSet
Dim st3 As New DataSet
Dim st4 As New DataSet
ds = stu.selekecheng(A7)
st2 = stu.seleheadship(A7)
st3 = stu.selegym(A7)
st4 = stu.seleliterature(A7)
For i = 0 To ds.Tables(0).Rows.Count - 1 '下拉框的添加
ComboBox1.Items.Add(ds.Tables(0).Rows(i)("课程名").ToString.Trim())
Next
For i = 0 To st2.Tables(0).Rows.Count - 1
ComboBox8.Items.Add(st2.Tables(0).Rows(i)("zhcp_name").ToString.Trim())
Next
For i = 0 To st3.Tables(0).Rows.Count - 1
ComboBox9.Items.Add(st3.Tables(0).Rows(i)("zhcp_name").ToString.Trim())
Next
For i = 0 To st4.Tables(0).Rows.Count - 1
ComboBox10.Items.Add(st4.Tables(0).Rows(i)("zhcp_name").ToString.Trim())
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
stu.write_course_code(ComboBox1.Text.Trim(), TextBox1.Text.Trim())
MsgBox("输入成功,请点击下一步进行设置")
Dim st1 As New DataSet
st1 = stu.selekecheng(A7)
'要实现更新listview必须把此代码放入Button1_Click事件中
ListView1.Items.Clear()
For i = 0 To st1.Tables(0).Rows().Count - 1 'listview 内容添加
If st1.Tables(0).Rows(i).Item(0) <> " " Then
ListView1.Items.Add(st1.Tables(0).Rows(i).Item(0))
For j = 1 To st1.Tables(0).Columns().Count - 1
ListView1.Items(i).SubItems.Add(st1.Tables(0).Rows(i)(j).ToString)
Next
End If
Next '添加完毕
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TabControl1.SelectedIndex = 1
Me.TabControl1.TabPages(1).Select() '
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
Me.TabControl1.SelectedIndex = 0 '前一页
Me.TabControl1.TabPages(0).Select() '此句用于激活此页面
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
stu.write_headship_code(ComboBox8.Text.Trim(), TextBox15.Text.Trim())
MsgBox("输入成功,请点击下一步进行设置")
Dim st2 As New DataSet
st2 = stu.seleheadship(A7)
ListView8.Items.Clear()
For i = 0 To st2.Tables(0).Rows.Count - 1 'listview 内容添加
ListView8.Items.Add(st2.Tables(0).Rows(i).Item(0))
For j = 1 To st2.Tables(0).Columns.Count - 1
ListView8.Items(i).SubItems.Add(st2.Tables(0).Rows(i)(j).ToString)
Next
Next
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Me.TabControl1.SelectedIndex = 2 '后一页
Me.TabControl1.TabPages(0).Select() '此句用于激活此页面
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
Me.TabControl1.SelectedIndex = 1 '前一页
Me.TabControl1.TabPages(0).Select() '此句用于激活此页面
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
stu.write_gym_code(ComboBox9.Text.Trim(), TextBox16.Text.Trim())
'st.write_active_code_for_everyone(ComboBox3.Text.Trim(), TextBox3.Text.Trim())
MsgBox("输入成功,请点击下一步进行设置")
Dim st3 As New DataSet
st3 = stu.selegym(A7)
ListView9.Items.Clear()
For i = 0 To st3.Tables(0).Rows.Count - 1 'listview 内容添加
ListView9.Items.Add(st3.Tables(0).Rows(i).Item(0))
For j = 1 To st3.Tables(0).Columns.Count - 1
ListView9.Items(i).SubItems.Add(st3.Tables(0).Rows(i)(j).ToString)
Next
Next
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
Me.TabControl1.SelectedIndex = 3 '后一页
Me.TabControl1.TabPages(0).Select() '此句用于激活此页面
End Sub
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
Me.TabControl1.SelectedIndex = 2 '前一页
Me.TabControl1.TabPages(0).Select() '此句用于激活此页面
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
stu.write_gym_code(ComboBox10.Text.Trim(), TextBox17.Text.Trim())
MsgBox("输入成功")
Dim st4 As New DataSet
st4 = stu.seleliterature(A7)
ListView10.Items.Clear()
For i = 0 To st4.Tables(0).Rows.Count - 1 'listview 内容添加
ListView10.Items.Add(st4.Tables(0).Rows(i).Item(0))
For j = 1 To st4.Tables(0).Columns.Count - 1
ListView10.Items(i).SubItems.Add(st4.Tables(0).Rows(i)(j).ToString)
Next
Next
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
Me.TabControl1.SelectedIndex = 4
Me.TabControl1.TabPages(0).Select() '此句用于激活此页面
End Sub
Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
Me.TabControl1.SelectedIndex = 3
End Sub
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
stu.write_zhcp_code(Label66.Text, TextBox24.Text) '综合设置
stu.write_zhcp_code(Label61.Text, TextBox21.Text)
stu.write_zhcp_code(Label59.Text, TextBox20.Text)
stu.write_zhcp_code(Label57.Text, TextBox19.Text)
'stu.write_zhcp_code(Label21.Text, TextBox9.Text)
'stu.write_zhcp_code(Label23.Text, TextBox10.Text)
MsgBox("输入成功,请点击下一步进行设置")
End Sub
Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
Me.TabControl1.SelectedIndex = 5
Me.TabControl1.TabPages(0).Select()
Dim st17 As DataSet '填充datagridview1
st17 = stu.zhcp(A7)
DataGridView1.DataSource = st17.Tables(0)
End Sub
Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
Me.TabControl1.SelectedIndex = 4
Me.TabControl1.TabPages(0).Select()
End Sub
Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
Dim a As Decimal
Dim b As Decimal
Dim c As Decimal
Dim d As Decimal
Dim f As Decimal
Dim g As Decimal
Dim h As Decimal
Dim i As Decimal
Dim o As Decimal
Dim p As Decimal
Dim q As Decimal
Dim s As Decimal
Dim st8 As New DataSet
Dim st9 As New DataSet
Dim st10 As New DataSet
Dim st11 As New DataSet
Dim st12 As New DataSet
Dim st13 As New DataSet
Dim st14 As New DataSet
Dim st15 As New DataSet
Dim st16 As New DataSet
st8 = stu.selenumb(A7) '和用学号查询用的一个函数，用在这里为了使自动根据学号计算每个同学的专业理论素质分数
'st9 = stu.zhcp_course_code(ComboBox6.SelectedItem) ' 这个函数原来是通过combobox来实现某个人的单个专业理论素质分数计算
Try
For g = 0 To 1 'st8.Tables(0).Rows.Count - 1 这个循环的次数暂时设定为2因为综合测评表里面没有那么多人 是手动添加的而且这个总循环集合了每个人综合测评所包含的四项
st9 = stu.zhcp_course_code(st8.Tables(0).Rows(g)("学号").ToString.Trim()) '此循环添加所有同学的课程总学分
st10 = stu.sele_code("专业理论素质所占比例：", A7)
st12 = stu.sele_code("思想政治道德素质基础分：", A7)
st14 = stu.sele_code("身心素质基础分：", A7)
st14 = stu.sele_code("创新精神基础分：", A7)
d = 0
i = 0
For f = 0 To st9.Tables(0).Rows.Count - 1 '此循环集合了单个同学的所有课程的总学分
a = st9.Tables(0).Rows(f).Item("学分")
b = st9.Tables(0).Rows(f).Item("成绩")
c = a * b
d = (c + d) '* st10.Tables(0).Rows(8)("code") '这里用到了课程学分设置
i = a + i
Next
h = st10.Tables(0).Rows(0)(0) * d / i '专业理论素质计算公式
MsgBox(h)
'st.write_zysz_code_for_everyone(d, ComboBox6.Text) '写入综合测评表的个人专业素质分
stu.write_zysz_code_for_everyone(h, st8.Tables(0).Rows(g)("学号").ToString.Trim()) '写入综合测评表的个人专业素质分（是乘了专业理论素质所占综合测评的权重后）
st11 = stu.zhcp_headship_code(st8.Tables(0).Rows(g)("学号").ToString())
o = st11.Tables(0).Rows(0)(0) + st12.Tables(0).Rows(0)(0)
stu.write_sxzzdd_code_for_everyone(o, st8.Tables(0).Rows(g)("学号").ToString.Trim()) '写入综合测评表的个人思想政治道德分其中包含相应的基础分
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim k As Integer
st13 = stu.zhcp_sxsz_code(st8.Tables(0).Rows(g)("学号").ToString.Trim())
k = st13.Tables(0).Rows.Count - 1
Dim j As Decimal
p = 0
a = 0
For f = 0 To st13.Tables(0).Rows.Count - 1 '此循环集合了单个同学的身心素质活动（）的总学分
a = st13.Tables(0).Rows(f).Item("code")
p = a + p
Next
j = p + st14.Tables(0).Rows(0)(0) '加上身心素质基础分
stu.write_sxsz_code_for_everyone(j, st8.Tables(0).Rows(g)("学号").ToString.Trim()) '写入综合测评表的个人思想政治道德分其中包含相应的基础分
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
st15 = stu.zhcp_cxjs_code(st8.Tables(0).Rows(g)("学号").ToString.Trim())
k = st15.Tables(0).Rows.Count - 1
s = 0
a = 0
For f = 0 To st15.Tables(0).Rows.Count - 1 '此循环集合了单个同学的身心素质活动（）的总学分
a = st15.Tables(0).Rows(f).Item("code")
s = a + s
Next
s = s + st14.Tables(0).Rows(0)(0) '加上身心素质基础分
stu.write_cxjs_code_for_everyone(s, st8.Tables(0).Rows(g)("学号").ToString.Trim()) '写入综合测评表的个人思想政治道德分其中包含相应的基础分
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
q = h + o + j + s
stu.write_total_code_for_everyone(q, st8.Tables(0).Rows(g)("学号").ToString.Trim())
Next
'End Try
Dim st17 As DataSet '填充datagridview1
st17 = stu.zhcp(A7)
DataGridView2.DataSource = st17.Tables(0)
Catch ex As Exception
MsgBox("没有记录,请先输入")
End Try
End Sub
Private Sub ComboBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox8.SelectedIndexChanged
End Sub
End Class