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

1、精品文檔數(shù)學(xué)與計(jì)算機(jī)學(xué)院數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì)設(shè)計(jì)名稱： 人事管理系統(tǒng)數(shù)據(jù)庫 2021-2021學(xué)年第2學(xué)期歡迎下載精品文檔目錄一、課題概述.2二、需求分析.22.1 系統(tǒng)功能要求設(shè)計(jì).22.2 系統(tǒng)模塊設(shè)計(jì).2三、概念結(jié)構(gòu)設(shè)計(jì)33.1系統(tǒng)流程圖.33.2系統(tǒng)數(shù)據(jù)字典.53.2.1主要的數(shù)據(jù)流定義.5由實(shí)體畫出ER圖51實(shí)體屬性圖.62實(shí)體聯(lián)系圖.83完整的實(shí)體-聯(lián)系圖.9四、數(shù)據(jù)庫邏輯設(shè)計(jì).104.1數(shù)據(jù)表104.2由系統(tǒng)ER圖轉(zhuǎn)化而得到的關(guān)系模式.124.3 確定關(guān)系模型的存取方法.134.4確定數(shù)據(jù)庫的存儲(chǔ)結(jié)構(gòu)13五、數(shù)據(jù)庫實(shí)施程序調(diào)試145.1登陸界面145.2操作界面155.2.1添

2、加員工.155.2.2員工和部門編號(hào)是自動(dòng)生成.165.2.3婚姻情況選擇時(shí)會(huì)提示是否為必填信息.165.2.4添加部門信息.175.3根據(jù)員工號(hào)或者部門號(hào)查詢信息175.3.1根據(jù)員工號(hào)搜索員工信息.175.3.2根據(jù)員工號(hào)直接刪除某個(gè)員工的信息.185.3.3根據(jù)部門號(hào)搜索部門信息.205.3.4根據(jù)部門號(hào)直接刪除某個(gè)部門的信息.21六、總結(jié).22歡迎下載精品文檔一、課題概述隨著計(jì)算機(jī)的開展與普及，以及互聯(lián)網(wǎng)技術(shù)的擴(kuò)展，日常人事管理必將實(shí)現(xiàn)無紙化辦公，并且參加到公司內(nèi)部的Intranet或者是Internet上去，實(shí)現(xiàn)數(shù)據(jù)的共享，這樣有利于人事信息在單位內(nèi)部的查詢，提高了數(shù)據(jù)資源的利用，并

3、且能及時(shí)的得到更新，不需要象過去那樣浪費(fèi)大量的人力物力去進(jìn)行抄寫，提高了工作的效率。計(jì)算機(jī)技術(shù)、網(wǎng)絡(luò)技術(shù)和信息技術(shù)的開展，使辦公系統(tǒng)更趨于系統(tǒng)化、科學(xué)化和網(wǎng)絡(luò)化。網(wǎng)絡(luò)辦公自動(dòng)化系統(tǒng)是計(jì)算機(jī)技術(shù)和網(wǎng)絡(luò)迅速開展的一個(gè)辦公應(yīng)用解決方案，它的主要目的是實(shí)現(xiàn)信息交流和信息共性，提供協(xié)同工作的手段，提高辦公的效率，讓人們從繁瑣的有紙辦公中解脫出來。二、需求分析2.1 系統(tǒng)功能要求設(shè)計(jì)    通過對(duì)現(xiàn)行人事管理系統(tǒng)的調(diào)查，明確了人事管理系統(tǒng)由檔案管理、職務(wù)調(diào)動(dòng)管理、管理組成。 系統(tǒng)功能的主要描述如下：1員工檔案管理 對(duì)公司里所有員工進(jìn)行統(tǒng)一編號(hào)；將每一位員工的信息保存

4、在員工檔案記錄中。2對(duì)新聘用的員工，將其信息參加到員工檔案記錄中；對(duì)于解聘的員工，將其信息從員工檔案記錄中刪除。3當(dāng)員工的信息發(fā)生變動(dòng)時(shí)，修改員工檔案記錄中相應(yīng)的屬性。4員工職務(wù)調(diào)動(dòng)管理對(duì)公司里所有員工的職務(wù)記錄進(jìn)行統(tǒng)一編號(hào)；登記員工調(diào)動(dòng)前后的具體職務(wù)，以及調(diào)動(dòng)時(shí)間。 5部門管理對(duì)公司所有的部門進(jìn)行編號(hào)，建立部門記錄。2.2 系統(tǒng)模塊設(shè)計(jì)（1） 員工根本信息表的添加、刪除、修改、查詢。（2） 員工婚姻情況表的添加、刪除、修改、查詢，反映員工的配偶信息。（3） 員工學(xué)歷信息表的添加、刪除、修改、查詢反映員工的學(xué)歷、專業(yè)、畢業(yè)時(shí)間、學(xué)校、外語情況等。（4） 企業(yè)工作崗位表的添加、刪除、修

5、改、查詢。5企業(yè)部門信息表的添加、刪除、修改、查詢。三、概念結(jié)構(gòu)設(shè)計(jì)3.1根據(jù)以上模塊，可以得到系統(tǒng)流程圖。用戶登陸驗(yàn)證用戶表選擇操作成功不成功添加操作刪除操作修改操作員工信息婚姻狀況學(xué)歷信息工作崗位部門信息驗(yàn)證錄入數(shù)據(jù)庫符合要求不符合要求用戶登錄用戶驗(yàn)證員工信息婚姻狀況學(xué)歷信息工作崗位添加信息修改信息刪除信息添加信息修改信息刪除信息添加信息修改信息刪除信息部門信息添加信息修改信息刪除信息添加信息修改信息刪除信息驗(yàn)證失敗3.2系統(tǒng)數(shù)據(jù)字典數(shù)據(jù)字典通常包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過程5個(gè)局部。人事管理系統(tǒng)數(shù)據(jù)流程圖中，數(shù)據(jù)信息和處理過程還需要通過數(shù)據(jù)字典來描述。在本文的數(shù)據(jù)字典中

6、，主要對(duì)數(shù)據(jù)流圖中的數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過程進(jìn)行說明。 3.2.1，主要的數(shù)據(jù)流定義 數(shù)據(jù)流名稱：員工信息；定義：員工根本信息=員工號(hào)+姓名+出生年月+民族+性別。數(shù)據(jù)流量：根據(jù)公司的員工具體錄用情況來確定。 說明：要對(duì)每一位被聘用的新員工進(jìn)行唯一編號(hào)。     數(shù)據(jù)流名稱：婚姻情況；定義: 婚姻情況= 已婚 | 未婚  +配偶 數(shù)據(jù)流量：根據(jù)公司員工的具體情況來確定。 說明：員工婚姻情況確定一個(gè)調(diào)動(dòng)情況。數(shù)據(jù)流名稱：員工學(xué)歷信息；定

7、義：員工學(xué)歷=員工號(hào)+學(xué)歷+專業(yè)+畢業(yè)時(shí)間+學(xué)校+外語水平。數(shù)據(jù)流量：根據(jù)員工學(xué)歷信息變動(dòng)情況來確定。說明：更新員工學(xué)歷信息。數(shù)據(jù)流名稱：員工工作崗位信息；定義：員工工作崗位=員工編號(hào)+工作崗位名稱+在職時(shí)間+薪水說明：每位員工職位情況數(shù)據(jù)流名稱：部門信息；定義：部門信息=部門號(hào)+部門經(jīng)理+部門名稱+工作崗位名稱說明：部門的詳細(xì)信息3.2.2，由實(shí)體畫出ER圖由需求分析的結(jié)果可知，本系統(tǒng)設(shè)計(jì)的實(shí)體包括：1員工根本根本信息：員工號(hào)，姓名，性別，年齡，出生年月，民族。2婚姻狀況：未婚，已婚，再婚，配偶名字，配偶工作，所屬單位。 3員工學(xué)歷信息：員工號(hào)，學(xué)歷，專業(yè)，畢業(yè)時(shí)間，學(xué)校，外語水平

8、。4員工工作崗位信息：員工號(hào)，工作崗位名稱，在職時(shí)間，薪水。5部門信息表：部門號(hào)，部門經(jīng)理，部門名稱，工作崗位名稱。這些實(shí)體間的聯(lián)系包括：每位學(xué)生可以學(xué)習(xí)多門課程，每門課程可供多位學(xué)生學(xué)習(xí)。由上述分析可得到系統(tǒng)的ER圖：1實(shí)體屬性圖實(shí)體屬性圖：員工信息出生年月性別姓名員工號(hào)名族員工實(shí)體屬性圖：婚姻情況配偶工作配偶姓名婚姻情況配偶單位婚姻狀況實(shí)體屬性圖：員工學(xué)歷外語水平畢業(yè)學(xué)校畢業(yè)時(shí)間專業(yè)學(xué)歷員工號(hào)員工學(xué)歷實(shí)體屬性圖：工作崗位信息薪水在職時(shí)間員工號(hào)工作崗位工作崗位信息實(shí)體屬性圖：部門信息工作崗位名稱部門名稱部門經(jīng)理部門號(hào)部門信息2實(shí)體聯(lián)系圖：3完整的實(shí)體-聯(lián)系圖四，數(shù)據(jù)庫邏輯設(shè)計(jì)4.1數(shù)據(jù)表表S

9、taff_Information員工根本信息表FieldTypeNullKeyCommentSnovarchar(10)-Primary key員工號(hào)Snamevarchar20NOT-姓名Sbirthdayvarchar20NOT-出生年月Snationvarchar20NOT-民族Ssexvarchar(4)NOT性別 表Marital_StatusFieldTypeNullKeyCommentSnovarchar10-Foreign Key員工編號(hào)Mconditionvarchar(8)-check婚姻情況Mnamevarchar20-配偶名字Mjobvarchar20-配偶工作Mcom

10、panyvarchar50-所屬單位表Education_InformationFieldTypeNullKeyCommentSnovarchar10-Foreign Key員工編號(hào)Egraduationvarchar(50)-學(xué)歷Emajorvachar(50)-專業(yè)Etimevachar(20)-畢業(yè)時(shí)間Eschoolvarchar50-學(xué)校Efor_languagevarchar20-外語水平表PostFieldTypeNullKeyCommentSnovarchar(20)-Foreign Key員工號(hào)Pnamevarchar20NOT-工作崗位名稱Pexperienceint-在職時(shí)

11、間Psalaryint-薪水表DepartmentFieldTypeNullKeyCommentDnovarchar10-Primary Key部門號(hào)Dmanagervarchar10NOT-部門經(jīng)理Dnamevarchar20NOT-部門名稱4.2由系統(tǒng)ER圖轉(zhuǎn)化而得到的關(guān)系模式如下：（1） 員工根本信息員工號(hào)，姓名，性別，出生年月，民族，其主關(guān)鍵字為員 工號(hào);（2） 婚姻狀況員工號(hào)，未婚，已婚，再婚，配偶名字，配偶工作，所屬單位， 其中未婚，已婚，再婚做check約束，員工號(hào)為外鍵；（3） 學(xué)歷信息員工號(hào)，學(xué)歷，專業(yè)，畢業(yè)時(shí)間，學(xué)校，外語水平，其中外鍵 為員工號(hào)。（4） 工作崗位信息員工號(hào)

12、，工作崗位名稱，在職時(shí)間，薪水，其中外鍵為員 工號(hào)。 5部門信息部門號(hào)，部門經(jīng)理，部門名稱，工作崗位名稱，其中部門號(hào)為 主鍵，工作崗位名稱為外鍵。4.3 確定關(guān)系模型的存取方法在將概念模型轉(zhuǎn)換成物理模型之后，我們可以對(duì)物理模型進(jìn)行設(shè)計(jì)，雙擊物理模型的關(guān)系，可以對(duì)該關(guān)系的名稱、注釋等信息進(jìn)行查詢?？蓪?duì)該關(guān)系的屬性列進(jìn)行設(shè)計(jì)，可分別設(shè)置其名稱、碼、數(shù)據(jù)類型以及主碼、是否為空等。在實(shí)際設(shè)計(jì)中最常用的存取方法是索引發(fā)，使用索引可以大大減少數(shù)據(jù)的查詢時(shí)間，在建立索引時(shí)應(yīng)遵循：在經(jīng)常需要搜索的列上建立索引；  在主關(guān)鍵字上建立索引；在經(jīng)常用于連接的列上建立索引，即在外鍵上建立索引；在經(jīng)常需要根據(jù)

13、范圍進(jìn)行搜索的列上創(chuàng)立索引，因?yàn)樗饕呀?jīng)排序，其指定的范圍是連續(xù)的等規(guī)那么。才能充分利用索引的作用防止因索引引起的負(fù)面作用。4.4確定數(shù)據(jù)庫的存儲(chǔ)結(jié)構(gòu) 確定數(shù)據(jù)庫的存儲(chǔ)結(jié)構(gòu)主要指確定數(shù)據(jù)的存放位置和存儲(chǔ)結(jié)構(gòu)，包括確定關(guān)系、索引、日志、備份等的存儲(chǔ)安排及存儲(chǔ)結(jié)構(gòu)，以及確定系統(tǒng)存儲(chǔ)參數(shù)的配置。（1） 創(chuàng)立數(shù)據(jù)庫create database HR2創(chuàng)立員工信息表 create table Staff_Information (Sno varchar(10) primary key, Sname varchar(20) not null, Ssex varchar(4) check(Ssex in

14、('男','女'), Sbirthday varchar(20) not null, Snation varchar(20) not null);3創(chuàng)立婚姻情況表 create table Marital_Status ( Sno varchar(10), Mcondition varchar(8) check( Mcondition ='未婚' or Mcondition ='已婚' or Mcondition ='離異' or Mcondition ='再婚' ), Mname varchar(

15、20) , Mjob varchar(20) , Mcompany varchar(50), foreign key (Sno) references Staff_Information(Sno); 4創(chuàng)立學(xué)歷信息表 create table Education_Information ( Sno varchar(10), Egraduation varchar(50), Emajor varchar(50) , Etime varchar(20) , Eschool varchar(50) , Efor_language varchar(20) , foreign key (Sno) ref

16、erences Staff_Information(Sno)5創(chuàng)立工作崗位信息表 create table Post ( Sno varchar(10), Pname varchar(20) not null, Pexperience int , Psalary int , foreign key (Sno) references Staff_Information(Sno); 6創(chuàng)立部門信息表 create table Department ( Dno varchar(10) primary key, Dmanager varchar(10) not null, Dname varchar(

17、20) not null);五、 數(shù)據(jù)庫實(shí)施程序的調(diào)試，代碼詳見附件 5.1登陸界面 5.2操作界面5.2添加員工和部門5.2.1添加員工5.2.2員工和部門編號(hào)是自動(dòng)生成5.2.3婚姻情況選擇時(shí)會(huì)提示是否為必填信息5.2.4添加部門信息5.3根據(jù)員工號(hào)或者部門號(hào)查詢信息5.3.1根據(jù)員工號(hào)搜索員工信息5.3.2根據(jù)員工號(hào)直接刪除某個(gè)員工的信息5.3.3根據(jù)部門號(hào)搜索部門信息5.3.4根據(jù)部門號(hào)直接刪除某個(gè)部門的信息六、 總結(jié) 經(jīng)過三周的課程設(shè)計(jì)，我們不僅收獲了知識(shí)，更鍛煉了團(tuán)隊(duì)合作的能力。這是我們第一次分組合作完成一個(gè)工程。從選題到最后完成課程設(shè)計(jì)，我們?nèi)齻€(gè)配合特別默契。在第一節(jié)課確定題目，

18、然后一起完成需求分析，需求分析是整個(gè)設(shè)計(jì)的根底，對(duì)于最耗時(shí)最困難的一步，我們選擇一起完成，效率很高。然后分配工作，在課后單獨(dú)完成應(yīng)該完成的那局部任務(wù)，各自做自己擅長的那局部。在這個(gè)過程中我們也協(xié)作著完成任務(wù)，三個(gè)人的節(jié)奏是一樣的。在知識(shí)上我們更多的是學(xué)以致用。我們才學(xué)習(xí)了范式，在制表的時(shí)候，我們有嘗試去把表做成最優(yōu)范式。但是由于練習(xí)得太少，對(duì)于我們所做的表，也不肯定到達(dá)了最優(yōu)范式。在理論上我們能理解，運(yùn)用在實(shí)際中還是存在問題。我們的課程設(shè)計(jì)功能還不完整，有很多地方還需要完善，也有還存在問題的地方。附件程序代碼：5.1登陸界面 Private Sub Button1_Click(sender A

19、s Object, e As EventArgs) Handles Button1.Click If Trim(TextBox3.Text) = Trim(con) Then Dim strconn As String = "data source=localhost;initial catalog=hr; integrated security=true" Dim sqlcon As New SqlConnection(strconn) Dim strsql As String = "select RTRIM(密碼) from ad_load where 登錄名

20、='" & TextBox1.Text & "' " Dim ds As New DataSet Dim tb As DataTable Dim drcon As DataRowCollection Dim drow As DataRow sqlcon.Open() Dim adp As New SqlDataAdapter(strsql, sqlcon) sqlcon.Close() adp.Fill(ds, "mima") tb = ds.Tables("mima") If tb.Rows

21、.Count = 0 Then MsgBox("你的密碼或登錄名錯(cuò)誤！?") Else drcon = tb.Rows drow = drcon(0) If TextBox2.Text = drow(0) Then 員工信息管理.Show() Me.Hide() Else MsgBox("密碼或者登錄名錯(cuò)誤！") End If End If Else MsgBox("請(qǐng)輸入正確的驗(yàn)證碼") End If yzm() TextBox3.Text = "" End Sub5.2操作界面Public Class 員工信息

22、管理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Hide() 添加.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Hide() 查看或更改.Show() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button

23、3.Click Dim 登錄 As New 登錄 登錄.Show() Me.Close() End SubEnd Class5.2.1添加員工 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ds As New DataSet Dim bc As BindingManagerBase Dim RadioButton_checked As String = "" Dim RadioButton_checked2 As String = "&qu

24、ot; Dim strEI As String = "insert into Education_Information(sno,egraduation,emajor,etime,eschool,efor_language)values('" & TextBox1.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & MaskedTe

25、xtBox2.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')" Dim sqlcomEI As New SqlCommand(strEI, sqlcon) Dim strP As String = "insert into Post(sno,pname,pexperience,psalary)values('" & TextBox1.Text &

26、; "','" & TextBox13.Text & "','" & MaskedTextBox3.Text & "','" & Int(Val(TextBox15.Text) & "')" Dim sqlcomP As New SqlCommand(strP, sqlcon) If Button1.Text = "確定" Then yanz() If a = 0 Then sqlcon.Op

27、en() If RadioButton5.Checked Then RadioButton_checked2 = "男" Else RadioButton_checked2 = "女" End If Dim strST As String = "insert into Staff_Information(sno,sname,ssex,sbirthday,snation) values('" & TextBox1.Text & "','" & TextBox2.Text

28、 & "','" & RadioButton_checked2 & "','" & MaskedTextBox1.Text & "','" & TextBox.Text & "')" Dim sqlcomST As New SqlCommand(strST, sqlcon) sqlcomST.ExecuteNonQuery() sqlcon.Close() sqlcon.Open() sqlcomEI.E

29、xecuteNonQuery() sqlcon.Close() sqlcon.Open() If RadioButton1.Checked Then RadioButton_checked = "已婚" ElseIf RadioButton2.Checked Then RadioButton_checked = "未婚" ElseIf RadioButton3.Checked Then RadioButton_checked = "再婚" ElseIf RadioButton4.Checked Then RadioButton_che

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

31、 TextBox11.Text & "','" & TextBox12.Text & "')" Dim sqlcomMS As New SqlCommand(strMS, sqlcon) sqlcomMS.ExecuteNonQuery() sqlcon.Close() sqlcon.Open() sqlcomP.ExecuteNonQuery() sqlcon.Close() MsgBox("信息添加成功！") Button2.Enabled = True Button1.Text =

32、 "添加員工信息" Rload() Else MsgBox("信息尚未完善，可以點(diǎn)擊*號(hào)獲取幫助！") TX.Text = "請(qǐng)完善*號(hào)的" + a.ToString + "條信息" a = 0 End If Else sqlcon.Close() Dim strS As String = "select * from Staff_Information" sqlcon.Open() Dim adp As New SqlDataAdapter(strS, sqlcon) sqlcon.Close

33、() adp.Fill(ds, "info") bc = Me.BindingContext(ds, "info") Dim a3 As Integer a3 = ds.Tables("info").Rows.Count - 1 If ds.Tables("info").Rows.Count = 0 Then TextBox1.Text = "1" Else TextBox1.Text = ds.Tables("info").Rows(a3)(0) + 1 End If Te

34、xtBox2.Text = "" MaskedTextBox1.Text = "" : TextBox.Text = "" TextBox5.Text = "" : TextBox6.Text = "" MaskedTextBox2.Text = "" : TextBox8.Text = "" TextBox9.Text = "" : TextBox10.Text = "" TextBox11.Text = &quo

35、t;" : TextBox12.Text = "" TextBox13.Text = "" : MaskedTextBox3.Text = "" TextBox15.Text = "" Button1.Text = "確定" Button2.Enabled = False enabletextbox() disabletextbox2() TextBox1.Enabled = False End If End Sub5.2.4添加部門信息 Private Sub Button2_Cli

36、ck(sender As Object, e As EventArgs) Handles Button2.Click Dim strD As String = "insert into Department(dno,dmanager,dname)values('" & TextBox16.Text & "','" & TextBox17.Text & "','" & TextBox18.Text & "')" Dim s

37、qlcomD As New SqlCommand(strD, sqlcon) If Button2.Text = "確定" Then yanz2() If a = 0 Then sqlcon.Open() sqlcomD.ExecuteNonQuery() sqlcon.Close() MsgBox("添加成功！") Button2.Text = "添加部門信息" Button1.Enabled = True disabletextbox2() Rload1() Else MsgBox("信息尚未完善，可以點(diǎn)擊*號(hào)獲取幫助！

38、") TX.Text = "請(qǐng)完善*號(hào)的" + a.ToString + "條信息" a = 0 End If Else Rload1() jisuan() TextBox17.Text = "" : TextBox18.Text = "" disabletextbox() enabletextbox2() TextBox16.Enabled = False Button1.Enabled = False Button2.Text = "確定" End If End Sub5.3.1根

39、據(jù)員工號(hào)搜索員工信息 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click clear() If ComboBox1.Text = "員工號(hào)" Then Dim bc As BindingManagerBase Dim strsql As String = "select * from Staff_Information where sno='" & TextBox1.Text & "' " D

40、im ds As New DataSet sqlcon.Open() Dim adp As New SqlDataAdapter(strsql, sqlcon) sqlcon.Close() adp.Fill(ds, "info") bc = Me.BindingContext(ds, "info") If bc.Count > 0 Then TextBox2.Text = ds.Tables("info").Rows(0)(1) Dim sex1 As String sex1 = ds.Tables("info&qu

41、ot;).Rows(0)(2) If sex1 = "男" Then RadioButton5.Checked = True Else RadioButton6.Checked = True End If MaskedTextBox1.Text = ds.Tables("info").Rows(0)(3) TextBox.Text = ds.Tables("info").Rows(0)(4) Dim strsql1 As String = "select * from Education_Information where

42、sno='" & TextBox1.Text & "' " Dim ds1 As New DataSet sqlcon.Open() Dim adp1 As New SqlDataAdapter(strsql1, sqlcon) sqlcon.Close() adp1.Fill(ds1, "info1") TextBox5.Text = ds1.Tables("info1").Rows(0)(1) TextBox6.Text = ds1.Tables("info1").Ro

43、ws(0)(2) MaskedTextBox2.Text = ds1.Tables("info1").Rows(0)(3) TextBox8.Text = ds1.Tables("info1").Rows(0)(4) TextBox9.Text = ds1.Tables("info1").Rows(0)(5) Dim strsql2 As String = "select * from Marital_Status where sno='" & TextBox1.Text & "&

44、#39; " Dim ds2 As New DataSet sqlcon.Open() Dim adp2 As New SqlDataAdapter(strsql2, sqlcon) sqlcon.Close() adp2.Fill(ds2, "info") Dim sex2 As String sex2 = ds2.Tables("info").Rows(0)(1) If sex2 = "已婚" Then RadioButton1.Checked = True ElseIf sex2 = "再婚" Th

45、en RadioButton3.Checked = True ElseIf sex2 = "未婚" Then RadioButton2.Checked = True ElseIf sex2 = "離異" Then RadioButton4.Checked = True End If TextBox10.Text = ds2.Tables("info").Rows(0)(2) TextBox11.Text = ds2.Tables("info").Rows(0)(3) TextBox12.Text = ds2.Tab

46、les("info").Rows(0)(4) Dim strsql3 As String = "select * from Post where sno='" & TextBox1.Text & "' " Dim ds3 As New DataSet sqlcon.Open() Dim adp3 As New SqlDataAdapter(strsql3, sqlcon) sqlcon.Close() adp3.Fill(ds3, "info1") TextBox13.Text =

47、ds3.Tables("info1").Rows(0)(1) MaskedTextBox3.Text = ds3.Tables("info1").Rows(0)(2) TextBox15.Text = ds3.Tables("info1").Rows(0)(3) Button2.Enabled = True Button3.Enabled = True MsgBox("已找到該記錄") Else MsgBox("你查找的數(shù)據(jù)不存在，！可能已經(jīng)刪除") End If Else Dim strsql

48、4 As String = "select * from Department where dno='" & TextBox1.Text & "' " Dim bc As BindingManagerBase Dim ds4 As New DataSet sqlcon.Open() Dim adp4 As New SqlDataAdapter(strsql4, sqlcon) sqlcon.Close() adp4.Fill(ds4, "info1") bc = Me.BindingContext(ds4, "info1") If bc.Count > 0 Then TextBox17.Text = ds4.Tables("info1").Rows(0)(1) TextBox1