數(shù)據(jù)庫原理及應(yīng)用最終一次上機(jī)實踐

本文格式為Word版，下載可任意編輯——數(shù)據(jù)庫原理及應(yīng)用最終一次上機(jī)實踐第六次上機(jī)實踐

試驗七應(yīng)用VB開發(fā)簡單的數(shù)據(jù)庫應(yīng)用系統(tǒng)1設(shè)計數(shù)據(jù)庫2設(shè)計應(yīng)用程序界面

。2設(shè)計應(yīng)用程序界面

試驗七應(yīng)用VB開發(fā)簡單的數(shù)據(jù)庫應(yīng)用系統(tǒng)

項目:基于VisualBasic/SQLServer的學(xué)生信息管理系統(tǒng)

★學(xué)生信息管理系統(tǒng)開發(fā)主要包括

▲后臺數(shù)據(jù)庫設(shè)計和維護(hù)

要求：建立一致性，完整性，安全性好的數(shù)據(jù)庫工具：SQLServer2023▲前端應(yīng)用程序的開發(fā)

要求：應(yīng)用程序功能完備，易使用。工具：VisualBasic

★學(xué)生信息管理系統(tǒng)采用C/S（客戶機(jī)和服務(wù)器結(jié)構(gòu)）體系結(jié)構(gòu)，依照客戶端設(shè)計和教據(jù)庫設(shè)計兩部分進(jìn)行?？蛻舳嗽O(shè)計負(fù)責(zé)提供表達(dá)規(guī)律、顯示用戶界面信息、訪問數(shù)據(jù)庫服務(wù)器等，采用ⅥsualBasic6.0作為開發(fā)工具；服務(wù)器端則用于提供數(shù)據(jù)服務(wù)，采用SQLServer2023作為數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫設(shè)計實現(xiàn)服務(wù)器端的數(shù)據(jù)處理?！锟蛻舳讼到y(tǒng)總體設(shè)計

學(xué)生信息管理系統(tǒng)客戶端主要對學(xué)生信息、課程信息、學(xué)生成績信息進(jìn)行管理，該系統(tǒng)分4個功能模塊，如下圖。

1)專業(yè)班級管理：包括專業(yè)信息和班級信息的錄入、修改、刪除等操作。

2)學(xué)生信息管理：包括學(xué)生信息的錄入、修改、刪除、查詢和生成報表等操作。3)選修課程設(shè)置：實現(xiàn)課程信息的錄入、修改、刪除、查詢和生成報表等操作。4)成績信息管理：實現(xiàn)學(xué)生成績的錄入、修改、刪除和查詢等操作。錄入某個學(xué)生的某門課程的成績時，由于學(xué)生信息和課程信息已在數(shù)據(jù)庫中存在，可通過下拉列表框的形式來選擇學(xué)生和課程來錄入、修改、刪除和查詢成績。

1

系統(tǒng)的功能模塊圖

預(yù)備知識VB基礎(chǔ)

一、為什么采用VisualBasic6.0開發(fā)數(shù)據(jù)庫

數(shù)據(jù)庫系統(tǒng)（信息管理系統(tǒng)）開發(fā)工具好多，早期的如FoxPro等。目前，主流的開發(fā)工具有VisualBasic,VisualC++,Delphi等，其中VisualBasic以其簡單易懂的語法，直觀而強(qiáng)大的IDE（集成開發(fā)環(huán)境），豐富強(qiáng)大的數(shù)據(jù)庫操作特性成為最流行的數(shù)據(jù)庫系統(tǒng)開發(fā)工具。

在Windows操作系統(tǒng)中，VisualBasic是最簡單的數(shù)據(jù)庫開發(fā)平臺，通過它可以在很短的時間內(nèi)開發(fā)出高效、美觀的數(shù)據(jù)庫應(yīng)用程序。

1）VisualBasic作為數(shù)據(jù)庫開發(fā)平臺有以下優(yōu)點：

簡單性。VisualBasic提供了數(shù)據(jù)控件，利用該控件用戶可以便利地訪問數(shù)據(jù)庫，對數(shù)據(jù)庫進(jìn)行瀏覽。

靈活性。VisualBasic不像一般的數(shù)據(jù)庫（如Access）那樣局限于特定的應(yīng)用程序結(jié)構(gòu)，也不需要某些指令對當(dāng)前開啟的數(shù)據(jù)庫進(jìn)行操作，因而比較靈活。

可擴(kuò)展性。VisualBasic是一種可以擴(kuò)展的語言，其中包括在數(shù)據(jù)庫方面的擴(kuò)展。在VisualBasic中，可以使用Active控件，這些控件可以由Microsoft公司提供，也可由第三方開發(fā)者提供。有了這些控件，可以很簡單地在VisualBasic中增加新功能。

2）數(shù)據(jù)庫前端是一個計算機(jī)應(yīng)用程序，用該應(yīng)用程序可以選擇數(shù)據(jù)庫中的數(shù)據(jù)項，并把所選擇的數(shù)據(jù)項按用戶的要求顯示出來。數(shù)據(jù)庫系統(tǒng)本身被稱為后端，后端數(shù)據(jù)庫尋常是一個關(guān)系表的集合。

選擇VisualBasic作為開發(fā)數(shù)據(jù)庫前端應(yīng)用程序的工具，主要是由于VisualBasic可以和多種數(shù)據(jù)庫連接。目前，較為流行的大多數(shù)數(shù)據(jù)庫都可以與VisualBasic連接，因而可以用VisualBasic開發(fā)相應(yīng)的前端應(yīng)用程序。

二、VB環(huán)境下數(shù)據(jù)處理功能簡介

VB中提供了多種數(shù)據(jù)庫訪問方法，可以訪問的數(shù)據(jù)類型有dBase,FoxPro和Access數(shù)據(jù)庫。VB提供的數(shù)據(jù)庫訪問方法主要有：使用可視化數(shù)據(jù)管理器管理數(shù)據(jù)庫，用Data,ADO數(shù)據(jù)控件訪問數(shù)據(jù)庫，通過ODBC方式訪問遠(yuǎn)程數(shù)據(jù)庫以及

2

采用對象變量訪問數(shù)據(jù)庫等。

VB提供了多種SQLServer數(shù)據(jù)庫的訪問方法，例如使用數(shù)據(jù)訪問對象（DAO），遠(yuǎn)程訪問對象(RDO)，ADO數(shù)據(jù)控件及ADO對象等。

可視化數(shù)據(jù)庫工具（VisualDambaseTools）是集成在VB6.0開發(fā)環(huán)境中的可視化的數(shù)據(jù)庫管理工具使用這套工具主要可以完成以下功能：

鏈接到任何符合ODBC（微軟公司推出的開放式數(shù)據(jù)庫互聯(lián)）規(guī)則的數(shù)據(jù)庫。使用數(shù)據(jù)庫圖表創(chuàng)立和修改soLServer數(shù)據(jù)庫。設(shè)計、執(zhí)行和保存繁雜的查詢。

添加、更改和刪除存儲在數(shù)據(jù)庫表中的數(shù)據(jù)

可視化數(shù)據(jù)庫工具（VisualDambaseTools）主要由數(shù)據(jù)視圖、數(shù)據(jù)庫設(shè)計器、查詢設(shè)計器和源代碼編輯器四部分組成。1數(shù)據(jù)視圖

數(shù)據(jù)視圖的外觀與工程窗口十分類似，只是數(shù)據(jù)視圖是用來管理數(shù)據(jù)庫對象的，它提供了一種圖形化方法來組織數(shù)據(jù)庫對象，這些數(shù)據(jù)庫對象包括數(shù)據(jù)庫圖表、表、視圖、觸發(fā)器和存儲過程。用戶可以通過雙擊、拖動及右鍵菜單對數(shù)據(jù)庫對象執(zhí)行開啟、創(chuàng)立和編輯等操作。

數(shù)據(jù)綁定控件。

在VB環(huán)境下，常用的對象有各種控件、窗體、菜單、應(yīng)用程序的部件以及數(shù)據(jù)庫等。這些對象都具有屬性（數(shù)據(jù)）和行為方式（方法）。屬性用于描述對象的一組特征，方法為對象實施一些動作，對象的動作往往要觸發(fā)事件，而觸發(fā)事件又可以修改屬性。一個對象建立后，其操作可通過與該對象有關(guān)的屬性、事件和方法來描述。

數(shù)據(jù)綁定控件是數(shù)據(jù)識別控件，在數(shù)據(jù)庫中通過它訪問信息，當(dāng)一個控件被綁定到數(shù)據(jù)控件控件，該控件將顯示數(shù)據(jù)庫中的字段，并接受對數(shù)據(jù)庫的修改。

大多數(shù)綁定控件是用DataChanged,DataField,DataSource屬性的設(shè)置與Data控件綁定的。其中DataChanged屬性說明返回綁定控件中的值是否極已經(jīng)改變,DataField屬性用于設(shè)置要顯示得數(shù)據(jù)庫中的字段名稱,DataSource屬性用于設(shè)置與該控件綁定的Data控件的名稱。

試驗七應(yīng)用VB開發(fā)簡單的數(shù)據(jù)庫應(yīng)用系統(tǒng)2設(shè)計應(yīng)用程序界面

一、試驗?zāi)康?/p>

熟悉VB6.0的集成環(huán)境及其基本操作：

熟悉VB軟件的使用，要求把握VB的基本功能、常用控件能夠運用；學(xué)會對數(shù)據(jù)控件（Data控件、數(shù)據(jù)綁定控件等）的使用；熟悉VB數(shù)據(jù)訪問技術(shù)。

二、試驗內(nèi)容

1）VB的啟動，對VB集成開發(fā)環(huán)境（IDE）的熟悉,熟悉工具箱中相應(yīng)的控

件功能及其使用方法。重點把握數(shù)據(jù)控件（Data）、數(shù)據(jù)綁定控件（如文本框、組合框等標(biāo)準(zhǔn)控件）。

三、試驗步驟和方法

3

1）啟動VB程序后，首先顯示“新建工程〞對話框，如圖1所示。

圖1.“新建工程〞對話框

雙擊“新建〞選項卡中的“標(biāo)準(zhǔn)EXE〞選項（默認(rèn)選項）或在選擇了某種工程后，單擊“開啟〞按鈕，進(jìn)入VB的集成開發(fā)環(huán)境（IDE）,如圖2所示。當(dāng)一個應(yīng)用程序開始創(chuàng)立時，系統(tǒng)會自動為該程序添加一個空白窗體到窗體設(shè)計器中。

在設(shè)計程序界面時僅需要將工具箱中的相應(yīng)的控件（部件），畫到窗體的適當(dāng)位置即可。而后編寫這些控件的事件代碼，即可完成一般性的程序設(shè)計過程。

在集成開發(fā)環(huán)境中集中了大量不同的功能，如程序設(shè)計、編輯、編譯、調(diào)試等，這使用戶在一個界面中可以完成多個任務(wù)。

圖2.VB6.0的集成開發(fā)環(huán)境

2）使用ADO控件設(shè)計一個數(shù)據(jù)庫瀏覽程序

在窗體中添加幾對標(biāo)簽和文本框和一個ADO控件。

設(shè)置標(biāo)簽的Caption屬性，文本框的Text屬性設(shè)置為空。

設(shè)置ADO控件的屬性：鼠標(biāo)指向ADO控件，單擊右鍵，選擇“ADODC屬性〞。在

4

“通用〞選項卡中選擇“使用鏈接字符串〞，單擊“生成〞按鈕，開啟了“數(shù)據(jù)鏈接屬性〞對話框，

在“提供者〞選項卡中選擇

單擊下一步，進(jìn)入“鏈接〞選項卡，在其中選擇需要使用的數(shù)據(jù)庫文件，然后單擊“測試鏈接〞按鈕，驗證鏈接的正確性。單擊“確定〞按鈕完成數(shù)據(jù)鏈接屬性的設(shè)置。

5

在ADO控件屬性頁的“記錄源〞選項卡中，設(shè)置命令類型為2（表類型），設(shè)置控件的RecordSource屬性。

在ADO控件的屬性設(shè)置完畢之后，設(shè)置文本框的DataSource屬性和DataField屬性。

編寫程序代碼

PrivateSubText1_Change()

a=Adodc1.Recordset.AbsolutePositionb=Adodc1.Recordset.RecordCount

Adodc1.Caption=〞當(dāng)前記錄號：〞&a&〞/〞&b

6

EndSub

可有如下運行結(jié)果：

3）創(chuàng)立窗體

4）使用數(shù)據(jù)視圖工具創(chuàng)立數(shù)據(jù)連接。

點擊

，開啟數(shù)據(jù)視圖窗口：

點擊數(shù)據(jù)視圖窗口中工具欄第三個圖標(biāo)“添加新的數(shù)據(jù)連接〞，開啟對話框

7

圖“數(shù)據(jù)鏈接屬性〞列話框

在“提供者〞選項卡中選擇“MicrosoftOLEDBProviderforODBCDrivers〞選項后，單擊“下一步〞按鈕,進(jìn)入鏈接選項卡，在其中選擇“使用鏈接字符串〞后，單擊“編譯“按鈕。

8

圖使用字符串創(chuàng)立鏈接

圖新建機(jī)器數(shù)據(jù)源

在上圖所示的對話框中，選擇“機(jī)器數(shù)據(jù)源〞選項卡，單擊其中“新建〞按鈕。在圖14-24所示的對話框中選擇數(shù)據(jù)源的類型，本例選擇了“系統(tǒng)數(shù)據(jù)源〞。

9

選擇數(shù)據(jù)源類型

單擊下一步

圖選擇數(shù)據(jù)源的驅(qū)動程序

對話框中選擇數(shù)據(jù)源的驅(qū)動程序，本例選擇了SQLServer，單擊“下一步〞按鈕。

10

16

17

設(shè)置文本框的DataSource屬性和DataField屬性。

5）運行，調(diào)試程序。最終生成一個可執(zhí)行文件，應(yīng)用程序設(shè)計完成。體會

★學(xué)生信息管理系統(tǒng)開發(fā)主要包括▲后臺數(shù)據(jù)庫設(shè)計和維護(hù)

要求：建立一致性，完整性，安全性好的數(shù)據(jù)庫工具：SQLServer2023▲前端應(yīng)用程序的開發(fā)

要求：應(yīng)用程序功能完備，易使用。工具：VisualBasic6）完成試驗報告

18

最終一次實踐任務(wù)：用代碼來訪問數(shù)據(jù)庫，建立應(yīng)用程序。

本任務(wù)有一定難度，有興趣同學(xué)可選作，

熟悉VB的同學(xué)可以選作。

用代碼來訪問數(shù)據(jù)庫，建立應(yīng)用程序

步驟一：

在創(chuàng)立了數(shù)據(jù)鏈接后，就可以使用該鏈接來訪問SQLServer數(shù)據(jù)庫了，新建一個標(biāo)準(zhǔn)EXE類型VB工程，執(zhí)行“工程〞菜單“DataEnvironment〞命令，將一個數(shù)據(jù)環(huán)境設(shè)計器添加到當(dāng)前工程中。

單擊VB工具欄中的“數(shù)據(jù)視圖窗口〞工具按鈕，開啟“數(shù)據(jù)視圖〞對話框。將其中的spe_Info表拖放到數(shù)據(jù)環(huán)境設(shè)計器中，如下圖。

此時在數(shù)據(jù)環(huán)境設(shè)計器中自動添加一個鏈接對象Connection2，該對象中包含有spe_Info表，從窗口可以看到該表中所有字段信息。

鼠標(biāo)指向數(shù)據(jù)環(huán)境設(shè)計器下spe_Info表，單擊右鍵在彈出的菜單中執(zhí)行屬性命令，開啟spe_Info對話框。

進(jìn)入“高級〞選項卡，將“游標(biāo)位置’’設(shè)置為“2使用服務(wù)器端游標(biāo)〞，將“游標(biāo)類型設(shè)置為2-動態(tài)〞，將“鎖定類型設(shè)置為開放式。設(shè)置完畢后，單擊“確定〞

19

按鈕，關(guān)閉spe_Info屬性對話框；

對象屬性設(shè)置完畢后，在數(shù)據(jù)環(huán)境設(shè)計器中將“spe_Info’直接拖放到標(biāo)準(zhǔn)EXE工程的窗體上，系統(tǒng)自動為各字段建立約束控件（數(shù)據(jù)綁定控件）及對應(yīng)的標(biāo)簽控件。

●觀測數(shù)據(jù)綁定控件的使用。

在上圖中，在窗體上有兩個文本框，兩個標(biāo)簽。將兩個標(biāo)簽的Caption屬性分別設(shè)為“專業(yè)號〞和“專業(yè)名〞。

如上圖，在窗體上添加3個按鈕控件（Command1、Command2、Command13），并放在適當(dāng)位置，按下面編寫按鈕控件的事件代碼。PrivateSubCommand1_Click()OnErrorGoToerror1

DataEnvironment1.rsspe_Info.MovePreviousIfDataEnvironment1.rsspe_Info.BOFThenDataEnvironment1.rsspe_Info.MoveFirsrEndIfExitSuberror1:

MsgBoxErr.Description.vbOKOnly,\出錯提醒\EndSub退出按鈕：

20

PrivateSubCommand3_Click()EndEndSub

程序運行結(jié)果如上圖。

步驟二:

4）正式設(shè)計學(xué)生信息管理系統(tǒng)應(yīng)用程序：界面與代碼設(shè)計一、公共模塊中定義的全局變量及子程序1．定義的全局變量

PubllcMyConnectionAsNewADODB.Connection用于建立弓數(shù)據(jù)庫的連接PublicSQLUserNameAsString存放SQL的登錄賬號2.ChangeFormPos(frmMainAsMDIForm,frmAsForm)子過程功能：用于確定調(diào)用窗體在主窗體frmMain中昀顯示位置。

PubllcSubChangormPos(frmMainAsMDIForm,frmAsForm)DimTopASInteger

Top=(FtrmMain.ScaleHeight-frm.Height)/2-600IfTop>0ThenFrm.Top=TopElse

Frm.Top=0Endif

frm.Ltft=(frmMain.ScaleWidth-frm.Width)／2EndSub

二、用戶登錄窗體的設(shè)計

用戶登錄是為了確定該用戶是否具備使用系統(tǒng)的權(quán)力及訪問各模塊的權(quán)限。該窗體首先完成與數(shù)據(jù)庫的信任連接，并將student數(shù)據(jù)庫的所有SQLServer用戶添加到用戶名組合列表框中。登錄時，用戶從列表框中選擇用戶名，輸入密碼后，單擊“確定〞按鈕，應(yīng)用程序?qū)Ⅱ炞C用戶名和密碼，若是合法的SQLServer用，一，則該用戶有權(quán)進(jìn)入系統(tǒng)。登錄窗體界面如下圖

21

窗體中的主要控件名稱及屬性值如表所示:

窗體中主要控件及屬性值

┃

在窗體frmLogin中，添加以下代碼：

DimMyconnection_isOpenAsBoolean‘定義變量用于標(biāo)記數(shù)據(jù)庫是否連接PriVateSubFormLoad()

DimstrConnASStrinq‘先以Windows用戶連接到SQLServer，獲取數(shù)據(jù)庫SQL賬戶

strConn=\〞_

+\

22

source=(local)〞

MvConntction.ConnectionStrinq-strConnOnErrorGoToerr_Open_msqMyConnection.Open

Myconnection_IsOpen=True

CallGetUserListExitSuberr_Open_msq:

MsgBox(\用戶連接到SQLServer\EndSub

SubGet_UserList(),獲取數(shù)據(jù)庫的SQL賬戶DimobirsAsNewADODB.Recordsetobjrs.CursorType=adOpenKeyset

objrs.LockType=adLockOptimistic

objrs.Open\MyConnection,,,adCmdTextcmbUser.Clear

DoUntilobjrs.EOF

cmbUser.AddItemobjrs.Fields(\objrs.MoveNextLoop

Setobjrs=Nothing

IfcmbUser.ListCount>0ThencmbUser.ListIndex=0EndSub

PrivateSubcmdExit_Click()EndEndSubPrivateSubcmdOK_Click()‘重新以SQL用J、1身份連接到SQLServerDimstrConnAsStringDimSQLPasswordAsStringIfMyconnection_IsOpenThenMyConnection.Close

Myconnection_IsOpen=FalseEndIf

SQLUserName=cmbUser.TextSQLPassword=txtPwd.Text

strConn=〞provider=SQLOLEDB.l;uid=\＆\＆SQLPassword＆\MyConnection.ConnectionString=strConnOnErrorGoToerr_msqMyConnection．OpenMDIformMain．Show

Myconnaction_IsOpen=TrueUnloadMe

23

ExitSubErr_msg:

MsgBox（“SQL用戶不存在，或密碼不正確〞）EndSub

三、主窗體MDlformMain的設(shè)計

主窗體用于定位應(yīng)用程序的不同部分，為應(yīng)用程序提供導(dǎo)航功能。本系統(tǒng)采用多文檔界面，使用戶便利地在各個應(yīng)用程序之間切換，且多文檔窗體還可以少占系統(tǒng)資源。創(chuàng)立主窗體的一般步驟如下所述。

(l)在“工程〞菜單中單擊“添加MDI窗體〞命令，在出現(xiàn)的“添加MDI窗體〞對話框的“新建〞選項卡中選擇“窗體〞項，然后單擊“開啟〞按鈕。

(2)在“屬性〞對話框中設(shè)置窗體名稱為MDIfonnMain，Caption為“學(xué)生信息管理系統(tǒng)〞，WindowState為2-Maxmized，窗體界面如下圖。

圖主窗體MDIformMain的界面

(3)在窗體上單擊鼠標(biāo)右鍵，在彈出的快捷菜單L選擇“菜單編輯器〞，開啟“菜單編輯器〞對話框，按圖所示編輯菜單項。

24

圖菜單編輯器界面

各菜單項標(biāo)題、名稱及單擊所執(zhí)行的命令如表所示。

界面設(shè)計完成后，在MDlformMain窗體中添加如下代碼:PrivateSubMDIForm_Load()

'假使以客人身份登錄,不允許進(jìn)行班級專業(yè)管理IfSQLUserName=\mnuSpeClass.Enabled=FalsemnuClass.Enabled=FalsemnuSpe.Enabled=FalseEndIfEndSub

PrivateSubmnuScore_Click()'進(jìn)入成績管理對話框

25

frmScore.Show

ChangeFormPosMDIformMain,frmScoreEndSub

PrivateSubmnuSpe_Click()'進(jìn)入專業(yè)管理對話框frmSpe.Show

ChangeFormPosMDIformMain,frmSpeEndSub

PrivateSubmnuClass_Click()'進(jìn)入班級管理對話框frmClass.Show

ChangeFormPosMDIformMain,frmClassEndSub

PrivateSubmnuCourse_Click()'進(jìn)入選修課程管理對話框frmCourse.Show

ChangeFormPosMDIformMain,frmCourseEndSub

PrivateSubmnuStu_Click()'進(jìn)入學(xué)生信息管理對話框frmStu.Show

ChangeFormPosMDIformMain,frmStuEndSub

PrivateSubmnuExit_Click()EndEndSub

四、專業(yè)管理和班級管理模塊的設(shè)計

專業(yè)班級管理模塊主要實現(xiàn)班級和專業(yè)的添加、修改和刪除等功能。1．專業(yè)管理frmSpe窗口的設(shè)計

選擇“專業(yè)班級管理〞中的“專業(yè)管理〞菜單項，將出現(xiàn)如下圖的frmSpe窗體。

26

圖“專業(yè)管理〞窗體frmSpe的界面

窗體中的主要控件名稱及屬性值如表所示。

表“專業(yè)管理〞系統(tǒng)菜單標(biāo)題及名稱

27

在窗體frmSpe中，添加以下代碼：

PrivateSubForm_Load()'初始化窗口MSFlexGrid1.TextMatrix(0,0)=\記錄\MSFlexGrid1.TextMatrix(0,1)=\專業(yè)編號\MSFlexGrid1.TextMatrix(0,2)=\專業(yè)名稱\MSFlexGrid1.ColWidth(0)=500MSFlexGrid1.ColWidth(1)=1000MSFlexGrid1.ColWidth(2)=2000

CallDisplay_Spe'顯示所有專業(yè)的信息EndSub

28

PrivateSubcmdSpeAdd_Click()DimsqlAsString

DimobjrsAsADODB.Recordset

IftxtSpeNo.Text=\判斷專業(yè)編號是否為空，為空則重新輸入專業(yè)編號

MsgBox\班級編號必需填寫！\txtSpeNo.SetFocusExitSubEndIf

IftxtSpeName.Text=\判斷專業(yè)名稱是否為空，為空則重新輸入專業(yè)名稱

MsgBox\班級名稱必需填寫！\txtSpeName.SetFocusExitSubEndIf

sql=\

sql=sql&txtSpeNo&\OnErrorGoToerr_Msg_Insert

Setobjrs=MyConnection.Execute(sql)

frmSpe.MSFlexGrid1.Rows=frmSpe.MSFlexGrid1.Rows+1frmSpe.MSFlexGrid1.Row=frmSpe.MSFlexGrid1.Rows-1

frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,0)=frmSpe.MSFlexGrid1.Rows-1

frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,1)=txtSpeNo.Text

frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,2)=txtSpeName.Text

Setobjrs=NothingGoToOK_next

err_Msg_Insert:MsgBox(\該專業(yè)已經(jīng)存在，不可再添加！\OK_next:Setobjrs=NothingtxtSpeNo.Text=\txtSpeName.Text=\txtSpeNo.Enabled=TruetxtSpeName.Enabled=TrueEndSub

PublicSubDisplay_Spe()'將專業(yè)數(shù)據(jù)填入表格

DimobjrsAsNewADODB.Recordset,iAsInteger,strAsStringSetobjrs=MyConnection.Execute(\MSFlexGrid1.Rows=1DoUntilobjrs.EOF

29

i=i+1

MSFlexGrid1.Rows=i+1

MSFlexGrid1.TextMatrix(i,0)=iForj=1ToMSFlexGrid1.Cols-1

IfNotIsNull(objrs.Fields(j-1).Value)Then

MSFlexGrid1.TextMatrix(i,j)=CStr(objrs.Fields(j-1).Value)

EndIfNext

objrs.MoveNextLoop

Setobjrs=NothingEndSub

PrivateSubcmdSpeAdd_Click()DimsqlAsString

DimobjrsAsADODB.Recordset

IftxtSpeNo.Text=\判斷專業(yè)編號是否為空，為空則重新輸入專業(yè)編號

MsgBox\班級編號必需填寫！\txtSpeNo.SetFocusExitSubEndIf

IftxtSpeName.Text=\判斷專業(yè)名稱是否為空，為空則重新輸入專業(yè)名稱

MsgBox\班級名稱必需填寫！\txtSpeName.SetFocusExitSubEndIf

sql=\

sql=sql&txtSpeNo&\OnErrorGoToerr_Msg_Insert

Setobjrs=MyConnection.Execute(sql)

frmSpe.MSFlexGrid1.Rows=frmSpe.MSFlexGrid1.Rows+1frmSpe.MSFlexGrid1.Row=frmSpe.MSFlexGrid1.Rows-1

frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,0)=frmSpe.MSFlexGrid1.Rows-1

frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,1)=txtSpeNo.Text

frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,2)=txtSpeName.Text

Setobjrs=NothingGoToOK_next

30

err_Msg_Insert:MsgBox(\該專業(yè)已經(jīng)存在，不可再添加！\OK_next:Setobjrs=NothingtxtSpeNo.Text=\txtSpeName.Text=\txtSpeNo.Enabled=TruetxtSpeName.Enabled=TrueEndSub

PrivateSubcmdSpeUpdate_Click()DimsqlAsString

DimobjrsAsADODB.Recordset

IftxtSpeNo.Text=\判斷班級編號是否為空，為空則重新輸入班級編號

MsgBox\班級編號必需填寫！\txtSpeNo.SetFocusExitSubEndIf

IftxtSpeName.Text=\判斷班級名稱是否為空，為空則重新輸入班級名稱

MsgBox\班級名稱必需填寫！\txtSpeName.SetFocusExitSubEndIf

sql=\

sql=sql&txtSpeName&\OnErrorGoToerr_Msg_Update

Setobjrs=MyConnection.Execute(sql)

frmSpe.MSFlexGr