【正文】 語言的出現(xiàn)為 Windows 下的編程提出了一個(gè)新概念，利用 Visual Basic 的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的鏈接和嵌入、動(dòng)態(tài)鏈接庫、 ActiveX 技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。 Jet 引擎被Visual Basic， Microsoft Access 和其他 Microsoft 產(chǎn)品共享。 Visual Basic 提供的數(shù)據(jù)訪問對(duì)象（ Data Access Object； DAO）讓程序設(shè)計(jì)者擁有更大的發(fā)揮空間。 ⑶ 支持分批修改數(shù)據(jù)庫內(nèi)容。 Property 對(duì)象：?jiǎn)为?dú)的一個(gè) Property 對(duì)象，提供屬性功能。這是系統(tǒng)建設(shè)工作中任務(wù)最為繁重、耗費(fèi)資源最多的一個(gè)階段，這個(gè)階段又可劃分為系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施三個(gè)小階段，構(gòu)成系統(tǒng)開發(fā)生命周期的三個(gè)主要階段。 ? 系統(tǒng)維護(hù)功能太差，主要是學(xué)校缺少計(jì)算維護(hù)方面的專業(yè)人才。在周老師的指導(dǎo)下，我會(huì)盡最大的努力將自己的水平發(fā)揮到最好，使自己的作品得到老師的肯定和認(rèn)可。這個(gè)關(guān)系到每個(gè)人命運(yùn)的問題絕對(duì)馬虎不得。 （一）現(xiàn)有系統(tǒng)的基本情況 現(xiàn)有系統(tǒng)的基本情況即學(xué) 生檔案 管理系統(tǒng)的概況。 （二）課程管理： 能對(duì)課程進(jìn)行添加、 刪除、 修改操作。 ? 修改密碼，包括用戶名、舊密碼、新密碼和確認(rèn)密碼。 添加一個(gè)模塊 module1，在 module1 中添加如下代碼 Option Explicit Global con As New Global rs As New Global classid As String, stuid As String Global LoginUser As String, LoginPower As String LoginUser 記錄當(dāng)前登陸用戶的用戶名 ,LoginPower 記錄當(dāng)前登陸用戶的權(quán)限 Dim Userid As String, Userpwd As String, Username As String, Userpower As String Dim sqlstr As String Sub Main() If = True Then MsgBox 注意程序已經(jīng)運(yùn)行，不能再次裝載！ , vbOKOnly Exit Sub Else Provider=。將當(dāng)前登陸用戶的權(quán)限保存到 LoginPower 中 Unload Me End If Else MsgBox 沒有您輸入的用戶名！ , 32 ?? End If : Set rs = Nothing Case 1 ‘ 退出整個(gè)程序 Unload Me End Select End Sub 主窗口 (frmmain) 本系統(tǒng)采取多文檔界面 (MultiDocument Interface)。 在這兩個(gè)事件中，均可將 Cancel 設(shè)置為任何非零的值來防止窗體被刪除。 , vbOKOnly + 48, 提示 ： Exit Sub End If If Trim() = Then MsgBox 密碼不能為空，請(qǐng)輸入密碼！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果不為空，則檢查用戶名是否有重復(fù)，需要打開系統(tǒng)信息表， Private Sub Command4_Click() ?? sqlstr = select * from UserInfo where UserID=39。 Userpwd amp。刪除用戶操作 On Error Resume Next If Then If DelNO = 1 Then MsgBox 只剩下一個(gè)用戶帳號(hào)，不允許再刪除！ , vbInformation ElseIf MsgBox(確定要?jiǎng)h除用戶名為 amp。修改密碼界面 1 End Sub 圖 修改用戶密碼 當(dāng)用戶輸入完畢時(shí)，單擊“確定”按鈕，引發(fā) Click 事件。 amp。 Userid amp。初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用戶名 , / 3) Set clmX = (, , 密碼 , / 6, 2) Set clmX = (, , 姓名 , / 4, 2) Set clmX = (, , 用戶權(quán)限 , / 4, 2) 普通用戶 超級(jí)用戶 = 0 LoadOperator End Sub 其中調(diào)用了 LoadOperator 函數(shù)，該函數(shù)用來顯示和刷新 Listview 中的數(shù)據(jù) Private Sub LoadOperator() On Error Resume Next Dim Listit As ListItem = lvwAuto = 3 Dim ef As New sqlstr = select * from UserInfo sqlstr, con, 1, 1 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來替代。 If LoginPower = 普通用戶 Then = False (5).Enabled = False End If End Sub 3． Form 的 QueryUnload 事件 當(dāng)用戶要退出 MDI 窗體時(shí)，需要在 QueryUnload 事件中詢問用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將 Cancel 置為 1，取消整個(gè)退出過程。密碼錯(cuò)誤時(shí) MsgBox 您輸入的密碼不正確！ , vbQuestion = 請(qǐng)輸入用戶名和密碼： loginno = loginno + 1 39。 ? 根據(jù)課程號(hào)查詢課程基本信息。如下圖 42所示數(shù)據(jù)庫 ER概念模型。 ? 在系統(tǒng)分析中，根據(jù)業(yè)務(wù)和數(shù)據(jù)流程的分析結(jié)果，對(duì)每個(gè)處理過程進(jìn)行認(rèn)真分析，研究每個(gè)人管理過程的信息處理特點(diǎn)，找出相適應(yīng)的管理模型，這是使管理信息系統(tǒng)充分發(fā)揮作用的前提。 另外，據(jù)我們所知，在我們的一些兄弟院校中早已有了相應(yīng)的系統(tǒng)，他們的師生也強(qiáng)烈體會(huì)到了這個(gè)系統(tǒng)的務(wù)實(shí)與便捷之處，因此，我們學(xué)校作為 西安市的知名 院校之一，當(dāng)然也不能甘于落后，尤其是我們信息 工程學(xué)院在 這方面就更要走在大家的前列，跟上時(shí)代潮流，為其他院系做出榜樣，也為系統(tǒng)的普遍應(yīng)用做鋪墊。況且，在資源日益缺乏的今天，節(jié)省紙張已不僅僅是為學(xué)校減少辦公費(fèi)用這一單純的意義。 通過調(diào)查分析，建立新的學(xué)生檔案 管理系統(tǒng)有其充分的必要性和可能性。還有就是學(xué)校雖然組織成 局域網(wǎng) ，但是仍沒有完整的系統(tǒng)，計(jì)算機(jī)的網(wǎng)絡(luò)優(yōu)勢(shì)也未得到發(fā)揮。pwd=。提供者使用開放式鎖定， 只在調(diào)用 Updata 方法時(shí)鎖定記錄?？砂阉c ASP 結(jié)合起來，建立提供數(shù)據(jù)庫信息的網(wǎng)頁內(nèi)容，對(duì)數(shù)據(jù)庫進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示”的最新 Web 數(shù)據(jù)庫技術(shù)。 數(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ù)庫。事實(shí)上， VisualBasic 幾乎支持對(duì)市面上所有數(shù)據(jù)庫的訪問。下面就對(duì)這些開發(fā)工具進(jìn)行介紹： Visual Basic 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。它具有提供信息，支持企業(yè)或組織的運(yùn)行、管理和決策功能。 全國(guó)高等教育自學(xué)考試 計(jì)算機(jī)信息管理專業(yè)（?？疲? (02651) 計(jì)算機(jī)信息處理綜合作業(yè) 題目： 學(xué)生檔案管理系統(tǒng) 準(zhǔn)考證號(hào)： 011309202062 考生姓名： 陳立敏 工作單位： 西安華西大學(xué) 西安電子科技大學(xué) 2020 年 4 月 15 日 綜合作業(yè)任務(wù)與成績(jī)考核登記表 （作業(yè)首頁） 題 目 學(xué)生檔案管理系統(tǒng) 指導(dǎo)教師 李西安 職稱 /學(xué)位 高工 聯(lián)系電話 13152046236 任務(wù) 及 要求 （具體、詳細(xì)） 自選 編程 語言結(jié)合數(shù)據(jù)庫原理設(shè)計(jì) 一個(gè)學(xué)生檔案管理系統(tǒng)，要求該系統(tǒng)可對(duì)在校學(xué)生的基本信息及成績(jī)進(jìn)行數(shù)據(jù)錄入、添加、修改、查詢等功能。 管理信息系統(tǒng)把人和計(jì)算機(jī)結(jié)合起來對(duì)組織進(jìn)行全面管理的系統(tǒng)，它綜合運(yùn)用了計(jì)算 機(jī)技術(shù)、通信技術(shù)、管理技術(shù)和決策技術(shù)，與現(xiàn)代管理思想、方法和手段結(jié)合起來， 為組織的管理活動(dòng)提供支持的工具。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減 少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 VisualBasic 可以訪問的數(shù)據(jù)庫可以簡(jiǎn)單的分為三類，即： Microsoft Access 格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。 數(shù)據(jù)控件是 Visual Basic 所提供的基本控件成員之一。 要 執(zhí)行 ADO，服務(wù)器端 必須 安裝 Windows NT Server 和 Inter Information Server(IIS)，而客戶端只要有 IE 或 NETSCAPE 較新版本的瀏覽器即可。 adLockBatchOptimistic 4 開放式批更新。database=student。同時(shí)，遇到網(wǎng)絡(luò)問題時(shí)，也得不到及時(shí)的解決，因?yàn)楹芏鄬W(xué)校缺少計(jì)算機(jī)方面的人才，系統(tǒng)維護(hù)方面的專業(yè)人才也太少，經(jīng)常整個(gè)系統(tǒng)會(huì)出現(xiàn)問 題，這樣影響了學(xué)校管理效率，也大大增加了學(xué)校的網(wǎng)絡(luò)這一塊的成本?？梢越⒃撔畔⑾到y(tǒng)的可能性具體包含了它具有經(jīng)濟(jì)可行性、技術(shù)可行性和社會(huì)可行性，新系統(tǒng)能達(dá)到以最小的開發(fā)成本取得最佳的經(jīng)濟(jì)效益，開發(fā)中所需人員、硬軟件支持以及其它費(fèi)用進(jìn)行估算情況均滿意，技術(shù)條件也能保證順利完成開發(fā)工作 。 計(jì)算機(jī)專業(yè)的學(xué)生多，課程重，管理起來非常困難。 如今， 網(wǎng)絡(luò)已是我們生活中的一部分，上網(wǎng)也就自然成為了家常便飯，如果這套系統(tǒng)能夠成功的在網(wǎng)上得到實(shí)施 ,無外乎就同時(shí)為我們學(xué)校 做了覆蓋面積極大的免費(fèi)廣 告，打響了招牌，知名度也將大幅度上升。 ? 管理科學(xué)的發(fā)展在管理活動(dòng)的各個(gè)層次、各個(gè)環(huán)節(jié)都形成了較為成熟的管理方法和定量化的管理模型，為管理信息系統(tǒng)的應(yīng)用創(chuàng)造了條件。 E R 圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下所示： 系（ 系編號(hào) 、系名） 專業(yè)（ 專業(yè)編號(hào) 、專業(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)示意圖。 ? 修改或刪除已有的課程基本信息。當(dāng)錯(cuò)誤的密碼次數(shù)達(dá)到 3次時(shí)，不能登陸，退出！ If loginno = 3 Then MsgBox 對(duì)不起，您不能使用該系統(tǒng)！請(qǐng)與管理員聯(lián)系。 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ā)