【正文】 Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序號(hào)) from 登陸記錄 where 用戶名=39。 amp。 用戶名 amp。 39。If = 1 Then c, conn, 3, 1 d = rs(0)a = update 登陸記錄 set 退出時(shí)間=39。 amp。 b amp。 39。 where 序號(hào)=39。 amp。 d amp。 39。If = 1 Then a, conn, 3, 1End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序號(hào)) from 登陸記錄 where 用戶名=39。 amp。 用戶名 amp。 39。If = 1 Then c, conn, 3, 1 d = rs(0)a = update 登陸記錄 set 退出時(shí)間=39。 amp。 b amp。 39。 where 序號(hào)=39。 amp。 d amp。 39。If = 1 Then a, conn, 3, 1End SubPrivate Sub Command1_Click()If Text1 = Then MsgBox 請(qǐng)?jiān)谙挡看a輸入要在刪除的系部代碼！否則無法刪除！ Exit SubEnd IfText1 = LTrim$()Text1 = RTrim$()d = select * from 系部 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then d, conn, 3, 1 If = 0 Then MsgBox 無法找到你所要?jiǎng)h除的系部！ Text1 = Exit Sub Else Set = rs End If If 0 Then i = MsgBox(您確認(rèn)要?jiǎng)h除該系部的所有專業(yè)，班級(jí)及學(xué)生的信息嗎？, 1 + vbExclamation, 系部刪除) If i = 1 Then a = delete from 成績 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 考勤 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 課程 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 獎(jiǎng)懲 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 學(xué)生 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 班級(jí) where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 專業(yè) where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 系部 where 系部代碼=39。 amp。 Text1 amp。 39。 If = 1 Then a, conn, 3, 1 MsgBox 刪除成功！ Exit Sub Else Text1 = Exit Sub End If Else MsgBox 沒有記錄可以刪除！ Exit Sub End IfEnd SubPrivate Sub Command2_Click()If Text2 = Then MsgBox 請(qǐng)?jiān)趯I(yè)代碼輸入要在刪除的專業(yè)代碼！否則無法刪除！ Exit SubEnd IfText2 = LTrim$()Text2 = RTrim$()d = select * from 專業(yè) where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then d, conn, 3, 1 If = 0 Then MsgBox 無法找到你所要?jiǎng)h除的專業(yè)！ Text2 = Exit Sub Else Set = rs End If If 0 Then i = MsgBox(您確認(rèn)要?jiǎng)h除該專業(yè)的所有班級(jí)及學(xué)生的信息嗎?, 1 + vbExclamation, 專業(yè)刪除) If i = 1 Then a = delete from 考勤 where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 獎(jiǎng)懲 where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 成績 where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 課程 where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 學(xué)生 where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 班級(jí) where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 a = delete from 專業(yè) where 專業(yè)代碼=39。 amp。 Text2 amp。 39。 If = 1 Then a, conn, 3, 1 MsgBox 刪除成功！ Exit Sub Else Text2 = Exit Sub End If Else MsgBox 沒有記錄可以刪除！ Exit Sub End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Text1 = Text2 = End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序號(hào)) from 登陸記錄 where 用戶名=39。 amp。 用戶名 amp。 39。If = 1 Then c, conn, 3, 1 d = rs(0)a = update 登陸記錄 set 退出時(shí)間=39。 amp。 b amp。 39。 where 序號(hào)=39。 amp。 d amp。 39。If = 1 Then a, conn, 3, 1End Sub第四章 系統(tǒng)測(cè)試測(cè)試系統(tǒng)的更新、添加、刪除等功能是否穩(wěn)定；信息的安全寫入數(shù)據(jù)庫、更新數(shù)據(jù)庫和刪除數(shù)據(jù)庫里面的資料；系統(tǒng)的糾錯(cuò)能里和兼容性。系統(tǒng)的可移植性。糾錯(cuò)能力強(qiáng)安全性好穩(wěn)定行好糾錯(cuò)能力強(qiáng)安全性好穩(wěn)定行好糾錯(cuò)能力強(qiáng)安全性好穩(wěn)定行好糾錯(cuò)能力強(qiáng)安全性好穩(wěn)定行好致謝高校學(xué)生管理系統(tǒng)是開發(fā)小組成員集體勞動(dòng)的成果，感謝每位成員為此系統(tǒng)的開發(fā)付出的辛勤勞動(dòng)和艱辛努力，感謝郭清菊指導(dǎo)老師的精心指導(dǎo)，為此次的開發(fā)提出許多寶貴的意見，使該系統(tǒng)得以不斷改進(jìn)并逐步完善。結(jié)束語高校學(xué)生管理系統(tǒng)的開發(fā)歷時(shí)兩個(gè)月，經(jīng)過需求分析、功能設(shè)計(jì)、模塊設(shè)計(jì)等相關(guān)一系列過程，最終所設(shè)定功能基本實(shí)現(xiàn)，總體運(yùn)行良好，基本符合指導(dǎo)老師要求。通過該系統(tǒng)的開發(fā)，鞏固了所學(xué)知識(shí)，鍛煉了自我，增強(qiáng)了動(dòng)手操作的實(shí)際能力，也增強(qiáng)了團(tuán)隊(duì)的協(xié)作精神。同時(shí)也發(fā)覺自身存在的某些不足，學(xué)會(huì)獨(dú)立分析問題、解決問題，注重與同學(xué)間的交流，遇到問題及時(shí)與老師溝通，征求老師意見。同時(shí)，可能由于知識(shí)方面的不足與欠缺，在某些細(xì)節(jié)方面處理上有待于進(jìn)一步改善。附錄1登陸界面（負(fù)責(zé)人：任乃熙）主界面（負(fù)責(zé)人：任乃熙）學(xué)生管理模塊（負(fù)責(zé)人：王銳位）成績管理模塊（負(fù)責(zé)人：王丁）獎(jiǎng)懲管理模塊（負(fù)責(zé)人：黃超）學(xué)籍管理模塊（負(fù)責(zé)人：黃超）課程管理模塊（負(fù)責(zé)人：王?。┌嗉?jí)管理模塊（負(fù)責(zé)人：黃超）系部管理模塊（負(fù)責(zé)人：王銳位）用戶管理模塊（負(fù)責(zé)人：王?。?shù)據(jù)庫建立（負(fù)責(zé)人：任乃熙）全局模塊（負(fù)責(zé)人：王?。┲笇?dǎo)老師：郭清菊參考文獻(xiàn)1. SQL Server 2005 案例教程 周仁云主編 對(duì)外經(jīng)濟(jì)貿(mào)易大學(xué)出版社 2009年8月北京第一版2. Visual Basic 程序設(shè)計(jì)及應(yīng)用教程 陳明銳主編 高等教育出版社 2008年1