【正文】 Chengjishanchu Ctrl+R ?? 成績添加 Cjadd Ctrl+S ?? 成績查詢 Cjfind Ctrl+U 等級(jí)考試管理 Djksgl ? 等級(jí)考試查詢 Djkschaxun ? 等級(jí)考試添加 Djkstianjia ? 等級(jí)考試刪除 Djksshanchu 當(dāng)完成所有輸入工作后，選擇“確定”命令按鈕，就完成了整個(gè)菜單的建立工作，然后給各個(gè)菜單的 Click事件中寫入代碼。創(chuàng)建工具欄的步驟是： （ 1）在 ImageList 控件中添加所需的圖像 。在窗體上增加 ImageList控件后，選中該控件，單擊右鍵，從彈出的快捷菜單中選擇“屬性”，然后在“屬性頁”對(duì)話框選擇“圖像”標(biāo)簽，在圖像框中插入圖像，每個(gè)圖像的屬性見表 12。 ToolBar控件中的每個(gè)按鈕的圖像都來自 ImageList對(duì)象中插入的圖像。 ② 為工具欄增加按鈕 在“屬性頁”對(duì)話框中選擇“按鈕”標(biāo)簽，單擊“插入按鈕”可以在工具欄增加按鈕，然后對(duì)各屬性進(jìn)行設(shè)置。 狀態(tài)欄的設(shè)計(jì) 狀態(tài)欄用來顯示系統(tǒng)信息和對(duì)用戶的提示。 表 13 Statusbar 控件屬性設(shè)置 索引 （ Index） 樣式(Style) 文本 (Text) 說明 １ sbrtext 學(xué)生管理系統(tǒng) 顯示學(xué)生管理系統(tǒng) ２ sbrtext 顯示當(dāng)前操作員 ３ sbrtext 顯示當(dāng)前用戶是管理員還是普通用戶 ４ sbrtext 顯示開發(fā)該軟件的組成人員 ５ sbrtext 空白 （ 2） 運(yùn)行時(shí)改變狀態(tài)欄 運(yùn)行時(shí)，能重新設(shè)置窗格 Panel對(duì)象以反映不同的功能，除第一個(gè)窗格外其它的窗格都通過編 程來實(shí)現(xiàn)。 個(gè)人基本情況添加 界面如圖 22所示： 用 戶 管 理 學(xué)生管理系統(tǒng) 考 勤 管 理 學(xué) 生 檔 案 管 理 學(xué) 生 交 費(fèi) 管 理 選 修 課 管 理 成 績 管 理 獎(jiǎng) 學(xué) 金 管 理 等 級(jí) 考 試 管 理 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 4 圖 22 個(gè)人信息添加 個(gè)人基本情況添加模塊的設(shè)計(jì)思想是首先看輸入的內(nèi)容，即個(gè)人信息是不是空的。 它的添加功能是用下面的代碼實(shí)現(xiàn)的 : If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Or Trim(Text4) = Or Trim(Text5) = Or Trim(Text6) = Or Trim(Text7) = Or Trim(Text9) = Or Trim(Text10) = Or Trim(Text11) = Then MsgBox 所有信息都不能為空！ Exit Sub End If = select * from jibenqingkuang (學(xué)號(hào) ) = Trim(Text1) (姓名 ) = Trim(Text2) (性別 ) = Trim(Text3) (班級(jí) ) = Trim(Text4) (專業(yè) ) = Trim(Text5) (年齡 ) = Val(Trim(Text6)) (出生日期 ) = Trim(Text7) (政治面貌 ) = Trim() = select * from xiangxiqingkuang (姓名 ) = Trim(Text2) (身份證號(hào) ) = Trim(Text9) (生源所在地 ) = Trim(Text10) (家庭所在地 ) = Trim(Text11) 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 5 MsgBox 個(gè)人基本情況和詳細(xì)情況的記錄添加成功！ 個(gè)人基本情況的查詢 界面如圖 23所示： 圖 23 基本情況查詢 設(shè)計(jì)思想是先在條件中輸入要查找的條件，然后按所輸入的條件用 SQL語言的 SELECT語句進(jìn)行查詢。查詢到的個(gè)人信息，放到具體的文本框中。中間自己定義了一個(gè)過程 move1，用來更新文本框的數(shù)據(jù)。 amp。 39。% amp。 %39。 Trim() amp。 If Trim(Text3) Then sql = sql + and 學(xué)號(hào) amp。 39。 Text3 amp。 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 6 If Trim(Text4) Then sql = sql + and 班級(jí) =39。 Text4 amp。 If Trim() 忽略 Then sql = sql + and 專業(yè) =39。 Trim() amp。 If Trim() 忽略 Then sql = sql + and 性別 =39。 Trim() amp。 = select * from jibenqingkuang where amp。 amp。 39。如果不點(diǎn)這個(gè)按鈕，就不能對(duì)文本中的數(shù)據(jù)進(jìn)行修改，修改之后還需點(diǎn)保存按鈕，寫到數(shù)據(jù)庫中。 修改按鈕代碼如下 : If gly = False Then MsgBox 你不是管理員，此按鈕你不能使用！ Exit Sub End If If = 修改 Then = False = False = False = False = False = False = False = False = False = False = 保存 Else = True = True = True = True = True = True = True = True = True = True = 修改 (學(xué)號(hào) ) = (姓名 ) = (性別 ) = (班級(jí) ) = (年齡 ) = (專業(yè) ) = (政治面貌 ) = (出生日期 ) = 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 8 (獎(jiǎng)懲 ) = (身份證號(hào) ) = (生源所在地 ) = (家庭所在地 ) = End If 在瀏覽表中單擊，瀏覽之后，就可以看到個(gè)人情況的所有資料。 刪除個(gè)人情況的設(shè)計(jì)思想是，首先根據(jù)用戶輸入的查詢條件（姓名可以是姓氏，也可以是名字，也就是說可以進(jìn)行精確的查詢，也可以進(jìn)行模糊的查詢。），找到要?jiǎng)h除的人的信息，然后詢問用戶是否真的要?jiǎng)h除。用戶回答否之后，不進(jìn)行任何操作。 amp。 39。% amp。 %39。 amp。 39。 amp。 39。 amp。 39。 sql If Then MsgBox 沒有找到要找的信息！ Exit Sub End If n = MsgBox(如果要?jiǎng)h除此人的基 本情況，我們將把與此人有關(guān)的所有信息全部刪除！ ， 36， 確定嗎？) If n = vbYes Then Do While Not xm = (姓名 ) xh = (學(xué)號(hào) ) = select * from xiangxiqingkuang where 姓名 =39。 xm amp。 Do While Not If Then Exit Do Loop = select * from jianxuejin where 學(xué)號(hào) =39。 xh amp。 Do While Not If Then Exit Do Loop = select * from denjikaoshi where 學(xué)號(hào) =39。 xh amp。 Do While Not 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 10 If Then Exit Do Loop = select * from kaoqinbiao where 學(xué)號(hào) =39。 xh amp。 Do While Not If Then Exit Do Loop = select * from xuanxiuchengji where 學(xué)號(hào) =39。 xh amp。 Do While Not If Then Exit Do Loop = select * from xuefeiqingkuang where 學(xué)號(hào) =39。 xh amp。 Do While Not If Then Exit Do Loop = select * from xuexichengji where 學(xué)號(hào) =39。 xh amp。 Do While Not If Then Exit Do Loop If Then Exit Do Loop End If 考勤模塊 考勤模塊有三個(gè)小的模塊組成分別為：添加、刪除、查詢與修改。第二步，看看添加的這個(gè)人，他是不是現(xiàn)在的在校學(xué)生；如果是，才能添加；如果不是， 就提示基本情況表中不存在此人，不能添加，并且退出此程序。如果沒有添加過，就可以進(jìn)行添加了。 考勤表的添加按鈕的代碼如下： If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Then MsgBox 請(qǐng)輸入內(nèi)容！: Exit Sub = select * from jibenqingkuang where 學(xué)號(hào) =39。 Trim(Text1) amp。 If Then MsgBox 不能添加，在基本情況表中沒有此人的基本信息！ : Exit Sub = select * from kaoqinbiao where 學(xué)號(hào) =39。 Trim(Text1) amp。 and 第 n周 =39。 Trim() amp。 and 星期幾 =39。 Trim() amp。 If Not Then MsgBox 考勤表中存在此學(xué)生此日的考勤情況，請(qǐng)重輸入或在查詢中修改！ Exit Sub End If = select * from kaoqinbiao (學(xué)號(hào) ) = Trim(Text1) If Len(Trim()) 3 Then (第 n周 ) = Mid(Trim()， 2， 2) Else (第 n周 ) = Mid(Trim()， 2， 1) End If (節(jié)次 ) = Trim() (星期幾 ) = Trim() (總節(jié)數(shù) ) = Trim() (缺課事由 ) = Trim() 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 12 MsgBox 學(xué)號(hào)： amp。 添加成功！ 這個(gè)界面中的瀏覽按鈕用來讓用戶查看添加之后的所有表中的信息。然后，再進(jìn)行刪除。它用兩個(gè)單選按鈕來實(shí)現(xiàn)。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 Trim() Else sql = 0 If Trim(Text1) Then sql = sql + or 學(xué)號(hào) =39。 Trim(Text1) amp。 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 13 If Trim(Text2) Then sql = sql + or 總節(jié)次 =39。 Trim(Text2) amp。 If Trim(Text3) Then sql = sql + or 缺課事由 =39。 Trim(Text3) amp。 If 忽略 Then If Len(Trim()) 3 Then sql = sql + or 第 n周 =39。 Mid(Trim()， 2， 2) amp。 Else