學籍管理系統_VB程序課設報告0

1、PAGE 第PAGE 63頁/共47頁北*學課程設計報告課程名稱： VB程序設計課設 項目名稱： 學籍管理系統 學 院： 管理學院 專 業(yè)： 信息管理與信息系統 姓 名： 學 號： 指導教師： 成 績： 2010年6月 22 日目 錄 TOC o 1-2 h z HYPERLINK l _Toc296542260 第1部分 實訓題目與要求 PAGEREF _Toc296542260 h 1 HYPERLINK l _Toc296542261 1問題提出 PAGEREF _Toc296542261 h 1 HYPERLINK l _Toc296542262 2功能要求 PAGEREF _Toc2

2、96542262 h 1 HYPERLINK l _Toc296542263 第2部分 設計實訓題目功能 PAGEREF _Toc296542263 h 8 HYPERLINK l _Toc296542264 1算法設計 PAGEREF _Toc296542264 h 8 HYPERLINK l _Toc296542265 2流程圖設計 PAGEREF _Toc296542265 h 11 HYPERLINK l _Toc296542266 3數據結構 PAGEREF _Toc296542266 h 15 HYPERLINK l _Toc296542267 4程序代碼設計 PAGEREF _T

3、oc296542267 h 15 HYPERLINK l _Toc296542268 5測試與調試 PAGEREF _Toc296542268 h 18 HYPERLINK l _Toc296542269 第3部分 實訓總結 PAGEREF _Toc296542269 h 19 HYPERLINK l _Toc296542270 1個人總結 PAGEREF _Toc296542270 h 19 HYPERLINK l _Toc296542271 2結束語 PAGEREF _Toc296542271 h 20 HYPERLINK l _Toc296542272 附錄 程序清單 PAGEREF _

4、Toc296542272 h 21 HYPERLINK l _Toc296542273 附錄 用戶使用說明書 PAGEREF _Toc296542273 h 46 HYPERLINK l _Toc296542274 參考文獻 PAGEREF _Toc296542274 h 47第1部分 實訓題目與要求問題提出“學籍管理系統”一款主要是對學生的基本信息、課程信息以及成績信息等進行管理的系統軟件。該系統軟件能夠實現對學生基本信息的添加、修改、刪除和查詢等，能對課程信息進行添加、修改、刪除和查詢等功能，同時能對學生的課程成績進行添加、修改、刪除和查詢的功能。另外，系統還提供了對學生課程成績的排名和統

5、計等功能。圖：系統結構圖功能要求“學籍管理系統”主要是對學生的基本信息、課程信息以及成績信息等進行管理。工程包括“加載展示窗體”、“登錄窗體”、“系統主窗體”、“學生信息編輯窗體”、“課程信息編輯窗體”、“成績編輯窗體”、“學生信息查詢窗體”、“成績查詢窗體”、“成績排名窗體”、“更改密碼窗體”和“關于窗體”。各窗體功能如下：（1）加載展示窗體創(chuàng)新功能程序啟動時，首先出現的是程序加載展示窗體，顯示本實訓的實訓題目、小組成員姓名、完成時間、指導老師等信息。同時進度條加載，待加載至滿后，進入登錄窗體。圖：加載展示窗體（2）登錄窗體提高功能該窗體在系統展示窗體加載完之后顯示，用于驗證用戶信息和權限，

6、用戶需要選擇用戶是普通用戶或管理員，并輸入賬號和密碼進入系統。如果用戶賬號或密碼輸入出錯達到3次，為保護系統賬號等信息的安全，系統會自動退出。圖：登錄窗體（3）系統主窗體創(chuàng)新功能用戶輸入正常的賬號密碼后，便進入了系統主窗體，用戶可以系統主窗體 中選擇要進行操作的功能，并進入相應的窗體。圖：系統主窗體（4）學生信息編輯窗體用戶在此窗體中可以對學生的基本信息進行相應的操作，如添加、搜索、修改和刪除學生的基本信息。圖：學生信息編輯窗體（5）課程信息編輯窗體用戶在此窗體中可以對課程的信息對行相應的操作，如添加、搜索、修改和刪除課程的信息。圖：課程信息編輯窗體（6）成績編輯窗體用戶在此窗體 中可以對學生

7、的每一個課程成績進行添加、修改和刪除等功能操作。圖：成績編輯窗體（7）學生信息查詢窗體用戶在此窗體中可以通過查詢條件查詢學生的基本信息。圖：學生信息查詢窗體（8）成績查詢窗體用戶在此窗體中可以通過查詢條件查詢學生的課程成績。圖：成績查詢窗體（9）成績排名窗體創(chuàng)新功能用戶在此窗體中可以通過選擇條件查看院系、專業(yè)、班級、課程等學生的成績排名。圖：成績排名窗體（10）更改密碼窗體提高功能用戶可以在此窗體中修改該用戶的密碼。圖：更改密碼窗體（11）關于窗體創(chuàng)新功能用戶在此窗體中可以查看系統程序作者的相關信息。圖：關于窗體本系統軟件由北京聯合大學管理學院0911030201班A和B共同完成。其中B負責學

8、生信息編輯窗體（Frm_Edit_xs窗體）和課程信息編輯窗體（Frm_Edit_kc窗體），其余部分由A完成。第2部分 設計實訓題目功能算法設計（1）基礎功能Frm_Edit_Xs窗體中添加過程（Command1_Click）的添加及保存算法第一步：判斷Command1控件此時caption屬性值是“添加”還是“保存”。If Command1.Caption = 添加 Then添加算法，執(zhí)行第二步；Else保存算法，執(zhí)行第四步；End If第二步：判斷Adodc_xs中是否有記錄，沒有就直接添加記錄，跳到第三步；否則判斷輸入的學號是否為空，不為空時，在Adodc_xs記錄中查找條件為“學號=

9、s”的記錄。并置于循環(huán)過程中，直至輸入學號與Adodc_xs記錄中學號不重復。If Adodc_xs.Recordset.RecordCount 0 ThenDos = InputBox(請輸入學號, 輸入)If s = Then Exit SubAdodc_xs.Recordset.MoveFirstAdodc_xs.Recordset.Find 學號= & s & If Adodc_xs.Recordset.EOF = False ThenMsgBox 學號重復，請重新輸入End IfLoop While Adodc_xs.Recordset.EOF = FalseEnd If執(zhí)行第三步。

10、第三步：將Adodc_xs指針移到新的空記錄上，并置Command1控件Caption屬性值為“保存”，Text1(0).Text = s，同時置Command2，Command3，.，Command6的Enabled屬性為False?！咎砑印窟^程結束!Command1.Caption = 保存Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseAdodc_xs.Recordset.AddNewText1(0

11、).Text = s因為Text1(i)控件已經與Adodc_xs綁定，此時可以直接在Text1(i)控件中直接輸入數據，添加記錄。第四步：此時Text1(i)控件已經輸入了數據。置Command1的Caption值為“添加”，同時更新保存Adodc_xs。同時置Command2，Command3，.，Command6的Enabled屬性為True，并彈出消息框，提示“保存成功”。Command1.Caption = 添加Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled =

12、 TrueCommand6.Enabled = TrueAdodc_xs.Recordset.UpdateMsgBox 保存成功, , 保存（2）提高功能Frm_Login窗體中登錄過程（cmddl_Click）的驗證密碼算法第一步：在Adodc_user中查找條件為“賬號=Text1.Text”的記錄，并將該記錄中的賬號字段、管理員字段值賦給username和glqx。如果沒找到，彈出消息框提示，同時退出過程。Adodc_user.Recordset.MoveFirstAdodc_user.Recordset.Find 賬號= & Text1.Text & If Adodc_user.Rec

13、ordset.EOF = True ThenMsgBox 用戶賬號錯誤，請重新輸入！, vbCritical, 錯誤Exit SubEnd Ifusername = Adodc_user.Recordset!賬號glqx = Adodc_user.Recordset!管理員第二步：判斷該賬號在Adodc_user中相對應的管理員類型與用戶登錄時所選的賬號類型是否一致。不一致時，跳到Cuowu。If glqx = True ThenIf Option2.Value = False ThenGoTo CuowuExit Sub End IfElseIf Option1.Value = False

14、ThenGoTo CuowuExit SubEnd IfEnd If第三步：判斷該賬號的密碼與Adodc_user中對應的密碼字段是否一致，一致時，關閉本窗體同時顯示系統主窗體。否則，跳Cuowu。If .Recordset!密碼 Text2.Text ThenGoTo CuowuExit SubEnd IfFrm_Main.ShowUnload Me（3）創(chuàng)新功能Frm_ChengjiPaiming窗體中Command1_Click的排序算法第一步：找出i個數據(stu(1).avestu(i).ave)的最大值，并與第一個數據交換。第二步：在剩下的i-1個數據(stu(2).avestu(

15、i).ave)在找到最大值，并與第二個數據交換。第n步：在剩下的i-n+1個數據(stu(n).avestu(i).ave)在找到最大值，并與第n個數據交換。第i-1步：在剩下的兩個數據(stu(i-1).ave)和(stu(i).ave)中找出最大值，并與第i-1個數據(stu(i-1).ave)交換。此時，剩下的第i個數據一定是最小值，排序結束。整個過程可以概括如下：For n=1 To i-1找出stu(n).ave到stu(i).ave中的最大值將最大值與第n個數據stu(n).ave交換Next n詳細代碼如下：For n = 1 To ik = nFor j = n + 1 To

16、iIf stu(j).ave stu(k).ave Thenk = jEnd IfNext jIf k n Thentemp = stu(n)stu(n) = stu(k)stu(k) = tempEnd IfNext n流程圖設計(1)Frm_Login窗體中的登錄事件的流程圖：(2)Frm_Caxun_Cj窗體中的查詢事件的流程圖：(3)Frm_Caxun_Xs窗體中的查詢事件的流程圖：(4)Frm_ChengjiPaiming窗體中的確定事件的流程圖：數據結構Type xuesheng 自定義學生總分成績數據結構體 num As String 學號 name As String 姓名 s

17、um As Integer 總分 ave As Double 平均分 xjqk As String 學籍情況 End TypeType xuesheng2 自定義學生課程成績數據結構體 num As String 學號 name As String 姓名 kcmq As String 課程名稱 kcfs As interger 課程分數 xjqk As String 及格情況 End TypeDim i as Integer 定義i為動態(tài)、窗體級、數值型的簡單變量Dim n as Integer 定義n為動態(tài)、窗體級、數值型的簡單變量Dim s as String 定義s為動態(tài)、過程級、字符型

18、的簡單變量Public username As String 定義username為動態(tài)、程序級、字符型的簡單變量Public glqx As Boolean 定義glqx為動態(tài)、程序級、布爾型的簡單變量Dim stu(1 To 1000) As xuesheng 定義stu為動態(tài)、過程級、xuesheng型的數組變量Dim stu2(1 To 1000) As xuesheng2 定義stu2為動態(tài)、過程級、xuesheng2型的數組變量程序代碼設計（1）基礎功能Frm_Edit_Kc窗體中的Command1_Click過程先判斷Command1控件此時caption屬性值是“添加”還是“保

19、存”。如果是則判斷Adodc_xs中是否有記錄，沒有就直接添加記錄；否則判斷輸入的學號是否為空，不為空時，在Adodc_xs記錄中查找條件為“學號=s”的記錄。并置于循環(huán)過程中，直至輸入學號與Adodc_xs記錄中學號不重復。將Adodc_xs指針移到新的空記錄上，并置Command1控件Caption屬性值為“保存”。置Command1的Caption值為“添加”，同時更新保存Adodc_xs。具體代碼如下Dim s As StringIf Command1.Caption = 添加 Then With Adodc_kc If .Recordset.RecordCount 0 Then Do

20、 s = InputBox(請輸入課程號, 輸入) If s = Then Exit Sub .Recordset.MoveFirst .Recordset.Find 課程號= & s & If .Recordset.EOF = False Then MsgBox 課程號重復，請重新輸入 End If Loop While .Recordset.EOF = False End If Command1.Caption = 保存 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.E

21、nabled = False Command6.Enabled = False .Recordset.AddNew Text1.Text = s End With Else Command1.Caption = 添加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Adodc_kc.Recordset.Update MsgBox 保存成功, , 保存 End If（2）提高功能Frm_User窗體中的Co

22、mmand1_Click過程先找到該賬號在數據庫中的位置，并判斷Text1.Text與數據庫中的密碼是否一致，然后再判斷新的密碼與確認密碼是否一致。都一致，剛修改成功。With Adodc1 .Recordset.MoveFirst .Recordset.Find 賬號= & username & If .Recordset!密碼 Text1.Text Then MsgBox 原密碼錯誤！, vbCritical, 錯誤 Exit Sub End If If Text2.Text Text3.Text Then MsgBox 新的密碼與確認密碼不致，請重新輸入！, vbCritical, 錯誤

23、 Exit Sub End If .Recordset!密碼 = Text2.Text .Recordset.Update End With MsgBox 密碼修改成功！, vbInformation, 成功 Unload Me（3）創(chuàng)新功能Frm_ChengjiPaiming窗體中的Command1_Click過程定義stu(1 To 1000)為xuesheng類型數組數據，用于儲存所查找到的學生的信息及成績。首先在學生數據表中一個一個的向stu(1 To 1000)寫入學生的信息，同時，再向成績表中查詢該學生的所有課程的總分及平均分，并寫入stu(1 To 1000)。然后，再利用排序算

24、法對stu(1 To 1000)進行排序，然后輸入到List1。Dim stu(1 To 1000) As xuesheng, temp As xueshengWith Adodc1 .Refresh .Recordset.MoveFirst i = 1 Do stu(i).num = .Recordset!學號 stu(i).name = .Recordset!姓名 With Adodc2 .Refresh .Recordset.Filter = (學號= & stu(i).num & ) k = 0 .Recordset.MoveFirst Do stu(i).sum = stu(i).s

25、um + .Recordset!成績 .Recordset.MoveNext k = k + 1 Loop While .Recordset.EOF = False stu(i).ave = stu(i).sum / k If stu(i).ave = 60 Then stu(i).xjqk = 正常 Else stu(i).xjqk = 留級 End If End With i = i + 1 .Recordset.MoveNext Loop While .Recordset.EOF = False End With完整程序請見附錄。測試與調試Frm_Edit_xs窗體中添加新學生信息的測試

26、與調試。表1：數據測試測試數據類型測試數據預期結果實測結果合法數據200911030213420091103021342009110302134091103020109110302010911030201AAA非法數據學號201120105201120105學號重復，請重新輸入出生日期1231212112312121實時錯誤-2147217887第3部分 實訓總結個人總結（1）A總結忙碌了一個多星期，我們總算將程序設計出來，同時還將報告寫完了，這真是一個堅苦而又漫長的過程啊，在我們學了半年了VB語言之后編寫這么大的程序啊，看著我們自己做的程序，自己的勞動成果，覺得特別有成就感和自豪感。我很榮幸

27、成為我們組的組長，因為我們組組員的水平參差不齊，所以做為組長，我需要根據組員的具體情況合理地為他們分配任務，由于B同學在此方面比較弱，所以我給他們分配比較簡單的任務，而自己則負責比較復雜的任務。通過此次VB語言程序設計實踐，我覺得受益非淺，學到了很多東西，也得到了很大的煅燒。剛開始的時候，最主要的就是構思，所以一開始的時候，進展并不是很順利，結果，一個上午時間內，沒做多少東西。在整個程序的構思和數據庫基本完成之后，終于慢慢的，就有了一些眉目了，后來慢慢的也就把整個程序都做出來的，我們組興奮不已。雖然整個程序都做出來了，但是我們發(fā)現了很多的問題，我們慢慢的細心的仔細尋找問題出錯的原因，最后，在我

28、們的努力下，將錯誤都解決了。為了找出問題的所在，也為了能讓程序更完美，我查閱了很多的資料，每一次程序成功的運行，都讓我們感到由衷的歡喜。也曾經因為做了半天的東西，結果VB死機，而要重新做。通過這次實訓，我學到了很多東西，也讓我對VB語言程序有了一個更深層次的了解和認識，它不僅讓我對過去一學期所學的知識得到了鞏固，也讓我認識到自己的不足，它讓我知道了分工合作的快樂和意義，讓我們的知識有了更一步的拓展，這次的實訓就像是人生中的一次磨煉，讓我成熟了很多。在今后，我還會再努力。路漫漫其修遠兮，吾將上下而求索。（2）B總結通過本次實訓對VB學科的學習，我掌握了許多有關VB學科的知識。在本次實訓中，我的V

29、B學科知識更加豐富了，比如，對代碼和窗體的調用有了更深一部的了解，但是還是發(fā)現有些知識點掌握不是很牢，所以我會努力學習，掌握所學知識。在這次實訓中還鍛煉了我其他方面的能力，提高了我的綜合素質。首先，它鍛煉了我做項目的能力，提高了自己獨立思考問題、自己動手操作的能力，在編寫調試運行程序的過程中，我掌握了很多應用知識的技巧。其次，實訓中的項目作業(yè)也使我更加有團隊精神，我們小組每個人都有自己分配到的任務，但我們又是一個聯系在一起的整體，需要大家共同的合作，在以后的工作學習中我會更加努力培養(yǎng)自己的團隊精神。在實訓中，我發(fā)現其實錯誤并不可怕，而且他是通往成功的必經之路，我在剛開始編寫程序時，剛編完一小部

30、分，試著運行試試竟然漏洞百出，當時我就不值所措了，還好我組同學積極幫助我，給我講解，幫我改正錯誤。就這樣，我在同組同學的幫助下順利完成了我的編程工作，所以我意識到團隊的合作也是非常重要的，我們有了堅定的團隊理念，我們有著同樣的勇氣，因此我們也選擇了更大的挑戰(zhàn)。只有團隊的合作好了，小組的水平才能得到最大的發(fā)揮，讓每一個人的到最大的提高。工欲善其事必先利其器。在項目開發(fā)中，我們團隊也出現了一些意見不和，但是我們的團隊的理念告訴我們：集思廣益，海納百川。正是由于我們對問題有著不同的想法，這樣才能真正的集思廣益，通過大家的不斷溝通，很多問題我們都解決了，這是對我們自己的鼓舞，也是對我們溝通能力和理解能

31、力的提升。山高人為峰，我們真正了解到了這句話的含義。困難像彈簧，你強它就弱。你弱它就強。當我們不畏困難時，勇于挑戰(zhàn)困難，挑戰(zhàn)自己時，我們才發(fā)現我們又成長了。我認為學校組織實訓的目的有兩個，第一是讓我們更好的掌握所學的知識，因為之后實踐才能更好的讓我們把所學的東西記住，之后達到掌握。第二是增強團隊意識，學會與人合作，團隊合作是一件非常重要的事情，一個團隊的人要學會如何發(fā)揮每一個隊員的長處，每一個人的力量是微薄的，但是一個團隊的人的力量合起來就很大，不論是現在的學習還是今后走向社會，團隊合作意識是不可缺少的，個人之后完美的融入團隊才能發(fā)揮出個人的最大力量。可以說這次實訓不僅使我學到了知識，也幫助我

32、縮小了實踐和理論的差距，這次實訓將會有利于我更好的適應以后的工作。我會把握和珍惜實訓的機會，在未來的工作中我會把學到的理論知識和實踐經驗不斷的應用到實際工作中，為實現理想而努力。以上就是我在這次實訓中學到的東西，今后我還會繼續(xù)努力學習。結束語在兩個星期的學習過程中，我們學習到了很多，在我們設計程序的時候，我們的輔導老師張利霞老師給了我們很大的幫助和支持；同時，在此也向我們的學校北京聯合大學表示感謝，感謝學校為我們提供一個可以煅燒的機會的平臺。在此特向他們表示真摯的感謝。附錄 程序清單（1）Module_XJGL模塊代碼Type xuesheng 自定義學生部分成績數據結構體 num As St

33、ring 學號 name As String 姓名 sum As Integer 總分 ave As Double 平均分 xjqk As String 學籍情況End TypeType xuesheng2 自定義學生課程成績數據結構體 num As String 學號 name As String 姓名 kcmq As String 課程名稱 kcfs As Integer 課程分數 jgqk As String 及格情況End TypePublic username As String 用戶名Public glqx As Boolean 判斷用戶是否是管理員Sub main() Frm_S

34、tart.ShowEnd Sub（2）Frm_Start窗體代碼Private Sub Form_Load() 初始化進度條 ProgressBar1.Min = 0 ProgressBar1.Max = 1000 ProgressBar1.Value = 0End SubPrivate Sub Timer1_Timer() 計時器 ProgressBar1.Value = ProgressBar1.Value + 100 If ProgressBar1.Value = 1000 Then Unload Me Frm_Login.Show End IfEnd Sub（3）Frm_Login窗體

35、代碼Dim n As IntegerPrivate Sub cmddl_Click() 【登錄事件】 If Text1.Text = Then MsgBox 請輸入用戶名！, vbCritical, 錯誤 Exit Sub End If With Adodc_user .Recordset.MoveFirst .Recordset.Find 賬號= & Text1.Text & If .Recordset.EOF = True Then MsgBox 用戶賬號錯誤，請重新輸入！, vbCritical, 錯誤 Exit Sub End If username = .Recordset!賬號 g

36、lqx = .Recordset!管理員 If glqx = True Then If Option2.Value = False Then GoTo Cuowu Exit Sub End If Else If Option1.Value = False Then GoTo Cuowu Exit Sub End If End If If .Recordset!密碼 Text2.Text Then GoTo Cuowu Exit Sub End If End With Frm_Main.Show Unload Me Exit SubCuowu: 密碼錯誤情況 n = n + 1 MsgBox 密

37、碼錯誤，請重新輸入！, vbCritical, 錯誤 Text2.Text = If n = 3 Then MsgBox 您輸入錯誤達到3次，為了保護賬號安全，系統將自動退出, vbCritical, 系統將自動退出 End End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmddl_ClickEnd SubPrivate Sub cmdexit_Click() 【退出事件】 EndEnd SubPrivate Sub Text2_KeyPress(KeyAscii As In

38、teger) If KeyAscii = 13 Then cmddl_ClickEnd SubPrivate Sub Form_Activate() Text1.SetFocusEnd Sub（4）Frm_Main窗體代碼Private Sub cjpm_Click() 【打開成績排名窗體】 Frm_ChengjiPaiming.Show vbModal, MeEnd SubPrivate Sub cx_cj_Click() 【打開查詢成績窗體】 Frm_Caxun_Cj.Show vbModal, MeEnd SubPrivate Sub cx_xs_Click() 【打開查詢學生窗體】 F

39、rm_Caxun_Xs.Show vbModal, MeEnd SubPrivate Sub edit_cj_Click() 【打開編輯成績窗體】 If glqx = False Then MsgBox 您沒有相應的權限, vbCritical, 錯誤 Exit Sub End If Frm_Edit_Cj.Show vbModal, MeEnd SubPrivate Sub edit_kc_Click() 【打開編輯課程信息窗體】 If glqx = False Then MsgBox 您沒有相應的權限, vbCritical, 錯誤 Exit Sub End If Frm_Edit_Kc.

40、Show vbModal, MeEnd SubPrivate Sub edit_xs_Click() 【打開編輯學生信息窗體】 If glqx = False Then MsgBox 您沒有相應的權限, vbCritical, 錯誤 Exit Sub End If Frm_Edit_Xs.Show vbModal, MeEnd SubPrivate Sub Form_Load() If glqx = True Then Label1.Caption = 學籍管理-管理員 Else Label1.Caption = 學籍管理-普通用戶 End If StatusBar1.Panels(1) =

41、您好！ & usernameEnd SubPrivate Sub ggmm_Click() 【打開設置密碼窗體】 Frm_User.Show vbModal, MeEnd SubPrivate Sub guanyu_Click() 【打開關于窗體】 Frm_About.Show vbModal, MeEnd SubPrivate Sub Timer1_Timer() StatusBar1.Panels(2) = & TimeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 【圖標欄】 Sele

42、ct Case Button.Key Case tu1 If glqx = False Then MsgBox 您沒有相應的權限, vbCritical, 錯誤 Exit Sub End If Frm_Edit_Xs.Show vbModal, Me Case tu2 If glqx = False Then MsgBox 您沒有相應的權限, vbCritical, 錯誤 Exit Sub End If Frm_Edit_Kc.Show vbModal, Me Case tu3 If glqx = False Then MsgBox 您沒有相應的權限, vbCritical, 錯誤 Exit

43、Sub End If Frm_Edit_Cj.Show vbModal, Me Case tu4 Frm_Caxun_Xs.Show vbModal, Me Case tu5 Frm_Caxun_Cj.Show vbModal, Me Case tu6 Frm_ChengjiPaiming.Show vbModal, Me End SelectEnd SubPrivate Sub tuichu_Click() 【退出】 EndEnd SubPrivate Sub zhuxiao_Click() 【更改用戶】 Unload Me Frm_Login.ShowEnd Sub（5）Frm_User窗

44、體代碼Private Sub Command1_Click() 【修改密碼】With Adodc1 .Recordset.MoveFirst .Recordset.Find 賬號= & username & If .Recordset!密碼 Text1.Text Then MsgBox 原密碼錯誤！, vbCritical, 錯誤 Exit Sub End If If Text2.Text Text3.Text Then MsgBox 新的密碼與確認密碼不致，請重新輸入！, vbCritical, 錯誤 Exit Sub End If .Recordset!密碼 = Text2.Text .R

45、ecordset.Update End With MsgBox 密碼修改成功！, vbInformation, 成功 Unload MeEnd SubPrivate Sub Command2_Click() 【取消】 Unload MeEnd SubPrivate Sub Form_Load() With Adodc1 .Recordset.MoveFirst .Recordset.Find 賬號= & username & If .Recordset!密碼 = Then Label1.Visible = False Text1.Visible = False End If End WithE

46、nd Sub（6）Frm_Edit_Xs窗體代碼Private Sub Command1_Click() 【添加】Dim s As StringIf Command1.Caption = 添加 Then With Adodc_xs If .Recordset.RecordCount 0 Then Do s = InputBox(請輸入學號, 輸入) If s = Then Exit Sub .Recordset.MoveFirst .Recordset.Find 學號= & s & If .Recordset.EOF = False Then MsgBox 學號重復，請重新輸入 End If

47、Loop While .Recordset.EOF = False End If Command1.Caption = 保存 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False .Recordset.AddNew Text1(0).Text = s End With Else Command1.Caption = 添加 Command2.Enabled = True Command3.Enabled

48、 = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Adodc_xs.Recordset.Update MsgBox 保存成功, , 保存 End IfEnd SubPrivate Sub Command2_Click() 【上一條】 With Adodc_xs .Recordset.MovePrevious If .Recordset.BOF = True Then .Recordset.MoveFirst Command2.Enabled = False MsgBox 已經是第一條記

49、錄 Else Command3.Enabled = True Command2.Enabled = True End If End WithEnd SubPrivate Sub Command3_Click() 【下一條】 With Adodc_xs .Recordset.MoveNext If .Recordset.EOF = True Then .Recordset.MoveLast Command3.Enabled = False MsgBox 已經 是最后一條記錄 Else Command3.Enabled = True Command2.Enabled = True End If E

50、nd WithEnd SubPrivate Sub Command4_Click() 【搜索】 Dim s As String With Adodc_xs s = InputBox(請輸入要查詢的學號) If s = Then Exit Sub .Recordset.MoveFirst .Recordset.Find 學號= & s & If .Recordset.EOF = True Then .Recordset.MoveFirst MsgBox 沒有找到！ End If End WithEnd SubPrivate Sub Command5_Click() 【修改】 With Adodc

51、_xs If Command5.Caption = 修改 Then Command5.Caption = 保存 Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command6.Enabled = False Else Command5.Caption = 修改 .Recordset.Update Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Co

52、mmand4.Enabled = True Command6.Enabled = True End If End WithEnd SubPrivate Sub Command6_Click() 【刪除】 With Adodc_xs If MsgBox(您確定要刪除該記錄嗎？, vbYesNo + vbQuestion, 確定) = vbYes Then If .Recordset.EOF = False Then .Recordset.Delete .Recordset.Update .Recordset.MoveFirst Else MsgBox 沒有記錄！ End If End If En

53、d WithEnd SubPrivate Sub Command7_Click() 【返回】 Unload MeEnd Sub（7）Frm_Edit_Kc窗體代碼Private Sub Command1_Click() 【添加】Dim s As StringIf Command1.Caption = 添加 Then With Adodc_kc If .Recordset.RecordCount 0 Then Do s = InputBox(請輸入課程號, 輸入) If s = Then Exit Sub .Recordset.MoveFirst .Recordset.Find 課程號= & s

54、 & If .Recordset.EOF = False Then MsgBox 課程號重復，重新輸入, vbCritical, 錯誤 End If Loop While .Recordset.EOF = False End If Command1.Caption = 保存 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False .Recordset.AddNew Text1.Text = s End

55、With Else Command1.Caption = 添加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Adodc_kc.Recordset.Update MsgBox 保存成功, , 保存 End IfEnd SubPrivate Sub Command2_Click() 【修改】 With Adodc_kc If Command2.Caption = 修改 Then Command2.Capt

56、ion = 保存 Command1.Enabled = False Command5.Enabled = False Command3.Enabled = False Command4.Enabled = False Command6.Enabled = False Else Command2.Caption = 修改 .Recordset.Update Command1.Enabled = True Command5.Enabled = True Command3.Enabled = True Command4.Enabled = True Command6.Enabled = True E

57、nd If End WithEnd SubPrivate Sub Command3_Click() 【上一條】 With Adodc_kc .Recordset.MovePrevious If .Recordset.BOF = True Then .Recordset.MoveFirst Command3.Enabled = False MsgBox 已經是第一條記錄 Else Command3.Enabled = True Command4.Enabled = True End If End WithEnd SubPrivate Sub Command4_Click() 【下一條】 With

58、 Adodc_kc .Recordset.MoveNext If .Recordset.EOF = True Then .Recordset.MoveLast Command4.Enabled = False MsgBox 已經是最后一條記錄 Else Command4.Enabled = True Command3.Enabled = True End If End WithEnd SubPrivate Sub Command5_Click() 【搜索】 Dim s As String With Adodc_kc s = InputBox(請輸入要查詢的課程號) If s = Then Ex

59、it Sub .Recordset.MoveFirst .Recordset.Find 課程號= & s & If .Recordset.EOF = True Then .Recordset.MoveFirst MsgBox 沒有找到記錄！, vbCritical, 錯誤 End If End WithEnd SubPrivate Sub Command6_Click() 【刪除】 With Adodc_kc If MsgBox(您確定要刪除該記錄嗎？, vbYesNo + vbQuestion, 確定) = vbYes Then If .Recordset.EOF = False Then

60、.Recordset.Delete .Recordset.Update .Recordset.MoveFirst Else MsgBox 沒有記錄！, vbCritical, 錯誤 End If End If End WithEnd SubPrivate Sub Command7_Click() 【返回】 Unload MeEnd Sub（8）Frm_Edit_Cj窗體代碼Private Sub Command1_Click() 【添加】Dim s As String, kcmq As String, xuehao As StringIf Command1.Caption = 添加 Then