數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)--人事管理系統(tǒng)數(shù)據(jù)庫-資料下載頁
2025-01-22 08:58本頁面
【導(dǎo)讀】隨著計(jì)算機(jī)的發(fā)展與普及，以及互聯(lián)網(wǎng)技術(shù)的擴(kuò)展，日常人事管理必將實(shí)現(xiàn)無紙化辦公，浪費(fèi)大量的人力物力去進(jìn)行抄寫，提高了工作的效率。發(fā)展，使辦公系統(tǒng)更趨于系統(tǒng)化、科學(xué)化和網(wǎng)絡(luò)化。工檔案記錄中刪除。當(dāng)員工的信息發(fā)生變動(dòng)時(shí)，修改員工檔案記錄中相應(yīng)的屬性。對(duì)公司里所有員工的職務(wù)記錄進(jìn)行統(tǒng)一編號(hào)；登記員工調(diào)動(dòng)前后的具體職務(wù)，以及調(diào)動(dòng)時(shí)間。對(duì)公司所有的部門進(jìn)行編號(hào)，建立部門記錄。學(xué)校、外語情況等。企業(yè)部門信息表的添加、刪除、修改、查詢。根據(jù)以上模塊，可以得到系統(tǒng)流程圖。數(shù)據(jù)字典通常包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過程5個(gè)部分。
【正文】 刪除 ) End If End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles If = 員工號(hào) Then If = 確定 Then () Dim RadioButton_checked2 As String = If Then RadioButton_checked2 = 男 數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì) 第 28 頁 共 31 頁 Else RadioButton_checked2 = 女 End If Dim strsql1 As String = update Staff_Information set sname=39。 amp。 amp。 39。,ssex=39。 amp。 RadioButton_checked2 amp。 39。,sbirthday=39。 amp。 amp。 39。,snation=39。 amp。 amp。 39。where sno=39。 amp。 amp。 39。 Dim sql1 As New SqlCommand(strsql1, sqlcon) () () () Dim strsql2 As String = update Education_Information set egraduation=39。 amp。 amp。 39。,emajor=39。 amp。 amp。 39。 ,etime=39。 amp。 amp。 39。,eschool=39。 amp。 amp。 39。,efor_language=39。 amp。 amp。 39。where sno=39。 amp。 amp。 39。 Dim sql2 As New SqlCommand(strsql2, sqlcon) () () () Dim RadioButton_checked As String = If Then RadioButton_checked = 已婚 ElseIf Then RadioButton_checked = 未婚 ElseIf Then RadioButton_checked = 再婚 ElseIf Then RadioButton_checked = 離異 End If Dim strsql3 As String = update Marital_Status set mcondition=39。 amp。 RadioButton_checked amp。 39。,mname=39。 amp。 amp。 39。 ,mjob=39。 amp。 amp。 39。,mpany=39。 amp。 amp。 39。where sno=39。 amp。 amp。 39。 Dim sql3 As New SqlCommand(strsql3, sqlcon) () () () Dim strsql4 As String = update post set pname=39。 amp。 amp。 39。,pexperience=39。 amp。 amp。 39。,psalary=39。 amp。 Int(Val()) amp。 39。where sno=39。 amp。 amp。 39。 Dim sql4 As New SqlCommand(strsql4, sqlcon) () () = 修改 disabletextbox() = True 數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì) 第 29 頁 共 31 頁 MsgBox(修改成功！ ) Else = 確定 = False enabletextbox() = False = False End If Else If = 確定 Then () Dim strsql2 As String = update Department set dmanager=39。 amp。 amp。 39。,dname=39。 amp。 amp。 39。 Dim sql As New SqlCommand(strsql2, sqlcon) () () = 修改 disabletextbox() = True MsgBox(修改成功！ ) Else = 確定 = False = True = True End If End If End Sub 根據(jù)員工、部門號(hào)直接刪除某個(gè)員工和某個(gè)部門的信息 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles If = 員工號(hào) Then Dim strsql1 As String = delete from Education_Information where sno=39。 amp。 amp。 39。 Dim sql1 As New SqlCommand(strsql1, sqlcon) () () () Dim strsql2 As String = delete from Marital_Status where sno=39。 amp。 數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì) 第 30 頁 共 31 頁 amp。 39。 Dim sql2 As New SqlCommand(strsql2, sqlcon) () () () Dim strsql3 As String = delete from post where sno=39。 amp。 amp。 39。 Dim sql3 As New SqlCommand(strsql3, sqlcon) () () () Dim strsql4 As String = delete from Staff_Information where sno=39。 amp。 amp。 39。 Dim sql4 As New SqlCommand(strsql4, sqlcon) () () () MsgBox(刪除成功！ ) clear() jisuan2() Else Dim strsql5 As String = delete from Department where dno=39。 amp。 amp。 39。 Dim sql5 As New SqlCommand(strsql5, sqlcon) () () () MsgBox(刪除成功！ ) clear() jisuan() End If End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1