【正文】 amp。 Else txtQL = txSQL amp。 amp。 39。 Set mrcc = New = provider=。HFFFFFF End If End IfEnd SubPrivate Sub Command1_Click() For i = 0 To 7 If i 4 Then If Text1(i) = Label3(i).Caption Then MsgBox 請 amp。 Set mrcc = New = provider=。 txSQL, conn, adOpenStatic, adLockPessimistic txSQL = select * from 班級課程表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim() (1) = Trim() End If End If If Index = 3 Then If Then Set mrcc = New txSQL = delete from 班級課程表 where 班級編號=39。 txSQL, conn, adOpenStatic, adLockPessimistic tSQL = select * from 課程表 txSQL = select * from 班級課程表 tSQL, conn, adOpenStatic, adLockPessimistic If = True Then MsgBox 請先進行課程設置!, vbOKOnly, 提示 Else Do While Not txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim() (1) = (0) Loop End If End If End If If Index = 2 Then If And Then txSQL = delete from 班級課程表 where 班級編號=39。 and 課程名=39。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!課程名) Loop End SubPrivate Sub Label8_Click(Index As Integer) = provider=。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!課程名) Loop End SubPrivate Sub List1Text() Set mrcc = New txSQL = select 課程名 from 班級課程表 where 班級編號=39。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic MsgBox 課程信息已經(jīng)刪除!, vbOKOnly, 提示 List2Text End IfEnd SubPrivate Sub Form_Load() Set mrcc = New = 課程信息設 置 txSQL = select * from 班級表 = provider=。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then MsgBox 此課程名稱已經(jīng)存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txSQL = select * from 課程表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) Text1(0) = Text1(1) = MsgBox 課程信息添加成功!, vbOKOnly, 提示 List2TextEnd SubPrivate Sub Command2_Click() If Then Set mrcc = New txSQL = delete from 課程表 where 課程名=39。 = True Exit Sub Else Text1(9) = Text1(10) = Text1(11) = = False End If End IfEnd Sub4. 課程管理界面圖320相關代碼：Dim mrcc As Dim txSQL As StringDim As StringPrivate Sub Combo1_Click()List1TextEnd SubPrivate Sub Command1_Click() If Text1(0) = Then MsgBox 課程名稱不能為空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txSQL = select * from 課程表 where 課程名=39。 data source= amp。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。 amp。 data source= amp。 2 界面根據(jù)用戶需求設計。5. 學生信息：學號、姓名、性別、年齡、班級、出生日期、聯(lián)系電話、家庭住址、備注。用戶選擇添加查詢修改刪除數(shù)據(jù)庫輸入添加的學生信息提示錯誤添加成功輸入查詢條件數(shù)據(jù)庫添加查詢學生信息系列表調(diào)用選擇或輸入要修改的信息修改信息數(shù)據(jù)庫修改成功更新提示錯誤選擇或輸入要刪除的信息數(shù)據(jù)庫刪除刪除成功圖26 成績管理模塊流程圖下面介紹一下成績管理模塊的流程，當用戶打開成績管理界面的后，可以通過對單選按鈕的選擇，來切換添加、查詢、修改和刪除的功能。系 統(tǒng)登錄模塊系統(tǒng)用戶管理模塊級信息管理模塊學生檔案管理模塊成績信息管理模塊班級管理子模塊課程管理子模塊圖21下面介紹一下登錄模塊的流程，當用戶進入程序時，系統(tǒng)會自動轉(zhuǎn)入登錄界面，同時系統(tǒng)將數(shù)據(jù)庫中存儲的所有用戶名調(diào)出到用戶名下拉菜單，用戶選擇自己所用的用戶名，并輸入對應的密碼后點擊登錄，如果對應的密碼正確，將進入系統(tǒng)的主頁面，如果錯誤，則會出現(xiàn)錯誤提示。使用這種方法，用戶不需要編寫大量代碼去描述界面元素的外觀和位置，而只要把預先建立的對象拖放到屏幕上的一點即可。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。4．基礎信息管理模塊的功能是對客戶信息、銷售員信息、商品信息的添加、修改、刪除和查詢。管理系統(tǒng)是一個不斷發(fā)展的領域，追求不斷讓各種信息的管理變的更方便、更快捷。 二、要求按期完成畢業(yè)設計論文各階段任務 要求完成系統(tǒng)的需求分析與設計；系統(tǒng)的概要設計和詳細設計；系統(tǒng)的總體實現(xiàn)；根據(jù)畢業(yè)設計論文的格式要求完成畢業(yè)設計論文的撰寫。 （2）系統(tǒng)操作員可以對查詢統(tǒng)計模塊進行添加、修改、刪除和查詢。 指導教師簽字： 年 月 日專業(yè)負責人簽字： 年 月 日畢業(yè)設計（論文）評語表（一）指導教師對畢業(yè)設計（論文）的評語：張雪峰同學在畢業(yè)設計期間，按照畢業(yè)設計任務書的要求和內(nèi)容，完成了系統(tǒng)的需求分析、設計、實現(xiàn)等過程，研究開發(fā)了《學生信息管理系統(tǒng)的設計與實現(xiàn)》，基本滿足了財務管理人員對于工資管理系統(tǒng)的需求，完成了畢業(yè)設計任務，達到了預定目標。1．日常業(yè)務模塊的功能是對銷售開單、銷售退貨、客戶結(jié)款的添加和修改。 數(shù)據(jù)庫概述Access提供了真正的關系數(shù)據(jù)庫管理。如上所述，Access 作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。 學校和老師可以添加和管理班級信息、添加和管理課程信息、添加和管理學生的檔案信息、添加和管理學生的成績信息，也可以對個別班級和同學的信息進行查詢，根據(jù)不同條件對學生的成績信息進行查詢。默認是查詢功能，當查詢條件為空是，默認預覽全部學生檔案資料，顯示在列表中。2. 課程信息：課程名、備注。根據(jù)設計的圖書管理系統(tǒng)的ER圖，設計的關系模式在access 2003 中實現(xiàn)。 39。 TimeEnd SubPrivate Sub tuchu_Click()EndEnd SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub user_Click()4．用戶管理界面圖314圖315圖316相關代碼：Dim mrc As Private Sub Command1_Click() Dim txtSQL As String Dim c As String If Text1(0) = Then MsgBox 用戶名不能為空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用戶密碼不能為空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub Else If Text1(2).Text Text1(1).Text Then MsgBox 兩次輸入的密碼不一樣，請重新輸入!, vbOKOnly, 提示