教務(wù)管理系統(tǒng)(vb)-免費閱讀
【正文】 User ID=。 amp。 amp。 amp。 amp。User ID=。, DSN=db1。 39。 \ 39。 DepartID like amp。 39。 amp。 amp。 amp。, n, 3, 3If = 0 ThenMsgBox 不存在這個編號！，請重新輸入 = ElseCall ShowDatacall datashow1(rs,msflexgrid)End If39。 n DRIVER=Microsoft Access Driver (*.mdb)。 39。 39。 amp。 39。 39。 = 39。 amp。 amp。 所以說，這次課程設(shè)計不僅是讓我學(xué)到了一門面向?qū)ο蟮木幊谭椒?，更重要的是它提高了我接受新事物的能力，讓我以后遇到新事物時，不再感到茫然，感到無從下手。在做這次課程設(shè)計之前，我對它了解的很少，也從來沒想到我能完成這么一個程序。 程序調(diào)試過程中出現(xiàn)的問題及解決方案 問題一：再添加或修改記錄時，當(dāng)把原來的記錄修改時，即使取消了添加與修改操作，雖然數(shù)據(jù)庫中的數(shù)據(jù)沒有改變，但是當(dāng)前數(shù)據(jù)集中顯示的記錄會發(fā)生改變。由于數(shù)據(jù)庫系統(tǒng)中存放著大量的數(shù)據(jù)，且為許多用戶所共享，因此安全性問題是必須首先要解決的。 個人信息操作用于查看個人的信息情況，其界面設(shè)計如下圖所示： 修改信息操作用于對自己的信息進(jìn)行修改，其界面設(shè)計如下圖所示： 2）系統(tǒng)管理操作包括返回登入界面、管理員和推出系統(tǒng)。 系統(tǒng)管理包括返回登錄界面、關(guān)于、管理員和推出系統(tǒng)。課程管理包括課程查詢和課程管理。 因此，本系統(tǒng)開發(fā)的總體目標(biāo)就是在教務(wù)管理中實現(xiàn)信息管理的系統(tǒng)化、自動化，減少工作繁瑣度，增加效率、方便性。因此，為了提高教務(wù)管理工作的效率，減少錯誤的出現(xiàn)，節(jié)約大量的人力資源，教務(wù)管理也已經(jīng)從手工操作轉(zhuǎn)到計算機自動化信息處理階段，所有高校都迫切需要計算機技術(shù)來進(jìn)行教務(wù)信息的輔助管理。教務(wù)管理系統(tǒng)的設(shè)計與實現(xiàn) 摘 要 教務(wù)管理是學(xué)生管理信息的統(tǒng)計、上報、查詢工作費時費力，并且數(shù)據(jù)保密性、準(zhǔn)確性難以保證。在使用了教務(wù)管理系統(tǒng)后，可以提高各類信息的準(zhǔn)確性和及時性，將信息準(zhǔn)確無誤地輸入計算機并在數(shù)據(jù)庫中存儲起來。這次開發(fā)的教務(wù)管理系統(tǒng)大大提高了學(xué)校管理工作的效率，使用戶能夠方便的對院系信息、課程信息、學(xué)生信息以及成績信息進(jìn)行管理。二 概要設(shè)計 系統(tǒng)功能分析 不同權(quán)限的用戶能使用的功能如下：用戶管理：此項功能只能由管理員使用個人信息修改：用戶使用管理員使用，用戶不能使用，只能是管理員使用。 課程管理包括課程查詢和課程管理。 返回登入界面操作用于如果用戶需要進(jìn)行其他操作時，可以用這個操作，其界面設(shè)計和登入界面一樣。一般計算機系統(tǒng)中的安全措施是按照“用戶標(biāo)識和鑒別”、“DBMS存取控制”、“OS級安全控制”、“DB密碼存儲”來一級一級設(shè)置的。 解決方案：添加一個刷新的功能，使數(shù)據(jù)集中的數(shù)據(jù)重新被填充，可以避免類似錯誤的產(chǎn)生。但是經(jīng)過兩周的時間，我終于弄出了一個完整的程序。當(dāng)下次我接觸到新知識時，我會知道我該做些什么，該去看那些書籍資料，心中就會有一個明確的目的。 amp。 39。 = End SubPrivate Sub Timer1_Timer()If = Then = 0End IfIf = 0 Then = + 20If 0 And Then = + 20End SubPrivate Sub Timer2_Timer() = NowEnd Sub附件2： 用戶注冊Private n As New Private Rs As New Private Sub Command1_Click(Index As Integer)Dim a%a = 1Select Case IndexCase 0If = Or = Or = Or = Or = ThenMsgBox UserID Password UserName 不能為空，請輸入, vbOKOnlya = 0Exit SubEnd IfIf ThenMsgBox Password 和 Password again 不一致，請正確輸入, vbOKOnlya = 0Exit SubEnd IfIf a = 1 Then insert into Users values (39。,39。)MsgBox 注冊成功, vbOKOnlyEnd IfCase 1 = = = = = Case 2End SelectEnd SubPrivate Sub Form_Load() = = = = = Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。 \ select * from Users where UserName=39。 , n, 3, 3Call ShowDataEnd SubPrivate Sub ShowData() = (0).Value = (1).Value = (2).Value = (3).ValueEnd Sub2） 信息修改Option ExplicitPrivate n As New Private Rs As New Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0If = Or = Or = ThenMsgBox UserID Password UserName 不能為空，請輸入, vbOKOnlyEnd IfMsgBox 修改成功！Case 1Case 2End SelectEnd SubPrivate Sub Form_Load()Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。and Password = 39。DBQ= amp。 CourseID like amp。 \39。 39。 amp。39。 39。 n select , , , from Student,Class,Department where = and =, n, 3, 3 select , , , from Student,Class,Department where = and =, n, 3, 3call datashow1(rs,msflexgrid1)Call ShowData select count(*) from Score where 60 and =39。, n, 3, 3Label12(1).Caption = (0).ValueLabel12(2).Caption = (1).ValueLabel12(3).Caption = (2).ValueEnd SubPrivate Sub ShowData() = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).ValueEnd Sub（5） 教師查詢Option Ex
法律信息相關(guān)推薦
鄂ICP備17016276號-1