frmimportdata.vb

代码：是由本人自主开发完成的

                FName = True
            Else
                FName = True
            End If
            If FStuid And FName And FSexy And FDepartment And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        Else
            If CombStuName.Text <> CombStuCardID.Text And _
                            CombStuName.Text <> CombSexy.Text And _
                            CombStuName.Text <> CombMarjoy.Text Then
                FName = True
            Else
                FName = True
            End If
            If FStuid And FName And FSexy And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        End If

    End Sub

    Private Sub CombSexy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombSexy.SelectedIndexChanged

        If CheckBox1.Checked Then
            If CombSexy.Text <> CombStuCardID.Text And _
                                  CombSexy.Text <> CombStuName.Text And _
                                   CombSexy.Text <> CombDepartment.Text And _
                                    CombSexy.Text <> CombMarjoy.Text Then
                FSexy = True
            Else
                FSexy = False
            End If

            If FStuid And FName And FSexy And FDepartment And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        Else
            If CombSexy.Text <> CombStuCardID.Text And _
                      CombSexy.Text <> CombStuName.Text And _
                      CombSexy.Text <> CombMarjoy.Text Then
                FSexy = True
            Else
                FSexy = False
            End If

            If FStuid And FName And FSexy And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        End If

    End Sub

    Private Sub CombDepartment_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombDepartment.SelectedIndexChanged
        If CheckBox1.Checked Then
            If CombDepartment.Text <> CombStuCardID.Text And _
                                        CombDepartment.Text <> CombStuName.Text And _
                                         CombDepartment.Text <> CombSexy.Text And _
                                          CombDepartment.Text <> CombMarjoy.Text Then
                FDepartment = True
            Else
                FDepartment = False
            End If

            If FStuid And FName And FSexy And FDepartment And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        End If

    End Sub

    Private Sub CombMarjoy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombMarjoy.SelectedIndexChanged
        If CheckBox1.Checked Then
            If CombMarjoy.Text <> CombStuCardID.Text And _
                                              CombMarjoy.Text <> CombStuName.Text And _
                                               CombMarjoy.Text <> CombSexy.Text And _
                                               CombMarjoy.Text <> CombDepartment.Text Then
                FMarjoy = True
            Else
                FMarjoy = False
            End If

            If FStuid And FName And FSexy And FDepartment And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        Else
            If CombMarjoy.Text <> CombStuCardID.Text And _
                                                        CombMarjoy.Text <> CombStuName.Text And _
                                                         CombMarjoy.Text <> CombSexy.Text Then
                FMarjoy = True
            Else
                FMarjoy = False
            End If

            If FStuid And FName And FSexy And FMarjoy Then
                cmdCheckOK.Enabled = True
            Else
                cmdCheckOK.Enabled = False
            End If
        End If

    End Sub
    Private Sub TvDep_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TvDep.MouseDown
        TvDep.SelectedNode = TvDep.GetNodeAt(e.X, e.Y)
        If Not TvDep.SelectedNode Is Nothing Then
            If CurDep.DepartmentName = TvDep.SelectedNode.Text Then
                Exit Sub
            End If
            MyDep.GetDepInfo(MakeStr(TvDep.SelectedNode.Text))
            CurDep.Equal(MyDep)
            GbDepartment.Text = "院系信息--当前院系:[" & CurDep.DepartmentName & "]"
            CurDep.LoadMarjoysToList(LbMarjoy)
            GbMarjoy.Text = "专业信息--当前专业[]"
        Else
            CurDep.Initials()
            GbDepartment.Text = "院系信息--当前院系:[]"
            GbMarjoy.Text = "专业信息--当前专业[]"
        End If
    End Sub
    Private Sub LbMarjoy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbMarjoy.SelectedIndexChanged
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        MyMar.MarjoyName = LbMarjoy.SelectedItem()
        GbMarjoy.Text = "专业信息--当前专业[" & Trim(MyMar.MarjoyName) & "]"
        MyMar.GetMarInfo(MyMar.MarjoyName, CurDep.DepartmentID)
        CurMar.Equal(MyMar)
    End Sub

    Private Sub CmdImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdImport.Click
        If CurMar.MarjoyID <= 0 Then
            Exit Sub
        End If
        If TvTempDepart.SelectedNode Is Nothing Then
            Exit Sub
        End If
        If LbTempmar.SelectedItem Is Nothing Then
            Exit Sub
        End If

        MyStu.Initials()
        If MsgBox("您确定要把院系[" & TvTempDepart.SelectedNode.Text _
        & "]专业[" & LbTempmar.SelectedItem & "]学生导入到[" & CurDep.DepartmentName & ":" & CurMar.MarjoyName & "]", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "翼清考试系统V2.0") = MsgBoxResult.Yes _
                Then
            tempdbset = Nothing
            ProgressBar1.Value = 0
            ProgressBar1.Visible = True
            tempdbset = myTempStu.GetStudents(TvTempDepart.SelectedNode.Text, LbTempmar.SelectedItem)
            If Not tempdbset Is Nothing Then
                Dim drow As DataRow
                ProgressBar1.Minimum = 0
                ProgressBar1.Maximum = DS.Tables(0).Rows.Count
                For Each drow In tempdbset.Tables(0).Rows
                    MyStu.Initials()
                    If (Not IsDBNull(drow.Item(0))) And (Not IsDBNull(drow.Item(1))) Then
                        MyStu.StudentCardID = Trim(drow.Item(0))
                        If Not MyStu.IsInDB(MyStu.StudentCardID) Then
                            MyStu.StudentID = MyStu.GetNewID()
                            MyStu.StudentName = drow.Item(1)
                            If Not IsDBNull(drow.Item(2)) Then
                                MyStu.Sexy = drow.Item(2)
                            End If

                            MyStu.MarjoyID = CurMar.MarjoyID
                            MyStu.InsertDB()
                            myTempStu.StudentCardID = MyStu.StudentCardID
                        End If
                        myTempStu.StudentCardID = MyStu.StudentCardID
                        myTempStu.DeleteDB()
                    End If
                    ProgressBar1.PerformStep()
                Next
            End If
        End If
        ProgressBar1.Visible = False
    End Sub
    Private Sub TvTempDepart_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TvTempDepart.MouseDown
        TvTempDepart.SelectedNode = TvTempDepart.GetNodeAt(e.X, e.Y)
        LbTempmar.Items.Clear()
        GroupBox7.Text = "专业:[]"
        If Not TvTempDepart.SelectedNode Is Nothing Then
            Dim dbset As DataSet
            GroupBox6.Text = "院系:[" & TvTempDepart.SelectedNode.Text & "]"
            dbset = myTempStu.GetMarjoys(TvTempDepart.SelectedNode.Text)
            If Not dbset Is Nothing Then
                Dim drow As DataRow
                For Each drow In dbset.Tables(0).Rows
                    LbTempmar.Items.Add(drow.Item("专业"))
                Next
            End If
        Else
            GroupBox6.Text = "院系:[]"
        End If
    End Sub

    Private Sub LbTempmar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbTempmar.SelectedIndexChanged
        GroupBox7.Text = "专业:[" & LbTempmar.SelectedItem & "]"
    End Sub

    Private Sub CmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCancel.Click
        myTempStu.DeleteAllDB()
        Me.Close()
    End Sub

    Private Sub frmimportdata_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        tempdbset = Nothing
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        tempshowdset = Nothing
        GroupBox9.Visible = False
        GroupBox8.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tempshowdset = Nothing
        tempshowdset = myTempStu.GetFailStudents()
        If Not tempshowdset Is Nothing Then
            DataGrid1.CaptionText = "总共有：" & tempshowdset.Tables(0).Rows.Count & "条非法或未操作记录"
            DataGrid1.DataSource = tempshowdset.Tables(0).DefaultView
            GroupBox8.Visible = False
            GroupBox9.Visible = True
        Else
            MsgBox("当前操作的Excel文件不存在非法数据", MsgBoxStyle.Exclamation, "翼清考试系统V2.0")
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            CombDepartment.Enabled = True
        Else
            CombDepartment.Enabled = False
        End If
    End Sub

   
    Private Sub frmimportdata_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        GbDepartment.Text = "院系信息--当前院系:[]"
        GbMarjoy.Text = "专业信息--当前专业[]"
        tempdbset = Nothing
    End Sub
End Class