【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 教師信息管理功能主要是對(duì)教師的相關(guān)信息的管理，可以完成教師檔案的錄入以及瀏覽教師授課報(bào)表。 選課信息管理功能主要是對(duì)選課信息的管理。可以完成課程信息錄入 、學(xué)生選課信息錄入以及選課信息錄入。 7 系統(tǒng)模塊劃分 根據(jù)系統(tǒng)功能設(shè)計(jì)，本系統(tǒng)可分為學(xué)生信息管理模塊、教師信息管理模塊、選課信息管理模塊。它們之間的關(guān)系如圖 所示。 學(xué)生信息管理系統(tǒng) 學(xué)生信息管理 學(xué)生成績(jī)錄入 學(xué)生信息查詢(xún) 學(xué)生信息統(tǒng)計(jì) 學(xué)生信息瀏覽 學(xué)生檔案錄入 教師檔案錄入 教師授課報(bào)表 課程信息錄入 學(xué)生選課信息錄入 選課信息查詢(xún) 教師信息管理 選課信息管 理 圖 2. 1系統(tǒng)功能模塊劃分 8 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)可以簡(jiǎn)化開(kāi)發(fā)過(guò)程，使系統(tǒng)功能更加清晰明確。因?yàn)閿?shù)據(jù)庫(kù)結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)后再進(jìn)行編碼，從而避免無(wú)謂的重復(fù)工作。 本系統(tǒng)數(shù)據(jù)庫(kù)包含 6 個(gè)表 ，即學(xué)生檔案表、課程名表、學(xué)生選課信息表、教師檔案表、教師授課信息表和學(xué)生成績(jī)表。下面分別介紹這些表的結(jié)構(gòu)。 （ 1） 學(xué)生檔案表邏輯結(jié)構(gòu)如表 所示。 表 2. 1學(xué)生檔案表 字段名 字段類(lèi)型 格式 索引否 說(shuō)明 學(xué)號(hào) 文本 標(biāo)準(zhǔn) 有 學(xué)生的編號(hào) 姓名 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生的姓名 性別 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生性別 出生日期 日期 /時(shí)間 標(biāo)準(zhǔn) 無(wú) 學(xué)生的出生日期 政治面貌 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生的政治面貌 班級(jí)編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生所屬班級(jí)的編號(hào) 畢業(yè)學(xué) 校 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生畢業(yè)的學(xué)校 （ 2） 課程名表邏輯結(jié)構(gòu)如表 所示。 表 2. 2課程名表 字段名 字段類(lèi)型 格式 索引否 說(shuō)明 課程編號(hào) 文本 標(biāo)準(zhǔn) 有 課程的編號(hào) 課程名 文本 標(biāo)準(zhǔn) 無(wú) 課程的名稱(chēng) 課程類(lèi)別 文本 標(biāo)準(zhǔn) 無(wú) 課程所屬類(lèi)別 學(xué)分 數(shù)字 標(biāo)準(zhǔn) 無(wú) 課程對(duì)應(yīng)學(xué)分 （ 3） 學(xué)生選課信息表結(jié)構(gòu)如表 所示 表 2. 3學(xué)生選課信息表 字段名 字段類(lèi)型 格式 索引否 說(shuō)明 選課 ID 文本 標(biāo)準(zhǔn) 有 在學(xué)生所選課程中的編號(hào) 課程編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 課程的編號(hào) 學(xué)號(hào) 文本 標(biāo)準(zhǔn) 有 學(xué)生的編號(hào) 9 （ 4） 教師檔案表邏輯結(jié)構(gòu)如表 所示。 表 2. 4教師檔案表 字段名 字段類(lèi)型 格式 索引否 說(shuō)明 教師編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 教師的編號(hào) 姓名 文本 標(biāo)準(zhǔn) 無(wú) 教師的姓名 性別 文本 標(biāo)準(zhǔn) 無(wú) 教師的性別 工作時(shí)間 日期 /時(shí)間 標(biāo)準(zhǔn) 無(wú) 教師工作的時(shí)間 政治面貌 文本 標(biāo)準(zhǔn) 無(wú) 教師的政治面貌 學(xué)歷 文本 標(biāo)準(zhǔn) 無(wú) 教師的最高學(xué)歷 職稱(chēng) 文本 標(biāo)準(zhǔn) 無(wú) 教師的職稱(chēng) 系別 文本 標(biāo)準(zhǔn) 無(wú) 教師所在的院系 聯(lián)系電話 數(shù)字 標(biāo)準(zhǔn) 無(wú) 教師的聯(lián)系電話 （ 5） 教師授課信息表邏輯結(jié)構(gòu)如表 所示。 表 2. 5教師授課信息表 字段名 字段類(lèi)型 格式 索引否 說(shuō)明 授課 ID 文本 標(biāo)準(zhǔn) 有 在教師所授課程中的編號(hào) 課程編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 課程的編號(hào) 教師編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 教師的編號(hào) 班級(jí)編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 班級(jí)的編號(hào) 學(xué)年 文本 標(biāo)準(zhǔn) 無(wú) 課程開(kāi)設(shè)的學(xué)年 學(xué)期 數(shù)字 標(biāo)準(zhǔn) 無(wú) 課程開(kāi)設(shè)的學(xué)期 學(xué)時(shí) 數(shù)字 標(biāo)準(zhǔn) 無(wú) 課程的學(xué)時(shí) 授課地點(diǎn) 文本 標(biāo)準(zhǔn) 無(wú) 課程的上課地點(diǎn) 授課時(shí)間 日期 /時(shí)間 標(biāo)準(zhǔn) 無(wú) 課程的上課時(shí)間 （ 6） 學(xué)生成績(jī)表邏輯結(jié)構(gòu)如表 所示。 表 2. 6學(xué)生成績(jī)表 字段名 字段類(lèi)型 格式 索引否 說(shuō)明 成績(jī) ID 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生所選的課程成績(jī)的編號(hào) 學(xué)號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 學(xué)生的編號(hào) 學(xué)年 文本 標(biāo)準(zhǔn) 無(wú) 課程開(kāi)設(shè)的學(xué)年 學(xué)期 數(shù)字 標(biāo)準(zhǔn) 無(wú) 課程開(kāi)設(shè)的學(xué)期 課程編號(hào) 文本 標(biāo)準(zhǔn) 無(wú) 課程的編號(hào) 成績(jī) 文本 標(biāo)準(zhǔn) 無(wú) 某門(mén)課程的成績(jī) 10 信息管理系統(tǒng)數(shù)據(jù)庫(kù)中，表之間是存在一定關(guān)系的。根據(jù)數(shù)據(jù)表的邏輯設(shè)計(jì)，建立數(shù)據(jù)庫(kù)表之間的關(guān)系，最終創(chuàng)建的關(guān)系如圖 所示。 圖 2. 2創(chuàng)建完成的關(guān)系視圖 11 3 系統(tǒng)的實(shí)現(xiàn) 在上述系統(tǒng)分析和總體設(shè)計(jì)之后，將對(duì)系統(tǒng)的具體實(shí)現(xiàn)進(jìn)行闡述。 系統(tǒng)登錄的設(shè)計(jì)與實(shí)現(xiàn) 系 統(tǒng) 啟動(dòng)后，將首先出現(xiàn)用戶登錄 界面 ， 當(dāng)用戶輸入正確的用戶名和密碼之后才能繼續(xù)登錄，進(jìn)行下一步操作。用戶登錄界面如圖 所示： 圖 3. 1 “登錄”界面 主要代碼如下： Private Sub form_open(Cancel As Integer) 39。設(shè)置打開(kāi)窗體時(shí)的屬性 = False = True End Sub Private Sub cmdenter_click() Dim strpassword, strusername As String Dim flag As Integer Dim record As flag = 0 39。從“用戶”表里讀取用戶名和密碼 openrecord select * from 用戶 , record 39。循環(huán)判斷用戶名是否存在，密碼是否正確 Do Until strusername = record(用戶名 ) strpassword = record(密碼 ) If UCase() UCase(strusername) Then 12 39。若相等，說(shuō)明用戶名存在，可以跳出循環(huán) Else flag = 1 Exit Do End If Loop 39。flag=0 說(shuō)明用戶名不存在，進(jìn)行處理 39。設(shè)置文本框的內(nèi)容為空，“確定”鍵不 可用，焦點(diǎn)設(shè)在 txtusername If flag = 0 Then MsgBox 沒(méi)有這個(gè)用戶名，請(qǐng)重新輸入 = = = False Exit Sub 39。若 flag=1 說(shuō)明所輸入的用戶名存在，進(jìn)一步比較密碼是否正確 39。若密碼出錯(cuò)，設(shè)置 txtusername 的內(nèi)容不變， txtpassword 的內(nèi)容為空， 39。若密碼出錯(cuò) ,“確定”鍵不可用，并把焦點(diǎn)設(shè)在 txtpassword Else If UCase() UCase(strpassword) Then MsgBox (密碼錯(cuò)誤，請(qǐng)重新輸入 ) = = False Exit Sub End If End If 39。用戶名和密碼都正確，打開(kāi)“主界面”窗體 主界面 End Sub Private Sub cmdcancle_Click() 39。設(shè)置“取消”鍵的事件過(guò)程 13 39。點(diǎn)擊取消后，文本框的內(nèi)容為空，“確定”鍵不能用 On Error GoTo Err_login_cancel_Click Exit_login_cancel_Click: Exit Sub Err_login_cancel_Click: MsgBox Resume Exit_login_cancel_Click End Sub Private Sub form_keyup(keycode As Integer, Shift As Integer) 39。檢測(cè)用戶名，密碼文本框是否都有字符，有的話設(shè)置“確定”按鈕可用 39。在 txtusername 或 txtpassword 中每鍵入一個(gè)字符，觸發(fā)執(zhí)行本段程序 39。根據(jù)當(dāng)前活動(dòng)的控件名選擇執(zhí)行 txtusername 或 txtpassword 的模塊語(yǔ)句 Select Case 39。若 txtusername 和 txtpassword 中都至少有一個(gè)字符， cmdenter 可用，否則不可用 Case txtusername: 39。焦點(diǎn)在 txtusername 時(shí)，若此文本框?yàn)榭眨瑒t cmdenter 不可用，退出此過(guò)程 If = Or IsNull() Then = False Exit Sub 39。若 txtpassword 文本框?yàn)榭眨瑒t cmdenter 不可用，退出此過(guò)程 Else If = Or IsNull() Then = False Exit Sub End If End If Case txtpassword: On Error GoTo 11 39。焦點(diǎn)在 txtpassword 時(shí)，若此文本框?yàn)榭?，則 cmdenter 不可用，退出此過(guò)程 14 If = Or IsNull() Then 11 = False Exit Sub 39。若 txtusername 文本框?yàn)榭?，則 cmdenter 不可用，退出此過(guò)程 Else If = Or IsNull() Then = False Exit Sub End If End If Case Else: 39。交點(diǎn)在其他控件，直接退出過(guò)程 Exit Sub End Select 39。txtusername 和 txtpassword 中都至少有一個(gè)字符，設(shè)置 cmdenter 可用 = True Exit Sub End Sub Private Sub cmdExit_Click() 39。單擊“退出”按鈕，退出 access End Sub 學(xué)生信息管理模塊 學(xué)生信息管理模塊包含學(xué)生檔案錄入、學(xué)生成績(jī)錄入、學(xué)生信息查詢(xún)、學(xué)生信息統(tǒng)計(jì)以及學(xué)生信息瀏覽。下面是這些子功能窗體的設(shè)計(jì)效果。 學(xué)生檔案錄入窗體主要用于添加新的學(xué)生信息，如圖 所示。 15 圖 3. 2學(xué)生檔案錄入 下面是主要代碼。 Private Sub Form_Load() End Sub Private Sub 命令 19_Click() On Error GoTo Err_命令 19_Click , , acPrevious 39。轉(zhuǎn)到前一記錄 Exit_命令 19_Click: Exit Sub Err_命令 19_Click: MsgBox Resume Exit_命令 19_Click End Sub Private Sub 命令 13_Click() On Error GoTo Err_命令 13_Click , , acNext 39。轉(zhuǎn)到后一記錄 Exit_命令 13_Click: Exit Sub Err_命令 13_Click: MsgBox Resume Exit_命令 13_Click End Sub Private Sub 命令 14_Click() On Error GoTo Err_命令 14_Click 16 , , acNewRec 39。添加新的記錄 Exit_命令 14_Click: Exit Sub Err_命令 14_Click: MsgBox Resume Exit_命令 14_Click End Sub Private Sub 命令 15_Click()