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

第11章數(shù)據(jù)庫應(yīng)用系統(tǒng)設(shè)計(jì)案例數(shù)據(jù)庫編程技術(shù)11.1圖書館管理系統(tǒng)的設(shè)計(jì)本例以圖書館管理系統(tǒng)為例說明如何開發(fā)數(shù)據(jù)庫應(yīng)用程序。11.1.1需求分析圖書館是這樣的部門，館中收藏大量圖書供讀者借閱，其中圖書可分成不同的類別，如自然科學(xué)類，社會科學(xué)類等；借閱者可分為老師和學(xué)生。不同的借閱者最多可借的書的數(shù)量和期限不同，如教師最多可借10本，期限為3個(gè)月，學(xué)生最多可借2本，期限為1個(gè)月，無論老師和學(xué)生借閱超期還要進(jìn)行罰款處理。11.1.2概念結(jié)構(gòu)設(shè)計(jì)圖書館管理系統(tǒng)的E-R圖讀者圖書借閱日期mnpq金額日期罰款讀者借書證號讀者姓名性別是否有超期讀者實(shí)體與其屬性讀者類別圖書條形碼號書名作者出版社圖書實(shí)體與其屬性出版日期書的類別圖書編號借閱狀態(tài)借閱次數(shù)11.1.3邏輯結(jié)構(gòu)設(shè)計(jì)讀者（借書證號，讀者姓名，性別，讀者類別，是否有超期）圖書（條形碼號，圖書編號，書名，作者，出版社，出版日期，書的類別，借閱狀態(tài)，借閱次數(shù))借閱（借書證號，條形碼號，借出日期，歸還日期）罰款（借書證號，條形碼號，處罰日期，超期天數(shù)，罰款金額)另外，為了保證系統(tǒng)的安全性，采用了登錄的措施，用戶名和密碼存放在密碼表中。密碼表（用戶名，密碼）11.1.4規(guī)范化分析除[罰款]關(guān)系外，其它4個(gè)關(guān)系模式中主碼是本模式的唯一決定因素，所以這4個(gè)關(guān)系模式都屬于BCNF.但是在[罰款]關(guān)系中，罰款金額=日罰款額×超期天數(shù)，所以超期天數(shù)→罰款金額，而超期天數(shù)→(借書證號，條形碼號，處罰日期)，所以(借書證號，條形碼號，處罰日期)→罰款金額，存在傳遞函數(shù)依賴，所以[罰款]關(guān)系屬于2NF，存在冗余現(xiàn)象。讀者往往既關(guān)心超期天數(shù)，又關(guān)心罰款金額，所以“罰款金額”是必要的冗余。

11.1.5在SQLServer2000中創(chuàng)建數(shù)據(jù)庫圖書表的結(jié)構(gòu)字段名 數(shù)據(jù)類型 長度 條形碼號 char 13 圖書編號 char 10 書名 varchar 20 作者 varchar 20 出版社 varchar 50 出版日期 datetime 8 類別char 10 借閱狀態(tài) char 4 借閱次數(shù) smallint 2 讀者表的結(jié)構(gòu)字段名 數(shù)據(jù)類型 長度 借書證號 char 10 讀者姓名 varchar 20 性別 char 2 讀者類別 char 1 是否有超期char 1 借閱表的結(jié)構(gòu)字段名 數(shù)據(jù)類型 長度 借書證號 char 10 條形碼號 char 13 借出日期 datetime 8 歸還日期 datetime 8 罰款表的結(jié)構(gòu)字段名 數(shù)據(jù)類型 長度 借書證號 char 10 條形碼號 char 13 處罰日期 datetime 8 超期天數(shù) int 4 罰款金額 money 8 密碼表的結(jié)構(gòu)字段名 數(shù)據(jù)類型 長度 用戶名 char 10 密碼 char 6 11.1.6用VB6.0開發(fā)應(yīng)用程序1．圖書館管理系統(tǒng)的功能圖書館管理系統(tǒng)讀者管理圖書管理借閱管理罰款管理2．配置數(shù)據(jù)源用前面介紹的方法，利用ODBC數(shù)據(jù)源管理器配置一個(gè)連接到“圖書館”數(shù)據(jù)庫的數(shù)據(jù)源，名為“圖書管理”，

1）設(shè)計(jì)MDI主窗體。

3．設(shè)計(jì)各個(gè)窗體其中菜單的結(jié)構(gòu)如下表所示 標(biāo)題及位置名稱標(biāo)題及位置名稱系統(tǒng)管理m_system圖書流通m_flow…注冊新用戶m_rigister…借閱管理m_lend…退出系統(tǒng)m_exit…罰款管理m_punish基本信息m_basi報(bào)表m_report…讀者信息管理m_reader…圖書借閱排行m_lendp…讀者信息瀏覽m_readerscan…借閱報(bào)表m_lend_report…讀者信息查詢m_readerquery…罰款報(bào)表m_punish_report…圖書信息管理m_book關(guān)于m_about…圖書信息查詢m_bookquery2）設(shè)計(jì)登錄窗體DimmiCountAsInteger'用于記錄輸入密碼次數(shù)DimstrAsStringstr="select密碼from密碼表where用戶名='"&Text1.Text&"'"Adodc1.RecordSource=strAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用戶名錯(cuò)誤，請重新輸入",vbExlamation,"警告"Text1.Text=""Text1.SetFocusElseIfAdodc1.Recordset.Fields("密碼")=Text2.TextThenMDIForm1.ShowUnloadMeElseMsgBox"密碼錯(cuò)誤，請重新輸入",vbExlamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount>=3ThenUnloadMe3）設(shè)計(jì)讀者管理窗體（1）設(shè)計(jì)界面PrivateSubForm_Load()CmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdCancel.Enabled=FalseEndSubPrivateSubCmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdCancel.Enabled=TrueEndSubPrivateSubCmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdCancel.Enabled=FalseEndSubPrivateSubCmdDel_Click()x=MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？",vbYesNo+vbQuestion)Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdCancel_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdCancel.Enabled=FalseEndSubPrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePreviousCmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOF=TrueThenAdodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfEndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNextCmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastCmdLast.Enabled=FalseCmdNext.Enabled=FalseEndIfEndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLastCmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseEndSub4）設(shè)計(jì)讀者查詢窗體（1）設(shè)計(jì)界面其中Adodc1連接到讀者表，在“記錄源”選項(xiàng)卡中，選擇命令類型。1-adCmdText，在“命令文本”文本框中輸入SQL語句select*from讀者表。（2）編寫代碼PrivateSubForm_Load()'窗體裝載代碼Combo1.AddItem"借書證號"Combo1.AddItem"讀者姓名"Combo1.AddItem"是否有超期"Combo1.Text="借書證號"Text1.Text=""EndSubPrivateSubCommand1_Click()'“查詢”按鈕代碼DimstrAsStringstr="select*from讀者表where讀者表."&Combo1.Text&"like'"&Text1.Text&"%'“Adodc1.RecordSource=strAdodc1.RefreshEndSub'“返回”按鈕代碼PrivateSubCommand2_Click()UnloadMeEndSub5）設(shè)計(jì)圖書管理窗體、圖書查詢窗體圖書管理與查詢窗體與讀者管理與查詢窗體功能類似。不再贅述6）設(shè)計(jì)借閱管理窗體（1）設(shè)計(jì)界面借書時(shí)需輸入讀者的借書證號及書的條形碼號，然后單擊“借書”按鈕，實(shí)現(xiàn)借書功能；還書時(shí)單擊“還書”按鈕，實(shí)現(xiàn)還書功能。借書時(shí)首先看讀者是否有超期書，如果有則不允許再借書，然后根據(jù)讀者是學(xué)生還是教師，判斷所借書數(shù)是否達(dá)到最多，如果已達(dá)到最多，給出提示：“借書數(shù)量達(dá)到最多，不能再借！”，兩個(gè)條件都允許，則可以借書，借書時(shí)先在圖書表中根據(jù)條形碼號寫入該書的借閱狀態(tài)值為“借出”，同時(shí)將“借閱次數(shù)”加1，然后在借閱表中添加借閱記錄。單擊“還書”銨鈕，先還書，再判斷是否超期。還書時(shí)，在借閱表中寫上“歸還日期”，同時(shí)在圖書表中把該書的“借閱狀態(tài)”值改為“在庫”。如果超期，則顯示罰款窗口，進(jìn)行罰款處理。（2）代碼參考教材:7）設(shè)計(jì)罰款管理窗體（1）設(shè)計(jì)窗體（2）代碼參考教材8）設(shè)計(jì)圖書借閱排行報(bào)表首先，在數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加一個(gè)連接“圖書管理”.然后添加三個(gè)命令對象“借閱管理”“罰款管理”“圖書借閱排行”。設(shè)置“借閱管理”命令對象的SQL語句如下：SELECT讀者表.借書證號,讀者表.讀者姓名,圖書表.書名,借閱表.借出日期,借閱表.歸還日期FROM讀者表INNERJOIN借閱表ON讀者表.借書證號=借閱表.借書證號INNERJOIN圖書表ON借閱表.條形碼號=圖書表.條形碼號設(shè)置“罰款管理”命令對象的SQL語句如下：SELECT讀者表.借書證號,讀者表.讀者姓名,圖書表.書名,罰款表.超期天數(shù),罰款表.罰款金額,罰款表.處罰日期FROM讀者表INNERJOIN罰款表ON讀者表.借書證號=罰款表.借書證號INNERJOIN圖書表ON罰款表.條形碼號=圖書表.條形碼號。設(shè)置“圖書借閱排行”語句如下：SELECT圖書編號,書名,SUM(借閱次數(shù))AS次數(shù)FROM圖書表GROUPBY圖書編號,書名ORDERBY次數(shù)DESC“圖書借閱排行”報(bào)表運(yùn)行結(jié)果11.2招聘管理系統(tǒng)的設(shè)計(jì)本例以招聘管理系統(tǒng)為例說明如何用ADO對象編寫應(yīng)用程序。11.2.1需求分析招聘管理用于管理企業(yè)招聘新員工的全過程，主要功能包括應(yīng)聘人員登記、應(yīng)聘人員初選、應(yīng)聘人員面試和應(yīng)聘人員錄用。11.2.2概念結(jié)構(gòu)設(shè)計(jì)經(jīng)分析，此系統(tǒng)涉及到的主體只有應(yīng)聘人員和評委兩個(gè)實(shí)體集之間存在初選、面試和錄用的聯(lián)系，據(jù)此可畫出此系統(tǒng)的E-R圖1面試地點(diǎn)應(yīng)聘人員初選錄用是否錄用開始錄用日期m1p面試r1錄用情況綜合考核分業(yè)務(wù)能力評委綜合評分初選狀態(tài)外表形象領(lǐng)悟反應(yīng)能力綜合評分其中應(yīng)聘人員與其屬性關(guān)系如圖所示應(yīng)聘人員編號姓名性別外語水平電話應(yīng)聘人員評委與其屬性關(guān)系如圖所示評委評委編號部門姓名11.2.3邏輯結(jié)構(gòu)設(shè)計(jì)登記表（應(yīng)聘人編號，姓名，性別，電話，外語水平）評委表（評委編號，評委姓名，部門）初選表（應(yīng)聘人編號，計(jì)算機(jī)能力，業(yè)務(wù)能力，綜合評分，初選狀態(tài)），根據(jù)實(shí)際情況，去掉了評委編號屬性。面試表（應(yīng)聘人編號，初選評分，外表形象，領(lǐng)悟反應(yīng)能力，綜合評分，面試地點(diǎn)，面試人號，錄用情況）.面試時(shí)，往往要參考應(yīng)聘人的初選評分，所以增加了一個(gè)“初選評分”屬性。錄用表（應(yīng)聘人編號，面試分，筆試分，綜合考核分，開始錄用日期，是否錄用）

為了保證系統(tǒng)的安全性，采用了登錄的措施，用戶名和密碼存放在系統(tǒng)表中。系統(tǒng)表（姓名，密碼）11.2.4規(guī)范化分析其中的“登記表”、“評委表”和“系統(tǒng)表”三個(gè)關(guān)系模式中的主碼是本模式的唯一決定因素，所以這三個(gè)關(guān)系模式都屬于BCNF;但在“初選表”中，綜合評分=（計(jì)算機(jī)能力+業(yè)務(wù)能力）/2，“初選狀態(tài)”也由“綜合評分”來定，與“圖書館管理系統(tǒng)”案例中的分析類似?！俺踹x表”屬于2NF，其中的“綜合評分”和“初選狀態(tài)”兩個(gè)屬性值是冗余數(shù)據(jù)，但評委往往既關(guān)心“計(jì)算機(jī)能力”和“業(yè)務(wù)能力”，又關(guān)心“綜合評分”和“初選狀態(tài)”，所以“綜合評分”和“初選狀態(tài)”是必要的冗余。在“面試表”和“錄用表”中也有類似的情況。

11.2.5在SQLServer2000中創(chuàng)建數(shù)據(jù)庫各表格的結(jié)構(gòu)如下:字段名

數(shù)據(jù)類型長度

姓名

char 10 密碼

char 6 字段名

數(shù)據(jù)類型

長度

評委編號

char

4 評委姓名

varchar

20

部門

varcha

20 字段名

數(shù)據(jù)類型

長度

應(yīng)聘人編號char

3 姓名

varchar

20 性別

char

2 電話

varcha

12 外語水平

char

4 評委表的結(jié)構(gòu)字段名

數(shù)據(jù)類型

長度

應(yīng)聘人編號

char

3 計(jì)算機(jī)能力

char

10 業(yè)務(wù)能力

smallint

2 綜合評分

smallint

2 初選狀態(tài)

char 6初選表的結(jié)構(gòu)字段名

數(shù)據(jù)類型

長度

應(yīng)聘人編號char

3初選評分

smallint

2 外表形象

smallint

2 領(lǐng)悟反應(yīng)能力smallint

2 綜合評分

smallint

2 面試地點(diǎn)

varchar

20 面試人號

char

4 錄用情況

varchar

6 面試表的結(jié)構(gòu)字段名

數(shù)據(jù)類型

長度

應(yīng)聘人編號char

3 面試分

smallint

2 筆試分

smallint

2 綜合考核分smallint

2 開始錄用日期datetime

8 是否錄用

char

2 表11.15錄用表的結(jié)構(gòu)1．招聘管理系統(tǒng)的功能模塊招聘管理系統(tǒng)系統(tǒng)管理招聘管理信息查詢打印報(bào)表2．配置數(shù)據(jù)源。利用ODBC數(shù)據(jù)源管理器配置一個(gè)連接到“招聘管理”數(shù)據(jù)庫的數(shù)據(jù)源，名為zhpgl。3．設(shè)計(jì)各個(gè)窗體。1）設(shè)計(jì)主窗體。從主窗體中可以打開各個(gè)功能的窗口。菜單的結(jié)構(gòu)標(biāo)題及位置 名稱 標(biāo)題及位置 名稱 文件 m_file …面試情況 m_qmianshi …登錄 m_login …錄用情況 m_qluyong …退出 m_exitt 統(tǒng)計(jì)報(bào)表 m_baobiao 數(shù)據(jù)管理 m_data …初選名單 m_pchuxuan …招聘管理 m_zhaopin…面試通過名單m_pmianshi 查詢信息 m_chaxun…錄用名單 m_pluyong …初選情況 m_qchuxuan 2）設(shè)計(jì)登錄窗體（2）編寫程序如下：在“通用”和“聲明”欄內(nèi)，編寫代碼如下：DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubForm_Load()'窗體裝載代碼DimsAsStrings="DSN=zhpgl;uid=sa;pwd=sa"cn.Openscn.CursorLocation=adUseClientEndSubPrivateSubcmdOk_Click()'“確定”按鈕單擊事件的代碼rst.Open"select*from系統(tǒng)表where姓名='"&Text1&"'",cnIfrst.BOFAndrst.EOFThenMsgBox"無效用戶名，請重新輸入。",vbCritical,"錯(cuò)誤"Text1=""Text1.SetFocusElseIfText2=rst.Fields("密碼")ThenMsgBox"登錄成功！",vbInformationMDIzhaopin.m_zhaopin.Enabled=TrueMDIzhaopin.m_chaxun.Enabled=TrueMDIzhaopin.m_baobiao.Enabled=TrueMe.HideElseMsgBox"密碼錯(cuò)誤，請重新輸入",vbCritical,"錯(cuò)誤"Text2.Text=""Text2.SetFocusEndIfrst.CloseEndSub3）設(shè)計(jì)招聘管理窗體招聘管理窗體用SSTab控件實(shí)現(xiàn)登記管理、初選管理、面試管理和錄用管理4個(gè)功能，在登記管理選項(xiàng)卡中有4個(gè)命令按扭：“添加”（Cmd0Add）、“確定”（Cmd0Ok）、“刪除”（Cmd0Del）和“退出”（Cmd0Exit），分別實(shí)現(xiàn)添加記錄、存入數(shù)據(jù)庫、刪除記錄和退出本窗體的功能。在“初選”、“面試”和“錄用”選項(xiàng)卡中都有“導(dǎo)入數(shù)據(jù)”、“確定”和“退出”4個(gè)命令按鈕，分別實(shí)現(xiàn)從其他表中導(dǎo)入數(shù)據(jù)、存入數(shù)據(jù)庫和退出本窗體的功能。例如，在“初選”選項(xiàng)卡中單擊“導(dǎo)入數(shù)據(jù)”（Cmd1Import）命令按鈕就從登記表中把登記人員的編號導(dǎo)入初選表中來，單擊“確定”（Cmd1Ok）命令按鈕就可以計(jì)算當(dāng)前受聘者的“綜合評分”和“初選狀態(tài)”并存入數(shù)據(jù)庫中。（2）編寫程序在“通用”“聲明”段內(nèi)，聲明如下對象變量：DimcnAsNewADODB.ConnectionDimrst0AsNewADODB.Recordset'定義用于存放登記表的記錄集Dimrst1AsNewADODB.Recordset'定義用于存放初選表的記錄集Dimrst2AsNewADODB.Recordset'定義用于存放面試表的記錄集Dimrst3AsNewADODB.Recordset'定義用于存放錄用表的記錄集PrivateSubForm_Load()cn.Open"DSN=zhpgl;uid=sa;pwd=sa"cn.CursorLocation=adUseClientrst0.LockType=adLockPessimistic'允許更新記錄集rst1.LockType=adLockPessimisticrst2.LockType=adLockPessimisticrst3.LockType=adLockPessimisticrst0.Open"select*from登記表",cnSetDataGrid1.DataSource=rst0'設(shè)置DataGrid1的數(shù)據(jù)源rst1.Open"select*from初選表",cnSetDataGrid2.DataSource=rst1Ifrst1.RecordCount<>0Then'如果初選表中有記錄,就不能從登記表中導(dǎo)入數(shù)據(jù)Cmd1Import.Enabled=FalseEndIfrst2.Open"select*from面試表",cnSetDataGrid3.DataSource=rst2Ifrst2.RecordCount<>0ThenCmd2Import.Enabled=FalseEndIf

rst3.Open"select*from錄用表",cnSetDataGrid4.DataSource=rst3Ifrst3.RecordCount<>0ThenCmd3Import.Enabled=FalseEndIfEndSubPrivateSubCmd0Add_Click()'“登記”選項(xiàng)卡中“添加”按鈕單擊事件的代碼rst0.AddNewEndSubPrivateSubCmd0Ok_Click()'“登記”選項(xiàng)卡中“確定”按鈕單擊事件的代碼rst0.Updaterst0.Sort="應(yīng)聘人編號"EndSubPrivateSubCmd0Del_Click()'“登記”選項(xiàng)卡中“刪除”按鈕單擊事件的代碼x=MsgBox("確定要?jiǎng)h除嗎？",vbYesNoCancel+vbQuestion,"確認(rèn)")Ifx=vbYesThenrst0.DeleteEndIfEndSubPrivateSubCmd1Import_Click()'“初選”選項(xiàng)卡中“導(dǎo)入數(shù)據(jù)”按鈕單擊事件的代碼'把登記表中的應(yīng)聘人編號轉(zhuǎn)到初選表中來rst0.MoveFirstFori=1Torst0.RecordCountrst1.AddNewrst1.Fields("應(yīng)聘人編號")=rst0.Fields("應(yīng)聘人編號")rst0.MoveNextrst1.MoveNextNextiCmd1Import.Enabled=False'只能導(dǎo)一次數(shù)據(jù)EndSubPrivateSubCmd1Ok_Click()'“初選”選項(xiàng)卡中“確定”按鈕單擊事件的代碼rst1.Fields("綜合評分")=(Val(rst1.Fields("計(jì)算機(jī)能力"))+rst1.Fields("業(yè)務(wù)能力"))*0.5Ifrst1.Fields("綜合評分")>=6Thenrst1.Fields("初選狀態(tài)")="通過"Elserst1.Fields("初選狀態(tài)")="未通過"EndIfrst1.Updaterst1.Sort="應(yīng)聘人編號"EndSubPrivateSubCmd2Import_Click()'“面試”選項(xiàng)卡中“導(dǎo)入數(shù)據(jù)”按鈕單擊事件的代碼'把初選表中通過的應(yīng)聘人編號、初選評分轉(zhuǎn)到面試表中來rst1.Closerst1.Open"select*from初選表where初選狀態(tài)='通過'",cnrst1.MoveFirstFori=1Torst1.RecordCountrst2.AddNewrst2.Fields("應(yīng)聘人編號")=rst1.Fields("應(yīng)聘人編號")rst2.Fields("初選評分")=rst1.Fields("綜合評分")rst1.MoveNextNextirst2.UpdateCmd2Import.Enabled=FalseEndSubPrivateSubCmd2Ok_Click()'“面試”選項(xiàng)卡中“確定”按鈕單擊事件的代碼rst2.Fields("綜合評分")=(rst2.Fields("初選評分")+rst2.Fields("外表形象")+rst2.Fields("領(lǐng)悟反應(yīng)能力"))/3Ifrst2.Fields("綜合評分")>=6Thenrst2.Fields("錄用情況")="通過"Elserst2.Fields("錄用情況")="未通過"EndIfrst2.Updaterst2.Sort="應(yīng)聘人編號"rst2.MoveLastEndSubPrivateSubCmd3Import_Click()'“錄用”選項(xiàng)卡中“導(dǎo)入數(shù)據(jù)”按鈕單擊事件的代碼'把面試表中通過的應(yīng)聘人編號、面試分轉(zhuǎn)到錄用表中來rst2.Closerst2.Open"select*from面試表where錄用情況='通過'",cnrst2.MoveFirstFori=1Torst2.RecordCountrst3.AddNewrst3.Fields("應(yīng)聘人編號")=rst2.Fields("應(yīng)聘人編號")rst3.Fields("面試分")=rst2.Fields("綜合評分")rst3.Fields("開始錄用日期")=Daterst2.MoveNextNextiCmd3Import.Enabled=FalseEndSubPrivateSubCmd3Ok_Click()'“錄用”選項(xiàng)卡中“確定”按鈕單擊事件的代碼rst3.Fields("綜合考核分")=(rst3.Fields("面試分")+rst3.Fields("筆試分"))/2Ifrst3.Fields("綜合考核分")>=6Thenrst3.Fields("是否錄用")="是"Elserst3.Fields("是否錄用")="否"EndIfrst3.Updaterst3.Sort="應(yīng)聘人編號"rst3.MoveLastEndSub'選項(xiàng)卡的單擊事件過程代碼如下PrivateSubSSTab1_Click(PreviousTabAsInteger)