【正文】 If = ThenMsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。防止空密碼DoIf = rstS(0) And = rstS(2) And = rstS(3) ThenIf rstS(0) = 管理員 Then admin = 1Else admin = 0End IfUnload MeExit DoEnd If 39。當(dāng)用戶名和密碼相符的時候，進(jìn)入主窗體，跳出循環(huán)If = True ThenMsgBox 密碼錯誤，請重新輸入！, vbExclamation + vbOKOnly, 警告 = Exit DoEnd If 39。用戶名或者密碼不相符或者不存在，都出現(xiàn)提示密碼錯誤的對話框，跳出循環(huán)Loop 39。循環(huán)搜索每條記錄，直到出現(xiàn)以上兩種結(jié)果的一種End SubPrivate Sub Form_Load()Set rstS = End Sub（）這是一個班級瀏覽窗體，用DataGrid調(diào)用了整張班級表，用追加實現(xiàn)對表中列的布局，用Adodc控制了記錄的變化，同時用DataCombo調(diào)用數(shù)據(jù)庫的年級表來實現(xiàn)對年級的篩選，此外還運用了數(shù)據(jù)報表。 = 年級 like 39。 amp。 amp。 %39。 39。按年級過濾 = cancel like 39。039。 39。取消過濾，實際是根據(jù)cancel項進(jìn)行過濾，此項是數(shù)據(jù)型，默認(rèn)為0（） 這是學(xué)生成績查詢窗體，在控件中增加了SSTab來定義同類風(fēng)格，是四個查詢、四張表都能集中在一個窗體中，簡單清晰。Private Sub Form_Load()Set rstS = Set a = Set b = Set c = End Sub（）這是學(xué)生成績輸入數(shù)據(jù)顯示窗體，整頁設(shè)置風(fēng)格大方，操作簡便，一目了然，利用DataGrid調(diào)用數(shù)據(jù)庫中的成績表，同時也利用了追加實現(xiàn)了對表中列的布局。數(shù)據(jù)報表可以綜觀所有相關(guān)報表信息，輸入按扭可以實現(xiàn)對學(xué)生成績的錄入。Private Sub Command4_Click() = 刪除If MsgBox(真的要刪除當(dāng)前記錄嗎?, vbOKCancel + vbCritical, 刪除) = vbOK ThenIf = True ThenEnd IfEnd IfEnd SubPrivate Sub Command5_Click() adAffectAllChapters 39。刷新記錄End Sub這是學(xué)?；菊n程窗體，整頁綜合了多項控件，但并不顯得雜反而很有條理。三個Lable設(shè)置了排序、查找、篩選三個功能模塊，而在排序和查找模塊中又分別用了三個Option來做出選擇，用Adodc連接了后臺數(shù)據(jù)庫用DataGrid實現(xiàn)前臺數(shù)據(jù)的展現(xiàn)，DataCombo的選擇來實現(xiàn)篩選。Private Sub Command8_Click()If = True Then = 課程代號 End IfIf = True Then = 課程名 desc ElseIf = True Then = 學(xué)分 desc,課程代號End IfEnd SubPrivate Sub Command9_Click()If = True Then (教學(xué)要求 like 39。 amp。 amp。 %39。)End IfIf = True Then (學(xué)分 like 39。 amp。 amp。 %39。)ElseIf = True Then (學(xué)期 like 39。 amp。 amp。 %39。)End IfIf ThenMsgBox 未找到!End IfEnd Sub（）這是畢業(yè)設(shè)計窗體，這頁的特點在于利用了特效。用Adodc連接了后臺數(shù)據(jù)庫中的畢業(yè)設(shè)計表，8個Command可以實現(xiàn)諸多功能，特色在于三個Time控件，會使左右兩邊的“畢業(yè)設(shè)計信息”字樣呈閃爍狀態(tài)，此外還有當(dāng)前時間的顯示。Private Sub Timer1_Timer()Dim i As IntegerFor i = 1 To 255 = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1))NextEnd SubPrivate Sub Timer2_Timer() = Time = DateEnd SubPrivate Sub Timer3_Timer()If = True Then = True = FalseElseIf = True Then = True = FalseEnd IfEnd Sub（）這是綜合測評窗體，在這里增加了控件MSChart，利用Adodc調(diào)用數(shù)據(jù)的變化而時圖表呈現(xiàn)變化狀態(tài)，成為又一新亮點。Private Sub Form_Load() = = = = = = Set rs = End SubPrivate Sub Text1_Change() = = = = = = End Sub數(shù)據(jù)庫（表）分析數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。設(shè)計數(shù)據(jù)庫系統(tǒng)時應(yīng)該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟：u 數(shù)據(jù)庫需求分析。u 數(shù)據(jù)庫邏輯結(jié)構(gòu)分析。這個系統(tǒng)使用的數(shù)據(jù)庫是微軟Access2000數(shù)據(jù)庫。由于整個系統(tǒng)有兩個人共同完成，而且內(nèi)容上又有偏差，故我們制作了兩個數(shù)據(jù)庫。，總共有19張資料表。用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。針對學(xué)校管理的需求，通過對學(xué)校內(nèi)部管理內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：數(shù)據(jù)庫：資料表1：按課程類型 列名數(shù)據(jù)類型可否為空說明課程類型文本否cancel數(shù)字是資料表2：班級表列名數(shù)據(jù)類型可否為空說明年級文本是教室文本是專業(yè)文本否年制文本是班主任文本是備注文本是Cancel數(shù)字是資料表3：畢業(yè)設(shè)計表列名數(shù)據(jù)類型是否為空說明學(xué)號數(shù)字否姓名文本是畢業(yè)設(shè)計課題名文本是指導(dǎo)老師名文本是指導(dǎo)老師所在文本是資料表4：補考表列名數(shù)據(jù)類型是否為空說明學(xué)號文本是姓名文本是課程代號文本是課程名稱文本是學(xué)期文本是成績文本是Cancel數(shù)字是資料表5：成績表列名數(shù)據(jù)類型是否為空說明學(xué)號文本是姓名文本是課程代號文本是課程名稱文本是 學(xué)期文本是成績文本是績點數(shù)文本是 Cancel數(shù)字是資料表6：各班課程列名數(shù)據(jù)類型是否為空說明專業(yè)文本是學(xué)期文本是課程代號文本是課程名稱文本是Cancel 數(shù)字是資料表7：積考表列名數(shù)據(jù)類型是否為空說明學(xué)號文本否姓名文本是課程代號文本否課程名稱文本是學(xué)期文本是成績文本是Cancel數(shù)字是資料表8：教材表列名數(shù)據(jù)類型是否為空說明課程代號文本是課程名文本是教材文本是資料表9：課程總表列名數(shù)據(jù)類型是否為空說明課程代號文本否課程名文本是課程類型文本是課時數(shù)文本是教學(xué)要求文本是學(xué)分文本是學(xué)期文本是Cancel數(shù)字是資料表10：年級表列名數(shù)據(jù)類型是否為空說明年級文本否資料表11：實習(xí)表列名數(shù)據(jù)類型是否為空說明學(xué)號數(shù)字否姓名文本是實習(xí)單位文本是實習(xí)電話數(shù)字是資料表12：學(xué)期表列名數(shù)據(jù)類型是否為空說明學(xué)期文本是資料表13：學(xué)生情況表列名數(shù)據(jù)類型是否為空說明學(xué)號數(shù)字否姓名文本是性別文本是系別文本是班級文本是政治面貌文本是家庭地址文本是聯(lián)系電話文本是郵政編碼文本是父親姓名文本是母親姓名文本是畢業(yè)學(xué)校文本是入學(xué)成績文本是宿舍號文本是退學(xué)是/否是cancel數(shù)字是資料表14：用戶表列名數(shù)據(jù)類型是否為空說明組名稱文本是組密碼文本是用戶名文本否密碼文本是資料表15：員工信息表列名數(shù)據(jù)類型是否為空說明員工號數(shù)字否姓名文本是性別文本是職稱文本是培訓(xùn)時間文本是培訓(xùn)部門文本是培訓(xùn)費用文本是培訓(xùn)課程文本是培訓(xùn)性質(zhì)文本是培訓(xùn)情況文本是資料表16：員工信息表列名數(shù)據(jù)類型是否為空說明員工號數(shù)字否姓名文本是性別文本是政治面貌文本是教授課程文本是所屬部門文本是職稱文本是工資級別數(shù)字是聯(lián)系電話數(shù)字是家庭住址文本是Cancel數(shù)字是資料表17：重修表列名數(shù)據(jù)類型是否為空說明學(xué)號文本是姓名文本是課程代號文本是課程名文本是學(xué)期文本是成績文本是Cancel數(shù)字是資料表18：綜合測評表列名數(shù)據(jù)類型是否為空說明學(xué)號文本否姓名文本是政治思想分文本是學(xué)業(yè)成績文本是科技創(chuàng)新能力分文本是社會實踐能力文本是體育鍛煉文本是附加/減分文本是資料表19：組表列名數(shù)據(jù)類型是否為空說明組名文本否密碼文本是 部分?jǐn)?shù)據(jù)ER圖 年制 班級ER圖：年級班主任班 級教室備注專業(yè) 畢業(yè)設(shè)計ER圖：畢業(yè)設(shè)計課題名學(xué)號畢業(yè)設(shè)計指導(dǎo)老師名姓名指導(dǎo)老師所在 成績ER圖：課程代號課程名學(xué)號學(xué)期成 績姓名績點數(shù)成績 課程ER圖：課時數(shù)教學(xué)要求課程代號課程學(xué)分課程名學(xué)期課程類型家庭地址 學(xué)生ER圖：政治面貌聯(lián)系電話學(xué)號學(xué) 生父親姓名姓名母親姓名性別宿舍號畢業(yè)學(xué)校系別班級入學(xué)成績培訓(xùn)部門培訓(xùn)時間 員工培訓(xùn)ER圖：培訓(xùn)費用員工號培訓(xùn)課程員工培訓(xùn)姓名培訓(xùn)性質(zhì)職稱性別培訓(xùn)情況 員工ER圖：教授課程政治面貌 所屬部門員工號員工信息職稱姓名性別聯(lián)系電話家庭住址工資級別遇到的困難和解決方法我們設(shè)計的學(xué)校管理系統(tǒng)，從實質(zhì)上說是一個軟件，但是它是以VB為界面基礎(chǔ)的，后臺的數(shù)據(jù)庫是ACCESS，這就引發(fā)了一個問題，在小組人員各自完成模塊的設(shè)計時，在自己的PC上就可以運行，但是在合并程序的階段，就無法運行了，指導(dǎo)老師在設(shè)計初期就象我們提示過要改路徑的問題。所以，在后期合并時期，我們找到了原因，是因為在設(shè)計初期，把數(shù)據(jù)庫的文件單獨放在一個文件夾里，我們修改了相對路徑，避免了一系列的修改的麻煩，在此我們要感謝指導(dǎo)老師的細(xì)心和負(fù)責(zé)。在我們小組人員共同的努力下，也使程序能順利的完成。