Word版可編輯-數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)精心整理.doc

數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì)數(shù)學(xué)與計(jì)算機(jī)學(xué)院數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì)設(shè)計(jì)名稱： 人事管理系統(tǒng)數(shù)據(jù)庫 專業(yè)班級： 軟件1班 學(xué)生姓名： 費(fèi)楊媛、童金林、瞿浩 設(shè)計(jì)時(shí)間： 2014-5-20 至 2014-6-20 2013-2014學(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ù)流定義.53.2.2由實(shí)體畫出ER圖5（1）實(shí)體屬性圖.6（2）實(shí)體聯(lián)系圖.8（3）完整的實(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ù)庫的存儲結(jié)構(gòu)13五、數(shù)據(jù)庫實(shí)施（程序調(diào)試）145.1登陸界面145.2操作界面155.2.1添加員工.155.2.2員工和部門編號是自動生成.165.2.3婚姻情況選擇時(shí)會提示是否為必填信息.165.2.4添加部門信息.175.3根據(jù)員工號或者部門號查詢信息175.3.1根據(jù)員工號搜索員工信息.175.3.2根據(jù)員工號直接刪除某個(gè)員工的信息.185.3.3根據(jù)部門號搜索部門信息.205.3.4根據(jù)部門號直接刪除某個(gè)部門的信息.21六、總結(jié).22第1頁共33頁一、課題概述隨著計(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ù)資源的利用，并且能及時(shí)的得到更新，不需要象過去那樣浪費(fèi)大量的人力物力去進(jìn)行抄寫，提高了工作的效率。計(jì)算機(jī)技術(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ā)展的一個(gè)辦公應(yīng)用解決方案，它的主要目的是實(shí)現(xiàn)信息交流和信息共性，提供協(xié)同工作的手段，提高辦公的效率，讓人們從繁瑣的有紙辦公中解脫出來。二、需求分析2.1 系統(tǒng)功能要求設(shè)計(jì) 通過對現(xiàn)行人事管理系統(tǒng)的調(diào)查，明確了人事管理系統(tǒng)由檔案管理、職務(wù)調(diào)動管理、管理組成。系統(tǒng)功能的主要描述如下：（1）員工檔案管理 對公司里所有員工進(jìn)行統(tǒng)一編號；將每一位員工的信息保存在員工檔案記錄中。（2）對新聘用的員工，將其信息加入到員工檔案記錄中；對于解聘的員工，將其信息從員工檔案記錄中刪除。（3）當(dāng)員工的信息發(fā)生變動時(shí)，修改員工檔案記錄中相應(yīng)的屬性。（4）員工職務(wù)調(diào)動管理對公司里所有員工的職務(wù)記錄進(jìn)行統(tǒng)一編號；登記員工調(diào)動前后的具體職務(wù)，以及調(diào)動時(shí)間。（5）部門管理對公司所有的部門進(jìn)行編號，建立部門記錄。2.2 系統(tǒng)模塊設(shè)計(jì)（1） 員工基本信息表的添加、刪除、修改、查詢。（2） 員工婚姻情況表的添加、刪除、修改、查詢，反映員工的配偶信息。（3） 員工學(xué)歷信息表的添加、刪除、修改、查詢反映員工的學(xué)歷、專業(yè)、畢業(yè)時(shí)間、學(xué)校、外語情況等。（4） 企業(yè)工作崗位表的添加、刪除、修改、查詢。（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ù)存儲和處理過程5個(gè)部分。人事管理系統(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ù)流名稱：員工信息；定義：員工基本信息=員工號+姓名+出生年月+民族+性別。數(shù)據(jù)流量：根據(jù)公司的員工具體錄用情況來確定。說明：要對每一位被聘用的新員工進(jìn)行唯一編號。數(shù)據(jù)流名稱：婚姻情況；定義:婚姻情況=已婚|未婚+配偶數(shù)據(jù)流量：根據(jù)公司員工的具體情況來確定。說明：員工婚姻情況確定一個(gè)調(diào)動情況。數(shù)據(jù)流名稱：員工學(xué)歷信息；定義：員工學(xué)歷=員工號+學(xué)歷+專業(yè)+畢業(yè)時(shí)間+學(xué)校+外語水平。數(shù)據(jù)流量：根據(jù)員工學(xué)歷信息變動情況來確定。說明：更新員工學(xué)歷信息。數(shù)據(jù)流名稱：員工工作崗位信息；定義：員工工作崗位=員工編號+工作崗位名稱+在職時(shí)間+薪水說明：每位員工職位情況數(shù)據(jù)流名稱：部門信息；定義：部門信息=部門號+部門經(jīng)理+部門名稱+工作崗位名稱說明：部門的詳細(xì)信息3.2.2，由實(shí)體畫出ER圖由需求分析的結(jié)果可知，本系統(tǒng)設(shè)計(jì)的實(shí)體包括：（1）員工基本基本信息：員工號，姓名，性別，年齡，出生年月，民族。（2）婚姻狀況：未婚，已婚，再婚，配偶名字，配偶工作，所屬單位。（3）員工學(xué)歷信息：員工號，學(xué)歷，專業(yè)，畢業(yè)時(shí)間，學(xué)校，外語水平。（4）員工工作崗位信息：員工號，工作崗位名稱，在職時(shí)間，薪水。（5）部門信息表：部門號，部門經(jīng)理，部門名稱，工作崗位名稱。這些實(shí)體間的聯(lián)系包括：每位學(xué)生可以學(xué)習(xí)多門課程，每門課程可供多位學(xué)生學(xué)習(xí)。由上述分析可得到系統(tǒng)的ER圖：（1）實(shí)體屬性圖實(shí)體屬性圖：員工信息出生年月性別姓名員工號名族員工實(shí)體屬性圖：婚姻情況配偶工作配偶姓名婚姻情況配偶單位婚姻狀況實(shí)體屬性圖：員工學(xué)歷外語水平畢業(yè)學(xué)校畢業(yè)時(shí)間專業(yè)學(xué)歷員工號員工學(xué)歷實(shí)體屬性圖：工作崗位信息薪水在職時(shí)間員工號工作崗位工作崗位信息實(shí)體屬性圖：部門信息工作崗位名稱部門名稱部門經(jīng)理部門號部門信息（2）實(shí)體聯(lián)系圖：（3）完整的實(shí)體-聯(lián)系圖四，數(shù)據(jù)庫邏輯設(shè)計(jì)4.1數(shù)據(jù)表表Staff_Information（員工基本信息表）FieldTypeNullKeyCommentSnovarchar(10)-Primary key員工號Snamevarchar（20）NOT-姓名Sbirthdayvarchar（20）NOT-出生年月Snationvarchar（20）NOT-民族Ssexvarchar(4)NOT性別 表Marital_StatusFieldTypeNullKeyCommentSnovarchar（10）-Foreign Key員工編號Mconditionvarchar(8)-check婚姻情況Mnamevarchar（20）-配偶名字Mjobvarchar（20）-配偶工作Mcompanyvarchar（50）-所屬單位表Education_InformationFieldTypeNullKeyCommentSnovarchar（10）-Foreign Key員工編號Egraduationvarchar(50)-學(xué)歷Emajorvachar(50)-專業(yè)Etimevachar(20)-畢業(yè)時(shí)間Eschoolvarchar（50）-學(xué)校Efor_languagevarchar（20）-外語水平表PostFieldTypeNullKeyCommentSnovarchar(20)-Foreign Key員工號Pnamevarchar（20）NOT-工作崗位名稱Pexperienceint-在職時(shí)間Psalaryint-薪水表DepartmentFieldTypeNullKeyCommentDnovarchar（10）-Primary Key部門號Dmanagervarchar（10）NOT-部門經(jīng)理Dnamevarchar（20）NOT-部門名稱4.2由系統(tǒng)ER圖轉(zhuǎn)化而得到的關(guān)系模式如下：（1） 員工基本信息（員工號，姓名，性別，出生年月，民族），其主關(guān)鍵字為員 工號;（2） 婚姻狀況（員工號，未婚，已婚，再婚，配偶名字，配偶工作，所屬單位）， 其中未婚，已婚，再婚做check約束，員工號為外鍵；（3） 學(xué)歷信息（員工號，學(xué)歷，專業(yè)，畢業(yè)時(shí)間，學(xué)校，外語水平），其中外鍵 為員工號。（4） 工作崗位信息（員工號，工作崗位名稱，在職時(shí)間，薪水），其中外鍵為員 工號。 （5）部門信息（部門號，部門經(jīng)理，部門名稱，工作崗位名稱），其中部門號為 主鍵，工作崗位名稱為外鍵。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ù)的查詢時(shí)間，在建立索引時(shí)應(yīng)遵循：在經(jīng)常需要搜索的列上建立索引； 在主關(guān)鍵字上建立索引；在經(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ù)的配置。（1） 創(chuàng)建數(shù)據(jù)庫create database HR（2）創(chuàng)建員工信息表 create table Staff_Information (Sno varchar(10) primary key, Sname varchar(20) not null, Ssex varchar(4) check(Ssex in (男,女), 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(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) references 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(20) not null);五、 數(shù)據(jù)庫實(shí)施（程序的調(diào)試，代碼詳見附件） 5.1登陸界面 5.2操作界面5.2添加員工和部門5.2.1添加員工5.2.2員工和部門編號是自動生成5.2.3婚姻情況選擇時(shí)會提示是否為必填信息5.2.4添加部門信息5.3根據(jù)員工號或者部門號查詢信息5.3.1根據(jù)員工號搜索員工信息5.3.2根據(jù)員工號直接刪除某個(gè)員工的信息5.3.3根據(jù)部門號搜索部門信息5.3.4根據(jù)部門號直接刪除某個(gè)部門的信息六、 總結(jié) 經(jīng)過三周的課程設(shè)計(jì)，我們不僅收獲了知識，更鍛煉了團(tuán)隊(duì)合作的能力。這是我們第一次分組合作完成一個(gè)項(xiàng)目。從選題到最后完成課程設(shè)計(jì)，我們?nèi)齻€(gè)配合特別默契。在第一節(jié)課確定題目，然后一起完成需求分析，需求分析是整個(gè)設(shè)計(jì)的基礎(chǔ)，對于最耗時(shí)最困難的一步，我們選擇一起完成，效率很高。然后分配工作，在課后獨(dú)自完成應(yīng)該完成的那部分任務(wù)，各自做自己擅長的那部分。在這個(gè)過程中我們也協(xié)作著完成任務(wù)，三個(gè)人的節(jié)奏是一樣的。在知識上我們更多的是學(xué)以致用。我們才學(xué)習(xí)了范式，在制表的時(shí)候，我們有嘗試去把表做成最優(yōu)范式。但是由于練習(xí)得太少，對于我們所做的表，也不肯定達(dá)到了最優(yōu)范式。在理論上我們能理解，運(yùn)用在實(shí)際中還是存在問題。我們的課程設(shè)計(jì)功能還不完整，有很多地方還需要完善，也有還存在問題的地方。附件（程序代碼）：5.1登陸界面 Private Sub Button1_Click(sender As 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 登錄名= & 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.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(請輸入正確的驗(yàn)證碼) End If yzm() TextBox3.Text = End Sub5.2操作界面Public Class 員工信息管理 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 Button3.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 = Dim strEI As String = insert into Education_Information(sno,egraduation,emajor,etime,eschool,efor_language)values( & TextBox1.Text & , & TextBox5.Text & , & TextBox6.Text & , & MaskedTextBox2.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 & , & 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.Open() 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 & , & RadioButton_checked2 & , & MaskedTextBox1.Text & , & TextBox.Text & ) Dim sqlcomST As New SqlCommand(strST, sqlcon) sqlcomST.ExecuteNonQuery() sqlcon.Close() sqlcon.Open() sqlcomEI.ExecuteNonQuery() 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_checked = 離異 End If Dim strMS As String = insert into Marital_Status(sno,Mcondition,mname,mjob,mcompany)values( & TextBox1.Text & , & RadioButton_checked & , & TextBox10.Text & , & 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 = 添加員工信息 Rload() Else MsgBox(信息尚未完善，可以點(diǎn)擊*號獲取幫助！) TX.Text = 請完善*號的 + 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() 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 TextBox2.Text = MaskedTextBox1.Text = : TextBox.Text = TextBox5.Text = : TextBox6.Text = MaskedTextBox2.Text = : TextBox8.Text = TextBox9.Text = : TextBox10.Text = TextBox11.Text = : 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_Click(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 sqlcomD 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)擊*號獲取幫助！) TX.Text = 請完善*號的 + 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根據(jù)員工號搜索員工信息 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click clear() If ComboBox1.Text = 員工號 Then Dim bc As BindingManagerBase Dim strsql As String = select * from Staff_Information where sno= & TextBox1.Text & Dim 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).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 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).Rows(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 & 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 = 再婚 Then 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.Tables(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 = 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 strsql4 As String = select * from Department where dno= &