formstudentchangeprofession.vb

学生信息管理系统

        Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.Splitter1.Enabled = False
        Me.Splitter1.Location = New System.Drawing.Point(0, 202)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(416, 3)
        Me.Splitter1.TabIndex = 6
        Me.Splitter1.TabStop = False
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txtOldProfession)
        Me.GroupBox1.Controls.Add(Me.txtOldCollege)
        Me.GroupBox1.Controls.Add(Me.cmbNewProfession)
        Me.GroupBox1.Controls.Add(Me.cmbNewCollege)
        Me.GroupBox1.Controls.Add(Me.cmbStudent)
        Me.GroupBox1.Controls.Add(Me.lblProfession)
        Me.GroupBox1.Controls.Add(Me.lblCollege)
        Me.GroupBox1.Controls.Add(Me.lblStudent)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox1.Location = New System.Drawing.Point(0, 48)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(416, 154)
        Me.GroupBox1.TabIndex = 7
        Me.GroupBox1.TabStop = False
        '
        'cmbNewProfession
        '
        Me.cmbNewProfession.Location = New System.Drawing.Point(248, 112)
        Me.cmbNewProfession.Name = "cmbNewProfession"
        Me.cmbNewProfession.Size = New System.Drawing.Size(152, 20)
        Me.cmbNewProfession.TabIndex = 7
        Me.cmbNewProfession.Text = "ComboBox5"
        '
        'cmbNewCollege
        '
        Me.cmbNewCollege.Location = New System.Drawing.Point(96, 112)
        Me.cmbNewCollege.Name = "cmbNewCollege"
        Me.cmbNewCollege.Size = New System.Drawing.Size(152, 20)
        Me.cmbNewCollege.TabIndex = 5
        Me.cmbNewCollege.Text = "ComboBox3"
        '
        'cmbStudent
        '
        Me.cmbStudent.Location = New System.Drawing.Point(96, 32)
        Me.cmbStudent.Name = "cmbStudent"
        Me.cmbStudent.Size = New System.Drawing.Size(152, 20)
        Me.cmbStudent.TabIndex = 3
        '
        'lblProfession
        '
        Me.lblProfession.AutoSize = True
        Me.lblProfession.Location = New System.Drawing.Point(24, 112)
        Me.lblProfession.Name = "lblProfession"
        Me.lblProfession.Size = New System.Drawing.Size(66, 17)
        Me.lblProfession.TabIndex = 2
        Me.lblProfession.Text = "新学院专业"
        '
        'lblCollege
        '
        Me.lblCollege.AutoSize = True
        Me.lblCollege.Location = New System.Drawing.Point(24, 72)
        Me.lblCollege.Name = "lblCollege"
        Me.lblCollege.Size = New System.Drawing.Size(66, 17)
        Me.lblCollege.TabIndex = 1
        Me.lblCollege.Text = "原学院专业"
        '
        'lblStudent
        '
        Me.lblStudent.AutoSize = True
        Me.lblStudent.Location = New System.Drawing.Point(24, 32)
        Me.lblStudent.Name = "lblStudent"
        Me.lblStudent.Size = New System.Drawing.Size(29, 17)
        Me.lblStudent.TabIndex = 0
        Me.lblStudent.Text = "学生"
        '
        'txtOldCollege
        '
        Me.txtOldCollege.Location = New System.Drawing.Point(96, 72)
        Me.txtOldCollege.Name = "txtOldCollege"
        Me.txtOldCollege.Size = New System.Drawing.Size(152, 21)
        Me.txtOldCollege.TabIndex = 8
        Me.txtOldCollege.Text = ""
        '
        'txtOldProfession
        '
        Me.txtOldProfession.Location = New System.Drawing.Point(248, 72)
        Me.txtOldProfession.Name = "txtOldProfession"
        Me.txtOldProfession.Size = New System.Drawing.Size(152, 21)
        Me.txtOldProfession.TabIndex = 9
        Me.txtOldProfession.Text = ""
        '
        'FormStudentChangeProfession
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(416, 261)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.pnlTop)
        Me.Name = "FormStudentChangeProfession"
        Me.Text = "FormStudentChangeProfession"
        Me.pnlTop.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub ResetForm()
        cmbStudent.Text = "清选择学生..."
        txtOldCollege.Text = "清选择学生..."
        txtOldProfession.Text = "清选择学生..."
        cmbNewCollege.Text = "清选择学生..."
        cmbNewProfession.Text = "清选择学生..."
    End Sub

    Private Sub FormStudentChangeProfession_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '进行窗体初始化
        '初始化cmbStudente
        cmbStudent.Items.Clear()
        cmbStudent.ValueMember = "stu_num"
        cmbStudent.DisplayMember = "name"
        cmbStudent.DataSource = DbBase.DataInterface.Execute4DS("select stu_num,name from student").Tables(0).DefaultView
        '初始化txtOldCollege,txtOldProfession
        txtOldCollege.ReadOnly = True
        txtOldProfession.ReadOnly = True
        '初始化cmbCollege,cmbProfession
        cmbNewCollege.DisplayMember = "name"
        cmbNewCollege.ValueMember = "id"
        cmbNewProfession.DisplayMember = "name"
        cmbNewProfession.ValueMember = "id"

        cmbNewCollege.Items.Clear()
        cmbNewProfession.Items.Clear()
        Dim dsCollege As DataSet = DbBase.DataInterface.Execute4DS("select id,name from college")
        cmbNewCollege.DataSource = dsCollege.Tables(0).DefaultView

        ResetForm()
    End Sub
    '
    'Private Sub FormStudentChangeProfession_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
    '    cmbStudent.Text = "清选择学生..."
    '    txtOldCollege.Text = "清选择学生..."
    '    txtOldProfession.Text = "清选择学生..."
    '    cmbNewCollege.Text = "清选择学生..."
    '    cmbNewProfession.Text = "清选择学生..."
    'End Sub

    Private Sub cmbStudent_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStudent.SelectedIndexChanged
        Dim dsStudent As DataSet = DbBase.DataInterface.Execute4DS("select college_name,profession_name from v_student where stu_num ='" & cmbStudent.SelectedValue & "'")
        If dsStudent.Tables(0).Rows.Count > 0 Then
            txtOldCollege.Text = dsStudent.Tables(0).Rows(0)(0)
            txtOldProfession.Text = dsStudent.Tables(0).Rows(0)(1)
        End If

        cmbNewCollege.Text = "请选择新学院..."
        cmbNewProfession.Text = "请选择新学院..."
    End Sub

    Private Sub cmbNewCollege_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNewCollege.SelectedIndexChanged
        Dim dsProfession As DataSet = DbBase.DataInterface.Execute4DS("select id,name from profession where college_id =" & cmbNewCollege.SelectedValue)
        cmbNewProfession.DataSource = dsProfession.Tables(0).DefaultView
        cmbNewProfession.Text = "请选择新专业..."
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        If Student.ChangeProfession(cmbStudent.SelectedValue, cmbNewProfession.SelectedValue) = 0 Then
            MessageBox.Show("学生更改专业成功！")
            ResetForm()
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        ResetForm()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class