數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)--人事管理系統(tǒng)數(shù)據(jù)庫(編輯修改稿)
2025-02-14 15:47 本頁面
【文章內(nèi)容簡介】 End If Else MsgBox(請輸入正確的驗(yàn)證碼) 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。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim sqlEI As New SqlCommand(strEI, sqlcon) Dim strP As String = insert into Post(sno,pname,pexperience,psalary)values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Int(Val()) amp。 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。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 RadioButton_checked2 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 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。 amp。 amp。 39。,39。 amp。 RadioButton_checked amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim sqlMS As New SqlCommand(strMS, sqlcon) () () () () () MsgBox(信息添加成功！) = True = 添加員工信息 Rload() Else MsgBox(信息尚未完善，可以點(diǎn)擊*號獲取幫助！) = 請完善‘*’號的 + + 條信息 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 = = : = = : = = : = = : = = : = = : = = = 確定 = False enabletextbox() disabletextbox2() = False End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Dim strD As String = insert into Department(dno,dmanager,dname)values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim sqlD As New SqlCommand(strD, sqlcon) If = 確定 Then yanz2() If a = 0 Then (
高考資料相關(guān)推薦
鄂ICP備17016276號-1