【正文】 Click() ShellExecute 0, open, 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 對象關(guān)閉時(shí)，在那個(gè)窗體中的 QueryUnload 事件先于該窗體的 Unload 事件發(fā)生， Unload 事件在 Terminate 事件之前發(fā)生。 Private Declare Function ShellExecuteamp。當(dāng)錯(cuò)誤的密碼次數(shù)達(dá)到 3次時(shí)，不能登陸，退出！ If loginno = 3 Then MsgBox 對不起，您不能使用該系統(tǒng)！請與管理員聯(lián)系。 Private Sub Form_Load() loginno = 0 End Sub 這里將“確定”和“取消”兩個(gè)按鈕作為一個(gè)按鈕數(shù)組 cmdOkCancel：確定按 鈕的 index 屬性為 0，取消按鈕的 index 屬性為 1。 ? 修改或刪除已有的課程基本信息。 ? 刪除已有的班級信息。 E R 圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下所示： 系（ 系編號 、系名） 專業(yè)（ 專業(yè)編號 、專業(yè)名） 班級（ 班級編號 ） 學(xué)生信息 （ 學(xué)號 、姓名、性別、籍貫、出生年月、家庭住址、民族、聯(lián)系電話、郵政編碼、備注） 課程信息 （ 課程號 、課程名、課時(shí)、學(xué)分） 成績（ 學(xué)號 、課程 名 、分?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)示意圖。本數(shù)據(jù)庫采用 Access 2020 來構(gòu)造，共使用了 7 個(gè)表，它們分別是用戶信息表 （ UserInfo）、學(xué)生信息表（ StuInfo）、班級信息表（ Class）、專業(yè)信息表（ Major）、學(xué)院信息表（ Depart）、課程信息表（ Lesson）、學(xué)生成績表（ Result）。 ? 管理科學(xué)的發(fā)展在管理活動(dòng)的各個(gè)層次、各個(gè)環(huán)節(jié)都形成了較為成熟的管理方法和定量化的管理模型，為管理信息系統(tǒng)的應(yīng)用創(chuàng)造了條件。所以，教學(xué)管理調(diào)查的好壞，將直接關(guān)系到將來新系統(tǒng)能否完成系統(tǒng)目標(biāo)的問題。 如今， 網(wǎng)絡(luò)已是我們生活中的一部分，上網(wǎng)也就自然成為了家常便飯，如果這套系統(tǒng)能夠成功的在網(wǎng)上得到實(shí)施 ,無外乎就同時(shí)為我們學(xué)校 做了覆蓋面積極大的免費(fèi)廣 告，打響了招牌，知名度也將大幅度上升。這就大大的為老師 和學(xué)生 提供了便利。 計(jì)算機(jī)專業(yè)的學(xué)生多，課程重，管理起來非常困難。雖然有如此好的客觀條件，但始終沒有一套完善簡單易用的管理系統(tǒng)?？梢越⒃撔畔⑾到y(tǒng)的可能性具體包含了它具有經(jīng)濟(jì)可行性、技術(shù)可行性和社會可行性，新系統(tǒng)能達(dá)到以最小的開發(fā)成本取得最佳的經(jīng)濟(jì)效益，開發(fā)中所需人員、硬軟件支持以及其它費(fèi)用進(jìn)行估算情況均滿意，技術(shù)條件也能保證順利完成開發(fā)工作 。為了更好的做好學(xué)生檔案信息管理這項(xiàng)工作，提高工作效率，更好的為 學(xué)校的發(fā)展和一線教學(xué)服務(wù)，結(jié)合我校實(shí)際情況，自行研制一套學(xué)生檔案 管理系統(tǒng)。同時(shí)，遇到網(wǎng)絡(luò)問題時(shí)，也得不到及時(shí)的解決，因?yàn)楹芏鄬W(xué)校缺少計(jì)算機(jī)方面的人才，系統(tǒng)維護(hù)方面的專業(yè)人才也太少，經(jīng)常整個(gè)系統(tǒng)會出現(xiàn)問 題，這樣影響了學(xué)校管理效率，也大大增加了學(xué)校的網(wǎng)絡(luò)這一塊的成本。本階段主要解決用戶要求做什么，該問題值不值得做，是否有可行的解決辦法，以防止花費(fèi)了大量人力、物力、財(cái)力和時(shí)間后，卻發(fā)現(xiàn)問題無解，而造成浪費(fèi)。database=student。 SQL 命令 ， 包括 Select、 Delete、 Update、 Insert Into、 Select Into 等。 adLockBatchOptimistic 4 開放式批更新。 ADO 組件的主要對象及其功能 ADO 組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象： Connection 對象：提供對數(shù)據(jù)庫的連接服務(wù)。 要 執(zhí)行 ADO，服務(wù)器端 必須 安裝 Windows NT Server 和 Inter Information Server(IIS)，而客戶端只要有 IE 或 NETSCAPE 較新版本的瀏覽器即可。 ADO 更易于使用。 數(shù)據(jù)控件是 Visual Basic 所提供的基本控件成員之一。 Jet 也提供對安全功能的支持。 VisualBasic 可以訪問的數(shù)據(jù)庫可以簡單的分為三類，即： Microsoft Access 格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。 當(dāng)然在 Visual Basic中還有其它特性，例如： ? 面向?qū)ο蟮木幊陶Z言； ? 結(jié)構(gòu)化程序設(shè)計(jì)； ? 事件驅(qū)動(dòng)的程序設(shè)計(jì)： 在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減 少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。事實(shí)上，信息系統(tǒng)是一個(gè)集技術(shù)、管理、社會組成為一體的結(jié)合物。 管理信息系統(tǒng)把人和計(jì)算機(jī)結(jié)合起來對組織進(jìn)行全面管理的系統(tǒng)，它綜合運(yùn)用了計(jì)算 機(jī)技術(shù)、通信技術(shù)、管理技術(shù)和決策技術(shù)，與現(xiàn)代管理思想、方法和手段結(jié)合起來， 為組織的管理活動(dòng)提供支持的工具。對于前者要求建立起數(shù)據(jù)一致性和完整性 強(qiáng)、數(shù)據(jù)安全性好的庫。 全國高等教育自學(xué)考試 計(jì)算機(jī)信息管理專業(yè)（?？疲? (02651) 計(jì)算機(jī)信息處理綜合作業(yè) 題目： 學(xué)生檔案管理系統(tǒng) 準(zhǔn)考證號： 011309202062 考生姓名： 陳立敏 工作單位： 西安華西大學(xué) 西安電子科技大學(xué) 2020 年 4 月 15 日 綜合作業(yè)任務(wù)與成績考核登記表 （作業(yè)首頁） 題 目 學(xué)生檔案管理系統(tǒng) 指導(dǎo)教師 李西安 職稱 /學(xué)位 高工 聯(lián)系電話 13152046236 任務(wù) 及 要求 （具體、詳細(xì)） 自選 編程 語言結(jié)合數(shù)據(jù)庫原理設(shè)計(jì) 一個(gè)學(xué)生檔案管理系統(tǒng)，要求該系統(tǒng)可對在校學(xué)生的基本信息及成績進(jìn)行數(shù)據(jù)錄入、添加、修改、查詢等功能。 學(xué)生檔案管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩 個(gè)方面。它具有提供信息，支持企業(yè)或組織的運(yùn)行、管理和決策功能。 但是，信息發(fā)揮以上重要 作用的前提條件是對其進(jìn)行有效的管理。下面就對這些開發(fā)工具進(jìn)行介紹： Visual Basic 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 從 Visual 版本開始，在 Visual Basic 中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得 Visual Basic 的代碼效率有了很大的提高，同時(shí)執(zhí)行的速度 也加快了解30%(同 Visual 相比 )。事實(shí)上， VisualBasic 幾乎支持對市面上所有數(shù)據(jù)庫的訪問。 SQL 提 供用單獨(dú)語句對基于用戶定義標(biāo)準(zhǔn)的記錄組進(jìn)行檢索、添加、刪除或更新的方法。 數(shù)據(jù)管理器（ Data Manager）是 Visual Basical 已有的老成員之一，拓本盛舉有的 Jet 數(shù)據(jù)庫引擎（ Database Engine）可以幫助 Visual Basic 程序元件立即維護(hù)數(shù)據(jù)庫內(nèi)容，并可通過輸入查詢或查找數(shù)據(jù)庫信息，而不必再通過其他數(shù)據(jù)庫軟件另外去設(shè)計(jì)數(shù)據(jù)庫。 ADO 是 VB ，它是一 個(gè)更簡單的對象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對本地和遠(yuǎn)程數(shù)據(jù)庫均有共同的界面，可以取代 DAO 和 RDO?？砂阉c ASP 結(jié)合起來，建立提供數(shù)據(jù)庫信息的網(wǎng)頁內(nèi)容，對數(shù)據(jù)庫進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示”的最新 Web 數(shù)據(jù)庫技術(shù)。 ⑺ ADO 屬于 Free_threaded 對象，利用它可以開發(fā)出更有效的 Web 應(yīng) 用程序。提供者使用開放式鎖定， 只在調(diào)用 Updata 方法時(shí)鎖定記錄。 SQL 命令主要分成兩部分： DDL(Data Definition Language)和 DML(Data Manipulation Language),其中 DDL 是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而 DML則是操作數(shù)據(jù)庫記錄的指令群，如數(shù)據(jù)庫記錄的添加、更新、刪除、 和查詢等。pwd=。系統(tǒng)分析在整個(gè)系統(tǒng)開發(fā)過程中，是要解決 “做什么 ”的問題，把要解決的哪些問題、滿足用戶哪些具體的信息需求，調(diào)查、分析清楚，從邏輯上，或者說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計(jì)、解決 “怎么做 ”提供依據(jù)。還有就是學(xué)校雖然組織成 局域網(wǎng) ，但是仍沒有完整的系統(tǒng)，計(jì)算機(jī)的網(wǎng)絡(luò)優(yōu)勢也未得到發(fā)揮。 每所高校每年都有大量的學(xué)生入學(xué)，如何對學(xué)生檔案信息進(jìn)行有效的管理，這是一項(xiàng)比較復(fù)雜的問題。 通過調(diào)查分析，建立新的學(xué)生檔案 管理系統(tǒng)有其充分的必要性和可能性。這使我們開發(fā)這一對我們來說比較復(fù)雜的系統(tǒng)成為可能。況且，在資源日益缺乏的今天，節(jié)省紙張已不僅僅是為學(xué)校減少辦公費(fèi)用這一單純的意義。 我們這套學(xué)生 檔案 管理系統(tǒng)不僅能夠讓老師更清晰的掌握自己學(xué)生的信息，同時(shí)也讓學(xué)生自己更容易的知道 個(gè)人信息 ，如何計(jì)算學(xué)分及盡早得知自己的考試成績。 另外，據(jù)我們所知，在我們的一些兄弟院校中早已有了相應(yīng)的系統(tǒng)，他們的師生也強(qiáng)烈體會到了這個(gè)系統(tǒng)的務(wù)實(shí)與便捷之處，因此，我們學(xué)校作為 西安市的知名 院校之一，當(dāng)然也不能甘于落后，尤其是我們信息 工程學(xué)院在 這方面就更要走在大家的前列，跟上時(shí)代潮流，為其他院系做出榜樣，也為系統(tǒng)的普遍應(yīng)用做鋪墊。因此，調(diào)查管理教學(xué)的過程，不是一個(gè)簡單的接受過程，而是一個(gè)發(fā)現(xiàn)問題、提出問題和為今后解決問題做準(zhǔn)備的過程。 ? 在系統(tǒng)分析中，根據(jù)業(yè)務(wù)和數(shù)據(jù)流程的分析結(jié)果，對每個(gè)處理過程進(jìn)行認(rèn)真分析，研究每個(gè)人管理過程的信息處理特點(diǎn)，找出相適應(yīng)的管理模型，這是使管理信息系統(tǒng)充分發(fā)揮作用的前提。 數(shù)據(jù)庫的設(shè)計(jì) 在系統(tǒng)設(shè)計(jì)過程中，首先要建立的就是數(shù)據(jù)庫。如下圖 42所示數(shù)據(jù)庫 ER概念模型。 ? 修改已存在的班級信息。 ? 根據(jù)課程號查詢課程基本信息。 圖 用戶登陸界面 在代碼窗口的“通用”部分，定義一個(gè)模塊級的公共變量 loginno 用來記錄當(dāng)前密碼輸入錯(cuò)誤的次數(shù) Dim loginno As Integer 在 Form 的 Load 事件中，將 txtuser 設(shè)置為焦點(diǎn)，初始化 loginno。密碼錯(cuò)誤時(shí) MsgBox 您輸入的密碼不正確！ , vbQuestion = 請輸入用戶名和密碼： loginno = loginno + 1 39。 窗體代碼設(shè)計(jì) 1．在代碼窗口的通用部分，聲明一個(gè) API 函數(shù)用于打開幫助文件和調(diào)用 Outlook發(fā)送郵件。 If LoginPower = 普通用戶 Then = False (5).Enabled = False End If End Sub 3． Form 的 QueryUnload 事件 當(dāng)用戶要退出 MDI 窗體時(shí)，需要在 QueryUnload 事件中詢問用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將 Cancel 置為 1，取消整個(gè)退出過程。 Private Sub filemenu15_Click() If MsgBox(若重新登陸，所有窗體都將關(guān)閉！是否重新登陸？ , vbYesNo + vbQuestion, 重新登陸 ) = vbYes Then Unload Me End If End Sub 5．“幫助主題”子菜單的代碼 調(diào)用 Windows API 函數(shù)，打開 幫助文件。初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用戶名 , / 3) Set clmX = (, , 密碼 , / 6, 2) Set clmX = (, , 姓名 , / 4, 2)