www.pudn.com > studen.rar > Form6.vb

Imports System.Data 
Imports System.Data.SqlClient 
Imports System.IO 
Imports 管理系统.Module1 
Public Class 新建班级 
 
    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 填充 
        ComboBox1.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 
 
            ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item(0)) 
            ComboBox2.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 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() 
 
        ComboBox2.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 
            ComboBox2.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 ss As String 
        Dim ss1 As String 
        ss = ComboBox1.Text.Trim() 
        ss1 = ComboBox2.Text.Trim() 
        A7 = ss + ss1 
 
        Dim f5 As New Form5 
        f5.Show() 
        Me.Hide() 
 
    End Sub 
End Class