【導(dǎo)讀】《基于.NET應(yīng)用軟件開發(fā)》。課程名稱《基于.NET應(yīng)用軟件開發(fā)》。設(shè)計題目基于.NET的人事管理系統(tǒng)的設(shè)計與實現(xiàn)。專業(yè)班級計算機信息管理202004. 學生姓名盧慧青學號2413. 起止日期2020年11月22日至11月28日。福建林業(yè)職業(yè)技術(shù)學院自動化與信息工程系

　　

【正文】 = = = = = = = = = = = = = = = End Sub Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As 22 ) Handles If = Then = = False Else If () = Then = √ If = √ And = √ And = √ And = √ And = √ And = √ Then = True Else = False End If Else = = False End If End If End Sub Private Sub Label19_Click(ByVal sender As Object, ByVal e As ) Handles If = Then MsgBox(員工編號重復(fù) ) End If End Sub Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As ) Handles If Not IsDate() Then = Else = √ If = √ And = √ And = √ And = √ And = √ And = √ Then = True Else = False End If End If End Sub Private Sub TextBox12_LostFocus(ByVal sender As Object, ByVal e As ) Handles If Not IsDate() Then = Else = √ If = √ And = √ And = √ And = √ And = √ And = √ Then = True Else = False End If End If End Sub 23 Private Sub TextBox13_LostFocus(ByVal sender As Object, ByVal e As ) Handles If Not IsDate() Then = Else = √ If = √ And = √ And = √ And = √ And = √ And = √ Then = True Else = False End If End If End Sub Private Sub TextBox15_LostFocus(ByVal sender As Object, ByVal e As ) Handles If Not IsDate() Then = Else = √ If = √ And = √ And = √ And = √ And = √ And = √ Then = True Else = False End If End If End Sub Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As ) Handles If = Then = = False Else = √ If = √ And = √ And = √ And = √ And = √ And = √ Then = True Else = False End If End If End Sub Private Sub Emp_Info_Add_Load(ByVal sender As , ByVal e As ) Handles RemoveMenu(GetSystemMenu(, 0), SC_COLSE, MF_REMOVE) 39。//關(guān)閉 RemoveMenu(GetSystemMenu(, 0), SC_MAXIMIZE, MF_REMOVE) 39。//最大化 RemoveMenu(GetSystemMenu(, 0), SC_MINIMIZE, MF_REMOVE) 39。//最小化 End Sub End Class 24 4． 8 建立查詢職工信息窗體 4． 8． 1 添加窗體 添加一個普通窗體。 最后設(shè)計好的窗體如圖 124 所示。 圖 124 查詢 員 工基本信息窗體 4． 8． 2 添加控件 該窗體包含一個 bobox 一個 datagridview 一個 label 兩個 botton 控件 一個contexmenustrip 控件 Contexmenustrip 控件設(shè)置結(jié)果如右圖 4． 8． 3 添加代碼 主要代碼如下： Private Sub Emp_COWA_Sel_Load(ByVal sender As , ByVal e As ) Handles Dim i As Integer () For i = 0 To 1 ((i).Item(0)) Next = End Sub 25 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles End sub 4． 9 建立 刪除員工信息 4． 9． 1 添加窗體 添加一個普通窗體。 最后設(shè)計好的窗體如圖 125 所示。 圖 125 刪除員工基本信息窗體 4． 9． 2 添加代碼 Public Class Emp_Info_Del Dim objconn As New ALL_SQL Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As 26 ) Handles If = Then = Else If () = Then = Else = √ If = √ Then = True Else = False End If End If End If End Sub Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As ) Handles If () Then = Else = √ If = √ Then = True Else = False End If End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer If = Then () Else If Mid(, 2, 8) Mid(, 2, 8) Then For i = Mid(, 2, 8) To Mid(, 2, 8) ((Mid(, 1, 8 Len()) amp。 )) Next Else For i = Mid(, 2, 8) To Mid(, 2, 8) ((Mid(, 1, 8 Len()) amp。 )) Next End If End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub 27 4． 10． 建立 修改員工信息 4． 10． 1 添加窗體 添加一個普通窗體。 最后設(shè)計好的窗體如圖 126 所示。 圖 126 修改員工基本信息窗體 4． 10． 2 添加代碼 Public Class Emp_Info_Edit Dim objconn As New ALL_SQL Private Declare Function GetSystemMenu Lib user32 (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer Private Declare Function RemoveMenu