frmteacherinfo.vb

师生情况管理系统

        Me.LabGraduateDate.Name = "LabGraduateDate"
        Me.LabGraduateDate.Size = New System.Drawing.Size(72, 16)
        Me.LabGraduateDate.TabIndex = 0
        Me.LabGraduateDate.Text = "毕业日期"
        '
        'LabPaperNumber
        '
        Me.LabPaperNumber.Location = New System.Drawing.Point(202, 26)
        Me.LabPaperNumber.Name = "LabPaperNumber"
        Me.LabPaperNumber.Size = New System.Drawing.Size(58, 16)
        Me.LabPaperNumber.TabIndex = 0
        Me.LabPaperNumber.Text = "证件号码"
        '
        'LabPolityVisage
        '
        Me.LabPolityVisage.Location = New System.Drawing.Point(202, 122)
        Me.LabPolityVisage.Name = "LabPolityVisage"
        Me.LabPolityVisage.Size = New System.Drawing.Size(58, 16)
        Me.LabPolityVisage.TabIndex = 0
        Me.LabPolityVisage.Text = "政治面貌"
        '
        'LabFinishSchool
        '
        Me.LabFinishSchool.Location = New System.Drawing.Point(202, 186)
        Me.LabFinishSchool.Name = "LabFinishSchool"
        Me.LabFinishSchool.Size = New System.Drawing.Size(58, 16)
        Me.LabFinishSchool.TabIndex = 0
        Me.LabFinishSchool.Text = "毕业学校"
        '
        'LabTel
        '
        Me.LabTel.Location = New System.Drawing.Point(14, 186)
        Me.LabTel.Name = "LabTel"
        Me.LabTel.Size = New System.Drawing.Size(58, 16)
        Me.LabTel.TabIndex = 0
        Me.LabTel.Text = "联系电话"
        '
        'LabComeTime
        '
        Me.LabComeTime.Location = New System.Drawing.Point(398, 100)
        Me.LabComeTime.Name = "LabComeTime"
        Me.LabComeTime.Size = New System.Drawing.Size(72, 16)
        Me.LabComeTime.TabIndex = 0
        Me.LabComeTime.Text = "入校时间"
        '
        'TxtName
        '
        Me.TxtName.Location = New System.Drawing.Point(82, 56)
        Me.TxtName.MaxLength = 20
        Me.TxtName.Name = "TxtName"
        Me.TxtName.Size = New System.Drawing.Size(108, 21)
        Me.TxtName.TabIndex = 2
        Me.TxtName.Text = ""
        '
        'TxtPaperNumber
        '
        Me.TxtPaperNumber.Location = New System.Drawing.Point(270, 24)
        Me.TxtPaperNumber.MaxLength = 20
        Me.TxtPaperNumber.Name = "TxtPaperNumber"
        Me.TxtPaperNumber.Size = New System.Drawing.Size(118, 21)
        Me.TxtPaperNumber.TabIndex = 6
        Me.TxtPaperNumber.Text = ""
        '
        'TxtTel
        '
        Me.TxtTel.Location = New System.Drawing.Point(82, 184)
        Me.TxtTel.MaxLength = 20
        Me.TxtTel.Name = "TxtTel"
        Me.TxtTel.Size = New System.Drawing.Size(108, 21)
        Me.TxtTel.TabIndex = 5
        Me.TxtTel.Text = ""
        '
        'TxtFinishSchool
        '
        Me.TxtFinishSchool.Location = New System.Drawing.Point(270, 184)
        Me.TxtFinishSchool.MaxLength = 20
        Me.TxtFinishSchool.Name = "TxtFinishSchool"
        Me.TxtFinishSchool.Size = New System.Drawing.Size(114, 21)
        Me.TxtFinishSchool.TabIndex = 10
        Me.TxtFinishSchool.Text = ""
        '
        'TxtNativePlace
        '
        Me.TxtNativePlace.Location = New System.Drawing.Point(82, 120)
        Me.TxtNativePlace.MaxLength = 50
        Me.TxtNativePlace.Name = "TxtNativePlace"
        Me.TxtNativePlace.Size = New System.Drawing.Size(108, 21)
        Me.TxtNativePlace.TabIndex = 4
        Me.TxtNativePlace.Text = ""
        '
        'TxtPolityVisage
        '
        Me.TxtPolityVisage.Items.AddRange(New Object() {"中共党员", "共青团员", "人民群众"})
        Me.TxtPolityVisage.Location = New System.Drawing.Point(270, 120)
        Me.TxtPolityVisage.Name = "TxtPolityVisage"
        Me.TxtPolityVisage.Size = New System.Drawing.Size(102, 20)
        Me.TxtPolityVisage.TabIndex = 9
        '
        'CmbMarriage
        '
        Me.CmbMarriage.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmbMarriage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CmbMarriage.Items.AddRange(New Object() {"是", "否"})
        Me.CmbMarriage.Location = New System.Drawing.Point(270, 88)
        Me.CmbMarriage.Name = "CmbMarriage"
        Me.CmbMarriage.Size = New System.Drawing.Size(68, 20)
        Me.CmbMarriage.TabIndex = 8
        '
        'TxtGraduateDate
        '
        Me.TxtGraduateDate.Location = New System.Drawing.Point(398, 184)
        Me.TxtGraduateDate.Name = "TxtGraduateDate"
        Me.TxtGraduateDate.Size = New System.Drawing.Size(108, 21)
        Me.TxtGraduateDate.TabIndex = 12
        Me.TxtGraduateDate.Value = New Date(1950, 1, 1, 0, 0, 0, 0)
        '
        'TxtComeTime
        '
        Me.TxtComeTime.Location = New System.Drawing.Point(398, 120)
        Me.TxtComeTime.Name = "TxtComeTime"
        Me.TxtComeTime.Size = New System.Drawing.Size(108, 21)
        Me.TxtComeTime.TabIndex = 11
        Me.TxtComeTime.Value = New Date(1950, 1, 1, 0, 0, 0, 0)
        '
        'TxtDepartment
        '
        Me.TxtDepartment.Location = New System.Drawing.Point(84, 152)
        Me.TxtDepartment.MaxLength = 20
        Me.TxtDepartment.Name = "TxtDepartment"
        Me.TxtDepartment.ReadOnly = True
        Me.TxtDepartment.Size = New System.Drawing.Size(62, 21)
        Me.TxtDepartment.TabIndex = 13
        Me.TxtDepartment.Text = ""
        '
        'TxtDuty
        '
        Me.TxtDuty.Location = New System.Drawing.Point(272, 152)
        Me.TxtDuty.MaxLength = 20
        Me.TxtDuty.Name = "TxtDuty"
        Me.TxtDuty.ReadOnly = True
        Me.TxtDuty.Size = New System.Drawing.Size(68, 21)
        Me.TxtDuty.TabIndex = 15
        Me.TxtDuty.Text = ""
        '
        'LabLDutySelect
        '
        Me.LabLDutySelect.Location = New System.Drawing.Point(348, 155)
        Me.LabLDutySelect.Name = "LabLDutySelect"
        Me.LabLDutySelect.Size = New System.Drawing.Size(36, 14)
        Me.LabLDutySelect.TabIndex = 16
        Me.LabLDutySelect.TabStop = True
        Me.LabLDutySelect.Text = "选择"
        '
        'BtnAdd
        '
        Me.BtnAdd.Location = New System.Drawing.Point(20, 22)
        Me.BtnAdd.Name = "BtnAdd"
        Me.BtnAdd.TabIndex = 1
        Me.BtnAdd.Text = "添加"
        '
        'BtnDel
        '
        Me.BtnDel.Location = New System.Drawing.Point(20, 56)
        Me.BtnDel.Name = "BtnDel"
        Me.BtnDel.TabIndex = 2
        Me.BtnDel.Text = "删除"
        '
        'BtnEdit
        '
        Me.BtnEdit.Location = New System.Drawing.Point(20, 92)
        Me.BtnEdit.Name = "BtnEdit"
        Me.BtnEdit.TabIndex = 3
        Me.BtnEdit.Text = "修改"
        '
        'BtnSave
        '
        Me.BtnSave.Location = New System.Drawing.Point(20, 26)
        Me.BtnSave.Name = "BtnSave"
        Me.BtnSave.TabIndex = 1
        Me.BtnSave.Text = "确定/保存"
        '
        'BtnCancel
        '
        Me.BtnCancel.Location = New System.Drawing.Point(20, 60)
        Me.BtnCancel.Name = "BtnCancel"
        Me.BtnCancel.TabIndex = 2
        Me.BtnCancel.Text = "取消"
        '
        'GropBoxOperation
        '
        Me.GropBoxOperation.Controls.Add(Me.BtnAdd)
        Me.GropBoxOperation.Controls.Add(Me.BtnDel)
        Me.GropBoxOperation.Controls.Add(Me.BtnEdit)
        Me.GropBoxOperation.Location = New System.Drawing.Point(582, 8)
        Me.GropBoxOperation.Name = "GropBoxOperation"
        Me.GropBoxOperation.Size = New System.Drawing.Size(118, 122)
        Me.GropBoxOperation.TabIndex = 2
        Me.GropBoxOperation.TabStop = False
        Me.GropBoxOperation.Text = "操作"
        '
        'GropBoxSaveOperation
        '
        Me.GropBoxSaveOperation.Controls.Add(Me.BtnCancel)
        Me.GropBoxSaveOperation.Controls.Add(Me.BtnSave)
        Me.GropBoxSaveOperation.Enabled = False
        Me.GropBoxSaveOperation.Location = New System.Drawing.Point(582, 134)
        Me.GropBoxSaveOperation.Name = "GropBoxSaveOperation"
        Me.GropBoxSaveOperation.Size = New System.Drawing.Size(118, 90)
        Me.GropBoxSaveOperation.TabIndex = 3
        Me.GropBoxSaveOperation.TabStop = False
        Me.GropBoxSaveOperation.Text = "保存操作"
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.Panel3)
        Me.Panel1.Controls.Add(Me.Panel2)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(712, 463)
        Me.Panel1.TabIndex = 4
        '
        'Panel3
        '
        Me.Panel3.Controls.Add(Me.GropBoxTeacherList)
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Location = New System.Drawing.Point(0, 230)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(712, 233)
        Me.Panel3.TabIndex = 5
        '
        'Panel2
        '
        Me.Panel2.Controls.Add(Me.LinkLabTeacherPay)
        Me.Panel2.Controls.Add(Me.GroupBoxFind)
        Me.Panel2.Controls.Add(Me.GropBoxOperation)
        Me.Panel2.Controls.Add(Me.GropBoxTeacherInfo)
        Me.Panel2.Controls.Add(Me.GropBoxSaveOperation)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 0)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(712, 230)
        Me.Panel2.TabIndex = 4
        '
        'GroupBoxFind
        '
        Me.GroupBoxFind.Controls.Add(Me.TxtFind)
        Me.GroupBoxFind.Location = New System.Drawing.Point(456, 30)
        Me.GroupBoxFind.Name = "GroupBoxFind"
        Me.GroupBoxFind.Size = New System.Drawing.Size(102, 50)
        Me.GroupBoxFind.TabIndex = 4
        Me.GroupBoxFind.TabStop = False
        Me.GroupBoxFind.Text = "查询编号"
        '
        'TxtFind
        '
        Me.TxtFind.Location = New System.Drawing.Point(6, 22)
        Me.TxtFind.Name = "TxtFind"
        Me.TxtFind.Size = New System.Drawing.Size(92, 21)
        Me.TxtFind.TabIndex = 0
        Me.TxtFind.Text = ""
        '
        'LinkLabTeacherPay
        '
        Me.LinkLabTeacherPay.Location = New System.Drawing.Point(454, 88)
        Me.LinkLabTeacherPay.Name = "LinkLabTeacherPay"
        Me.LinkLabTeacherPay.Size = New System.Drawing.Size(104, 16)
        Me.LinkLabTeacherPay.TabIndex = 17
        Me.LinkLabTeacherPay.TabStop = True
        Me.LinkLabTeacherPay.Text = "查看该用户的工资"
        '
        'FrmTeacherInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(712, 463)
        Me.Controls.Add(Me.Panel1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "FrmTeacherInfo"
        Me.Text = "教师信息管理"
        Me.GropBoxTeacherList.ResumeLayout(False)
        CType(Me.LsTeacherInfo, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GropBoxTeacherInfo.ResumeLayout(False)
        Me.GropBoxOperation.ResumeLayout(False)
        Me.GropBoxSaveOperation.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.GroupBoxFind.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private TeacherInfoList As New DataSet    '教师列表
    Private Da As SqlClient.SqlDataAdapter      '教师列表的
    Private FrmDepartment As New FrmDepartment(True)  '系部窗体
    Private FrmDuty As New FrmDuty(True, "select TDID 职务编号,TDname 职务名称 from TDuty")   '职务窗体


    Private Function GetDepartment(ByVal Department As String, ByVal ColN As Integer) As String
        '通过传入的参数来返回所需要的值
        Dim i As Integer
        Dim CountRow As Integer = FrmDepartment.dsDepartment.Tables(0).Rows.Count
        If ColN = 0 Then
            For i = 0 To CountRow - 1
                If FrmDepartment.dsDepartment.Tables(0).Rows(i).Item(0) = Department Then
                    Return FrmDepartment.dsDepartment.Tables(0).Rows(i).Item(1)
                End If
            Next
        Else
            For i = 0 To CountRow - 1
                If FrmDepartment.dsDepartment.Tables(0).Rows(i).Item(1) = Department Then
                    Return FrmDepartment.dsDepartment.Tables(0).Rows(i).Item(0)
                End If
            Next
        End If


        Return "×"
    End Function

    Private Function GetDuty(ByVal Duty As String, ByVal ColN As Integer) As String
        '通过传入的参数来返回所需要的值
        Dim i As Integer
        Dim CountRow As Integer = FrmDuty.dsDuty.Tables(0).Rows.Count
        If ColN = 0 Then