教師信息管理系統(tǒng)設(shè)計(jì)(編輯修改稿)
2025-08-31 16:44 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Function exesql(ByVal sql As String) As 39。用于執(zhí)行sql語(yǔ)句，且返回執(zhí)行結(jié)果 sql = Trim$(sql) Set conn = New 39。定義一個(gè)Connection對(duì)象 Set rst = New 39。定義一個(gè)Recordset對(duì)象 = Provider=。Data Source=db\。Persist Security Info=False 39。連接數(shù)據(jù)庫(kù)的語(yǔ)句 Set = conn = adLockOptimistic = adOpenKeyset sql 39。執(zhí)行 Set exesql = rst Set rst = Nothing Set conn = NothingEnd FunctionPublic Sub deldata(ByVal tn As String) 39。刪除指定表中所有記錄 Dim sql As String sql = delete * from amp。 Trim$(tn) Set conn = New 39。同上 = Provider=。Data Source=db\。Persist Security Info=False 39。同上 sql End SubPublic Sub endata(Keyasc As Integer) If Keyasc = 13 Then 39?；剀囨I的ASC碼是13 SendKeys {TAB} 39。將回車鍵轉(zhuǎn)換成Tab鍵 End IfEnd Sub在用戶登陸的時(shí)候，為了防止用戶惡意登陸，采用了登陸次數(shù)的限制，代碼如下：Public n As IntegerPrivate Sub Command1_Click() Dim mrc As txtsql = select * from oper where 用戶名=39。 amp。 _ Trim$(Text1(0).Text) amp。 39。 amp。 And 口令 = 39。 amp。 Trim$(Text1(1).Text) + 39。 Set mrc = exesql(txtsql) If = 0 Then 39。未找到用戶記錄 n = n + 1 If n 3 Then MsgBox 沒有這個(gè)用戶,繼續(xù)登錄, vbOKOnly + vbExclamation, 信息提示 Text1(0).Text = Text1(1).Text = Text1(0).SetFocus Else MsgBox 已登錄失敗三次,退出系統(tǒng), vbOKOnly + vbExclamation, 信息提示 Unload Me End If Else 39。找到合法用戶記錄 userlevel = Trim((權(quán)限)) Unload Me 39。調(diào)用main窗體 End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() n = 0 39。n保存登錄的次數(shù)End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End Sub當(dāng)然，由于水平和時(shí)間有限，本系統(tǒng)的功能還很不完善，同樣也存在著很多缺陷。對(duì)于系統(tǒng)的管理員而言，除了教師姓名，年齡，職稱等信息外，還應(yīng)該添加教師的詳細(xì)情況，如聯(lián)系方式，獲獎(jiǎng)情況等，還有就是對(duì)教師的所有資料進(jìn)行檢索。當(dāng)然了界面的設(shè)計(jì)也不夠美觀，這些都是該系統(tǒng)需要改進(jìn)的地方。 參考文獻(xiàn)(1) Visual Basic 2005入門經(jīng)典（第4版）、作者：（美）威利斯，（美）紐薩姆、出版社：清華大學(xué)出版社(2) Visual Basic程序開發(fā)范例寶典、作者：明日科技、出版社：人民郵電出版社、(3) Visual Basic+Access 數(shù)據(jù)庫(kù)開發(fā)與實(shí)例、作者：劉文濤、出版社：清華大學(xué)出版社(4) Access2003數(shù)據(jù)庫(kù)應(yīng)用、作者：李佳，范俊弟，鄧劍民、出版社：人民郵電出版社、(5) Visual Basic數(shù)據(jù)庫(kù)開發(fā)從入門到精通、作者：姚巍、出版社：人民郵電出版社(6) 大學(xué)VB程序設(shè)計(jì)實(shí)踐教程、作者：沈建蓉，單貴、出版社：復(fù)旦大學(xué)出版社 用戶手冊(cè)1，登陸系統(tǒng)點(diǎn)擊可執(zhí)行程序“”,打開登陸界面，不同權(quán)限的用戶用各自的用戶名和口令進(jìn)行登陸。2．管理員操作指南登陸后的主菜單教師信息個(gè)人資料的管理，點(diǎn)擊“添加”，
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1