【正文】 數(shù)據(jù)庫(kù)的連接服務(wù)。無(wú)法更改數(shù)據(jù) adLockPressimistic 2 保守式記錄鎖定（逐條）。 adLockBatchOptimistic 4 開(kāi)放式批更新。 Error 對(duì)象：提供處理錯(cuò)誤的功能。 SQL 命令 ， 包括 Select、 Delete、 Update、 Insert Into、 Select Into 等。 + \ 但對(duì)于 SQL server2020 數(shù)據(jù)庫(kù)，其連接語(yǔ)句為 driver={sql server}。database=student。 系統(tǒng)分析階段的主要活動(dòng)有：系統(tǒng)初步調(diào)查、可行性研究、系統(tǒng)詳細(xì)調(diào)查、系統(tǒng)新邏輯方案的提出。本階段主要解決用戶要求做什么，該問(wèn)題值不值得做，是否有可行的解決辦法，以防止花費(fèi)了大量人力、物力、財(cái)力和時(shí)間后，卻發(fā)現(xiàn)問(wèn)題無(wú)解，而造成浪費(fèi)。但是由于各方面的原因，并沒(méi)完全實(shí)現(xiàn)信 息管理化，經(jīng)過(guò)學(xué)校管理員提供的信息和通過(guò)自身調(diào)查，現(xiàn)對(duì)目前的檔案 管理系統(tǒng)進(jìn)行多方面的分析。同時(shí)，遇到網(wǎng)絡(luò)問(wèn)題時(shí)，也得不到及時(shí)的解決，因?yàn)楹芏鄬W(xué)校缺少計(jì)算機(jī)方面的人才，系統(tǒng)維護(hù)方面的專(zhuān)業(yè)人才也太少，經(jīng)常整個(gè)系統(tǒng)會(huì)出現(xiàn)問(wèn) 題，這樣影響了學(xué)校管理效率，也大大增加了學(xué)校的網(wǎng)絡(luò)這一塊的成本。 ? 系統(tǒng)容易丟失數(shù)據(jù)，比如管理員正在操作，突然停電或其他異常發(fā)生時(shí)，數(shù)據(jù)沒(méi)及時(shí)得到保存，數(shù)據(jù)備份和數(shù)據(jù)刪除功能有待更進(jìn)。為了更好的做好學(xué)生檔案信息管理這項(xiàng)工作，提高工作效率，更好的為 學(xué)校的發(fā)展和一線教學(xué)服務(wù)，結(jié)合我校實(shí)際情況，自行研制一套學(xué)生檔案 管理系統(tǒng)。 學(xué)生檔案 管理系統(tǒng)的實(shí)現(xiàn)，可以是使學(xué)校更方便的對(duì)學(xué)生信息進(jìn)行查詢(xún)和錄入，配合學(xué)校的教學(xué)的步伐。可以建立該信息系統(tǒng)的可能性具體包含了它具有經(jīng)濟(jì)可行性、技術(shù)可行性和社會(huì)可行性，新系統(tǒng)能達(dá)到以最小的開(kāi)發(fā)成本取得最佳的經(jīng)濟(jì)效益，開(kāi)發(fā)中所需人員、硬軟件支持以及其它費(fèi)用進(jìn)行估算情況均滿意，技術(shù)條件也能保證順利完成開(kāi)發(fā)工作 。 我校自建校至今已有幾十年的歷史，各種課程比較齊備，且比較有條理。雖然有如此好的客觀條件，但始終沒(méi)有一套完善簡(jiǎn)單易用的管理系統(tǒng)。 ? 經(jīng)濟(jì)可行性 成本方面，關(guān)于各種軟、硬件及輔助設(shè)備的購(gòu)置、調(diào)試、機(jī)房及輔助設(shè)施（電源等 ）以及系統(tǒng)維護(hù)，內(nèi)務(wù)開(kāi)銷(xiāo)這些費(fèi)用都可以忽略不計(jì)， 因?yàn)槲覀冃畔⒐こ虒W(xué)院 機(jī)房可以為我們免費(fèi)提供一切。 計(jì)算機(jī)專(zhuān)業(yè)的學(xué)生多，課程重，管理起來(lái)非常困難。不能再坐以待斃了，我們這套學(xué)生 檔案信息 管理系統(tǒng)將提供一份完整的 學(xué)生信息 報(bào)表，并會(huì)利用管理系統(tǒng)的易修改性及時(shí)進(jìn)行更新，讓同學(xué)們?cè)?課程選擇、專(zhuān)業(yè)學(xué)習(xí)、成績(jī)查詢(xún)、 計(jì)算學(xué)分中更加游刃有余。這就大大的為老師 和學(xué)生 提供了便利。因此，只要我們這套學(xué)生 檔案管理 系統(tǒng)操作簡(jiǎn)單，實(shí)用，合理，大家肯定是樂(lè)于接受并積極響應(yīng)和支持的。 如今， 網(wǎng)絡(luò)已是我們生活中的一部分，上網(wǎng)也就自然成為了家常便飯，如果這套系統(tǒng)能夠成功的在網(wǎng)上得到實(shí)施 ,無(wú)外乎就同時(shí)為我們學(xué)校 做了覆蓋面積極大的免費(fèi)廣 告，打響了招牌，知名度也將大幅度上升。例如，學(xué)生的基本信息、課程信息、學(xué)生 成績(jī) 的基本情況等。所以，教學(xué)管理調(diào)查的好壞，將直接關(guān)系到將來(lái)新系統(tǒng)能否完成系統(tǒng)目標(biāo)的問(wèn)題。另外，現(xiàn)行系統(tǒng)中大量單據(jù)、原始憑證和各種各樣的報(bào)表都是信息的資源，對(duì)它們的調(diào)查、收集和分析，能夠?qū)ΜF(xiàn)行系統(tǒng)的數(shù)據(jù)收集、輸入、存儲(chǔ)、處理和輸出等環(huán)節(jié)做進(jìn)一步的研究，為今后系統(tǒng)的詳細(xì)設(shè)計(jì)提供依據(jù)。 ? 管理科學(xué)的發(fā)展在管理活動(dòng)的各個(gè)層次、各個(gè)環(huán)節(jié)都形成了較為成熟的管理方法和定量化的管理模型，為管理信息系統(tǒng)的應(yīng)用創(chuàng)造了條件。 （三）專(zhuān)業(yè)設(shè)置： 能對(duì)專(zhuān)業(yè)進(jìn)行添加、 刪除、 修改操作。本數(shù)據(jù)庫(kù)采用 Access 2020 來(lái)構(gòu)造，共使用了 7 個(gè)表，它們分別是用戶信息表 （ UserInfo）、學(xué)生信息表（ StuInfo）、班級(jí)信息表（ Class）、專(zhuān)業(yè)信息表（ Major）、學(xué)院信息表（ Depart）、課程信息表（ Lesson）、學(xué)生成績(jī)表（ Result）。 關(guān)系模型的邏輯結(jié)構(gòu)是一組關(guān)系模式的集合 。 E R 圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下所示： 系（ 系編號(hào) 、系名） 專(zhuān)業(yè)（ 專(zhuān)業(yè)編號(hào) 、專(zhuān)業(yè)名） 班級(jí)（ 班級(jí)編號(hào) ） 學(xué)生信息 （ 學(xué)號(hào) 、姓名、性別、籍貫、出生年月、家庭住址、民族、聯(lián)系電話、郵政編碼、備注） 課程信息 （ 課程號(hào) 、課程名、課時(shí)、學(xué)分） 成績(jī)（ 學(xué)號(hào) 、課程 名 、分?jǐn)?shù) 、備注 ） 模塊設(shè)計(jì) 本系統(tǒng)是一個(gè)典型的信 息管理系統(tǒng)，主要目標(biāo)是讓使用它的管理用戶能很好地管理有關(guān)學(xué)生檔案 方 信息方面的工作，比如系統(tǒng)管理員負(fù)責(zé)日常的學(xué)生檔案 管理工作，如各種基本信息的錄入、修改、刪除等操作 根據(jù)需求分析中列出的學(xué)生檔案管理系統(tǒng)的七個(gè)基本模塊，設(shè)計(jì)了如下圖 32 所示的學(xué)生檔案管理系統(tǒng)總體結(jié)構(gòu)示意圖。 （ 2） 專(zhuān)業(yè)信息管理 ： ? 添加專(zhuān)業(yè)信息。 ? 刪除已有的班級(jí)信息。 ? 修改已存在的學(xué)生信息。 ? 修改或刪除已有的課程基本信息。Data Source=amp。 Private Sub Form_Load() loginno = 0 End Sub 這里將“確定”和“取消”兩個(gè)按鈕作為一個(gè)按鈕數(shù)組 cmdOkCancel：確定按 鈕的 index 屬性為 0，取消按鈕的 index 屬性為 1。 Userid amp。當(dāng)錯(cuò)誤的密碼次數(shù)達(dá)到 3次時(shí)，不能登陸，退出！ If loginno = 3 Then MsgBox 對(duì)不起，您不能使用該系統(tǒng)！請(qǐng)與管理員聯(lián)系。多文檔界面是一 種Windows 用戶界面標(biāo)準(zhǔn)。 Private Declare Function ShellExecuteamp。 LoginUser amp。 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(確定要退出學(xué)生檔案管理系統(tǒng)嗎？是 /否 , vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then Cancel = 1 End If End Sub QueryUnload 和 Unload 事件 當(dāng)一個(gè)子窗體或一個(gè) Form 對(duì)象關(guān)閉時(shí)，在那個(gè)窗體中的 QueryUnload 事件先于該窗體的 Unload 事件發(fā)生， Unload 事件在 Terminate 事件之前發(fā)生。但Unload 不能阻止其他事件，諸如從 Microsoft Windows 操作環(huán)境中退出等；而QueryUnload 事件則可以阻止從 Windows 中的退出。 Private Sub filemenu21_Click() ShellExecute 0, open, amp。窗體的控件設(shè)計(jì)如圖 所示 圖 用戶管理界面 如果登陸的用戶類(lèi)型是管理員，用戶管理一項(xiàng)是可用的，當(dāng)單擊該子菜單時(shí)，將會(huì)出現(xiàn)用戶管理窗口，管理員可以對(duì)系統(tǒng)用戶進(jìn)行添加和刪除操作。 (2) = ef(UserName) (3) = ef(UserPower) Loop Set ef = Nothing End Sub 3． 添加用戶 在 Textbox 中輸入了相應(yīng)的數(shù)據(jù)以后，按添加按鈕則調(diào)用該按鈕的 Click事件，代碼如下 當(dāng)單擊“添加”按鈕時(shí)，首先檢查輸入的用戶名和密碼是否為空，代碼如下： Private Sub Command4_Click() If Trim() = Then MsgBox 登陸用戶名不允許為空！ , vbOKOnly + 48, 提示： Exit Sub End If If InStr(1, Trim(), 39。 amp。 Private Sub Command4_Click() ?? Do While Not If = (UserID) Then MsgBox 已經(jīng) 存在 用戶名 為 amp。 Private Sub Command4_Click() sqlstr = insert into UserInfo(UserID,UserPWD,UserName,UserPower) sqlstr = sqlstr amp。 39。 39。 Username amp。Userpower amp。 成功 , vbOKOnly, 添加系統(tǒng)用戶 = = = = 39。 amp。 39。 39。這時(shí)，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點(diǎn)設(shè)置到第二個(gè) Text2控件，后面兩 個(gè)文本框清空，代碼如下： Private Sub Command1_Click() Dim 。在 MDI 主窗體編輯窗口中，單擊“系統(tǒng)選項(xiàng) /修改個(gè)人密碼”，添加如下代碼： Private Sub filemenu12_Click() 39。 amp。 amp。根據(jù)以上的設(shè)計(jì)，DeleteRecord()的代碼如下： Private Sub DeleteRecord() 39。) sqlstr MsgBox 添加用戶 amp。,39。 39。 amp。 amp。 的 用戶 帳號(hào) , vbInformation Exit Sub End If Loop : Set rs = Nothing End Sub 如果沒(méi)有重復(fù)，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。 39。,請(qǐng)刪除。在該窗體的通用部分寫(xiě)如下代碼： Dim DelNO As Integer 2．窗體加載時(shí)，初始化 Listview 用以顯示系統(tǒng)用戶列表，代碼如下 Private Sub Form_Load() 39。 Private Sub filemenu45_Click() 39。 4． .“重新登陸”子菜單的代碼 當(dāng)單擊了“重新登陸”或者按下了“ F2”鍵時(shí)，將會(huì)給出提示，如果用戶在提示框中按下了“確定”按鈕，則退出整個(gè) MDI 主 窗體，并顯示登陸窗體。但是， QueryUnload 事件是在任一個(gè)卸載之前在所有窗 體中發(fā)生，而 Unload 是在每個(gè)窗體卸載時(shí)發(fā)生。 LoginPower amp。所以在 MDIForm 的 Load 事件中需要判斷用戶類(lèi)型。 在工程中添加一個(gè) MDI 窗口，取名為“ ”，并為 MDI 窗體進(jìn)行菜單和代碼的設(shè)計(jì)，其運(yùn)行界面如圖 : 圖 主界面 菜單設(shè)計(jì) MDI 主窗體是整個(gè)系統(tǒng)的容器，為了方便用戶的使用，應(yīng)設(shè)計(jì)相應(yīng)的菜單和代碼。保存當(dāng)前登陸用戶名 LoginPower = (3) 39。 sqlstr, con, 1, 1 If Not Then If rs(UserPWD) Userpwd Then 39。 根據(jù)以上的設(shè)計(jì)， cmdOkCancel 的 Click 事件的代碼如下： Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 ?? Userid = Trim() Userpwd = Trim(Trim()) sqlstr = select * from UserInfo where UserID=39。 第四章 學(xué)生檔案管理系統(tǒng)實(shí)現(xiàn) 登陸界面 (frmlogin) 本系統(tǒng)的登錄界面如下 ， 見(jiàn)圖 。 ? 修改或刪除已有的系基本信息。 （ 6）課程信息管理： ? 添加新的課程基本信息并可保存，包括課程號(hào)、課程名、學(xué)時(shí)和學(xué)分。 ? 刪除成績(jī)信息。 （ 3）班級(jí)信息管理： ? 添加新的班級(jí)信息并可保存，包括系編號(hào)、專(zhuān)業(yè)編號(hào)、班 級(jí)編號(hào)。 ? 刪除已有的用戶信息。所以將 ER圖轉(zhuǎn)換為關(guān)系模型實(shí)際上就是要將實(shí)體、實(shí)體的屬性和實(shí)體之間的聯(lián)系轉(zhuǎn)化為關(guān)系模式，這種轉(zhuǎn)換一般遵循如下 原則 ： 一個(gè)實(shí)體型轉(zhuǎn)換為一個(gè)關(guān)系模式，實(shí)體的屬性就是關(guān)系的屬性， 實(shí)體的碼就是關(guān)系的碼 。 現(xiàn)以學(xué)生信息管理為例 ,得出學(xué)生信 息管理 ER 圖，如下圖31 所示： 圖 31 學(xué)生信息管理 ER 模型 邏輯結(jié)構(gòu)設(shè)計(jì) 邏輯結(jié)構(gòu)設(shè)計(jì)應(yīng)該首先選擇最適于描述與表達(dá)相應(yīng)概念結(jié)構(gòu)的數(shù)據(jù)模型，然后選擇最合適的數(shù)據(jù)庫(kù)管理系統(tǒng)。 （四）查詢(xún)學(xué)生信息： 根據(jù)學(xué)號(hào)或姓名對(duì)學(xué)生信息進(jìn)行精確 /模糊查詢(xún) （五）用戶管理： 定義使用本 系統(tǒng)的用戶名稱(chēng)及密碼 第三章 學(xué)生檔案管理系統(tǒng)設(shè)計(jì) 系統(tǒng)設(shè)計(jì)的主