【正文】 Basic 以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。 該軟件是在 Windows XP + Visual Basic + Access 2020 的環(huán)境下完成的。有效的管理信息系統(tǒng)不僅有助于企業(yè)提高效率和工作質(zhì)量，而且還提供了在全球范圍內(nèi)進(jìn)行交易、管理、溝通和分析的工具，并且能夠協(xié)助企業(yè)管理資源和流程，及時響應(yīng)客戶和供應(yīng)商的需求，從而有助于企業(yè)獲得商業(yè)價值。它以計算機(jī)硬件和軟件，手工作業(yè)為基礎(chǔ)，利用分析、計劃、控制和決策模型，以 及數(shù)據(jù)庫的人機(jī)系統(tǒng)。因此，開發(fā)這樣一套管理軟件成為很有必要的事情。 任務(wù)下達(dá)日期： 任務(wù)完成日期： 成績 評定 意見 導(dǎo)師簽名 年 月 日 學(xué)生聯(lián)系 電話 15339296009 準(zhǔn)考證號 011309202062 所學(xué)專業(yè) 軟件工 程 姓 名 陳立敏 摘 要 學(xué)生檔案管理系統(tǒng)是一個教育單位不可缺少的部分 ,該系統(tǒng)提供的信息對于學(xué)校的決策者和管理者來說都至關(guān)重要 ,學(xué)生檔案管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。而對于后者則要求應(yīng)用程序功能完備 ,具有良好的界面，易使用等特點。管理信息系統(tǒng)具有收集處理和傳輸信息的功能，這是它的基本功能，但如果把這些基本功能應(yīng)用于管理各種業(yè)務(wù)過程時，管理信息系統(tǒng)就賦予了具體的任務(wù)，如用于財務(wù)管理、人事管理，生產(chǎn)管理等。實施管理信息系統(tǒng)是一項長期的、復(fù)雜的工程，不僅僅需要計算機(jī)技術(shù)和科學(xué)的應(yīng)用，還需要重視信息安全與風(fēng)險規(guī)避，需要運(yùn)用系統(tǒng)理論、管理學(xué)、數(shù)學(xué)乃至行為科學(xué)等知識進(jìn)行全面規(guī)劃。利用 VISUAL BASIC 程序設(shè)計語言，可以很方便地設(shè)計出在 WINDOWS 環(huán)境下運(yùn)行的應(yīng)用程序。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時才會調(diào)用過程。 VisualBasic 對多種數(shù)據(jù)庫格式的支持，大大的增強(qiáng)了開發(fā)數(shù)據(jù)庫應(yīng)用程序的能力。這種功能讓開發(fā)者指定用戶標(biāo)識符和口令，他們必須在用戶訪問數(shù)據(jù)庫之前給出。它使得設(shè)計者省下一堆程序代碼編寫的工作，能夠輕松的設(shè)計及維護(hù)數(shù)據(jù)庫內(nèi)容。 我們在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫及數(shù)據(jù)庫表，并采用了 ADO 數(shù)據(jù)訪問技術(shù)。 利用 ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序有以下幾個優(yōu)點： ⑴ 支持客戶機(jī) /服務(wù)器結(jié)構(gòu)（ Client/Server）與 Web 系統(tǒng)開發(fā)技術(shù)。 Command 對象：定義對數(shù)據(jù)庫源操作的命令。用于與立即更新模式相反的批更新模式。 ⑴ 篩選及排序記錄的 Select 指令 基本句型一： Select 字段串列 From 數(shù)據(jù)表 基本句型二： Select ? From ? Where 篩選條件 基本句型三 ： Select ? From ? Order By 字段串列 Select Top：限定選取數(shù)據(jù)的條數(shù) ⑵ 刪除數(shù)據(jù)記錄的 Delete 指令 基本語法： Delete From 數(shù)據(jù)表 Where 條件式 ⑶ 更新數(shù)據(jù)記錄的 Update 指令 基本語法： Update 數(shù)據(jù)表 Set 表達(dá)式 ⑷ 增加數(shù)據(jù)記錄的 Insert Into 指令 基本句型一： Insert Into 數(shù)據(jù)表 (字段串列 ) Values (字段串列 ) 基本句型二： Insert Into 數(shù)據(jù)表 (字段 1,字段 2,? ,字段 n) Select ? ⑸ 建立新數(shù)據(jù)表的 Select Into 指令 該指令與“ Insert Into ? Select ?”指令的區(qū)別是，這個指令將建立另一個新的數(shù)據(jù)表，而 Insert Into 是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。 ③設(shè)定 SQL 語句，使用“ Execute”命令，即可開始執(zhí)行訪問數(shù)據(jù)庫的動作 Dim rs As New 其中 rs為結(jié)果集對象（ RECORDSET） ④關(guān)閉結(jié)果集對象，斷開與數(shù)據(jù)庫的連接 第二章 學(xué)生選課管理信息系統(tǒng)分析 在管理信息系統(tǒng)的生命周期中，緊接系統(tǒng)規(guī)劃階段的是系統(tǒng)開發(fā)。若有解，且值得做，就應(yīng)該推薦一個較好的解決方案，并制定一個初步計劃。面對這一系列的問題，總結(jié)出目前學(xué)生學(xué)籍管理系統(tǒng)存在的問題： ? 沒完全實現(xiàn)信息管理化，基本上處在半人工半計算機(jī)的階段。在我校目前的學(xué)生懸空信息管理中，雖然應(yīng)用了計算機(jī)進(jìn)行管理，擺脫了全手工的管理方式，但由于沒有一 套統(tǒng)一的方式、方法和軟件系統(tǒng)支持，仍然存在著諸如數(shù)據(jù)分散、不一致、可利用率低等的問題，以致影響力工作效率的進(jìn)一步提高。 ? 技術(shù)可行性 作為一名計算機(jī)專業(yè)的學(xué)生，通曉一些計算機(jī)軟件知識是肯定的，運(yùn)用軟件編寫程序的能力也是必備的?，F(xiàn)行系統(tǒng)雖然擁有 了比較規(guī)范、科學(xué)的管理方法，并積累了大量的數(shù)據(jù)信息，具有一定的可行性，但是并不能掩蓋其工作量大，管理不夠系統(tǒng)的缺點。相應(yīng)的也加大了老師的工作量，又因為教學(xué)制度的不斷變動和改革，因此，總能及時 統(tǒng)計查詢出一份內(nèi)容清晰，條理性 強(qiáng)的學(xué)生檔案信息 分析報表對老師來說真是難于登天。比如，在每學(xué)期期末考試后，大多數(shù)學(xué)生都已回到家中，如果為了獲取考試成績又不得不再返回學(xué)校的話，既費(fèi)時又費(fèi)力，學(xué)生牢騷滿腹，老師也不能提早放假休息。這樣，我們學(xué)校招集各路人才，培養(yǎng)人才的計劃也將長久的順利進(jìn)行下去，得到這樣大的收獲 ,還真是大快人心啊！ 現(xiàn)行系統(tǒng)的詳細(xì)調(diào)查 系統(tǒng)調(diào) 查是對學(xué)生檔案管理 現(xiàn)行系統(tǒng)的及周圍環(huán)境現(xiàn)狀的了解，從而掌握與系統(tǒng)開發(fā)有關(guān)的基本情況，確定信息需求。 （三）信息需求、處理 和信息資源 系統(tǒng)分析中，比較困難的工作就是定義滿足系統(tǒng)目標(biāo)的特定信息需求，它 包括確認(rèn)何人、何時、何地需要何種信息。 ? 在一個具體系統(tǒng)中應(yīng)采用的模型則必須由前一階段的分析結(jié)果和有關(guān)管理科學(xué)的狀況所決定，因而并無固定模式。 1． 用戶信息表（ UserInfo）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 UserID 文本 用戶名 Not Null Primary Key UserPWD 文本 用戶密碼 Not Null UserName 文本 姓名 Not Null UserPower 文本 使用權(quán)限 Not Null 2． 學(xué)生信息表（ StuInfo）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 SID 文本 學(xué)號 Not Null Primary Key SName 文本 姓名 Not Null SGender 文本 性別 Not Null SPlace 文本 籍貫 Not Null SBirthday 日期 /時間 出生日期 Not Null SMinzu 文本 民族 Not Null SZhengzhi 文本 政治面貌 Not Null SDormitory 文本 寢室號碼 Not Null SAddress 文本 家庭住址 Not Null SCode 文本 郵政編碼 Not Null STel 文本 聯(lián)系電話 Not Null SRemark 文本 備注 3． 班級信息表（ Class）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 班級代碼 Not Null Primary Key 4． 專業(yè)信息表（ Major）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 專業(yè)代號 Not Null Primary Key Name 文本 專業(yè) 名稱 Not Null 5． 系信息表（ Depart）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 系代號 Not Null Primary Key Name 文本 系名稱 Not Null 6．課程信息表（ Lesson）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 課程代號 Not Null Primary Key Name 文本 課程名稱 Not Null Time 文本 課時 Not Null Mark 文本 學(xué)分 Not Null 7．學(xué)生成績表（ Result）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 SID 文本 學(xué)號 Not Null Primary Key Name 文本 課程名稱 Not Null Score 文本 分?jǐn)?shù) Not Null Remark 文本 備注 概念結(jié)構(gòu)設(shè)計 概念結(jié)構(gòu)設(shè)計 通常是使用 ER圖對它的描述工具進(jìn)行設(shè)計， 對需求分析階段收集到的數(shù)據(jù)進(jìn)行分類、組織（聚集），形成實體、實體的屬性，標(biāo)識實體的碼，確定實體之間的聯(lián)系類型，設(shè)計 ER圖 。 圖 學(xué)生學(xué)籍管理系統(tǒng)總體結(jié)構(gòu)圖 由上述的 系統(tǒng)總體結(jié)構(gòu)圖所示，將一個開發(fā)的 學(xué)生檔案管理系統(tǒng)分成六個子模塊，他們分別為：系統(tǒng)用戶管理模塊、專業(yè)信息管理模塊 、班級信息管理模塊、成績信息管理模塊、學(xué)生信息管理模塊、課程信息管理模塊；通過這些子模塊完成各項功能， 學(xué)生檔案管理系統(tǒng) 系統(tǒng)用戶管理 學(xué)生信息管理 班級信息管理課程 課程信息管理 專業(yè)信息管理 成績信息管理 用戶數(shù)據(jù)的編輯與錄入 專業(yè)信息的編輯與錄入 學(xué)生信息的編輯與錄入 成績信息的編輯與錄入 班級信息的編輯與錄入 課程信息的編輯與錄入 系別信息管理 系別信息的編輯與錄入 根據(jù)該系統(tǒng)功能分析，該軟件主要有 7 個功能模塊， 具體 功能描述 如下： （ 1） 系統(tǒng)用戶管理 ： ? 添加用戶信息，包括用戶名和密碼。 （ 4） 成績信息管理 ： ? 添加成績信息 ? 修改成績信息。 （ 7）系別信息管理： ? 添加新的系基本信息并可保存，包括系編號、 系名。 利用 SQL 語句，在數(shù)據(jù)庫中查詢，如果查到相應(yīng)的記錄，則調(diào)用 Case 0 事件，用戶的登陸獲得通過，此時可以退出登陸窗口，并進(jìn)入主窗口，同時將用戶類型和用戶名分別傳遞到 MDI 主窗口和 frmmanage 中；如果沒有相應(yīng)的記錄，則給出提示錯誤信息，同時將用戶輸入錯誤密碼次數(shù)增加 1，如果錯誤超過 3次，則退出整個系統(tǒng)；若次數(shù)還沒有超過 3次，則提示用戶重新輸入。 , vbInformation Unload Me Exit Sub End If ?? Else LoginUser = Userid 39。 Lib Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 2．判斷用戶權(quán)限 如果登陸的為普通用戶類型的用戶，則用戶不能使用“用戶管理”這一功能，而對于管 理員類型的用戶，則沒有此限制。 當(dāng)一個應(yīng)用程序關(guān)閉時，可使用 QueryUnload 或 Unload 事件過程將 Cancel屬性設(shè)置為 True 來阻止關(guān)閉過程。 \, , , 1 End Sub 6．當(dāng)用戶單擊查詢學(xué)生資料菜單項或者按下 F3 鍵時，將會出現(xiàn)“查找學(xué)生”窗體，供用戶查找滿足特定要求的學(xué)生信息。, vbTextCompare) Then MsgBox 用戶姓名中有特殊字符 + 39。 Userid amp。,39。 39。更新列表 LoadOperator End Sub 4．刪除系統(tǒng)用戶 當(dāng)用戶雙擊 ListView 中的數(shù)據(jù)時，則會調(diào)用 DeleteRecord()函數(shù)，如果系統(tǒng)用戶只剩一個，則提示用戶不能再刪除；反之要求輸入您想要刪除的用戶的密碼，密碼正確時才可以將該用戶刪除，密碼錯誤時則不采取任何措施；最后調(diào)用 LoadOperator 顯示并刷新 Listview 中的數(shù)據(jù)。 sqlstr, con, 1, 1 If MD5(InputBox(請輸入該用戶的密碼： )) = (UserPWD) Then sqlstr = delete from UserInfo where UserID