【正文】 s Staff_Information(Sno))。這是我們第一次分組合作完成一個項目。在這個過程中我們也協(xié)作著完成任務(wù)，三個人的節(jié)奏是一樣的。在理論上我們能理解，運用在實際中還是存在問題。 integrated security=true Dim sqlcon As New SqlConnection(strconn) Dim strsql As String = select RTRIM(密碼) from ad_load where 登錄名=39。 Dim ds As New DataSet Dim tb As DataTable Dim drcon As DataRowCollection Dim drow As DataRow () Dim adp As New SqlDataAdapter(strsql, sqlcon) () (ds, mima) tb = (mima) If = 0 Then MsgBox(你的密碼或登錄名錯誤！???) Else drcon = drow = drcon(0) If = drow(0) Then () () Else MsgBox(密碼或者登錄名錯誤！) End If End If Else MsgBox(請輸入正確的驗證碼) End If yzm() = End SubPublic Class 員工信息管理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles () () End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles () () End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Dim 登錄 As New 登錄 () () End SubEnd Class Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Dim ds As New DataSet Dim bc As BindingManagerBase Dim RadioButton_checked As String = Dim RadioButton_checked2 As String = Dim strEI As String = insert into Education_Information(sno,egraduation,emajor,etime,eschool,efor_language)values(39。,39。,39。,39。,39。,39。) Dim sqlEI As New SqlCommand(strEI, sqlcon) Dim strP As String = insert into Post(sno,pname,pexperience,psalary)values(39。,39。,39。,39。) Dim sqlP As New SqlCommand(strP, sqlcon) If = 確定 Then yanz() If a = 0 Then () If Then RadioButton_checked2 = 男 Else RadioButton_checked2 = 女 End If Dim strST As String = insert into Staff_Information(sno,sname,ssex,sbirthday,snation) values(39。,39。,39。,39。,39。) Dim sqlST As New SqlCommand(strST, sqlcon) () () () () () () If Then RadioButton_checked = 已婚 ElseIf Then RadioButton_checked = 未婚 ElseIf Then RadioButton_checked = 再婚 ElseIf Then RadioButton_checked = 離異 End If Dim strMS As String = insert into Marital_Status(sno,Mcondition,mname,mjob,mpany)values(39。,39。,39。,39。,39。) Dim sqlMS As New SqlCommand(strMS, sqlcon) () () () () () MsgBox(信息添加成功！) = True = 添加員工信息 Rload() Else MsgBox(信息尚未完善，可以點擊*號獲取幫助！) = 請完善‘*’號的 + + 條信息 a = 0 End If Else () Dim strS As String = select * from Staff_Information () Dim adp As New SqlDataAdapter(strS, sqlcon) () (ds, info) bc = (ds, info) Dim a3 As Integer a3 = (info). 1 If (info). = 0 Then = 1 Else = (info).Rows(a3)(0) + 1 End If = = : = = : = = : = = : = = : =