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