frmteacherinfo.vb

师生情况管理系统

            For i = 0 To CountRow - 1
                If FrmDuty.dsDuty.Tables(0).Rows(i).Item(0) = Duty Then
                    Return FrmDuty.dsDuty.Tables(0).Rows(i).Item(1)
                End If
            Next
        Else
            For i = 0 To CountRow - 1
                If FrmDuty.dsDuty.Tables(0).Rows(i).Item(1) = Duty Then
                    Return FrmDuty.dsDuty.Tables(0).Rows(i).Item(0)
                End If
            Next
        End If

        Return "×"
    End Function

    Private Function TestInputSave() As Boolean '测试输入的数据是否正
        If TxtID.Text.Trim = "" Then
            MsgBox("编号不能为空", 64, "输入错误")
            TxtID.Focus()
            Return False
        End If

        If TxtName.Text.Trim = "" Then
            MsgBox("姓名不能为空", 64, "输入错误")
            TxtName.Focus()
            Return False
        End If

        If CmbSex.SelectedIndex < 0 Then
            MsgBox("性别必须选择", 64, "输入错误")
            CmbSex.Focus()
            Return False
        End If

        If TxtDepartment.Text.Trim = "" Then
            MsgBox("系部号不能为空", 64, "输入错误")
            TxtDepartment.Focus()
            Return False
        End If

        If TxtDuty.Text.Trim = "" Then
            MsgBox("职务不能为空", 64, "输入错误")
            TxtDuty.Focus()
            Return False
        End If

        If TxtNativePlace.Text.Trim = "" Then
            MsgBox("籍贯不能为空", 64, "输入错误")
            TxtNativePlace.Focus()
            Return False
        End If

        If (Year(Now()) - Year(CDate(TxtBirthDate.Value))) <= 7 Then
            MsgBox("出生日期太离谱了", 64, "输入错误")
            TxtBirthDate.Focus()
            Return False
        End If

        If TxtPaperNumber.Text.Trim = "" Then
            MsgBox("证件号码不能为空", 64, "输入错误")
            TxtPaperNumber.Focus()
            Return False
        End If

        If CmbMarriage.SelectedIndex < 0 Then
            MsgBox("婚姻状况没有选择", 64, "输入错误")
            CmbMarriage.Focus()
            Return False
        End If

        If TxtPolityVisage.Text.Trim = "" Then
            MsgBox("政治面貌不能为空", 64, "输入错误")
            TxtPolityVisage.Focus()
            Return False
        End If

        If TxtTel.Text.Trim = "" Then
            MsgBox("联系电话不能为空", 64, "输入错误")
            TxtTel.Focus()
            Return False
        End If

        If Year(CDate(TxtComeTime.Value)) > Year(Now()) Then
            MsgBox("入校参教日期太离谱了", 64, "输入错误")
            TxtComeTime.Focus()
            Return False
        End If

        If TxtFinishSchool.Text.Trim = "" Then
            MsgBox("毕业学校不能为空", 64, "输入错误")
            TxtFinishSchool.Focus()
            Return False
        End If

        If Year(CDate(TxtGraduateDate.Value)) > Year(Now()) Then
            MsgBox("毕业时间太离谱了", 64, "输入错误")
            TxtGraduateDate.Focus()
            Return False
        End If

        Return True
    End Function

    Private Sub LoadTeacherInfoList()
        TeacherInfoList.Clear()
        Dim Con As SqlClient.SqlConnection
        Dim SqlStr As String = "select TID 编号,Tname 姓名,Tsex 性别,DID 所属系部,TDID 职务,Taddress 籍贯," _
            & "Tbirthday 出生日期,Tcard 证件号码,Tmarry 婚否,Tpolity 政治面貌,Tphone 联系电话," _
            & "Tcometime 入校时间,Tgraschool 毕业学校,Tgratime 毕业日期 from TeacherInfo"
        Try
            Con = New SqlClient.SqlConnection(FrmMain.DBCONN.DataConStr)
            Da = New SqlClient.SqlDataAdapter(SqlStr, Con)
            Con.Open()
            Da.Fill(TeacherInfoList, "info")
            Dim MySqlCommandBuilder As New SqlClient.SqlCommandBuilder(Da)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Con.Close()
        End Try
        LsTeacherInfo.DataSource = TeacherInfoList.Tables(0)
    End Sub

    Private Sub FrmTeacherInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadTeacherInfoList()
    End Sub

    Private Sub LsTeacherInfo_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LsTeacherInfo.CurrentCellChanged
        TxtID.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(0)
        TxtName.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(1)
        CmbSex.SelectedIndex = IIf(Trim(TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(2)) = "男", 0, 1)
        'TxtDepartment.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(3)
        TxtDepartment.Text = GetDepartment(TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(3), 0)
        'TxtDuty.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(4)
        TxtDuty.Text = GetDuty(TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(4), 0)
        TxtNativePlace.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(5)
        TxtBirthDate.Value = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(6)
        TxtPaperNumber.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(7)
        CmbMarriage.SelectedIndex = IIf(Trim(TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(8)) = "已婚", 0, 1)
        TxtPolityVisage.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(9)
        TxtTel.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(10)
        TxtComeTime.Value = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(11)
        TxtFinishSchool.Text = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(12)
        TxtGraduateDate.Value = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(13)

    End Sub

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        '控件状态设置
        GropBoxTeacherInfo.Enabled = True
        GropBoxOperation.Enabled = False
        GropBoxSaveOperation.Enabled = True
        LabOperationDisplay.Text = "添加"
        '输入内容清空
        TxtID.Text = ""
        TxtName.Text = ""
        CmbSex.SelectedIndex = -1
        TxtDepartment.Text = ""
        TxtDuty.Text = ""
        TxtNativePlace.Text = ""
        TxtBirthDate.Value = "1950-1-1"
        TxtPaperNumber.Text = ""
        CmbMarriage.SelectedIndex = -1
        TxtPolityVisage.Text = ""
        TxtTel.Text = ""
        TxtComeTime.Value = "1950-1-1"
        TxtFinishSchool.Text = ""
        TxtGraduateDate.Value = "1950-1-1"
        TxtID.Focus()
    End Sub


    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        If LsTeacherInfo.CurrentCell.RowNumber < 0 Then
            Exit Sub
        End If
        Dim strID As String = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(0)
        If MsgBox("你真的要删除 编号为：" & strID & "的信息吗？", 32 + 4, "删除") = 6 Then
            Try
                TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Delete()
                Da.Update(TeacherInfoList, "info")
            Catch ex As Exception
                MsgBox("删除教师信息失败！" & vbCrLf & ex.Message, 48, "失败")
            End Try

        End If
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        GropBoxTeacherInfo.Enabled = True
        GropBoxOperation.Enabled = False
        GropBoxSaveOperation.Enabled = True
        LabOperationDisplay.Text = "修改"
    End Sub

    Private Sub LabLDepartmentSelect_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LabLDepartmentSelect.LinkClicked
        FrmDepartment.ShowDialog()
        TxtDepartment.Text = GetDepartment(FrmDepartment.DepartmentID, 0)
        FrmDepartment.DepartmentID = ""
    End Sub

    Private Sub LabLDutySelect_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LabLDutySelect.LinkClicked
        FrmDuty.ShowDialog()
        TxtDuty.Text = GetDuty(FrmDuty.DutyID, 0)
        FrmDuty.DutyID = ""
    End Sub

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        If TestInputSave() = False Then
            Exit Sub
        End If

        If LabOperationDisplay.Text = "添加" Then
            Dim MyRow As DataRow = TeacherInfoList.Tables(0).NewRow
            MyRow(0) = TxtID.Text
            MyRow(1) = TxtName.Text
            MyRow(2) = CmbSex.SelectedItem
            MyRow(3) = GetDepartment(TxtDepartment.Text.Trim, 1)
            MyRow(4) = GetDuty(TxtDuty.Text.Trim, 1)
            MyRow(5) = TxtNativePlace.Text
            MyRow(6) = TxtBirthDate.Value
            MyRow(7) = TxtPaperNumber.Text
            MyRow(8) = CmbMarriage.SelectedItem
            MyRow(9) = TxtPolityVisage.Text
            MyRow(10) = TxtTel.Text
            MyRow(11) = TxtComeTime.Value
            MyRow(12) = TxtFinishSchool.Text
            MyRow(13) = TxtGraduateDate.Value
            TeacherInfoList.Tables(0).Rows.Add(MyRow)
        Else
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(0) = TxtID.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(1) = TxtName.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(2) = CmbSex.SelectedItem
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(3) = GetDepartment(TxtDepartment.Text.Trim, 1)
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(4) = GetDuty(TxtDuty.Text.Trim, 1)
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(5) = TxtNativePlace.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(6) = TxtBirthDate.Value
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(7) = TxtPaperNumber.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(8) = CmbMarriage.SelectedItem
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(9) = TxtPolityVisage.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(10) = TxtTel.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(11) = TxtComeTime.Value
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(12) = TxtFinishSchool.Text
            TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(13) = TxtGraduateDate.Value
        End If

        Try
            Da.Update(TeacherInfoList, "info")
            MsgBox(LabOperationDisplay.Text & "成功！", 64, "成功")
        Catch ex As Exception
            MsgBox(LabOperationDisplay.Text & "失败！" & vbCrLf & ex.Message, 48, "失败")
            If LabOperationDisplay.Text = "添加" Then
                TeacherInfoList.Tables(0).Rows(TeacherInfoList.Tables(0).Rows.Count - 1).Delete()
            End If
        End Try
        '控件状态设置
        GropBoxTeacherInfo.Enabled = False
        GropBoxOperation.Enabled = True
        GropBoxSaveOperation.Enabled = False
        LabOperationDisplay.Text = ""
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        '控件状态设置
        GropBoxTeacherInfo.Enabled = False
        GropBoxOperation.Enabled = True
        GropBoxSaveOperation.Enabled = False
        LabOperationDisplay.Text = ""
        '内容清空
        TxtID.Text = ""
        TxtName.Text = ""
        CmbSex.SelectedIndex = -1
        TxtDepartment.Text = ""
        TxtDuty.Text = ""
        TxtNativePlace.Text = ""
        TxtBirthDate.Value = "1950-1-1"
        TxtPaperNumber.Text = ""
        CmbMarriage.SelectedIndex = -1
        TxtPolityVisage.Text = ""
        TxtTel.Text = ""
        TxtComeTime.Value = "1950-1-1"
        TxtFinishSchool.Text = ""
        TxtGraduateDate.Value = "1950-1-1"
    End Sub

    Private Sub TxtFind_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtFind.KeyUp
        '查找功能
        If TxtFind.Text.Trim = "" Then
            TeacherInfoList.Clear()
            Da.Fill(TeacherInfoList, "info")
            LsTeacherInfo.DataSource = TeacherInfoList.Tables(0)
        Else
            Dim Con As SqlClient.SqlConnection
            Try
                Dim SqlStr As String = "select TID 编号,Tname 姓名,Tsex 性别,DID 所属系部,TDID 职务,Taddress 籍贯," _
                    & "Tbirthday 出生日期,Tcard 证件号码,Tmarry 婚否,Tpolity 政治面貌,Tphone 联系电话," _
                    & "Tcometime 入校时间,Tgraschool 毕业学校,Tgratime 毕业日期 from TeacherInfo " _
                    & "where TID like '%" & TxtFind.Text & "%'"
                Con = New SqlClient.SqlConnection(FrmMain.DBCONN.DataConStr)
                Dim DaFind As New SqlClient.SqlDataAdapter(SqlStr, Con)
                TeacherInfoList.Clear()
                Con.Open()
                DaFind.Fill(TeacherInfoList, "info")
            Catch ex As Exception
                MsgBox("查找出错" & vbCrLf & ex.Message, 48, "出错")
                LsTeacherInfo.DataSource = TeacherInfoList.Tables(0)
            Finally
                Con.Close()
            End Try
            LsTeacherInfo.DataSource = TeacherInfoList.Tables(0)
        End If
    End Sub

    Private Sub LinkLabTeacherPay_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabTeacherPay.LinkClicked
        Dim Tid As String = TeacherInfoList.Tables(0).Rows(LsTeacherInfo.CurrentCell.RowNumber).Item(0)
        If Tid.Trim = "" Then
            Exit Sub
        End If
        Dim FrmPay As New FrmTeacherPay("select TID,Pbase,Plive,Pallowance,Pinsure FROM TeacherPay where TID='" & Tid & "'")
        FrmPay.ShowDialog()

    End Sub
End Class