學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)論文(編輯修改稿)
2024-10-03 16:27 本頁面
【文章內(nèi)容簡介】 理。通過本系統(tǒng)，把本校內(nèi)部查詢學(xué)生信息、教務(wù)信息、學(xué)生選課各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。 本系統(tǒng)主要信息流程為：教務(wù)信息維護(hù)接受學(xué)生的信息，學(xué)生信 息查詢根據(jù)教務(wù)信息維護(hù)的學(xué)生信息做出對所接收的信息合理性進(jìn)行判斷，并交于信息維護(hù)進(jìn)行相應(yīng)的修改，再把信息存入數(shù)據(jù)庫中。學(xué)生選課是對學(xué)生進(jìn)行相應(yīng)選擇自己相關(guān)的課程。最后進(jìn)行打印。 采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速高效運(yùn)行。 本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級表、成績表、科目表 、 學(xué)生基本信息表 、用戶 表，由這五 個(gè)表，組成了名為信息的數(shù)據(jù)庫（如圖一）。其中學(xué)生檔案是本系統(tǒng)主要的 10 （圖一） 一張表，所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的操作，主要的字段有：學(xué)號、姓名、年級、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學(xué)時(shí)間、備注。其中日期的數(shù)據(jù)類型為日期 /時(shí)間天型，其它的數(shù)據(jù)類型為文本型；成績表中字段為：學(xué)號、姓名 、年級、專業(yè)、學(xué)期、考試時(shí)間、考試科目、考試地點(diǎn)、課程性質(zhì)、科目分?jǐn)?shù)、違紀(jì)類型、備注；課程表中字段為：專業(yè)、年級、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)、考試性質(zhì)；用戶資料中的字段包括：用戶名、密碼、身份。 數(shù)據(jù)庫與 VB 的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是 ADO 方法，打開控制面板，打開 ODBC數(shù)據(jù)源圖標(biāo)，選擇“系統(tǒng) DSN”標(biāo)簽，點(diǎn)擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對話框中選擇名稱為“ Microsoft Access Drive（ *.mdb）”，點(diǎn)擊“完成”按鈕，在 ODBC Microsoft Access 安裝對話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫這個(gè)框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫這一對話框架中，在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅(qū)動(dòng)器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“ Access 數(shù)據(jù)庫（ *.mdb）”，在數(shù)據(jù)庫名中選擇本系統(tǒng)的數(shù)據(jù)庫，點(diǎn)擊“確定”按鈕即完成數(shù)據(jù)鏈 接 。 在 VB 中，用 ADODC 鏈接數(shù)據(jù)庫，用 DataGrid 或 DATA 將庫中的數(shù)據(jù)在界面中顯示出來，本系統(tǒng)采用 DataGrid。在界面上右擊 Adodc 控制，在彈出的快捷菜單中選擇屬性，在屬性 11 對話 框中，在“屬性”這一標(biāo)簽中， 選中單選框“ Use ODBC Data Source Name”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“ RecordSoure”標(biāo)簽中，在 Commard Text（ SQL）文本框中輸入查詢語句，如： select * from 學(xué)生檔案。同時(shí)，將桌面的 DataGrid 控件選中，在屬性框中，將它的 Datasoure 設(shè)為 Adodc。 我們可以設(shè)置 DataGrid 控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時(shí)，表格中出 現(xiàn)了表的字段。然后再右擊，同樣，在彈 出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進(jìn)行調(diào)整。 12 第六章 系統(tǒng)（查詢模塊）總體規(guī)劃 6． 1 系統(tǒng)功能（查詢模塊） 查詢信息的情況； 判斷信息是否符合要求； 將符合條件的信息進(jìn)行； 6． 2 流程圖 學(xué)生注冊 基本信息輸入 學(xué)籍信息管理 班級管理 班級課程設(shè)置 課程基本信息 班級課程管理 成績信息輸入 成績信息管理 班級設(shè)置 13 第七 章 系統(tǒng)的 具體 實(shí)現(xiàn) 7． 1 系統(tǒng)登錄模塊的實(shí)現(xiàn) 1．流程圖 2．界面： 界面包括的控件有標(biāo)簽、文本框、命令按鈕等控件。 Y N 開始 輸入登錄密碼 是否正確 主界面 14 3．實(shí)現(xiàn)過程： 第一步將所需的控件放到窗體的相應(yīng) 位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。如下圖： 第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面 : 15 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼： 如此窗體上“進(jìn)入”與“退出”按鈕的代碼如下： 16 ７． 2 主界面的實(shí)現(xiàn) 主界面是用菜單形式表現(xiàn)的，如圖 17 菜單的制作過程如下： 首先通過“工具”菜單中 的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設(shè)計(jì)過程中我們還可以給菜單加快捷鍵。 18 最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼），代碼如下： 主要是通過 Show 方法調(diào)用相應(yīng)的窗體 。 7． 3 各 功能 的實(shí)現(xiàn) 7． 3． 1 學(xué)科管理 模塊的實(shí)現(xiàn)： １、運(yùn)行界面： 19 2．實(shí)現(xiàn)過程： 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。 第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，同上一小結(jié)。 其它屬性和控件的設(shè)置方法類似。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼： 窗體的 load 事件為： Private Sub Command1_Click() Dim myCon As New Dim myRs As New Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String ZhuanYe = NianJi = XueQi = KeCheng = JiaoCai = RenKLS = KeShi = 20 ShangKeDD = KeChengXZ = KaoShiXZ = If Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(XueQi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeShi) = Or Trim(ShangKeDD) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 請?zhí)顚懸薷恼n程資料的內(nèi)容！ = = Exit Sub End If dsn=信息 select * from 課程表 where 專業(yè) =39。 amp。 amp。 39。, myCon, 3, 2 myRs!年級 = myRs!學(xué)期 = myRs!課程名稱 = myRs!教材 = myRs!任課老師 = myRs!課時(shí) = myRs!上課地點(diǎn) = myRs!課程性 質(zhì) = myRs!考試性質(zhì) = MsgBox 您確定要修改嗎？ , vbYesNo, 提示 = = 39。 = = 21 = = = = = = End Sub Private Sub Command2_Click() Unload Me End Sub Pri
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1