【正文】 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1) (1) = Trim(Text2) (2) = Trim(Text3) (3) = Trim(Text4) (4) = Trim(Text5) MsgBox 班級(jí)信息修改成功 !, vbOKOnly, 提示 Text1 = Text2 = Text3 = Text4 = Text5 = End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() 設(shè)計(jì)（論文）說(shuō)明書(shū) 46 End Sub Private Sub Text1_LostFocus() Text4 = tSQL = select * from class_Form where class_NO=39。H8000000E End If Text1(7).Height = 600 Text1(8).Height = 600 End If End If End Sub Private Sub Command3_Click() Dim txtSQL As String Dim j As Integer For i = 0 To 8 If i 4 Then If Text1(i) = Label2(i).Caption Then 設(shè)計(jì)（論文）說(shuō)明書(shū) 41 MsgBox 請(qǐng) amp。 !, vbOKOnly, 提示 Exit Sub End If End If Next If IsDate(Text1(3)) = False Then MsgBox 出生日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If If IsDate(Text1(6)) = False Then MsgBox 入學(xué)日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(6).SetFocus Exit Sub End If txtSQL = select * from student_Form where student_NO=39。 Trim(Text1(4)) amp。 程序運(yùn)行過(guò)程出現(xiàn)找不到庫(kù)或工程的問(wèn)題時(shí)要再次檢查數(shù)據(jù)庫(kù)連接 、數(shù)據(jù)庫(kù)連接控件的添加問(wèn)題。 課程信息添加界面如圖 319 所示 ： 圖 319課程信息添加界面 (二 ) 課程信息查詢(xún)模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“課程信息管理”菜單下的“課程信息查詢(xún)”項(xiàng)，將進(jìn)入課程查詢(xún)模塊。 (4)單擊“修改”按鈕， 修改班級(jí)信息界面調(diào)出，單擊“確定”修改成功，單擊“取消”返回班級(jí)信息修改界面，單擊“退出”退出該窗口 。 (2)單擊“點(diǎn)擊此處進(jìn)行班級(jí)信息添加”，“添加”按鈕顯示可執(zhí)行操，在文本框中輸入班級(jí)的詳細(xì)信息。 圖 310成績(jī)信息添加界面 (二 ) 成績(jī)信息查詢(xún)模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“成績(jī)信息管理”菜單下的“成績(jī)查詢(xún)”項(xiàng)，將進(jìn)入成績(jī)查詢(xún)模塊。 (5)單擊“退出”按鈕，退出本窗口，返回主程序界面。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 用戶(hù)信息添加 界面如圖 33 所示 。 ? 成績(jī) 信息管理：主要完成 成績(jī) 的添加、查詢(xún)、刪除等，通過(guò)輸入 學(xué) 號(hào)、 課號(hào)、課 名、 姓 名、 成績(jī)以及成績(jī)等級(jí) 等可以完成添加工作，同時(shí)可以通過(guò)輸入 學(xué)號(hào) 或課程號(hào) 對(duì) 成 績(jī) 的詳細(xì)信息進(jìn)行查詢(xún)、刪除 。 2 需求 分析 用戶(hù)的需求具體體現(xiàn)在各種信息的提供、添加、保存、更新、查詢(xún)和刪除方面，這就需要數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿(mǎn)足各種信息的輸入和輸出。面對(duì)龐大的信息量，有必要開(kāi)發(fā)學(xué)生信息管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。有效的管理學(xué)生所有信息就是 學(xué)生管理系統(tǒng)完成的功能。 設(shè)計(jì)（論文）說(shuō)明書(shū) 10 系統(tǒng)流程圖 ? 班級(jí)信息管理：主要完成班級(jí)的添加、查詢(xún)、修改、刪除等，通過(guò) 輸入 班級(jí)號(hào)、班級(jí)名、班主任名、班主任以及所在教室等可以完成添加工作，同時(shí)可以通過(guò)輸入班級(jí)號(hào)對(duì)班級(jí)的詳細(xì)信息進(jìn)行查詢(xún)、修改和刪除。 (3)單擊 “ 取消 ” 按鈕，文本框清空重新輸入信息。 圖 35用戶(hù)信息刪除界面 學(xué)籍信息管理模塊設(shè)計(jì) (一 ) 學(xué)生 信息添加模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“學(xué)生信息管理”菜單下的“學(xué)生信息添加”項(xiàng)，將進(jìn)入學(xué)生信添加模塊。 (2)單擊“點(diǎn)擊此處進(jìn)行學(xué)生信息修改”，“修改”按鈕顯示可執(zhí) 行操，在文本框中輸入學(xué)生的詳細(xì)信息。 (4)單擊“添加”按鈕， 成績(jī)成功添加到列表中 。 成績(jī)信息刪除界面如圖 312 所示 。在 班級(jí) 信息修改模塊中主要實(shí)現(xiàn)如下功能： (1)完成 班級(jí) 信息的修改。 (3)單擊“取消”按鈕， 文本框清空重新輸入信息。 課 程信息刪除界面如圖 321 所示 。 39。 Label2(i).Caption amp。HFFFFFF Then For i = 0 To 9 Text1(i).BackColor = amp。 amp。 39。 Label2(i).Caption amp。 39。 amp。 amp。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 設(shè)計(jì)（論文）說(shuō)明書(shū) 24 圖 315班級(jí)信息修改界面 圖 316班級(jí)信息修改界面 (四 ) 班級(jí)信息刪除模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“班級(jí)信息管理”菜單下的“班級(jí)刪除”項(xiàng)，將進(jìn)入班級(jí)刪除模塊。 (5)單擊“退出”按鈕，退出本 窗口，返回主程序界面。 (3)單擊“取消”按鈕，文本框清空重新輸入信息 。在學(xué)生信息刪除模塊中主要實(shí)現(xiàn)如下功能： (1)完成 學(xué)生信息的刪除工作。 學(xué)生信息添加界面如圖 36 所示。 (2)單擊“點(diǎn)擊此處進(jìn)行用戶(hù)修改”，修改界面調(diào)出，“修改”按鈕顯示可執(zhí)行操，輸入用戶(hù)名稱(chēng)， 舊的 密碼 、新的密碼 以及確認(rèn)密碼。 ? 用戶(hù)名稱(chēng)錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)。 ● 班級(jí)基本信息：包括班級(jí)號(hào)、班級(jí)名、班主任名、班主任以及所在教室等。對(duì)于前者建立起的數(shù)據(jù)庫(kù)具有完整性和一致性，且具有一定的數(shù)據(jù)安全性，而對(duì)于后者則要求程序界面友好、功能完備、容易使用，具有流行軟件的操作習(xí)慣等特點(diǎn)。s quantity increment, concerning the student39。 ? Microsoft Windows 支持的 VGA 或分辨率更高的監(jiān)視器。 設(shè)計(jì)（論文）說(shuō)明書(shū) 12 圖 32 主程序界面 用戶(hù)信息管理模塊設(shè)計(jì) (一 ) 用戶(hù)信息添加模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“用戶(hù)信息管理”菜單下的“用戶(hù)名添加”項(xiàng)，將進(jìn)入用戶(hù)列表添加模塊。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 設(shè)計(jì)（論文）說(shuō)明書(shū) 16 學(xué)生信息 查詢(xún) 界面如圖 37 所示 。在成績(jī)添加模塊中主要實(shí)現(xiàn)如下功能： (1)完成學(xué)生成績(jī)的添加。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。 (5)單擊“退出”按鈕，退出本窗口，返回主程序界面。 圖 317班級(jí)信息刪除界面 圖 318班級(jí)信息刪除界面 課程 信息管理 模塊設(shè)計(jì) 設(shè)計(jì)（論文）說(shuō)明書(shū) 26 (一 ) 課程信息添加模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo)： 進(jìn)入主界面后，選擇“課程信息管理”菜單下的“課程信息添加”項(xiàng)，將進(jìn)入課程信添加模塊。 (3)單擊“取消”按鈕，文本框清空重新輸入信息。HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 設(shè)計(jì)（論文）說(shuō)明書(shū) 32 Text1(i) = Next End Sub Private Sub Command3_Click() Dim txtSQL As String If Text1(3) = Then MsgBox 請(qǐng)你選擇用戶(hù)名稱(chēng) !, vbOKOnly, 提示 Exit Sub End If If Text1(4) = Then MsgBox 修改密碼要舊密碼 !, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then MsgBox 新的密碼不能為空 !, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 兩次密碼輸入不同 !, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID=39。HE0E0E0 Label1(3).BackColor = amp。HFFFFFF Label2(4).Caption = 在此選擇學(xué)號(hào) Label2(5).Caption = 在此輸入聯(lián)系 電話 Label2(6).Caption = 在此輸入入學(xué)日期 If Index = 0 Then TextDcolor = True = False = False = False End If If Index = 1 Then Label2(4).Caption = 在此輸入學(xué)生學(xué)號(hào) TextDcolor Text1(4).Enabled = False = False = False = True = False 設(shè)計(jì)（論文）說(shuō)明書(shū) 39 = False Text1(2).Enabled = False Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False Text1(5).Enabled = False Text1(6).Enabled = False Text1(9).Enabled = False Text1(1).Enabled = False End If If Index = 2 Then TextDcolor Text1(0).SetFocus = False = False = True = False End If If Index = 3 Then TextDcolor Text1(0).SetFocus = False