【文章內(nèi)容簡介】 = select * from xiangxiqingkuang where 姓名 =39。 amp。 xm amp。 39。 Do While Not If Then Exit Do Loop = select * from jianxuejin where 學號 =39。 amp。 xh amp。 39。 Do While Not If Then Exit Do Loop = select * from denjikaoshi where 學號 =39。 amp。 xh amp。 39。 Do While Not 商丘師范學院 2021 屆本科畢業(yè)論文（設(shè)計） 10 If Then Exit Do Loop = select * from kaoqinbiao where 學號 =39。 amp。 xh amp。 39。 Do While Not If Then Exit Do Loop = select * from xuanxiuchengji where 學號 =39。 amp。 xh amp。 39。 Do While Not If Then Exit Do Loop = select * from xuefeiqingkuang where 學號 =39。 amp。 xh amp。 39。 Do While Not If Then Exit Do Loop = select * from xuexichengji where 學號 =39。 amp。 xh amp。 39。 Do While Not If Then Exit Do Loop If Then Exit Do Loop End If 考勤模塊 考勤模塊有三個小的模塊組成分別為：添加、刪除、查詢與修改。 界面如圖 25所示： 商丘師范學院 2021 屆本科畢業(yè)論文（設(shè)計） 11 圖 25 考勤表添加 考勤表添加的設(shè)計思想是：首先要看看它的數(shù)據(jù)是不是完整，如果沒有輸入條件就給出提示。第二步，看看添加的這個人，他是不是現(xiàn)在的在校學生；如果是，才能添加；如果不是， 就提示基本情況表中不存在此人，不能添加，并且退出此程序。第三步，看是不是已經(jīng)添加過了，如果添加過了的話，數(shù)據(jù)將會出現(xiàn)冗余。如果沒有添加過，就可以進行添加了。添加成功之后，會出現(xiàn)一個提示：“‘學號’添加成功！ ” [4]。 考勤表的添加按鈕的代碼如下： If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Then MsgBox 請輸入內(nèi)容！: Exit Sub = select * from jibenqingkuang where 學號 =39。 amp。 Trim(Text1) amp。 39。 If Then MsgBox 不能添加，在基本情況表中沒有此人的基本信息！ : Exit Sub = select * from kaoqinbiao where 學號 =39。 amp。 Trim(Text1) amp。 39。 and 第 n周 =39。 amp。 Trim() amp。 39。 and 星期幾 =39。 amp。 Trim() amp。 39。 If Not Then MsgBox 考勤表中存在此學生此日的考勤情況，請重輸入或在查詢中修改！ Exit Sub End If = select * from kaoqinbiao (學號 ) = 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() 商丘師范學院 2021 屆本科畢業(yè)論文（設(shè)計） 12 MsgBox 學號： amp。 Trim(Text1) amp。 添加成功！ 這個界面中的瀏覽按鈕用來讓用戶查看添加之后的所有表中的信息。它可以把表單放大，代碼如下： = select * from kaoqinbiao If = 瀏覽 Then = 6030 = 返回 Else = 3165 = 瀏覽 End If 刪除模塊 刪除的設(shè)計思想和上一個模塊的設(shè)計思想一樣，都是先找到符合條件的記錄。然后，再進行刪除。不過有一點不同的是，這個刪除條件之間的關(guān)系，可以是并且的關(guān)系，也 可以是或者的關(guān)系。它用兩個單選按鈕來實現(xiàn)。 界面如圖 26所示： 圖 26 考勤表刪除 核心代碼如下： Dim sql As String If Then sql = 1 If Trim(Text1) Then sql = sql + and 學號 =39。 amp。 Trim(Text1) amp。 39。 If Trim(Text2) Then sql = sql + and 總節(jié)次 =39。 amp。 Trim(Text2) amp。 39。 If Trim(Text3) Then sql = sql + and 缺課事由 =39。 amp。 Trim(Text3) amp。 39。 If 忽略 Then If Len(Trim()) 3 Then sql = sql + and 第 n周 =39。 amp。 Mid(Trim()， 2， 2) amp。 39。 Else sql = sql + and 第 n周 =39。 amp。 Mid(Trim()， 2， 1) amp。 39。 End If End If If 忽略 Then sql = sql + and 節(jié)次 =39。 amp。 Trim() amp。 39。 If 忽略 Then sql = sql + and 總節(jié)數(shù) = amp。 Trim() Else sql = 0 If Trim(Text1) Then sql = sql + or 學號 =39。 amp。 Trim(Text1) amp。 39。 商丘師范學院 2021 屆本科畢業(yè)論文（設(shè)計） 13 If Trim(Text2) Then sql = sql + or 總節(jié)次 =39。 amp。 Trim(Text2) amp。 39。 If Trim(Text3) Then sql = sql + or 缺課事由 =39。 amp。 Trim(Text3) amp。 39。 If 忽略 Then If Len(Trim()) 3 Then sql = sql + or 第 n周 =39。 amp。 Mid(Trim()， 2， 2) amp。 39。 Else sql = sql + or 第 n周 =39。 amp。 Mid(Trim()， 2， 1) amp。 39。 End If End If If 忽略 Then sql = sql + or 節(jié)次 =39。 amp。 Trim() amp。 39。 If 忽略 Then sql = sql + or 總節(jié)數(shù) = amp。 Trim() End If = select * from kaoqinbiao where amp。 sql If Then MsgBox 沒有滿足條件的記錄！請重輸入。 Exit Sub Else = 5040 End If n = MsgBox(顯示的為滿足條件的記錄，是否真的要全部刪除！ ， 36， 刪除嗎？ ) If n = vbYes Then Do While Not If Then Exit Do Loop MsgBox 成功刪除！ End If 考勤表的查詢 界面如圖 27所示： 圖 27 考勤表查詢 考勤表的查詢和個人情況表的查詢設(shè)計思想是一樣的。有一點不同的是，它也可以進行模糊的查詢與精確的查詢。可以在表單界面的條件的關(guān)系框中進行選擇。條件之間的關(guān)系是同時，還是或商丘師范學院 2021 屆本科畢業(yè)論文（設(shè)計） 14 者的關(guān)系。同樣，再輸入查詢條件的時候，在文本框中，要不輸入數(shù)據(jù)的規(guī)范格式，要不然就不輸入數(shù)據(jù)。不輸入數(shù)據(jù)的話，就不按此項查詢，只有輸入了，才按輸入的數(shù)據(jù)進行查找。 查詢的代碼如下： Dim sql As String If Then sql = 1 If Trim(Text1) Then sql = sql + and 學號 =39。 amp。 Trim(Text1) amp。 39。 If Trim(Text2) Then sql = sql + and 總節(jié)次 = amp。 Trim(Text2) If Trim(Text3) Then sql = sql + and 缺課事由 =39。 amp。 Trim(Text3) amp。 39。 If 忽略 Then sql = sql + and 第 n周 =39。 amp。 Trim(Mid(， 2， 2)) amp。 39。 If 忽略 Then sql = sql + and 節(jié)次 =39。 amp。 Trim() amp。 39。 If 忽略 Then sql = sql + and 星期幾 =39。 amp。 Trim() amp。 39。 Else sql = 0 If Trim(Text1) Then sql = sql + or 學號 =39。 amp。 Trim(Text1) amp。 39。 If Trim(Text2) Then sql = sql + or 總節(jié)次 = amp。 Trim(Text2) If Trim(Text3) Then sql = sql + or 缺課事由 =39。 amp。 Trim(Text3) amp。 39。 If 忽略 Then sql = sql + or 第 n周 =39。 amp。 Trim(Mid(， 2， 2)) amp。 39。 If 忽略 Then sql = sql + or 節(jié)次 =39。 amp。 Trim() amp。 39。 If 忽略 Then sql = sql + or 星期幾 =39。 amp。 Trim() amp。 39。 End If = select * from kaoqinbiao where amp。 sql If Then MsgBox 沒有滿足條件的記錄！請重輸入。 Exit Sub Else = True End If 進行查詢之后，才可以進行“修改”工作。（必須單擊修改按鈕之后，才可以進行修改 。）在單擊了修改按鈕之后，還要看他是不是管理員，是管理員才能繼續(xù)使用，不是的話，出現(xiàn)提示， 你不是管理員，不能使用此項功能！ 在單擊了修改按鈕的同時，它的名字就變?yōu)楸４妗Ｐ薷耐曛?，再次單擊，就可以把?shù)據(jù)存入數(shù)據(jù)庫，并且按鈕的名字變?yōu)樾薷?。代碼如下： If gly = False Then MsgBox 你不是管理員，不能使用此項功能！ End End If If = 修改 Then = True = False = False = 保存 Else = False 商丘師范學院 2021 屆本科畢業(yè)論文（設(shè)計） 15 = True = True = 修改 End If 獎學金模塊 查詢模塊 界面如圖 28所示：