數(shù)據(jù)庫應(yīng)用系統(tǒng)設(shè)計案例

1、第11章數(shù)據(jù)庫應(yīng)用系統(tǒng)設(shè)計案例,,11.1 圖書館管理系統(tǒng)的設(shè)計,本例以圖書館管理系統(tǒng)為例說明如何開發(fā)數(shù)據(jù)庫應(yīng)用程序。,11.1.1 需求分析,圖書館是這樣的部門，館中收藏大量圖書供讀者借閱，其中圖書可分成不同的類別，如自然科學(xué)類，社會科學(xué)類等；借閱者可分為老師和學(xué)生。不同的借閱者最多可借的書的數(shù)量和期限不同，如教師最多可借10本，期限為3個月，學(xué)生最多可借2本，期限為1個月，無論老師和學(xué)生借閱超期還要進(jìn)行罰款處理。,11.1.2 概念

2、結(jié)構(gòu)設(shè)計,,,,,11.1.3 邏輯結(jié)構(gòu)設(shè)計,讀者（借書證號，讀者姓名，性別，讀者類別，是否有超期）圖書（條形碼號，圖書編號，書名，作者，出版社，出版日期，書的類別，借閱狀態(tài)，借閱次數(shù))借閱（借書證號，條形碼號，借出日期，歸還日期）罰款（借書證號，條形碼號，處罰日期，超期天數(shù)，罰款金額)另外，為了保證系統(tǒng)的安全性，采用了登錄的措施，用戶名和密碼存放在密碼表中。密碼表（用戶名，密碼）,11.1.4 規(guī)范化分析,除[罰款]關(guān)系外

3、，其它4個關(guān)系模式中主碼是本模式的唯一決定因素，所以這4個關(guān)系模式都屬于BCNF .但是在[罰款]關(guān)系中，罰款金額=日罰款額×超期天數(shù)，所以 超期天數(shù)→罰款金額，而 超期天數(shù)→(借書證號，條形碼號，處罰日期)，所以(借書證號，條形碼號，處罰日期) → 罰款金額，存在傳遞函數(shù)依賴，所以[罰款]關(guān)系屬于2NF，存在冗余現(xiàn)象。讀者往往既關(guān)心超期天數(shù)，又關(guān)心罰款金額，所以“罰款金額”是必要的冗余。,11.1.5 在SQL Serv

4、er 2000 中創(chuàng)建數(shù)據(jù)庫,圖書表的結(jié)構(gòu),讀者表的結(jié)構(gòu),借閱表的結(jié)構(gòu),罰款表的結(jié)構(gòu),密碼表的結(jié)構(gòu),11.1.6 用VB6.0 開發(fā)應(yīng)用程序,1．圖書館管理系統(tǒng)的功能,2．配置數(shù)據(jù)源用前面介紹的方法，利用ODBC數(shù)據(jù)源管理器配置一個連接到“圖書館”數(shù)據(jù)庫的數(shù)據(jù)源，名為“圖書管理”，,1）設(shè)計MDI主窗體。,3．設(shè)計各個窗體,,其中菜單的結(jié)構(gòu)如下表所示,2）設(shè)計登錄窗體,,Dim miCount As Integer'用于記錄輸

5、入密碼次數(shù)Dim str As Stringstr = "select 密碼 from 密碼表 where 用戶名='" & Text1.Text & "'"Adodc1.RecordSource = strAdodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox "用戶名錯誤，請重新輸入&

6、quot;, vbExlamation, "警告"Text1.Text = ""Text1.SetFocusElse If Adodc1.Recordset.Fields("密碼") = Text2.Text Then MDIForm1.Show Unload Me Else MsgBox "密碼錯誤，請重新輸入", vbExlamat

7、ion, "警告" Text2.Text = "" Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount >= 3 Then Unload Me,3）設(shè)計讀者管理窗體,（1）設(shè)計界面,Private Sub Form_Load()CmdFirst.Enabled = FalseCmdPre.Enabled =

8、 FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdCancel.Enabled = FalseEnd Sub,Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled =

9、 FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdCancel.Enabled = TrueEnd SubPrivate Sub CmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdCancel.Enabled =

10、 FalseEnd Sub,Private Sub CmdDel_Click()x = MsgBox("確實要刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Reco

11、rdset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd Sub,Private Sub CmdCancel_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdCancel.Enabled = FalseEnd Sub,Private Sub CmdF

12、irst_Click()Adodc1.Recordset.MoveFirstCmdFirst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePreviousCmdNext.Enabled = Tr

13、ueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End IfEnd Sub,Private Sub CmdNext_Click()Adodc1.Recordset.MoveNextCmdFirst.

14、Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast CmdLast.Enabled = False CmdNext.Enabled = False End IfEnd SubPrivate Sub CmdLast_Click()Adodc1.Recordset.MoveL

15、astCmdFirst.Enabled = TrueCmdPre.Enabled = TrueCmdNext.Enabled = FalseCmdLast.Enabled = FalseEnd Sub,4）設(shè)計讀者查詢窗體,（1）設(shè)計界面,其中Adodc1連接到讀者表，在“記錄源”選項卡中，選擇命令類型。1-adCmdText，在“命令文本”文本框中輸入SQL語句select * from 讀者表。（2）編寫代碼Priva

16、te Sub Form_Load() '窗體裝載代碼Combo1.AddItem "借書證號"Combo1.AddItem "讀者姓名"Combo1.AddItem "是否有超期"Combo1.Text = "借書證號"Text1.Text = ""End Sub,Private Sub Command1_Click

17、() ' “查詢”按鈕代碼Dim str As Stringstr = "select * from 讀者表 where 讀者表." & Combo1.Text & " like '" & Text1.Text & "%'“Adodc1.RecordSource = strAdodc1.RefreshEnd Sub&#

18、39; “返回”按鈕代碼Private Sub Command2_Click()Unload MeEnd Sub,5）設(shè)計圖書管理窗體、圖書查詢窗體圖書管理與查詢窗體與讀者管理與查詢窗體功能類似。不再贅述6）設(shè)計借閱管理窗體（1）設(shè)計界面,借書時需輸入讀者的借書證號及書的條形碼號，然后單擊“借書”按鈕，實現(xiàn)借書功能；還書時單擊“還書”按鈕，實現(xiàn)還書功能。借書時首先看讀者是否有超期書，如果有則不允許再借書，然后根據(jù)讀者是學(xué)生

19、還是教師，判斷所借書數(shù)是否達(dá)到最多，如果已達(dá)到最多，給出提示：“借書數(shù)量達(dá)到最多，不能再借！”，兩個條件都允許，則可以借書，借書時先在圖書表中根據(jù)條形碼號寫入該書的借閱狀態(tài)值為“借出”，同時將“借閱次數(shù)”加1，然后在借閱表中添加借閱記錄。單擊“還書”銨鈕，先還書，再判斷是否超期。還書時，在借閱表中寫上“歸還日期”，同時在圖書表中把該書的“借閱狀態(tài)”值改為“在庫”。如果超期，則顯示罰款窗口，進(jìn)行罰款處理。,（2）代碼參考教材:,7）設(shè)計

20、罰款管理窗體（1）設(shè)計窗體,（2）代碼參考教材,8）設(shè)計圖書借閱排行報表首先，在數(shù)據(jù)環(huán)境設(shè)計器中添加一個連接“圖書管理” .,然后添加三個命令對象“借閱管理”“罰款管理”“圖書借閱排行”。,,設(shè)置“借閱管理”命令對象的SQL語句如下：SELECT 讀者表.借書證號, 讀者表.讀者姓名, 圖書表.書名, 借閱表.借出日期, 借閱表.歸還日期 FROM 讀者表 INNER JOIN 借閱表 ON 讀者表.借書證號 = 借閱表.借書證

21、號 INNER JOIN 圖書表 ON 借閱表.條形碼號 = 圖書表.條形碼號,設(shè)置“罰款管理”命令對象的SQL語句如下：SELECT 讀者表.借書證號, 讀者表.讀者姓名, 圖書表.書名, 罰款表.超期天數(shù), 罰款表.罰款金額, 罰款表.處罰日期 FROM 讀者表 INNER JOIN 罰款表 ON 讀者表.借書證號 = 罰款表.借書證號 INNER JOIN 圖書表 ON 罰款表.條形碼號 = 圖書表.條形碼號。,設(shè)置“圖書借閱

22、排行” 語句如下：SELECT 圖書編號,書名,SUM(借閱次數(shù))AS 次數(shù)FROM 圖書表GROUP BY 圖書編號,書名ORDER BY 次數(shù) DESC,“圖書借閱排行”報表運行結(jié)果,,11.2 招聘管理系統(tǒng)的設(shè)計,本例以招聘管理系統(tǒng)為例說明如何用ADO對象編寫應(yīng)用程序。,11.2.1 需求分析招聘管理用于管理企業(yè)招聘新員工的全過程，主要功能包括應(yīng)聘人員登記、應(yīng)聘人員初選、應(yīng)聘人員面試和應(yīng)聘人員錄用。,11.2.2 概念結(jié)

23、構(gòu)設(shè)計經(jīng)分析，此系統(tǒng)涉及到的主體只有應(yīng)聘人員和評委兩個實體集之間存在初選、面試和錄用的聯(lián)系，據(jù)此可畫出此系統(tǒng)的E-R圖,,1,,,,面試地點,,,應(yīng)聘人員,,,,,,開始錄用日期,,,m,1,p,,r,1,,評委,,,,,,其中應(yīng)聘人員與其屬性關(guān)系如圖所示,,,姓名,,,,,,應(yīng)聘人員,評委與其屬性關(guān)系如圖所示,,評委,,,,11.2.3 邏輯結(jié)構(gòu)設(shè)計,登記表（應(yīng)聘人編號，姓名，性別，電話，外語水平）評委表（評委編號，評委姓名，部門

24、）初選表（應(yīng)聘人編號，計算機(jī)能力，業(yè)務(wù)能力，綜合評分，初選狀態(tài)），根據(jù)實際情況，去掉了評委編號屬性。面試表（應(yīng)聘人編號，初選評分，外表形象，領(lǐng)悟反應(yīng)能力，綜合評分，面試地點，面試人號，錄用情況）.面試時，往往要參考應(yīng)聘人的初選評分，所以增加了一個“初選評分”屬性。錄用表（應(yīng)聘人編號，面試分，筆試分，綜合考核分，開始錄用日期，是否錄用）,為了保證系統(tǒng)的安全性，采用了登錄的措施，用戶名和密碼存放在系統(tǒng)表中。系統(tǒng)表（姓名，密碼）,1

25、1.2.4 規(guī)范化分析其中的“登記表”、“評委表”和“系統(tǒng)表”三個關(guān)系模式中的主碼是本模式的唯一決定因素，所以這三個關(guān)系模式都屬于BCNF;但在“初選表”中，綜合評分=（計算機(jī)能力+業(yè)務(wù)能力）/2，“初選狀態(tài)”也由“綜合評分”來定，與“圖書館管理系統(tǒng)”案例中的分析類似?！俺踹x表”屬于2NF，其中的“綜合評分”和“初選狀態(tài)”兩個屬性值是冗余數(shù)據(jù)，但評委往往既關(guān)心“計算機(jī)能力”和“業(yè)務(wù)能力”，又關(guān)心“綜合評分”和“初選狀態(tài)”，所以“綜合

26、評分”和“初選狀態(tài)”是必要的冗余。在“面試表”和“錄用表”中也有類似的情況。,11.2.5 在SQL Server 2000 中創(chuàng)建數(shù)據(jù)庫,各表格的結(jié)構(gòu)如下:,字段名數(shù)據(jù)類型 長度姓名char 10密碼char 6,字段名 數(shù)據(jù)類型 長度評委編號char 4評委姓名varchar 20部門 varcha 20,,,,1．招聘管理系

27、統(tǒng)的功能模塊,招聘管理系統(tǒng),,2．配置數(shù)據(jù)源。利用ODBC數(shù)據(jù)源管理器配置一個連接到“招聘管理”數(shù)據(jù)庫的數(shù)據(jù)源，名為zhpgl。,3．設(shè)計各個窗體。1）設(shè)計主窗體。從主窗體中可以打開各個功能的窗口。,菜單的結(jié)構(gòu),,標(biāo)題及位置名稱 標(biāo)題及位置 名稱文件 m_file … 面試情況 m_qmianshi… 登錄 m_login

28、… 錄用情況 m_qluyong… 退出 m_exitt 統(tǒng)計報表 m_baobiao數(shù)據(jù)管理m_data … 初選名單 m_pchuxuan… 招聘管理m_zhaopin … 面試通過名單 m_pmianshi查詢信息m_chaxun … 錄用名單 m_pluyong… 初選情況m_qchuxuan,2）設(shè)計登錄窗體,（2

29、）編寫程序如下：在“通用”和“聲明” 欄內(nèi)，編寫代碼如下：Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Form_Load() ' 窗體裝載代碼Dim s As Strings = "DSN=zhpgl;uid=sa;pwd=sa"cn.Open scn.CursorLocation = ad

30、UseClientEnd Sub,Private Sub cmdOk_Click() '“確定”按鈕單擊事件的代碼 rst.Open "select * from 系統(tǒng)表 where 姓名='" & Text1 & "'", cn If rst.BOF And rst.EOF Then MsgBox "無效用戶名，請重新輸入。"

31、;, vbCritical, "錯誤" Text1 = "" Text1.SetFocus ElseIf Text2 = rst.Fields("密碼") Then MsgBox "登錄成功！", vbInformation MDIzhaopin.m_zhaopin.Enabled = True MDIzhaopin.m_c

32、haxun.Enabled = True MDIzhaopin.m_baobiao.Enabled = True Me.Hide Else MsgBox "密碼錯誤，請重新輸入", vbCritical, " 錯誤" Text2.Text = "" Text2.SetFocus End If rst.CloseEnd Sub,3）設(shè)計招聘管

33、理窗體,招聘管理窗體用SSTab控件實現(xiàn)登記管理、初選管理、面試管理和錄用管理4個功能，在登記管理選項卡中有4個命令按扭：“添加”（Cmd0Add）、“確定”（Cmd0Ok）、“刪除”（Cmd0Del）和“退出”（Cmd0Exit），分別實現(xiàn)添加記錄、存入數(shù)據(jù)庫、刪除記錄和退出本窗體的功能。在“初選”、“面試”和“錄用”選項卡中都有“導(dǎo)入數(shù)據(jù)”、“確定”和“退出”4個命令按鈕，分別實現(xiàn)從其他表中導(dǎo)入數(shù)據(jù)、存入數(shù)據(jù)庫和退出本窗體的功能。例

34、如，在“初選”選項卡中單擊“導(dǎo)入數(shù)據(jù)”（Cmd1Import）命令按鈕就從登記表中把登記人員的編號導(dǎo)入初選表中來，單擊“確定”（Cmd1Ok）命令按鈕就可以計算當(dāng)前受聘者的“綜合評分”和“初選狀態(tài)”并存入數(shù)據(jù)庫中。,（2）編寫程序在“通用”“聲明”段內(nèi)，聲明如下對象變量：Dim cn As New ADODB.ConnectionDim rst0 As New ADODB.Recordset '定義用于存放登記表的記錄集

35、Dim rst1 As New ADODB.Recordset '定義用于存放初選表的記錄集Dim rst2 As New ADODB.Recordset '定義用于存放面試表的記錄集Dim rst3 As New ADODB.Recordset '定義用于存放錄用表的記錄集,Private Sub Form_Load()cn.Open "DSN=zhpgl;uid=sa;pwd=sa"

36、cn.CursorLocation = adUseClientrst0.LockType = adLockPessimistic '允許更新記錄集rst1.LockType = adLockPessimisticrst2.LockType = adLockPessimisticrst3.LockType = adLockPessimisticrst0.Open "select * from 登記表"

37、;, cnSet DataGrid1.DataSource = rst0 '設(shè)置DataGrid1的數(shù)據(jù)源,rst1.Open "select * from 初選表", cnSet DataGrid2.DataSource = rst1If rst1.RecordCount 0 Then ' 如果初選表中有記錄,就不能從登記表中導(dǎo)入數(shù)據(jù) Cmd1Import.Enabled = Fals

38、eEnd Ifrst2.Open "select * from 面試表", cnSet DataGrid3.DataSource = rst2If rst2.RecordCount 0 Then Cmd2Import.Enabled = FalseEnd If rst3.Open "select * from 錄用表", cnSet DataGrid4.DataSour

39、ce = rst3If rst3.RecordCount 0 Then Cmd3Import.Enabled = FalseEnd IfEnd Sub,Private Sub Cmd0Add_Click() '“登記”選項卡中“添加”按鈕單擊事件的代碼 rst0.AddNewEnd SubPrivate Sub Cmd0Ok_Click()'“登記”選項卡中“確定”按鈕單擊事件的代碼

40、 rst0.Update rst0.Sort = "應(yīng)聘人編號"End SubPrivate Sub Cmd0Del_Click()'“登記”選項卡中“刪除”按鈕單擊事件的代碼 x = MsgBox("確定要刪除嗎？", vbYesNoCancel + vbQuestion, "確認(rèn)") If x = vbYes Then

41、 rst0.Delete End If End Sub,Private Sub Cmd1Import_Click()'“初選”選項卡中“導(dǎo)入數(shù)據(jù)”按鈕單擊事件的代碼 '把登記表中的應(yīng)聘人編號轉(zhuǎn)到初選表中來 rst0.MoveFirst For i = 1 To rst0.RecordCount rst1.AddNew rst1.Fields("應(yīng)聘人編號"

42、) = rst0.Fields("應(yīng)聘人編號") rst0.MoveNext rst1.MoveNext Next i Cmd1Import.Enabled = False '只能導(dǎo)一次數(shù)據(jù)End Sub,Private Sub Cmd1Ok_Click()'“初選”選項卡中“確定”按鈕單擊事件的代碼 rst1.Fields("綜合評分") = (

43、Val(rst1.Fields("計算機(jī)能力")) + rst1.Fields("業(yè)務(wù)能力")) * 0.5 If rst1.Fields("綜合評分") >= 6 Then rst1.Fields("初選狀態(tài)") = "通過" Else rst1.Fields("初選狀態(tài)"

44、;) = "未通過" End If rst1.Update rst1.Sort = "應(yīng)聘人編號"End Sub,Private Sub Cmd2Import_Click()'“面試”選項卡中“導(dǎo)入數(shù)據(jù)”按鈕單擊事件的代碼 '把初選表中通過的應(yīng)聘人編號、初選評分轉(zhuǎn)到面試表中來 rst1.Close rst1.Open "select

45、* from 初選表 where 初選狀態(tài)='通過'", cn rst1.MoveFirst For i = 1 To rst1.RecordCount rst2.AddNew rst2.Fields("應(yīng)聘人編號") = rst1.Fields("應(yīng)聘人編號") rst2.Fields("初選評分") = rst1.F

46、ields("綜合評分") rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = FalseEnd Sub,Private Sub Cmd2Ok_Click()'“面試”選項卡中“確定”按鈕單擊事件的代碼 rst2.Fields("綜合評分") = (rst2.Fields("初選評分"

47、) + rst2.Fields("外表形象") + rst2.Fields("領(lǐng)悟反應(yīng)能力")) / 3 If rst2.Fields("綜合評分") >= 6 Then rst2.Fields("錄用情況") = "通過" Else rst2.Fields("錄用情

48、況") = "未通過" End If rst2.Update rst2.Sort = "應(yīng)聘人編號" rst2.MoveLastEnd Sub,Private Sub Cmd3Import_Click()'“錄用”選項卡中“導(dǎo)入數(shù)據(jù)”按鈕單擊事件的代碼'把面試表中通過的應(yīng)聘人編號、面試分轉(zhuǎn)到錄用表中來 rst2.Cl

49、ose rst2.Open "select * from 面試表 where 錄用情況='通過'", cn rst2.MoveFirst For i = 1 To rst2.RecordCount rst3.AddNew rst3.Fields("應(yīng)聘人編號") = rst2.Fields("應(yīng)聘人編號") rst3.Fiel

50、ds("面試分") = rst2.Fields("綜合評分") rst3.Fields("開始錄用日期") = Date rst2.MoveNext Next i Cmd3Import.Enabled = FalseEnd Sub,Private Sub Cmd3Ok_Click()'“錄用”選項卡中“確定”按鈕單擊事件的代碼 rs

51、t3.Fields("綜合考核分") = (rst3.Fields("面試分") + rst3.Fields("筆試分")) / 2 If rst3.Fields("綜合考核分") >= 6 Then rst3.Fields("是否錄用") = "是" Else

52、 rst3.Fields("是否錄用") = "否" End If rst3.Update rst3.Sort = "應(yīng)聘人編號" rst3.MoveLastEnd Sub,' 選項卡的單擊事件過程代碼如下Private Sub SSTab1_Click(PreviousTab As Integer) If

53、 SSTab1.Tab = 1 Then rst1.Close rst1.Open "select * from 初選表", cn Set DataGrid2.DataSource = rst1 ElseIf SSTab1.Tab = 2 Then rst2.Close rst2.Open "select * from 面試表",

54、 cn Set DataGrid3.DataSource = rst2 ElseIf SSTab1.Tab = 3 Then rst3.Close rst3.Open "select * from 錄用表", cn Set DataGrid4.DataSource = rst3 End IfEnd Sub,4）設(shè)計查詢初選情況窗體（1）設(shè)計窗體,此窗

55、體能按照一定的條件查詢初選的情況，如某個人的綜合評分是多少，是否通過了初選等信息。,（2）編寫程序Dim cn As New ADODB.Connection '在“通用”和“聲明”段內(nèi)，聲明對象變量Dim rst As New ADODB.RecordsetPrivate Sub Form_Load() cn.Open "DSN=zhpgl;uid=sa;pwd=sa"cn.CursorLoca

56、tion = adUseClientrst.LockType = adLockPessimisticCombo1.AddItem "應(yīng)聘人編號"Combo1.AddItem "初選狀態(tài)"End Sub,Private Sub cmdquery_Click() ' “查詢”代碼Dim s As Strings = "select * from 初選表 where &q

57、uot; & Combo1.Text & " like ' " & Text1 & "%' "rst.Open s, cnSet DataGrid1.DataSource = rstEnd SubPrivate Sub cmdexit_Click() ' “返回”代碼Unload MeEnd Sub,5）報表的設(shè)計,在數(shù)據(jù)環(huán)境設(shè)

58、計器中添加一個連接“招聘管理”，連接數(shù)據(jù)源名為zhpgl。然后添加三個命令：“初選通過名單”、“面試通過名單”和“錄用名單”。用于設(shè)置“初選通過名單”命令對象的SQL語句如下：SELECT 初選表.應(yīng)聘人編號, 登記表.姓名, 初選表.計算機(jī)能力, 初選表.業(yè)務(wù)能力, 初選表.綜合評分, 初選表.初選狀態(tài) FROM 初選表 INNER JOIN 登記表 ON 初選表.應(yīng)聘人編號 = 登記表.應(yīng)聘人編號 WHERE (初選表.初選狀態(tài)