【正文】 Next Dim rsDep As New , rsClass As New Set rsDep = Set rsClass = 39。39。 sTemp amp。 39。 amp。 .msFindOp amp。 Else sTemp = .msFindField amp。 .msFindExpr amp。 39。 amp。39。 的成績信息 1End SubPrivate Sub cmdSeek_Click() With frmFind Dim i As Integer 39。刷新網格控件 Call RefreshGrid Call ChangeBrowseState Call grdScan_ChangeEnd SubPrivate Sub cmdNext_Click() Call ChangeBrowseStateEnd SubPrivate Sub cmdPrevious_Click() Call ChangeBrowseStateEnd SubPrivate Sub cmdReport_Click() On Error Resume Next Dim rpt As New rptStudentScore Load rpt = 學生 amp。 strSQL 39。 39。 amp。39。刷新整個網格控件 Call RefreshScore((0).CellText()) Exit Sub errHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub cmdFirst_Click() Call ChangeBrowseStateEnd SubPrivate Sub cmdLast_Click() Call ChangeBrowseStateEnd SubPrivate Sub cmdList_Click() 39。 str Unload frmAddCourse End With Unload frmAddCourse 39。 . amp。 and courseID=39。 39。 amp。 . str = str amp。39。39。39。39。39。39。39。 39。 amp。 39。 amp。39。 39。 amp。 39。 amp。 39。 str = str amp。39。39。39。 _ 姓名： amp。來改變管理grdScore的各個按鈕的狀態(tài) If .BOF And .EOF Then = True = False = False = False Else = True = True = True = True End If End With = oneScore = 學號： amp。 End If .Open str 39。 sSerial amp。 _ and = 39。39。 39。 amp。39。39。假如處于記錄的頭部 If .BOF Then If Not .EOF Then = False = False Else = True = True End If 39。39。39。39。刷新各個綁定控件 Call grdScan_ChangeEnd Sub39。當改變記錄集時，需要刷新整個網格控件Sub RefreshGrid() = If adStateClosed Then = sqlStudent 39。39?！鞍磳W生進行管理”學生信息功能界面 教師用戶用鼠標雙擊學生信息后，系統(tǒng)會顯示出該學生的成績信息。注意調用順序 Unload Me End IfEnd SubPrivate Sub Form_Load() = 0End Sub 本節(jié)以按學生角度進行管理為例，介紹教師管理的編碼設計。顯示MDI窗體, 并將用戶類型和用戶名傳到MDI窗體中 gnUserType = gsUserName = txtPwd 39。登陸成功 39。登錄失敗 MsgBox 對不起，無此用戶或者密碼不正確！請重新輸入?。? vbCritical, 錯誤 = 0 = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無權操作本系統(tǒng)!再見！, vbCritical, 無權限 Unload Me End If Else 39。用戶密碼錯誤的次數(shù)，如果錯誤次數(shù)超過3次，則退出系統(tǒng) Static nTryCount As Integer If Then 39。打開記錄集 r strSQL, , adOpenStatic 39。 39。 amp。 39。 amp。 Case 1: 39。 pwd amp。 and serial=39。 user amp。選擇身份為教師 strSQL = select * from teacher where name=39。39。39。： Connection String屬性的4個參數(shù)參數(shù)描述Provider指定數(shù)據源的名稱File Name指定基于數(shù)據源的文件名稱Remote Server指定在打開一個客戶端連接時使用的數(shù)據源名稱Remote Server指定打開客戶端連接時使用的服務器的路徑與名稱第四章 學生成績管理系統(tǒng)的功能實現(xiàn)下面給出系統(tǒng)開發(fā)出來的詳細界面以闡述學生成績管理系統(tǒng)的具體功能。例如，ODBC驅動程序允許該字符串包含驅動程序、提供者、默認的數(shù)據庫、服務器、用戶名稱以及密碼等。 與Data控件類似，為了實現(xiàn)對數(shù)據庫的訪問，ADO數(shù)據控件提供了幾個屬性，這些屬性定義了怎樣連接數(shù)據庫以及同什么樣的數(shù)據庫相連接。 添加新的記錄，或者根據對顯示在綁定的控件中的數(shù)據的任何更改來更新一個數(shù)據庫。 將數(shù)據字段的數(shù)值傳遞給數(shù)據綁定的控件，可以在這些控件中顯示或更改這些數(shù)值。 打開一個指定的數(shù)據庫表，或定義一個基于結構化查詢語言(SQL)的查詢、存儲過程或者是該數(shù)據庫中表的視圖的記錄集合。 連接一個本地數(shù)據庫或遠程數(shù)據庫。使用Visual Basic的類模塊也可以很方便的創(chuàng)建子集的數(shù)據提供者。在ADO對象模型中還有其他幾個對象，例如Field、Property、Error和Parameter，它們是作為前面3個對象的子對象進行訪問的。ADO對象模型中包含了3個一般用途的對象：Connection、Command和Recordset。User Connection對象只支持ODBC數(shù)據源，而Data Environment對象可以連接所有的OLE DB數(shù)據源o ADO對象模型定義了一個可編程的分層的對象集合，它支持部件對象模型(COM)和OLE DB數(shù)據源。、可視化設計工具以及OLE DB數(shù)據源書寫模板等新的內容。ADO(ActiveX Data Object)是微軟提出的數(shù)據訪問接口，它實現(xiàn)了RDO的絕大多數(shù)功能，另外還增加了一些用戶以前沒有接觸到的特征。 是一個本地和遠程數(shù)據訪問、遠程和斷開連接的記錄集、用戶可以訪問的數(shù)據綁定接口以及層次化的記錄集的通用接口。 與其他Microsoft和非Microsoft技術更加緊密的集成。學生實體E－R圖學生實體學號姓名班級簡歷 … … … 學生實體ER圖課程實體E－R圖課程實體編號名稱學時類型 … … … 課程實體ER圖學生成績信息實體E－R圖學生成績信息實體學號姓名課程成績 … … … 學生成績信息實體ER圖該軟件的數(shù)據庫名稱為“”，該數(shù)據庫主要由下述三張表構成：score：成績表student：學生信息表course：課程信息表score：成績表字段名稱內 容類 型長 度備注idID 號自動編號長整型studentID學 號文 本為主鍵之一，對應于student表的Serial字段CourseID課程編號文 本為主鍵之一，對應于Course表的Serial字段Score分 數(shù)數(shù) 字整 型student：學生信息表字段名稱內 容類 型長 度備注Serial學號文本7主關鍵字Name姓名文本10Class所屬班級文本5Birthday生日日期時間Sex性別文本2Address家庭住址文本30Tel電話文本15Resume簡歷備注500course：課程信息表字段名稱內 容類 型長 度備注Serial課程編號文 本50主關鍵字Name課程名稱文 本50Period學時數(shù)數(shù) 字長整型typeid課程類型文本50ADO(Active Data Objects)是一種新的數(shù)據訪問方式，具有以下特征：252。得到上面的數(shù)據項和數(shù)據結構以后，就可以設計出能夠滿足用戶需求的各種實體，以及它們之間的關系，為后面的數(shù)據字典設計打下基礎。仔細分析調查有關學生成績管理信息需求的基礎上，將得到本系統(tǒng)所處理的數(shù)據流程。用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據庫結構能充分滿足各種信息的輸出和輸入。合理的數(shù)據庫結構設計可以提高數(shù)據存儲的效率，保證數(shù)據的完善和一致。利用VBA可以編寫程序代碼來完成Access宏所不能完成的特定任務。宏用來保存Access中的一系列操作。 頁是一種特殊類型的窗體，它使用戶能夠利用Web瀏覽器查看和編輯Access的表。報表是一個Access對象，設計來顯示數(shù)據，其作用類似于窗體，但主要是用于數(shù)據打印，不能輸入數(shù)據。在Access中，可以創(chuàng)建一個窗體，用來同時查閱單個表或多個表中的數(shù)據，還可以打印和顯示窗體。例如，可以設計一個查詢來告知在公司中工作超過1年的職員有多少。查詢是一個Access對象，它詢問數(shù)據庫中有關數(shù)據的問題。對于像Access這樣的關系數(shù)據庫管理程序，一個數(shù)據庫通常包含幾個存放相關數(shù)據的不同表。每一列叫做一個“字段”，包含特定類型的信息，如姓名或學歷。Access有以下一些基本定義：該學生成績管理系統(tǒng)的數(shù)據庫選用Microsoft公司的Access產品作為數(shù)據庫應用程序。實現(xiàn)起來比較方便，但同時也只能提供數(shù)據的存取功能。一般而言，桌面數(shù)據庫主要應用于小型的、單機的數(shù)據庫應用程序。關系數(shù)據庫是以關系模型為基礎的數(shù)據庫，是根據表、記錄和字段之間的關系進行組織和訪問的一種數(shù)據庫，它通過若干個表（Table）來存取數(shù)據，并且通過關系（Relation）將這些表聯(lián)系在一起，關系數(shù)據庫提供了成為機構化查詢語言（SQL）標準接口，該接口允許使用多種數(shù)據庫工具和產品，關系數(shù)據庫是目前最廣泛應用的數(shù)據庫。操作系統(tǒng)：Windows 2000數(shù)據庫為：MS Access 2000開發(fā)工具與語言: Visual Basic 所謂數(shù)據庫（Database）就是指按一定組織方式存儲再一起的，相互有關的若干個數(shù)據的結合，數(shù)據庫管理系統(tǒng)（Database Management System）就是一種操縱和管理數(shù)據庫的大型軟件，簡稱DBMS,他們建立在操作系統(tǒng)的基礎上，對數(shù)據庫進行統(tǒng)一的管理和控制，其功能包括數(shù)據庫定義，數(shù)據庫管理，數(shù)據庫建立和維護，于操作系統(tǒng)通信等。保證系統(tǒng)的物理安全、數(shù)據存儲和存取的安全與保密、數(shù)據傳輸?shù)陌踩c保密，做好使用人員的授權管理。目標系統(tǒng)功能齊全，能夠完全滿足業(yè)務需求。系統(tǒng)應易于修改、易于擴充、易于維護，能夠適應業(yè)務不斷發(fā)展變化的需要。用戶容易理解和使用該系統(tǒng)。能連續(xù)準確的處理業(yè)務，有較強的容錯能力。優(yōu)化邏輯設計與物理設計，使系統(tǒng)運行效率高，反映速度快。成績信息包括這個學生的所有課程的成績信息、總分及平均分。學生對成績的查看功能學生用戶登錄后，學生可以看到自己的學生信息和成績信息。在成績信息中，教師可