數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)--人事管理系統(tǒng)數(shù)據(jù)庫

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：32 大?。?84.98KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩31頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　數(shù)學(xué)與計(jì)算機(jī)學(xué)院　　數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì)　　設(shè)計(jì)名稱：人事管理系統(tǒng)數(shù)據(jù)庫 　　2013-2014學(xué)年第2學(xué)期　　目錄

2、　　一、課題概述……………………………………………………………………………………….2　　二、需求分析……………………………………………………………………………………….2　　2.1 系統(tǒng)功能要求設(shè)計(jì)…………………………………………………………………………….2　　2.2

3、系統(tǒng)模塊設(shè)計(jì)………………………………………………………………………………….2　　三、概念結(jié)構(gòu)設(shè)計(jì)…………………………………………………………………………………3　　3.1系統(tǒng)流程圖……………………………………………………………………..………………3　　3.2系統(tǒng)數(shù)據(jù)字典…………………………………………………

4、………………………………..5　　3.2.1主要的數(shù)據(jù)流定義……………………………………………………………………...……5　　3.2.2由實(shí)體畫出E—R圖…………………………………………………………………………5　?。?）實(shí)體屬性圖…………………………………………………………………………………..6</p

5、>　　（2）實(shí)體聯(lián)系圖…………………………………………………………………………………..8　?。?）完整的實(shí)體-聯(lián)系圖………………………………………………………………………….9　　四、數(shù)據(jù)庫邏輯設(shè)計(jì)……………………………………………………………………………..10　　4.1數(shù)據(jù)表……

6、……………………………………………………………………………………10　　4.2由系統(tǒng)E—R圖轉(zhuǎn)化而得到的關(guān)系模式…………………………………………………….12　　4.3 確定關(guān)系模型的存取方法………………………………………………………………...…13　　4.4確定數(shù)據(jù)庫的存儲結(jié)構(gòu)…………………………………………

7、……………………………13　　五、數(shù)據(jù)庫實(shí)施（程序調(diào)試）………………………………………………………………………14　　5.1登陸界面………………………………………………………………………………………14　　5.2操作界面………………………………………………………………………………………15

8、　　5.2.1添加員工…………………………………………………………………………………….15　　5.2.2員工和部門編號是自動生成……………………………………………………………….16　　5.2.3婚姻情況選擇時會提示是否為必填信息………………………………………………….16　　5.2.4添加部

9、門信息……………………………………………………………………………….17　　5.3根據(jù)員工號或者部門號查詢信息……………………………………………………………17　　5.3.1根據(jù)員工號搜索員工信息………………………………………………………………….17　　5.3.2根據(jù)員工號直接刪除某個員工的信息……………………

10、……………………………….18　　5.3.3根據(jù)部門號搜索部門信息………………………………………………………………….20　　5.3.4根據(jù)部門號直接刪除某個部門的信息…………………………………………………….21　　六、總結(jié)…………………………………………………………………………………………...22</

11、p>　　一、課題概述　　隨著計(jì)算機(jī)的發(fā)展與普及，以及互聯(lián)網(wǎng)技術(shù)的擴(kuò)展，日常人事管理必將實(shí)現(xiàn)無紙化辦公，并且加入到公司內(nèi)部的Intranet或者是Internet上去，實(shí)現(xiàn)數(shù)據(jù)的共享，這樣有利于人事信息在單位內(nèi)部的查詢，提高了數(shù)據(jù)資源的利用，并且能及時的得到更新，不需要象過去那樣浪費(fèi)大量的人力物力去進(jìn)行抄寫，提高了工作的效率。計(jì)算機(jī)

12、技術(shù)、網(wǎng)絡(luò)技術(shù)和信息技術(shù)的發(fā)展，使辦公系統(tǒng)更趨于系統(tǒng)化、科學(xué)化和網(wǎng)絡(luò)化。網(wǎng)絡(luò)辦公自動化系統(tǒng)是計(jì)算機(jī)技術(shù)和網(wǎng)絡(luò)迅速發(fā)展的一個辦公應(yīng)用解決方案，它的主要目的是實(shí)現(xiàn)信息交流和信息共性，提供協(xié)同工作的手段，提高辦公的效率，讓人們從繁瑣的有紙辦公中解脫出來。　　二、需求分析　　2.1 系統(tǒng)功能要求設(shè)計(jì)&

13、lt;p>　　通過對現(xiàn)行人事管理系統(tǒng)的調(diào)查，明確了人事管理系統(tǒng)由檔案管理、職務(wù)調(diào)動管理、管理組成。　　系統(tǒng)功能的主要描述如下：　?。?）員工檔案管理 　　對公司里所有員工進(jìn)行統(tǒng)一編號；將每一位員工的信息保存在員工檔案記錄中。　　（2）對新聘用的員工，將其信息加入到員

14、工檔案記錄中；對于解聘的員工，將其信息從員工檔案記錄中刪除。　?。?）當(dāng)員工的信息發(fā)生變動時，修改員工檔案記錄中相應(yīng)的屬性。　?。?）員工職務(wù)調(diào)動管理　　對公司里所有員工的職務(wù)記錄進(jìn)行統(tǒng)一編號；登記員工調(diào)動前后的具體職務(wù)，以及調(diào)動時間。　　（5）部門管理

15、　　對公司所有的部門進(jìn)行編號，建立部門記錄。　　2.2 系統(tǒng)模塊設(shè)計(jì)　　員工基本信息表的添加、刪除、修改、查詢。　　員工婚姻情況表的添加、刪除、修改、查詢，反映員工的配偶信息。　　員工學(xué)歷信息表的添加、刪除、修

16、改、查詢反映員工的學(xué)歷、專業(yè)、畢業(yè)時間、學(xué)校、外語情況等。　　企業(yè)工作崗位表的添加、刪除、修改、查詢。　　（5）企業(yè)部門信息表的添加、刪除、修改、查詢。　　三、概念結(jié)構(gòu)設(shè)計(jì)　　3.1根據(jù)以上模塊，可以得到系統(tǒng)流程圖。</p&g

17、t;　　3.2系統(tǒng)數(shù)據(jù)字典　　數(shù)據(jù)字典通常包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲和處理過程5個部分。人事管理系統(tǒng)數(shù)據(jù)流程圖中，數(shù)據(jù)信息和處理過程還需要通過數(shù)據(jù)字典來描述。在本文的數(shù)據(jù)字典中，主要對數(shù)據(jù)流圖中的數(shù)據(jù)流、數(shù)據(jù)存儲和處理過程進(jìn)行說明。 3.2.1，主要的數(shù)據(jù)流定義 ①數(shù)據(jù)流名稱：員工信息；</p

18、>　　定義：員工基本信息=員工號+姓名+出生年月+民族+性別。　　數(shù)據(jù)流量：根據(jù)公司的員工具體錄用情況來確定。 　　說明：要對每一位被聘用的新員工進(jìn)行唯一編號。 ②數(shù)據(jù)流名稱：婚姻情況；定義: 婚姻情況=[ 已婚 |

19、;未婚 ] +配偶　　數(shù)據(jù)流量：根據(jù)公司員工的具體情況來確定。說明：員工婚姻情況確定一個調(diào)動情況。　?、蹟?shù)據(jù)流名稱：員工學(xué)歷信息；　　定義：員工學(xué)歷=員工號+學(xué)歷+專業(yè)+畢業(yè)時間+學(xué)校+外語水平。　　數(shù)據(jù)流量：根據(jù)員工學(xué)歷信息變動情況來確

20、定。　　說明：更新員工學(xué)歷信息。　　④數(shù)據(jù)流名稱：員工工作崗位信息；　　定義：員工工作崗位=員工編號+工作崗位名稱+在職時間+薪水　　說明：每位員工職位情況　　⑤數(shù)據(jù)流名稱：部門信息；

21、定義：部門信息=部門號+部門經(jīng)理+部門名稱+工作崗位名稱　　說明：部門的詳細(xì)信息　　3.2.2，由實(shí)體畫出E—R圖由需求分析的結(jié)果可知，本系統(tǒng)設(shè)計(jì)的實(shí)體包括：（1）員工基本基本信息：員工號，姓名，性別，年齡，出生年月，民族。（2）婚姻狀況：未婚，已婚，再婚，配偶名字，配偶工作，所屬單位。（3）員工學(xué)歷信息：員工號，學(xué)歷，專業(yè)，畢業(yè)時間

22、，學(xué)校，外語水平。（4）員工工作崗位信息：員工號，工作崗位名稱，在職時間，薪水。（5）部門信息表：部門號，部門經(jīng)理，部門名稱，工作崗位名稱。這些實(shí)體間的聯(lián)系包括：每位學(xué)生可以學(xué)習(xí)多門課程，每門課程可供多位學(xué)生學(xué)習(xí)。由上述分析可得到系統(tǒng)的E—R圖：　?。?）實(shí)體屬性圖　?、賹?shí)體屬性圖：員工信息

23、;　?、趯?shí)體屬性圖：婚姻情況　?、蹖?shí)體屬性圖：員工學(xué)歷　　④實(shí)體屬性圖：工作崗位信息　?、輰?shí)體屬性圖：部門信息　　（2）實(shí)體聯(lián)系圖：　?。?）完整的實(shí)體-聯(lián)系圖</

24、p>　　四，數(shù)據(jù)庫邏輯設(shè)計(jì)　　4.1數(shù)據(jù)表　　表Staff_Information（員工基本信息表）　　表Marital_Status　　表Education_Info

25、rmation　　表Post　　表Department　　4.2由系統(tǒng)E—R圖轉(zhuǎn)化而得到的關(guān)系模式如下：　　員工基本信息（員工號，姓名，性別，出生年月，民族），其主關(guān)鍵字為員

26、;　　工號;　　婚姻狀況（員工號，未婚，已婚，再婚，配偶名字，配偶工作，所屬單位），　　其中未婚，已婚，再婚做check約束，員工號為外鍵；　　學(xué)歷信息（員工號，學(xué)歷，專業(yè)，畢業(yè)時間，學(xué)校，外語水平），其中外鍵 　　為員工號。<

27、/b>　　工作崗位信息（員工號，工作崗位名稱，在職時間，薪水），其中外鍵為員　　工號。　?。?）部門信息（部門號，部門經(jīng)理，部門名稱，工作崗位名稱），其中部門號為　　主鍵，工作崗位名稱為外鍵。<p&

28、gt;　　4.3 確定關(guān)系模型的存取方法　　在將概念模型轉(zhuǎn)換成物理模型之后，我們可以對物理模型進(jìn)行設(shè)計(jì)，雙擊物理模型的關(guān)系，可以對該關(guān)系的名稱、注釋等信息進(jìn)行查詢?？蓪υ撽P(guān)系的屬性列進(jìn)行設(shè)計(jì)，可分別設(shè)置其名稱、碼、數(shù)據(jù)類型以及主碼、是否為空等。在實(shí)際設(shè)計(jì)中最常用的存取方法是索引發(fā)，使用索引可以大大減少數(shù)據(jù)的查詢時間，在建立索引時應(yīng)遵循：在經(jīng)常需要搜索的列上建立索引；在主關(guān)鍵字上建立

29、索引；在經(jīng)常用于連接的列上建立索引，即在外鍵上建立索引；在經(jīng)常需要根據(jù)范圍進(jìn)行搜索的列上創(chuàng)建索引，因?yàn)樗饕呀?jīng)排序，其指定的范圍是連續(xù)的等規(guī)則。才能充分利用索引的作用避免因索引引起的負(fù)面作用。　　4.4確定數(shù)據(jù)庫的存儲結(jié)構(gòu)　　確定數(shù)據(jù)庫的存儲結(jié)構(gòu)主要指確定數(shù)據(jù)的存放位置和存儲結(jié)構(gòu)，包括確定關(guān)系、索引、日志、備份等的存儲安排及存儲結(jié)構(gòu)，以及確定系統(tǒng)存儲參數(shù)

30、的配置。　　創(chuàng)建數(shù)據(jù)庫　　create database HR　　（2）創(chuàng)建員工信息表　　create table Staff_Information　　(Sno varchar(10) pr

31、imary key,　　Sname varchar(20) not null,　　Ssex varchar(4) check(Ssex in ('男','女')),　　Sbirthday varchar(20) not null,　　Sna

32、tion varchar(20) not null);　?。?）創(chuàng)建婚姻情況表　　create table Marital_Status　　(　　Sno varchar(10),　　Mcond

33、ition varchar(8) check( Mcondition ='未婚' or Mcondition ='已婚' or Mcondition ='離異' or Mcondition ='再婚' ),　　Mname varchar(20) ,　　Mjob varchar(20) ,&

34、lt;/p>　　Mcompany varchar(50),　　foreign key (Sno) references Staff_Information(Sno));　?。?）創(chuàng)建學(xué)歷信息表　　create table Education_Information

35、　　(　　Sno varchar(10),　　Egraduation varchar(50),　　Emajor varchar(50) ,　　Etime varchar(20) ,<p

36、>　　Eschool varchar(50) ,　　Efor_language varchar(20) ,　　foreign key (Sno) references Staff_Information(Sno))　?。?）創(chuàng)建工作崗位信息表　　create ta

37、ble Post　　(　　Sno varchar(10),　　Pname varchar(20) not null,　　Pexperience int ,　　Psalary int ,<

38、/p>　　foreign key (Sno) references Staff_Information(Sno));　?。?）創(chuàng)建部門信息表　　create table Department　　(　　Dno

39、 varchar(10) primary key,　　Dmanager varchar(10) not null,　　Dname varchar(20) not null);　　數(shù)據(jù)庫實(shí)施（程序的調(diào)試，代碼詳見附件）　　5.1登陸界面

40、　　5.2操作界面　　5.2添加員工和部門　　5.2.1添加員工　　5.2.2員工和部門編號是自動生成　　5.2.3婚姻情況選擇時會提示是否為必填信息&l

41、t;/p>　　5.2.4添加部門信息　　5.3根據(jù)員工號或者部門號查詢信息　　5.3.1根據(jù)員工號搜索員工信息　　5.3.2根據(jù)員工號直接刪除某個員工的信息　　5.3.3根據(jù)部門號搜索部門信息　　5.3

42、.4根據(jù)部門號直接刪除某個部門的信息　　總結(jié)　　經(jīng)過三周的課程設(shè)計(jì)，我們不僅收獲了知識，更鍛煉了團(tuán)隊(duì)合作的能力。這是我們第一次分組合作完成一個項(xiàng)目。從選題到最后完成課程設(shè)計(jì)，我們?nèi)齻€配合特別默契。在第一節(jié)課確定題目，然后一起完成需求分析，需求分析是整個設(shè)計(jì)的基礎(chǔ)，對于最耗時最困難的一步，我們選擇一起完成，效率很高。然

43、后分配工作，在課后獨(dú)自完成應(yīng)該完成的那部分任務(wù)，各自做自己擅長的那部分。在這個過程中我們也協(xié)作著完成任務(wù)，三個人的節(jié)奏是一樣的。　　在知識上我們更多的是學(xué)以致用。我們才學(xué)習(xí)了范式，在制表的時候，我們有嘗試去把表做成最優(yōu)范式。但是由于練習(xí)得太少，對于我們所做的表，也不肯定達(dá)到了最優(yōu)范式。在理論上我們能理解，運(yùn)用在實(shí)際中還是存在問題。　　我們的課程設(shè)計(jì)功能還

44、不完整，有很多地方還需要完善，也有還存在問題的地方。　　附件（程序代碼）：　　5.1登陸界面　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles But

45、ton1.Click　　If Trim(TextBox3.Text) = Trim(con) Then　　Dim strconn As String = "data source=localhost;initial catalog=hr; integrated security=true"

46、Dim sqlcon As New SqlConnection(strconn)　　Dim strsql As String = "select RTRIM(密碼) from ad_load where 登錄名='" & TextBox1.Text & "' "　　Dim ds As

47、 New DataSet　　Dim tb As DataTable　　Dim drcon As DataRowCollection　　Dim drow As DataRow　　sqlcon.Open()　　Dim adp As N

48、ew SqlDataAdapter(strsql, sqlcon)　　sqlcon.Close()　　adp.Fill(ds, "mima")　　tb = ds.Tables("mima")　　If tb.Rows.Count =

49、0 Then　　MsgBox("你的密碼或登錄名錯誤！???")　　Else　　drcon = tb.Rows　　drow = drcon(0)　　If TextBox2.

50、Text = drow(0) Then　　員工信息管理.Show()　　Me.Hide()　　Else　　MsgBox("密碼或者登錄名錯誤！")<

51、;p>　　End If　　End If　　Else　　MsgBox("請輸入正確的驗(yàn)證碼")　　End If<

52、;/b>　　yzm()　　TextBox3.Text = ""　　End Sub　　5.2操作界面<p

53、>　　Public Class 員工信息管理　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Me.Hide()　　添加.Show(

54、)　　End Sub　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click　　Me.Hide()</

55、p>　　查看或更改.Show()　　End Sub　　Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click　　Dim 登錄 As New

56、登錄　　登錄.Show()　　Me.Close()　　End Sub　　End Class　　5.

57、2.1添加員工　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim ds As New DataSet　　Dim bc As BindingManagerBase<

58、/p>　　Dim RadioButton_checked As String = ""　　Dim RadioButton_checked2 As String = ""　　Dim strEI As String = "insert into Education_Informat

59、ion(sno,egraduation,emajor,etime,eschool,efor_language)values('" & TextBox1.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','&qu

60、ot; & MaskedTextBox2.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"　　Dim sqlcomEI As New SqlCommand(strEI, sqlco

61、n)　　Dim strP As String = "insert into Post(sno,pname,pexperience,psalary)values('" & TextBox1.Text & "','" & TextBox13.Text & "','" &

62、amp; MaskedTextBox3.Text & "','" & Int(Val(TextBox15.Text)) & "')"　　Dim sqlcomP As New SqlCommand(strP, sqlcon)　　If Button1.Text = &qu

63、ot;確定" Then　　yanz()　　If a = 0 Then　　sqlcon.Open()　　If RadioButton5.Checked Then　　RadioButto

64、n_checked2 = "男"　　Else　　RadioButton_checked2 = "女"　　End If　　Dim strST As Strin

65、g = "insert into Staff_Information(sno,sname,ssex,sbirthday,snation) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & RadioButton_checked2

66、& "','" & MaskedTextBox1.Text & "','" & TextBox.Text & "')"　　Dim sqlcomST As New SqlCommand(strST, sqlcon)

67、sqlcomST.ExecuteNonQuery()　　sqlcon.Close()　　sqlcon.Open()　　sqlcomEI.ExecuteNonQuery()　　sqlcon.Close()　　sqlcon.Open(

68、)　　If RadioButton1.Checked Then　　RadioButton_checked = "已婚"　　ElseIf RadioButton2.Checked Then　　RadioButton_checked = "未婚&

69、quot;　　ElseIf RadioButton3.Checked Then　　RadioButton_checked = "再婚"　　ElseIf RadioButton4.Checked Then　　RadioButton_checked = &

70、quot;離異"　　End If　　Dim strMS As String = "insert into Marital_Status(sno,Mcondition,mname,mjob,mcompany)values('" & TextBox1.Text & &

71、quot;','" & RadioButton_checked & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "')

72、"　　Dim sqlcomMS As New SqlCommand(strMS, sqlcon)　　sqlcomMS.ExecuteNonQuery()　　sqlcon.Close()　　sqlcon.Open()　　s

73、qlcomP.ExecuteNonQuery()　　sqlcon.Close()　　MsgBox("信息添加成功！")　　Button2.Enabled = True　　Button1.Text = "添加員工信息"</p&g

74、t;　　Rload()　　Else　　MsgBox("信息尚未完善，可以點(diǎn)擊*號獲取幫助！")　　TX.Text = "請完善‘*’號的" + a.ToString + &qu

75、ot;條信息"　　a = 0　　End If　　Else　　sqlcon.Close()　　Dim str

76、S As String = "select * from Staff_Information"　　sqlcon.Open()　　Dim adp As New SqlDataAdapter(strS, sqlcon)　　sqlcon.Close()　　a

77、dp.Fill(ds, "info")　　bc = Me.BindingContext(ds, "info")　　Dim a3 As Integer　　a3 = ds.Tables("info").Rows.Count - 1&l

78、t;p>　　If ds.Tables("info").Rows.Count = 0 Then　　TextBox1.Text = "1"　　Else　　TextBox1.Text = ds.Tables("info&quo

79、t;).Rows(a3)(0) + 1　　End If　　TextBox2.Text = ""　　MaskedTextBox1.Text = "" : TextBox.Text = ""<

80、;p>　　TextBox5.Text = "" : TextBox6.Text = ""　　MaskedTextBox2.Text = "" : TextBox8.Text = ""　　TextBox9.Text = "" : TextBox10.T

81、ext = ""　　TextBox11.Text = "" : TextBox12.Text = ""　　TextBox13.Text = "" : MaskedTextBox3.Text = ""　　TextBo

82、x15.Text = ""　　Button1.Text = "確定"　　Button2.Enabled = False　　enabletextbox()　　disabletextbox2()

83、　　TextBox1.Enabled = False　　End If　　End Sub　　5.2.4添加部門信息　　Private Sub Button2_Click(sender As Obje

84、ct, e As EventArgs) Handles Button2.Click　　Dim strD As String = "insert into Department(dno,dmanager,dname)values('" & TextBox16.Text & "','" & TextBox17.T

85、ext & "','" & TextBox18.Text & "')"　　Dim sqlcomD As New SqlCommand(strD, sqlcon)　　If Button2.Text = "確定" Then<

86、;p>　　yanz2()　　If a = 0 Then　　sqlcon.Open()　　sqlcomD.ExecuteNonQuery()　　sqlcon.Close()　　MsgBox

87、("添加成功！")　　Button2.Text = "添加部門信息"　　Button1.Enabled = True　　disabletextbox2()　　Rload1()

88、　　Else　　MsgBox("信息尚未完善，可以點(diǎn)擊*號獲取幫助！")　　TX.Text = "請完善‘*’號的" + a.ToString + "條信息"　　a = 0&l

89、t;/b>　　End If 　　Else　　Rload1()　　jisuan()<p

90、>　　TextBox17.Text = "" : TextBox18.Text = ""　　disabletextbox()　　enabletextbox2()　　TextBox16.Enabled = False　　Butt

91、on1.Enabled = False　　Button2.Text = "確定"　　End If　　End Sub　　5.3.1根據(jù)員工號搜索員工信息&

92、lt;p>　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　clear()　　If ComboBox1.Text = "員工號" Then<p

93、>　　Dim bc As BindingManagerBase　　Dim strsql As String = "select * from Staff_Information where sno='" & TextBox1.Text & "' "　　Dim ds As New

94、 DataSet　　sqlcon.Open()　　Dim adp As New SqlDataAdapter(strsql, sqlcon)　　sqlcon.Close()　　adp.Fill(ds, "info")<p&

95、gt;　　bc = Me.BindingContext(ds, "info")　　If bc.Count > 0 Then　　TextBox2.Text = ds.Tables("info").Rows(0)(1)　　Dim sex1 As String</p&

96、gt;　　sex1 = ds.Tables("info").Rows(0)(2)　　If sex1 = "男" Then　　RadioButton5.Checked = True　　Else

97、　　RadioButton6.Checked = True　　End If　　MaskedTextBox1.Text = ds.Tables("info").Rows(0)(3)　　TextBox.Text = ds.Tables(&qu

98、ot;info").Rows(0)(4)　　Dim strsql1 As String = "select * from Education_Information where sno='" & TextBox1.Text & "' "　　Dim ds1 As New Da

99、taSet　　sqlcon.Open()　　Dim adp1 As New SqlDataAdapter(strsql1, sqlcon)　　sqlcon.Close()　　adp1.Fill(ds1, "info1")<

100、p>　　TextBox5.Text = ds1.Tables("info1").Rows(0)(1)　　TextBox6.Text = ds1.Tables("info1").Rows(0)(2)　　MaskedTextBox2.Text = ds1.Tables("info1").Row

101、s(0)(3)　　TextBox8.Text = ds1.Tables("info1").Rows(0)(4)　　TextBox9.Text = ds1.Tables("info1").Rows(0)(5)　　Dim strsql2 As String = "se

102、lect * from Marital_Status where sno='" & TextBox1.Text & "' "　　Dim ds2 As New DataSet　　sqlcon.Open()　　Dim adp2 As New SqlData

103、Adapter(strsql2, sqlcon)　　sqlcon.Close()　　adp2.Fill(ds2, "info")　　Dim sex2 As String　　sex2 = ds2.Tables("info").Rows

104、(0)(1)　　If sex2 = "已婚" Then　　RadioButton1.Checked = True　　ElseIf sex2 = "再婚" Then　　RadioButton3.Checked = True</p

105、>　　ElseIf sex2 = "未婚" Then　　RadioButton2.Checked = True　　ElseIf sex2 = "離異" Then　　RadioButton4.Checked = True&l

106、t;p>　　End If　　TextBox10.Text = ds2.Tables("info").Rows(0)(2)　　TextBox11.Text = ds2.Tables("info").Rows(0)(3)　　TextB

107、ox12.Text = ds2.Tables("info").Rows(0)(4)　　Dim strsql3 As String = "select * from Post where sno='" & TextBox1.Text & "' "　　Dim ds3

108、As New DataSet　　sqlcon.Open()　　Dim adp3 As New SqlDataAdapter(strsql3, sqlcon)　　sqlcon.Close()　　adp3.Fill(ds3, "info1")</p&

109、gt;　　TextBox13.Text = ds3.Tables("info1").Rows(0)(1)　　MaskedTextBox3.Text = ds3.Tables("info1").Rows(0)(2)　　TextBox15.Text = ds3.Tables("info1

110、").Rows(0)(3)　　Button2.Enabled = True　　Button3.Enabled = True　　MsgBox("已找到該記錄")　　Else<p

111、>　　MsgBox("你查找的數(shù)據(jù)不存在，——！可能已經(jīng)刪除")　　End If　　Else　　Dim strsql4 As String = "select * from Department whe

112、re dno='" & TextBox1.Text & "' "　　Dim bc As BindingManagerBase　　Dim ds4 As New DataSet　　sqlcon.Open()　　Di

113、m adp4 As New SqlDataAdapter(strsql4, sqlcon)　　sqlcon.Close()　　adp4.Fill(ds4, "info1")　　bc = Me.BindingContext(ds4, "info1")&

114、lt;p>　　If bc.Count > 0 Then　　TextBox17.Text = ds4.Tables("info1").Rows(0)(1)　　TextBox18.Text = ds4.Tables("info1").Rows(0)(2)　　Butt

115、on2.Enabled = True　　Button3.Enabled = True　　MsgBox("已找到該記錄")　　Else　　MsgBox("你查找的數(shù)據(jù)不存在，——！可能已經(jīng)刪除")

116、　　End If　　End If　　End Sub　　Private Sub Button2_Click(sender As Object, e As Eve

117、ntArgs) Handles Button2.Click　　If ComboBox1.Text = "員工號" Then　　If Button2.Text = "確定" Then　　sqlcon.Open()　　Dim Radio

118、Button_checked2 As String = ""　　If RadioButton5.Checked Then　　RadioButton_checked2 = "男"　　Else　　R

119、adioButton_checked2 = "女"　　End If　　Dim strsql1 As String = "update Staff_Information set sname='" & TextBox2.Text & "'

120、,ssex='" & RadioButton_checked2 & "',sbirthday='" & MaskedTextBox1.Text & "',snation='" & TextBox.Text & "'where sno='" & TextBox

121、1.Text & "' "　　Dim sqlcom1 As New SqlCommand(strsql1, sqlcon)　　sqlcom1.ExecuteNonQuery()　　sqlcon.Close()　　sqlcon.Open(

122、)　　Dim strsql2 As String = "update Education_Information set egraduation='" & TextBox5.Text & "',emajor='" & TextBox6.Text & "' ,etime='&q

123、uot; & MaskedTextBox2.Text & "',eschool='" & TextBox8.Text & "',efor_language='" & TextBox9.Text & "'where sno='" & TextBox1.Text & &q

124、uot;'"　　Dim sqlcom2 As New SqlCommand(strsql2, sqlcon)　　sqlcom2.ExecuteNonQuery()　　sqlcon.Close()　　sqlcon.Open()<

125、;p>　　Dim RadioButton_checked As String = ""　　If RadioButton1.Checked Then　　RadioButton_checked = "已婚"　　ElseIf RadioButton2.Checked The

126、n　　RadioButton_checked = "未婚"　　ElseIf RadioButton3.Checked Then　　RadioButton_checked = "再婚"　　ElseIf RadioButton4.Che

127、cked Then　　RadioButton_checked = "離異"　　End If　　Dim strsql3 As String = "update Marital_Status set mcondition='" &a

128、mp; RadioButton_checked & "',mname='" & TextBox10.Text & "' ,mjob='" & TextBox11.Text & "',mcompany='" & TextBox12.Text & "'where

129、 sno='" & TextBox1.Text & "'"　　Dim sqlcom3 As New SqlCommand(strsql3, sqlcon)　　sqlcom3.ExecuteNonQuery()　　sqlcon.Close()</p

130、>　　sqlcon.Open()　　Dim strsql4 As String = "update post set pname='" & TextBox13.Text & "',pexperience='" & MaskedTextBox3.Text & "&#

131、39;,psalary='" & Int(Val(TextBox15.Text)) & "'where sno='" & TextBox1.Text & "' "　　Dim sqlcom4 As New SqlCommand(strsql4, sqlcon)&

132、lt;p>　　sqlcom4.ExecuteNonQuery()　　sqlcon.Close()　　Button2.Text = "修改"　　disabletextbox()　　Button3.Enabled = True

133、　　MsgBox("修改成功！")　　Else　　Button2.Text = "確定"　　Button3.Enabled = False　　enabletextbox()&l

134、t;/p>　　TextBox17.Enabled = False　　TextBox18.Enabled = False　　End If　　Else　　If Button

135、2.Text = "確定" Then　　sqlcon.Open()　　Dim strsql2 As String = "update Department set dmanager='" & TextBox17.Text & "',dname='" &am

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)--人事管理系統(tǒng)數(shù)據(jù)庫

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)--人事管理系統(tǒng)數(shù)據(jù)庫

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載