【正文】 行在對(duì)稱多處理系統(tǒng)下。 Visual Basic 微軟公司的Visual Basic ，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。利用VISUAL BASIC 程序設(shè)計(jì)語言，可以很方便地設(shè)計(jì)出在WINDOWS環(huán)境下運(yùn)行的應(yīng)用程序。 Visual Basic的編程特點(diǎn)Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個(gè)新概念，利用Visual Basic的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的鏈接和嵌入、動(dòng)態(tài)鏈接庫(kù)、ActiveX等技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。（2）強(qiáng)大的數(shù)據(jù)庫(kù)功能隨著Visual Basic 語言的向前發(fā)展，在數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯，利用Visual Basic 中的ODBC（開放式的數(shù)據(jù)庫(kù)訪問技術(shù)）可以很方便地開發(fā)出自己的數(shù)據(jù)庫(kù)應(yīng)用程序。（3）其他特性在Visual Basic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。 Visual Basic支持的數(shù)據(jù)庫(kù)系統(tǒng)Visual Basic支持對(duì)多格式的數(shù)據(jù)庫(kù)的訪問和維護(hù)，無論是Access還是Foxpro中創(chuàng)建的數(shù)據(jù)庫(kù)，都可以用Visual Basic打開，對(duì)其進(jìn)行查詢、修改和刪除等操作。Visual Basic可以訪問的數(shù)據(jù)庫(kù)可以簡(jiǎn)單的分為三類，即：Microsoft Access格式數(shù)據(jù)庫(kù)，外部數(shù)據(jù)庫(kù)和ODBC數(shù)據(jù)庫(kù)。 數(shù)據(jù)庫(kù)開發(fā)中的三大工具Visual Basic在數(shù)據(jù)庫(kù)應(yīng)用程序的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（Data Manager），數(shù)據(jù)控件（Data Control）以及數(shù)據(jù)編程對(duì)象（數(shù)據(jù)訪問對(duì)象（DAO）遠(yuǎn)程數(shù)據(jù)對(duì)象（RDO）和ActiveX數(shù)據(jù)對(duì)象（ADO））等工具，協(xié)助設(shè)計(jì)人員輕松的連接數(shù)據(jù)庫(kù)文件，并訪問其中的數(shù)據(jù)，在功能方面與其他一些專業(yè)數(shù)據(jù)庫(kù)軟件（如FoxPro，Microsoft Access等）不相上下。數(shù)據(jù)控件是Visual Basic所提供的基本控件成員之一，它使得設(shè)計(jì)者省下一堆程序代碼編寫的工作，能夠輕松的設(shè)計(jì)及維護(hù)數(shù)據(jù)庫(kù)內(nèi)容。Visual Basic提供的數(shù)據(jù)訪問對(duì)象（Data Access Object；DAO）讓程序設(shè)計(jì)者擁有更大的發(fā)揮空間。RDO是處理遠(yuǎn)程數(shù)據(jù)庫(kù)的一些專門需要的對(duì)象集合。ADO是Visual Basic ，它是一個(gè)更簡(jiǎn)單的對(duì)象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對(duì)本地和遠(yuǎn)程數(shù)據(jù)庫(kù)均有共同的界面，可以取代DAO和RDO。在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫(kù)及數(shù)據(jù)庫(kù)表，并采用了ADO+ODBC數(shù)據(jù)訪問技術(shù)。（2）Command對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。Recordset對(duì)象的LockType屬性的設(shè)置值如下表所示：表21 Recordset對(duì)象的LockType屬性的設(shè)置值常量值說明adLockReadOnly1默認(rèn)值，只讀。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。提供者使用開放式鎖定，只在調(diào)用Updata方法時(shí)鎖定記錄。用于與立即更新模式相反的批更新模式。（6）Property對(duì)象：?jiǎn)为?dú)的一個(gè)Property對(duì)象，提供屬性功能。使用ADO對(duì)象可以建立和管理數(shù)據(jù)庫(kù)的連接，按數(shù)據(jù)庫(kù)服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯(cuò)誤信息等。ADO通過ODBC方式訪問數(shù)據(jù)庫(kù)可以使用用戶DSN、系統(tǒng)DSN和文件DSN，鑒于安全性的考慮，一般不使用系統(tǒng)DSN，本系統(tǒng)選用文件DSN。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。（1） 訪問權(quán)限表31 訪問權(quán)限表設(shè)計(jì) 名稱字段名稱類型長(zhǎng)度訪問賬號(hào)賬號(hào)varchar14密碼密碼varchar14權(quán)限等級(jí)權(quán)限varchar8（2） 學(xué)生信息表32 學(xué)生基本信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOT姓名varchar8NOT班級(jí)編號(hào)varchar7NOT性別varchar2NOT年級(jí)varchar4NOT政治面貌varchar8NULL民族varchar4NOT籍貫varchar4NOT身份證號(hào)varchar18NOT學(xué)籍狀態(tài)varchar4NULL（3） 班級(jí)信息表33 班級(jí)信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值班級(jí)編號(hào)varchar7NOT年級(jí)varchar4NOT班級(jí)名稱varchar30NOT班級(jí)簡(jiǎn)稱varchar16NULL人數(shù)Int5NOT班主任varchar8NOT（4） 課程信息表34 課程信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值課程代碼varchar5NOT課程名稱varchar50NOT課程性質(zhì)varchar4NOT上課時(shí)間varchar20NOT上課地點(diǎn)varchar14NULL任課教師varchar8NOT學(xué)分int2NOT（5） 選課表表35 選課表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOT課程代碼varchar5NOT成績(jī)float20NULL（6） 教師信息表36 教師表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值賬號(hào)varchar14NOT姓名varchar8NOT任課科目varchar50NOT（7） 處分信息表38 處分信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOT處分等級(jí)varchar12NOT說明varchar50NOT填報(bào)時(shí)間dateNOT（8） 獎(jiǎng)學(xué)金表39 獎(jiǎng)學(xué)金信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOT平均成績(jī)float20NOT申請(qǐng)標(biāo)記varchar4NULL4 系統(tǒng)具體實(shí)現(xiàn) 本部分主要內(nèi)容為本系統(tǒng)的各個(gè)運(yùn)行界面以及主要界面的源代碼。 公共變量Public 權(quán)限 As StringPublic 賬號(hào)1 As String 用于存儲(chǔ)賬號(hào)和權(quán)限，在訪問過程中分配其訪問權(quán)限以及當(dāng)前登陸者密碼的更改。打開文件DSNSet rst = New If enableWrite Then Trim$(SQL), con, adOpenDynamic, adLockOptimistic’以讀寫方式打開數(shù)據(jù)文件Else Trim$(SQL), con, adOpenDynamic, adLockReadOnly’以只讀方式打開數(shù)據(jù)文件End IfEnd Function 判斷數(shù)據(jù)庫(kù)中是否存在指定記錄Public Function DBExist(ByVal SQL As String) As Boolean 39。沒有此記錄ElseDBExist = True 39。DataGride中顯示數(shù)據(jù)Dim rst As Dim con As Set con = New Set rst = New filedsn=If enableWrite Then Trim$(SQL), con, adOpenStatic, adLockOptimisticSet = rstElse Trim$(SQL), con, adOpenStatic, adLockReadOnlySet = rstEnd IfEnd Function 登錄窗體設(shè)計(jì)添加一個(gè)窗體（），該部分主要包括用戶的驗(yàn)證以及權(quán)限的限制。 + Trim() + 39。 + Trim() + 39。教師登錄主界面的菜單功能代碼為：Private Sub form_load() = True = True = LoadPicture(E:\VB學(xué)生信息\)End SubPrivate Sub 成績(jī)管理_Click()