www.pudn.com > studen.rar > Form4.vb
Imports System.Data
Imports System.Data.SqlClient
Public Class 基本信息设置
Public nianji As String
Public banji As String
Public biao As String
Public A1 As String
Public aConn As SqlConnection
Private Sub 基本信息设置_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
'combobox1 填充
ComboBox15.Items.Clear()
selecomm = New SqlCommand(" select DISTINCT 年级 from sdept1 ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox15.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox17.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox19.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox18.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox7.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox22.Items.Add(ds.Tables(0).Rows(i).Item(0))
ComboBox13.Items.Add(ds.Tables(0).Rows(i).Item(0))
'For j = 1 To ds.Tables(0).Columns().Count - 1
' ListView1.Items(i).SubItems.Add(ds.Tables(0).Rows(i)(j).ToString)
'Next
Next
'给下拉框中添加时间
End Sub
Private Sub ComboBox15_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox15.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox28.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox15.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox28.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub ComboBox29_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox29.SelectedIndexChanged
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim A1 As String
Dim A2 As String
Dim A3 As String
Dim s = "基本表"
A1 = ComboBox1.Text.Trim()
A2 = ComboBox29.Text.Trim()
A3 = A1 + A2 + s
AA = A3
ComboBox2.Items.Clear()
Dim selecomm As SqlCommand
selecomm = New SqlCommand(" select b.name from sysobjects a, syscolumns b where a.xtype='U' and a.name='" + A3 + "' and a.id=b.id ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox2.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
Dim myAdapter1 As New SqlDataAdapter
Dim adapter1 As New SqlDataAdapter
selecomm = New SqlCommand("select 学号 from """ + A3 + """ ", aConn)
selecomm.CommandType = CommandType.Text
myAdapter1.TableMappings.Add("Table", "ddd")
adapter1.SelectCommand() = selecomm
Dim sd As New DataSet
adapter1.Fill(sd)
Dim j As Integer
For j = 0 To sd.Tables(0).Rows.Count - 1
ComboBox27.Items.Add(sd.Tables(0).Rows(j).Item(0))
Next
End Sub
Private Sub GroupBox26_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox26.Enter
End Sub
Private Sub ComboBox19_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox19.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox31.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox19.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox31.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox29.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox1.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox29.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub ComboBox17_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox17.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox30.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox17.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox30.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox7.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox33.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox7.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox33.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub ComboBox18_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox18.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox32.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox18.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox32.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub ComboBox13_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox13.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Try
ComboBox35.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox13.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox35.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
Catch
MsgBox("此班级不存在!")
End Try
End Sub
Private Sub ComboBox22_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox22.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox34.Items.Clear()
selecomm = New SqlCommand(" select * from sdept1 where 年级= '" + ComboBox22.Text + "'", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox34.Items.Add(ds.Tables(0).Rows(i).Item(1))
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss1 As String
Dim ss2 As String
nianji = ComboBox15.Text.Trim()
banji = ComboBox28.Text.Trim()
Dim s As String
If ComboBox15.Text <> "" And ComboBox28.Text <> "" Then
If TextBox1.Text <> "" Then
ss2 = "综合测评表"
s = "基本表".Trim()
biao = nianji + banji + ss2
selecomm = New SqlCommand("insert into """ + biao + """(学号,姓名) values('" + TextBox1.Text + "','" + TextBox2.Text + "') ", aConn)
selecomm.CommandType = CommandType.Text
biao = nianji + banji + s
selecomm = New SqlCommand("insert into """ + biao + """ (学号,姓名,性别,出生年月,身份证号,籍贯,考生来源,政治面貌,联系电话,家庭现住址, 邮编,QQ,""E-mail"") values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "' ,'" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox7.Text + "', '" + TextBox8.Text + "', '" + TextBox6.Text + "','" + TextBox29.Text + "','" + TextBox15.Text.Trim() + "','" + TextBox40.Text + "','" + TextBox42.Text + "','" + TextBox41.Text + "')", aConn)
selecomm.ExecuteNonQuery()
Dim ss As New DataSet
Dim da As SqlDataAdapter
Dim sql As String = "select * from """ + biao + """ "
da = New SqlDataAdapter(sql, aConn)
da.Fill(ss)
DataGridView1.DataSource = ss.Tables(0)
Else
MsgBox("学号不能为空!")
End If
Else
MsgBox("输入的内容不全")
End If
If TextBox38.Text.Trim() <> "" Then '有职务的学生信息写入职务表
ss1 = "职务记录表"
biao = nianji + banji + ss1
selecomm = New SqlCommand("insert into """ + biao + """(s_no,s_name,s_headship,headship_code) values('" + TextBox1.Text.Trim() + "','" + TextBox2.Text.Trim() + "','" + TextBox38.Text.Trim() + "','" + TextBox39.Text.Trim() + "')", aConn)
selecomm.CommandType = CommandType.Text
End If
End Sub
Private Sub GroupBox23_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox23.Enter
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim A1 As String
Dim A2 As String
Dim A3 As String
Dim A4 As String
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
A1 = ComboBox1.Text.Trim()
A2 = ComboBox29.Text.Trim()
A4 = "基本表"
A3 = A1 + A2 + A4
A1 = A3
' Try
selecomm = New SqlCommand("update """ + A3 + """ SET """ + ComboBox2.Text + """='" + TextBox9.Text + "' where 学号='" + ComboBox27.Text.Trim() + "'", aConn)
selecomm.ExecuteNonQuery()
'MsgBox("修改成功")
TextBox31.Text = TextBox9.Text
'回复默认值
'Catch
' MsgBox("请按确定")
' End Try
TextBox9.ResetText()
ComboBox27.ResetText()
ComboBox27.Items.Clear()
'选项重载
Try
ComboBox2.Items.Clear()
'Dim selecomm As SqlCommand
selecomm = New SqlCommand(" select b.name from sysobjects a, syscolumns b where a.xtype='U' and a.name='" + A3 + "' and a.id=b.id ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox2.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
Dim myAdapter1 As New SqlDataAdapter
Dim adapter1 As New SqlDataAdapter
selecomm = New SqlCommand("select 学号 from """ + A3 + """ ", aConn)
selecomm.CommandType = CommandType.Text
myAdapter1.TableMappings.Add("Table", "ddd")
adapter1.SelectCommand() = selecomm
Dim sd As New DataSet
adapter1.Fill(sd)
Dim j As Integer
For j = 0 To sd.Tables(0).Rows.Count - 1
ComboBox27.Items.Add(sd.Tables(0).Rows(j).Item(0))
Next
Catch
End Try
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
End Sub
Private Sub ComboBox27_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox27.SelectedIndexChanged
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Try
Dim selecomm1 As SqlCommand
selecomm1 = New SqlCommand("select " + ComboBox2.Text.Trim() + " from """ + AA + """ where 学号='" + ComboBox27.Text.Trim() + "' ", aConn)
selecomm1.CommandType = CommandType.Text
Dim myAdapter2 As New SqlDataAdapter
Dim adapter2 As New SqlDataAdapter
myAdapter2.TableMappings.Add("Table", "ddf")
adapter2.SelectCommand() = selecomm1
Dim ss As New DataSet
adapter2.Fill(ss)
TextBox30.Text = ss.Tables(0).Rows(0).Item(0)
Catch
MsgBox("无信息,请填入!")
End Try
End Sub
Private Sub ComboBox28_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox28.SelectedIndexChanged
End Sub
Private Sub GroupBox5_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox5.Enter
'Dim selecomm As SqlCommand
'Dim aConn As SqlConnection
'aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
'aConn.Open()
''combobox1 填充
'ComboBox15.Items.Clear()
'selecomm = New SqlCommand(" select DISTINCT 年级 from sdept1 ", aConn)
'selecomm.CommandType = CommandType.Text
'Dim myAdapter As New SqlDataAdapter
'Dim adapter As New SqlDataAdapter
'myAdapter.TableMappings.Add("Table", "Products")
'adapter.SelectCommand() = selecomm
'Dim ds As New DataSet
'adapter.Fill(ds)
'Dim i As Integer
'For i = 0 To ds.Tables(0).Rows.Count - 1
' ComboBox15.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox17.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox19.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox18.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox7.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox22.Items.Add(ds.Tables(0).Rows(i).Item(0))
' ComboBox13.Items.Add(ds.Tables(0).Rows(i).Item(0))
'Next
End Sub
Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub ComboBox30_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox30.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss0 As String
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
ss0 = ComboBox17.Text.Trim()
ss1 = ComboBox30.Text.Trim()
ss2 = "课程表"
ss3 = ss0 + ss1 + ss2
selecomm = New SqlCommand("select * from """ + ss3 + """ ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
DataGridView3.DataSource = ds.Tables(0)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss0 As String
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
Dim ss4 As String
Dim ss5 As String
ss0 = ComboBox17.Text.Trim()
ss1 = ComboBox30.Text.Trim()
ss2 = "课程表"
ss4 = "学分表"
ss5 = ss0 + ss1 + ss4
ss3 = ss0 + ss1 + ss2
selecomm = New SqlCommand("insert into """ + ss3 + """(课程号,课程名,学时,学分,任课教师,时间) values('" + TextBox10.Text.Trim() + "','" + TextBox11.Text.Trim() + "','" + TextBox12.Text.Trim() + "','" + TextBox13.Text.Trim() + "','" + TextBox14.Text.Trim() + "','" + TextBox32.Text.Trim() + "')", aConn)
selecomm.ExecuteNonQuery()
MsgBox("课程添加成功")
selecomm = New SqlCommand("select * from """ + ss3 + """ ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
DataGridView3.DataSource = ds.Tables(0)
selecomm = New SqlCommand("insert into """ + ss5 + """ (zhcp_name,code,kind) values('" + TextBox11.Text.Trim() + "','" + TextBox13.Text.Trim() + "',course) ", aConn)
selecomm.CommandType = CommandType.Text
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Try
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand("update """ + AA + """ SET " + ComboBox5.Text.Trim() + "='" + TextBox34.Text + "' where 课程号='" + ComboBox6.Text.Trim() + "'", aConn)
selecomm.ExecuteNonQuery()
MsgBox("修改成功!")
TextBox33.Text = TextBox34.Text
TextBox17.Clear()
TextBox34.Clear()
Catch
End Try
End Sub
Private Sub GroupBox16_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox16.Enter
End Sub
Private Sub ComboBox31_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox31.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss0 As String
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
ss0 = ComboBox19.Text.Trim()
ss1 = ComboBox31.Text.Trim()
ss2 = "课程表"
ss3 = ss0 + ss1 + ss2
AA = ss3
selecomm = New SqlCommand(" select b.name from sysobjects a, syscolumns b where a.xtype='U' and a.name='" + ss3 + "' and a.id=b.id ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox5.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
End Sub
Private Sub ComboBox23_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox5.Items.Clear()
selecomm = New SqlCommand(" select b.name from sysobjects a, syscolumns b where a.xtype='U' and a.name='" + AA + "' and a.id=b.id ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox5.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
End Sub
Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
'Dim aConn As SqlConnection
'aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
'aConn.Open()
'ComboBox6.Items.Clear()
'Dim selecomm1 As SqlCommand
'selecomm1 = New SqlCommand("select " + ComboBox5.Text.Trim() + " from """ + AA + """ ", aConn)
'selecomm1.CommandType = CommandType.Text
'Dim myAdapter2 As New SqlDataAdapter
'Dim adapter2 As New SqlDataAdapter
'myAdapter2.TableMappings.Add("Table", "ddf")
'adapter2.SelectCommand() = selecomm1
'Dim ss As New DataSet
'adapter2.Fill(ss)
'Dim i As Integer
'For i = 0 To ss.Tables(0).Rows.Count - 1
' ComboBox6.Items.Add(ss.Tables(0).Rows(i).Item(0))
'Next
ComboBox6.Items.Clear()
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Try
Dim selecomm1 As SqlCommand
selecomm1 = New SqlCommand("select 课程号 from """ + AA + """ ", aConn)
selecomm1.CommandType = CommandType.Text
Dim myAdapter2 As New SqlDataAdapter
Dim adapter2 As New SqlDataAdapter
myAdapter2.TableMappings.Add("Table", "ddf")
adapter2.SelectCommand() = selecomm1
Dim ss As New DataSet
adapter2.Fill(ss)
Dim i As Integer
For i = 0 To ss.Tables(0).Rows.Count - 1
ComboBox6.Items.Add(ss.Tables(0).Rows(i).Item(0))
Next
Catch
MsgBox("无信息,请填入!")
End Try
End Sub
Private Sub Label23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label23.Click
End Sub
Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox6.SelectedIndexChanged
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Try
Dim selecomm1 As SqlCommand
selecomm1 = New SqlCommand("select " + ComboBox5.Text.Trim() + " from """ + AA + """ where 课程号='" + ComboBox6.Text.Trim() + "' ", aConn)
selecomm1.CommandType = CommandType.Text
Dim myAdapter2 As New SqlDataAdapter
Dim adapter2 As New SqlDataAdapter
myAdapter2.TableMappings.Add("Table", "ddf")
adapter2.SelectCommand() = selecomm1
Dim ss As New DataSet
adapter2.Fill(ss)
TextBox17.Text = ss.Tables(0).Rows(0).Item(0)
Catch
MsgBox("无信息,请填入!")
End Try
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox32_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox32.SelectedIndexChanged
ComboBox10.Items.Clear()
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss0 As String
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
Dim ss4 As String
Dim ss5 As String
Dim ss6 As String
Dim ss7 As String
ss0 = ComboBox18.Text.Trim()
ss1 = ComboBox32.Text.Trim()
ss2 = "基本表"
ss4 = "课程表"
ss6 = "成绩表"
ss5 = ss0 + ss1 + ss4
ss3 = ss0 + ss1 + ss2
ss7 = ss0 + ss1 + ss6
AA = ss5
BB = ss7
A2 = ss3
selecomm = New SqlCommand(" select distinct 时间 from """ + ss5 + """ ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox11.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
'传递学号
Dim myAdapter1 As New SqlDataAdapter
Dim adapter1 As New SqlDataAdapter
selecomm = New SqlCommand("select 学号 from """ + ss3 + """ ", aConn)
selecomm.CommandType = CommandType.Text
myAdapter1.TableMappings.Add("Table", "ddd")
adapter1.SelectCommand() = selecomm
Dim sd As New DataSet
adapter1.Fill(sd)
Dim j As Integer
For j = 0 To sd.Tables(0).Rows.Count - 1
ComboBox10.Items.Add(sd.Tables(0).Rows(j).Item(0))
Next
End Sub
Private Sub ComboBox11_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox11.SelectedIndexChanged
ComboBox9.Items.Clear()
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand(" select distinct 课程名 from """ + AA + """ where 时间='" + ComboBox11.Text + "' ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim j As Integer
A1 = ds.Tables(0).Rows.Count - 1
For j = 0 To ds.Tables(0).Rows.Count - 1
ComboBox9.Items.Add(ds.Tables(0).Rows(j).Item(0))
Next
ComboBox9.SelectedIndex = 0
If ComboBox10.Text.Trim() <> "" And ComboBox9.Text.Trim() <> "" And ComboBox11.Text.Trim() <> "" Then
selecomm = New SqlCommand("select 时间,学号,姓名,课程名,成绩 from """ + BB + """ where 时间='" + ComboBox11.Text.Trim() + "'and 姓名='" + TextBox35.Text.Trim + "' ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter1 As New SqlDataAdapter
Dim adapter1 As New SqlDataAdapter
myadapter1.TableMappings.Add("Table", "qq")
adapter1.SelectCommand() = selecomm
Dim ds1 As New DataSet
adapter.Fill(ds1)
Dim x As Integer
A1 = ds1.Tables(0).Rows.Count - 1
For j = 0 To ds1.Tables(0).Rows.Count - 1
ComboBox9.Items.Add(ds1.Tables(0).Rows(x).Item(0))
Next
ComboBox9.SelectedIndex = 0
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Try
If ComboBox11.Text.Trim() <> "" And ComboBox10.Text.Trim() <> "" And TextBox35.Text.Trim() <> "" And ComboBox9.Text.Trim() <> "" And TextBox28.Text.Trim() <> "" Then
selecomm = New SqlCommand("insert into """ + BB + """ (时间,学号,姓名,课程名,成绩) values('" + ComboBox11.Text.Trim() + "','" + ComboBox10.Text.Trim() + "','" + TextBox35.Text.Trim() + "','" + ComboBox9.Text.Trim() + "',' [" + TextBox28.Text.Trim() + "] ')", aConn)
selecomm.ExecuteNonQuery()
'MsgBox("添加成功!")
If ComboBox9.SelectedIndex < A1 Then
ComboBox9.SelectedIndex = ComboBox9.SelectedIndex + 1
Else
ComboBox9.SelectedIndex = 0
End If
Dim selecomm1 As SqlCommand
selecomm1 = New SqlCommand("select 时间,学号,姓名,课程名,成绩 from """ + BB + """ where 时间='" + ComboBox11.Text.Trim() + "'and 姓名='" + TextBox35.Text.Trim + "' ", aConn)
selecomm1.CommandType = CommandType.Text
Dim myadapter2 As New SqlDataAdapter
Dim adapter2 As New SqlDataAdapter
myadapter2.TableMappings.Add("Table", "ty")
adapter2.SelectCommand() = selecomm1
Dim ds As New DataSet
adapter2.Fill(ds)
DataGridView6.DataSource = ds.Tables(0)
TextBox28.ResetText()
Else
MsgBox("注意值不能为空")
End If
Catch
MsgBox("注意值不能为空")
End Try
End Sub
Private Sub ComboBox10_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox10.SelectedIndexChanged
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand("select 姓名 from """ + A2 + """ where 学号='" + ComboBox10.Text.Trim() + "' ", aConn)
selecomm.CommandType = CommandType.Text
TextBox35.Text = selecomm.ExecuteScalar.ToString
ComboBox9.SelectedIndex = 0
If ComboBox10.Text.Trim() <> "" Then
Dim selecomm1 As SqlCommand
selecomm1 = New SqlCommand("select 时间,学号,姓名,课程名,成绩 from """ + BB + """ where 时间='" + ComboBox11.Text.Trim() + "'and 姓名='" + TextBox35.Text.Trim + "' ", aConn)
selecomm1.CommandType = CommandType.Text
Dim myadapter2 As New SqlDataAdapter
Dim adapter2 As New SqlDataAdapter
myadapter2.TableMappings.Add("Table", "ty")
adapter2.SelectCommand() = selecomm1
Dim ds As New DataSet
adapter2.Fill(ds)
DataGridView6.DataSource = ds.Tables(0)
TextBox28.ResetText()
Else
MsgBox("输入不合法,请重新选择!")
End If
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Me.Close()
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
Private Sub ComboBox33_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox33.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss0 As String
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
Dim ss4 As String
Dim ss5 As String
ss0 = ComboBox7.Text.Trim()
ss1 = ComboBox33.Text.Trim()
ss2 = "课程表"
ss3 = ss0 + ss1 + ss2
ss4 = "基本表"
ss5 = "成绩表"
A3 = ss3
A4 = ss0 + ss1 + ss4
A5 = ss0 + ss1 + ss5
selecomm = New SqlCommand("select distinct 时间 from """ + ss3 + """ ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox24.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
Dim selecomm1 As SqlCommand
selecomm1 = New SqlCommand("select 学号 from """ + A4 + """", aConn)
selecomm.CommandType = CommandType.Text
Dim x As New SqlDataAdapter
Dim y As New SqlDataAdapter
y.SelectCommand() = selecomm1
Dim sd As New DataSet
y.Fill(sd)
Dim j As Integer
For j = 0 To sd.Tables(0).Rows.Count - 1
ComboBox20.Items.Add(sd.Tables(0).Rows(j).Item(0))
Next
End Sub
Private Sub ComboBox24_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox24.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox8.Items.Clear()
selecomm = New SqlCommand("select 课程名 from """ + A3 + """ where 时间='" + ComboBox24.Text.Trim() + "' ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapater As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "gg")
adapater.SelectCommand() = selecomm
Dim ds As New DataSet
adapater.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox8.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand("update """ + A5 + """ SET 成绩='" + TextBox18.Text + "' where 学号='" + ComboBox20.Text.Trim() + "' and 课程名='" + ComboBox8.Text.Trim() + "' and 时间='" + ComboBox24.Text.Trim() + "'", aConn)
selecomm.ExecuteNonQuery()
MsgBox("修改成功!")
TextBox18.Clear()
End Sub
Private Sub ComboBox20_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox20.SelectedIndexChanged
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand("select 姓名 from """ + A4 + """ where 学号='" + ComboBox20.Text.Trim() + "' ", aConn)
selecomm.CommandType = CommandType.Text
TextBox36.Text = selecomm.ExecuteScalar.ToString
Try
Dim selc As SqlCommand
selc = New SqlCommand("select 成绩 from """ + A5 + """ where 学号='" + ComboBox20.Text.Trim() + "' and 课程名='" + ComboBox8.Text.Trim() + "' and 时间='" + ComboBox24.Text.Trim() + "'", aConn)
selc.CommandType = CommandType.Text
TextBox37.Text = selc.ExecuteScalar.ToString
Catch
MsgBox("无成绩")
End Try
End Sub
Private Sub TextBox37_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox37.TextChanged
End Sub
Private Sub ComboBox26_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox26.SelectedIndexChanged
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox21.Items.Clear()
ComboBox14.Items.Clear()
Try
Dim selecomm As SqlCommand
selecomm = New SqlCommand(" select b.name from sysobjects a, syscolumns b where a.xtype='U' and a.name='" + A6 + "' and a.id=b.id ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox14.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
If ComboBox14.Text.Trim() <> "" Then
selecomm = New SqlCommand("select """ + ComboBox14.Text.Trim() + """ from """ + A6 + """ where 活动时间 like '%" + ComboBox26.Text.Trim() + "%'", aConn)
selecomm.CommandType = CommandType.Text
Dim a As New SqlDataAdapter
Dim b As New SqlDataAdapter
b.TableMappings.Add("Table", "ggd")
a.SelectCommand() = selecomm
Dim sd As New DataSet
a.Fill(sd)
Dim j As Integer
For j = 0 To sd.Tables(0).Rows.Count - 1
ComboBox21.Items.Add(sd.Tables(0).Rows(j).Item(0))
Next
ComboBox21.SelectedIndex = 0
End If
Catch
MsgBox("输入不合法!")
End Try
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss1 As String
Dim s As String
Dim biao1 As String
Dim biao2 As String
Dim ss2 As String
' Dim ss3 As String
nianji = ComboBox22.Text.Trim()
banji = ComboBox34.Text.Trim()
s = "活动表".Trim()
ss1 = "活动记录表"
ss2 = "基本表"
biao = nianji + banji + s
biao1 = nianji + banji + ss2
' ss3 = nianji + banji + ss2
If TextBox19.Text.Trim() <> "" And TextBox20.Text <> "" Then
selecomm = New SqlCommand("insert into """ + biao + """ (活动时间,活动名称,应加分值,活动内容,活动地点,荣获何种荣誉,合作单位,活动策划人) values('" + TextBox19.Text + "','" + TextBox20.Text + "','" + TextBox21.Text + "' ,'" + TextBox22.Text + "','" + TextBox23.Text + "','" + TextBox24.Text + "', '" + TextBox25.Text + "', '" + TextBox26.Text + "')", aConn)
selecomm.ExecuteNonQuery()
Dim ss As New DataSet
Dim da As SqlDataAdapter
Dim sql As String = "select * from """ + biao + """ "
da = New SqlDataAdapter(sql, aConn)
da.Fill(ss)
DataGridView7.DataSource = ss.Tables(0)
Else
MsgBox("输入的内容不全")
End If
biao2 = nianji + banji + ss1
'selecomm = New SqlCommand("insert into """ + biao + """ (active_name,时间) values('" + TextBox20.Text.Trim() + "','" + TextBox19.Text.Trim() + "')", aConn)
'selecomm.ExecuteNonQuery()
If CheckedListBox1.CheckedItems.Count <> 0 Then
Dim i As Integer
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
selecomm = New SqlCommand("insert into """ + biao2 + """ (""s_no"",""s_name"") select 学号,姓名 from """ + biao1 + """ where 学号=" + CheckedListBox1.CheckedItems.Item(i) + "", aConn)
selecomm.ExecuteNonQuery()
'Dim selecomm1 As New SqlCommand
'selecomm1 = New SqlCommand("select 活动名称,活动时间 from """ + biao + """ where 活动时间='" + TextBox19.Text.Trim() + "'", aConn)
'selecomm1.CommandType = CommandType.Text
Next
'Dim myadapter As New SqlDataAdapter
'myadapter.TableMappings.Add("Table", "dd")
'Dim adapter As New SqlDataAdapter
'adapter.SelectCommand() = selecomm1
'Dim ds As New DataSet
'adapter.Fill(ds)
'' ''Dim myAdapter As New SqlDataAdapter
'' ''Dim adapter As New SqlDataAdapter
'' ''myAdapter.TableMappings.Add("Table", "gg")
'' ''adapter.SelectCommand() = selecomm1
'' ''Dim ds As New DataSet
'' ''adapter.Fill(ds)
'' ''Dim R As String
'' ''Dim R1 As String
'' ''R = ds.Tables(0).Rows(0).Item(0)
'' ''R1 = ds.Tables(0).Rows(0).Item(1)
'' ''selecomm1 = New SqlCommand("update """ + biao2 + """ set active_name ='" + R + "' where s_no=" + CheckedListBox1.CheckedItems.Item(i) + " and 时间='" + TextBox19.Text.Trim() + "' ", aConn)
'' ''selecomm1.ExecuteNonQuery()
'' ''selecomm1 = New SqlCommand("update """ + biao2 + """ set 时间 ='" + R1 + "' where s_no=" + CheckedListBox1.CheckedItems.Item(i) + " and 时间='" + TextBox19.Text.Trim() + "'", aConn)
'' ''selecomm1.ExecuteNonQuery()
End If
MsgBox("输入完成!")
End Sub
Private Sub ComboBox35_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox35.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
Dim ss0 As String
Dim ss1 As String
Dim ss4 As String
Dim ss5 As String
ss0 = ComboBox13.Text.Trim()
ss1 = ComboBox35.Text.Trim()
ss4 = "活动表"
ss5 = ss0 + ss1 + ss4
A6 = ss5
ComboBox26.Items.Clear()
Try
selecomm = New SqlCommand(" select distinct 活动时间 from """ + ss5 + """ ", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "qq")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox26.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
Catch
MsgBox("此年级不存在!")
End Try
End Sub
Private Sub ComboBox14_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox14.SelectedIndexChanged
Dim aConn As New SqlConnection
aConn = New SqlConnection("server=(local);user id=Sa;password=;database=class")
aConn.Open()
'Dim ss1 As String
'Dim ss2 As String
'Dim ss3 As String
ComboBox21.Items.Clear()
Dim selecomm As SqlCommand
selecomm = New SqlCommand("select """ + ComboBox14.Text.Trim() + """ from """ + A6 + """ where 活动时间 like '%" + ComboBox26.Text.Trim() + "%'", aConn)
selecomm.CommandType = CommandType.Text
Dim a As New SqlDataAdapter
Dim b As New SqlDataAdapter
b.TableMappings.Add("Table", "ggd")
a.SelectCommand() = selecomm
Dim ds As New DataSet
a.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox21.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
ComboBox21.SelectedIndex = 0
'Dim myadapter As New SqlDataAdapter
'Dim adapter As New SqlDataAdapter
'myadapter.TableMappings.Add("Table", "qq")
'adapter.SelectCommand() = selecomm
'Dim ds As New DataSet
'adapter.Fill(ds)
'Dim i As Integer
'For i = 0 To ds.Tables(0).Rows.Count - 1
' ComboBox21.Items.Add(ds.Tables(0).Rows(i).Item(0))
'Next
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If ComboBox14.Text.Trim() <> "" And ComboBox26.Text.Trim() <> "" And ComboBox26.Text.Trim() <> "" Then
Dim aConn As New SqlConnection
aConn = New SqlConnection("server=(local);user id=Sa;password=;database=class")
aConn.Open()
Dim selecomm As SqlCommand
selecomm = New SqlCommand("update """ + A6 + """ SET '" + ComboBox21.Text.Trim() + "'='" + TextBox27.Text + "' where 活动时间='" + ComboBox26.Text.Trim() + "' and 课程名='" + ComboBox8.Text.Trim() + "' and 时间='" + ComboBox24.Text.Trim() + "'", aConn)
selecomm.ExecuteNonQuery()
MsgBox("修改成功!")
TextBox18.Clear()
End If
End Sub
Private Sub ComboBox34_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox34.SelectedIndexChanged
Dim selecomm As SqlCommand
Dim aConn As SqlConnection
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
CheckedListBox1.Items.Clear()
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
Dim ss4 As String
'Dim ss5 As String
'Dim ss6 As String
'Dim ss7 As String
ss1 = ComboBox22.Text.Trim()
ss2 = ComboBox34.Text.Trim()
ss4 = "基本表"
ss3 = ss1 + ss2 + ss4
selecomm = New SqlCommand("select 学号 from """ + ss3 + """", aConn)
selecomm.CommandType = CommandType.Text
Dim myadapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myadapter.TableMappings.Add("Table", "oo")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
CheckedListBox1.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
End Sub
End Class