用VB開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序?qū)嵗虒W(xué)內(nèi)容

1、C/SVBC/SVB數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)(xtng)(xtng)開(kāi)發(fā)開(kāi)發(fā) 數(shù)據(jù)數(shù)據(jù)(shj)(shj)庫(kù)應(yīng)用系統(tǒng)結(jié)構(gòu)庫(kù)應(yīng)用系統(tǒng)結(jié)構(gòu) Visual BasicVisual Basic快速入門(mén)快速入門(mén) 開(kāi)放數(shù)據(jù)開(kāi)放數(shù)據(jù)(shj)(shj)庫(kù)連接（庫(kù)連接（ODBCODBC） 數(shù)據(jù)數(shù)據(jù)(shj)(shj)訪問(wèn)接口（訪問(wèn)接口（ADOADO） VBVB數(shù)據(jù)數(shù)據(jù)(shj)(shj)庫(kù)編程舉例庫(kù)編程舉例 VBVB開(kāi)發(fā)數(shù)據(jù)開(kāi)發(fā)數(shù)據(jù)(shj)(shj)庫(kù)應(yīng)用系統(tǒng)實(shí)例分庫(kù)應(yīng)用系統(tǒng)實(shí)例分析析第一頁(yè)，共48頁(yè)。VBVB數(shù)據(jù)庫(kù)編程舉例數(shù)據(jù)庫(kù)編程舉例(j l)(j l)z本節(jié)結(jié)合本節(jié)結(jié)合 “ “學(xué)生管理數(shù)據(jù)庫(kù)學(xué)生管

2、理數(shù)據(jù)庫(kù)”以及其中以及其中(qzhng)(qzhng)的三張表，利用數(shù)據(jù)訪問(wèn)接口技術(shù)和的三張表，利用數(shù)據(jù)訪問(wèn)接口技術(shù)和ADOADO數(shù)據(jù)控件數(shù)據(jù)控件以及數(shù)據(jù)綁定控件，介紹在以及數(shù)據(jù)綁定控件，介紹在Visual BasicVisual Basic中開(kāi)發(fā)中開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的過(guò)程。數(shù)據(jù)庫(kù)應(yīng)用程序的過(guò)程。 z示例示例1 1 z示例示例2 2 z示例示例3 3 第二頁(yè)，共48頁(yè)。示例示例(shl)1(shl)1z示例示例1 1說(shuō)明說(shuō)明(shumng) (shumng) z示例示例1 1控件的屬性設(shè)置控件的屬性設(shè)置z示例示例1 1程序代碼程序代碼z示例示例1 1實(shí)現(xiàn)過(guò)程展示實(shí)現(xiàn)過(guò)程展示 第三頁(yè)，共48頁(yè)。

3、示例示例(shl)1(shl)1說(shuō)明說(shuō)明z本示例說(shuō)明如何利用本示例說(shuō)明如何利用ADOADO數(shù)據(jù)控件實(shí)現(xiàn)對(duì)數(shù)據(jù)控件實(shí)現(xiàn)對(duì)StudentStudent表中表中全部數(shù)據(jù)的瀏覽，以及如何實(shí)現(xiàn)按用戶指定的系查找全部數(shù)據(jù)的瀏覽，以及如何實(shí)現(xiàn)按用戶指定的系查找相應(yīng)學(xué)生信息的功能。數(shù)據(jù)瀏覽方式采用單行相應(yīng)學(xué)生信息的功能。數(shù)據(jù)瀏覽方式采用單行(dn (dn xn)xn)瀏覽方式，即一次查看一條記錄。瀏覽方式，即一次查看一條記錄。z通過(guò)本示例我們可以看到，設(shè)置好通過(guò)本示例我們可以看到，設(shè)置好ADOADO數(shù)據(jù)控件的屬數(shù)據(jù)控件的屬性后，用戶不需要編制任何代碼就可以實(shí)現(xiàn)對(duì)數(shù)據(jù)的性后，用戶不需要編制任何代碼就可以實(shí)現(xiàn)對(duì)數(shù)

4、據(jù)的查詢。如果查找條件變化了，用戶只需要編寫(xiě)很少的查詢。如果查找條件變化了，用戶只需要編寫(xiě)很少的代碼就可以實(shí)現(xiàn)對(duì)數(shù)據(jù)源的重新查詢。代碼就可以實(shí)現(xiàn)對(duì)數(shù)據(jù)源的重新查詢。 第四頁(yè)，共48頁(yè)。示例1窗體布局第五頁(yè)，共48頁(yè)。z其中其中“學(xué)號(hào)學(xué)號(hào)”、“姓名姓名”、“性別性別”、“年齡年齡”、“所在系所在系”及及“查找系查找系”用標(biāo)用標(biāo)簽控件（簽控件（LabelLabel）實(shí)現(xiàn)。）實(shí)現(xiàn)。z對(duì)對(duì)StudentStudent表中的各列數(shù)據(jù)用文本框控件表中的各列數(shù)據(jù)用文本框控件（TextBoxTextBox）實(shí)現(xiàn)，界面上各文本框控件內(nèi)）實(shí)現(xiàn)，界面上各文本框控件內(nèi)顯示的內(nèi)容為此文本框的對(duì)象顯示的內(nèi)容為此文本框的對(duì)

5、象(duxing)(duxing)名。名。zADOADO數(shù)據(jù)控件對(duì)象數(shù)據(jù)控件對(duì)象(duxing)(duxing)名名AdodcStudentAdodcStudent。 z“查找查找”命令按鈕的對(duì)象命令按鈕的對(duì)象(duxing)(duxing)名為名為“cmdSearch”cmdSearch”，“退出退出”命令按鈕的對(duì)象命令按鈕的對(duì)象(duxing)(duxing)名為名為“cmdExit”cmdExit”。 第六頁(yè)，共48頁(yè)。示例示例(shl)1(shl)1控件的屬性設(shè)置控件的屬性設(shè)置對(duì)象名對(duì)象名屬性名屬性名屬性值屬性值A(chǔ)dodcStudentConnectionString連接到連接到SQL

6、 Server的的“學(xué)生管理學(xué)生管理”數(shù)據(jù)數(shù)據(jù)庫(kù)庫(kù)CommandTypeadCmdTableRecordSourceStudentTxtSnoDataSourceAdodcStudentDataFieldSnoTxtSnameDataSourceAdodcStudent DataFieldSnameTxtSsexDataSourceAdodcStudentDataFieldSsexTxtSageDataSourceAdodcStudentDataFieldSageTxtSdeptDataSourceAdodcStudentDataFieldSdept第七頁(yè)，共48頁(yè)。示例示例(shl)1(sh

7、l)1程序代碼程序代碼z“退出退出”按鈕單擊（按鈕單擊（ClickClick）鼠標(biāo)事件）鼠標(biāo)事件(shjin)(shjin)程序代碼程序代碼z“查找查找”按鈕單擊（按鈕單擊（ClickClick）鼠標(biāo)事件）鼠標(biāo)事件(shjin)(shjin)程序代碼程序代碼z窗體加載（窗體加載（LoadLoad事件事件(shjin)(shjin)）時(shí)初始化程序代）時(shí)初始化程序代碼碼第八頁(yè)，共48頁(yè)?！巴顺鐾顺?tuch)”(tuch)”按鈕單擊（按鈕單擊（ClickClick）鼠標(biāo)事件）鼠標(biāo)事件程序代碼程序代碼Private Sub CmdExit_Click() 退出退出(tuch)按鈕按鈕 End End

8、 Sub 第九頁(yè)，共48頁(yè)?！安檎也檎?ch zho)”按鈕單擊（按鈕單擊（Click）鼠標(biāo)事件程序）鼠標(biāo)事件程序代碼代碼Private Sub CmdSearch_Click() 查找查找按鈕按鈕If Len(TxtSearchDept.Text) 0 Then 如果用戶指定了系名如果用戶指定了系名 AdodcStudent.CommandType = adCmdText AdodcStudent.RecordSource = “ select * from student where Sdept = “ & Trim(TxtSearchDept.Text) & “ “ Ad

9、odcStudent.Refresh 使所設(shè)置的屬性使所設(shè)置的屬性(shxng)生效生效 Else 若用戶未指定列名若用戶未指定列名 MsgBox (“請(qǐng)指定要查找的系請(qǐng)指定要查找的系”) 則提示用戶輸入系名則提示用戶輸入系名 End IfEnd Sub 第十頁(yè)，共48頁(yè)。窗體加載（窗體加載（LoadLoad事件事件(shjin)(shjin)）時(shí)初始化程序）時(shí)初始化程序代碼代碼Private Sub Form_Load() 窗體加載時(shí)初始化查找窗體加載時(shí)初始化查找(ch zho)系的內(nèi)容系的內(nèi)容 初始化要查找初始化要查找(ch zho)的系為空的系為空 TxtSearchDept.Text

10、= End Sub第十一頁(yè)，共48頁(yè)。示例示例1 1實(shí)現(xiàn)過(guò)程實(shí)現(xiàn)過(guò)程(guchng)(guchng)展示展示設(shè)置設(shè)置(shzh)控件和屬性控件和屬性第十二頁(yè)，共48頁(yè)。編寫(xiě)編寫(xiě)(binxi)程序代碼程序代碼第十三頁(yè)，共48頁(yè)。執(zhí)行程序觀察執(zhí)行程序觀察(gunch)結(jié)果結(jié)果第十四頁(yè)，共48頁(yè)。觀察查找觀察查找(ch zho)前后的結(jié)果前后的結(jié)果第十五頁(yè)，共48頁(yè)。示例示例(shl)2(shl)2z示例示例2 2說(shuō)明說(shuō)明 z示例示例2 2控件的屬性設(shè)置控件的屬性設(shè)置z示例示例2 2程序代碼程序代碼z示例示例2 2實(shí)現(xiàn)過(guò)程實(shí)現(xiàn)過(guò)程(guchng)(guchng)展展示示第十六頁(yè)，共48頁(yè)。示例示例(

11、shl)2(shl)2說(shuō)明說(shuō)明z 示例示例2 2在示例在示例1 1的基礎(chǔ)上增加了兩組供用戶操作的按鈕。的基礎(chǔ)上增加了兩組供用戶操作的按鈕。z 一組是為了說(shuō)明如何實(shí)現(xiàn)數(shù)據(jù)一組是為了說(shuō)明如何實(shí)現(xiàn)數(shù)據(jù)(shj)(shj)更改操作，即如何使用更改操作，即如何使用RecordsetRecordset對(duì)象的對(duì)象的AddNewAddNew、UpdateUpdate、DeleteDelete和和CancelUpdateCancelUpdate方法；方法；z 另一組是為了說(shuō)明如何編程控制結(jié)果集中瀏覽記錄的移動(dòng)，即如另一組是為了說(shuō)明如何編程控制結(jié)果集中瀏覽記錄的移動(dòng)，即如何使用何使用RecordsetRecord

12、set對(duì)象的對(duì)象的MoveMove方法組。方法組。 z 在這個(gè)示例中我們不使用在這個(gè)示例中我們不使用ADOADO數(shù)據(jù)數(shù)據(jù)(shj)(shj)庫(kù)控件移動(dòng)記錄，而是庫(kù)控件移動(dòng)記錄，而是使用四個(gè)命令按鈕實(shí)現(xiàn)此功能，因此在運(yùn)行時(shí)將使用四個(gè)命令按鈕實(shí)現(xiàn)此功能，因此在運(yùn)行時(shí)將ADOADO數(shù)據(jù)數(shù)據(jù)(shj)(shj)控件隱藏起來(lái)。控件隱藏起來(lái)。 第十七頁(yè)，共48頁(yè)。示例示例2窗體布局窗體布局第十八頁(yè)，共48頁(yè)。z新增各命令按鈕控件的對(duì)象名分別為：新增各命令按鈕控件的對(duì)象名分別為：z “ “添加添加”命令按鈕：命令按鈕：cmdAddcmdAddz “ “刪除刪除”命令按鈕：命令按鈕：cmdDelcmdDelz

13、 “ “更新更新(gngxn)”(gngxn)”命令按鈕：命令按鈕：cmdUpdatecmdUpdatez “ “取消取消”命令按鈕：命令按鈕：cmdCancelcmdCancelz “ “第一條第一條”命令按鈕：命令按鈕：cmdFirstcmdFirstz “ “上一條上一條”命令按鈕：命令按鈕：cmdPreviouscmdPreviousz “ “下一條下一條”命令按鈕：命令按鈕：cmdNextcmdNextz “ “末一條末一條”命令按鈕：命令按鈕：cmdLastcmdLastz“退出退出”命令按鈕：命令按鈕：cmdExit cmdExit 第十九頁(yè)，共48頁(yè)。示例示例(shl)2(sh

14、l)2控件的屬性設(shè)置控件的屬性設(shè)置z示例示例2 2窗體上的窗體上的ADOADO數(shù)據(jù)控件以及各文本框數(shù)據(jù)控件以及各文本框控件的屬性控件的屬性(shxng)(shxng)設(shè)置同示例設(shè)置同示例1 1。z為了在運(yùn)行時(shí)隱藏為了在運(yùn)行時(shí)隱藏ADOADO數(shù)據(jù)控件，我們將數(shù)據(jù)控件，我們將AdodcStudentAdodcStudent的的VisibleVisible屬性屬性(shxng)(shxng)設(shè)設(shè)置為：置為：FalseFalse。 第二十頁(yè)，共48頁(yè)。示例示例(shl)2(shl)2程序代碼程序代碼z 窗體啟動(dòng)時(shí)的初始化代碼窗體啟動(dòng)時(shí)的初始化代碼z 數(shù)據(jù)操作按鈕組代碼數(shù)據(jù)操作按鈕組代碼z “添加添加”

15、命令按鈕命令按鈕z “取消取消”命令按鈕命令按鈕 z “刪除刪除”命令按鈕命令按鈕 z “更新更新”命令按鈕命令按鈕 z 移動(dòng)指針?lè)椒ńM代碼移動(dòng)指針?lè)椒ńM代碼 z “第一條第一條(y tio)”(y tio)”命令按鈕命令按鈕 z “末一條末一條(y tio)”(y tio)”命令按鈕命令按鈕z “下一條下一條(y tio)”(y tio)”命令按鈕命令按鈕 z “上一條上一條(y tio)”(y tio)”命令按鈕命令按鈕 z 結(jié)束程序代碼結(jié)束程序代碼 第二十一頁(yè)，共48頁(yè)。窗體啟動(dòng)窗體啟動(dòng)(qdng)(qdng)時(shí)的初始化代碼時(shí)的初始化代碼Private Sub Form_Load() 初

16、始時(shí)使初始時(shí)使“取消取消(qxio)”按鈕為不按鈕為不可用狀態(tài)可用狀態(tài) CmdCancel.Enabled = FalseEnd Sub第二十二頁(yè)，共48頁(yè)?！疤砑犹砑?tin ji)”命令按鈕命令按鈕Private Sub CmdAdd_Click() “添加添加”命令按鈕命令按鈕 AdodcStudent.Recordset.AddNew 使使“添加添加”和和“刪除刪除(shnch)”按鈕為不可用狀態(tài)按鈕為不可用狀態(tài) CmdAdd.Enabled = False CmdDel.Enabled = False 使使“更改更改”和和“取消取消”按鈕為可用狀態(tài)按鈕為可用狀態(tài) CmdUpdate.

17、Enabled = True CmdCancel.Enabled = TrueEnd Sub第二十三頁(yè)，共48頁(yè)?！叭∠∠?qxio)”命令按鈕命令按鈕Private Sub CmdCancel_Click() “取消取消”命令按鈕命令按鈕 AdodcStudent.Recordset.CancelUpdate 使使“添加添加”和和“刪除刪除(shnch)”按鈕為可用狀態(tài)按鈕為可用狀態(tài) CmdAdd.Enabled = True CmdDel.Enabled = True 使使“取消取消”按鈕為不可用狀態(tài)按鈕為不可用狀態(tài) CmdCancel.Enabled = False End Sub第二

18、十四頁(yè)，共48頁(yè)?！皠h除刪除(shnch)”命令按鈕命令按鈕Private Sub CmdDel_Click() “刪除刪除”命令按鈕命令按鈕 Dim res As Integer res = MsgBox(確實(shí)要?jiǎng)h除此行記錄嗎？確實(shí)要?jiǎng)h除此行記錄嗎？, _ vbExclamation + vbYesNo + vbDefaultButton2) 提示提示(tsh)用戶用戶 If res = vbYes Then 如果確實(shí)要?jiǎng)h除如果確實(shí)要?jiǎng)h除 AdodcStudent.Recordset.Delete AdodcStudent.Recordset.MoveNext If AdodcStudent

19、.Recordset.EOF = True Then AdodcStudent.Recordset.MoveLast End If End IfEnd Sub第二十五頁(yè)，共48頁(yè)?！案赂?gngxn)”命令按鈕命令按鈕Private Sub CmdUpdate_Click() “更新更新”命令按鈕命令按鈕 將文本框中的當(dāng)前值寫(xiě)入結(jié)果集相應(yīng)字段中將文本框中的當(dāng)前值寫(xiě)入結(jié)果集相應(yīng)字段中 AdodcStudent.Recordset.Fields(Sno) = Trim(TxtSno.Text) AdodcStudent.Recordset.Fields(Sname) = Trim(TxtSna

20、me.Text) AdodcStudent.Recordset.Fields(Ssex) = Trim(TxtSsex.Text) AdodcStudent.Recordset.Fields(Sage) = CInt(Trim(TxtSage.Text) AdodcStudent.Recordset.Fields(Sdept) = Trim(TxtSdept.Text) AdodcStudent.Recordset.Update 使更新生效使更新生效 使使“添加添加”和和“刪除刪除”按鈕為可用狀態(tài)按鈕為可用狀態(tài) CmdAdd.Enabled = True CmdDel.Enabled = Tr

21、ue CmdCancel.Enabled = False 使使“取消取消(qxio)”按鈕為不可用狀態(tài)按鈕為不可用狀態(tài)End Sub第二十六頁(yè)，共48頁(yè)。“第一條第一條”命令命令(mng lng)按鈕按鈕 “ “第一條第一條”命令命令(mng lng)(mng lng)按鈕按鈕Private Sub CmdFirst_Click() Private Sub CmdFirst_Click() AdodcStudent.Recordset.MoveFirstAdodcStudent.Recordset.MoveFirstEnd SubEnd Sub第二十七頁(yè)，共48頁(yè)?！澳┮粭l末一條(y tio)

22、”命令按鈕命令按鈕 “ “末一條末一條(y tio)”(y tio)”命令按鈕命令按鈕Private Sub CmdLast_Click() Private Sub CmdLast_Click() AdodcStudent.Recordset.MoveLastAdodcStudent.Recordset.MoveLastEnd SubEnd Sub第二十八頁(yè)，共48頁(yè)?！跋乱粭l下一條(y tio)”命令按鈕命令按鈕 “ “下一條下一條”命令按鈕命令按鈕Private Sub CmdNext_Click() Private Sub CmdNext_Click() AdodcStudent.Rec

23、ordset.MoveNextAdodcStudent.Recordset.MoveNext If AdodcStudent.Recordset.EOF = True Then If AdodcStudent.Recordset.EOF = True Then 如果已經(jīng)如果已經(jīng)(y jing)(y jing)移到了最后一行之后，則將指移到了最后一行之后，則將指針定位在最后一行針定位在最后一行 AdodcStudent.Recordset.MoveLastAdodcStudent.Recordset.MoveLast End If End IfEnd SubEnd Sub第二十九頁(yè)，共48頁(yè)?！?/p>

24、上一條上一條(y tio)”命令按鈕命令按鈕 “ “上一條上一條(y tio)”(y tio)”命令按鈕命令按鈕Private Sub CmdPrevious_Click() Private Sub CmdPrevious_Click() AdodcStudent.Recordset.MovePreviousAdodcStudent.Recordset.MovePrevious If AdodcStudent.Recordset.BOF = True Then If AdodcStudent.Recordset.BOF = True Then 如果已經(jīng)移到了第一行之前，則將指針定位在第如果已經(jīng)

25、移到了第一行之前，則將指針定位在第一行一行 AdodcStudent.Recordset.MoveFirstAdodcStudent.Recordset.MoveFirst End If End IfEnd Sub End Sub 第三十頁(yè)，共48頁(yè)。結(jié)束結(jié)束(jish)(jish)程序代碼程序代碼 “ “退出退出(tuch)”(tuch)”命令按鈕命令按鈕Private Sub CmdExit_Click()Private Sub CmdExit_Click() End EndEnd SubEnd Sub第三十一頁(yè)，共48頁(yè)。示例示例2 2實(shí)現(xiàn)實(shí)現(xiàn)(shxin)(shxin)過(guò)程展示過(guò)程展示

26、設(shè)置設(shè)置(shzh)控件和屬性控件和屬性第三十二頁(yè)，共48頁(yè)。編寫(xiě)編寫(xiě)(binxi)程序代碼程序代碼第三十三頁(yè)，共48頁(yè)。執(zhí)行程序觀察執(zhí)行程序觀察(gunch)結(jié)果結(jié)果第三十四頁(yè)，共48頁(yè)。示例示例(shl)3(shl)3z示例示例3 3說(shuō)明說(shuō)明 z示例示例3 3控件的屬性控件的屬性(shxng)(shxng)設(shè)置設(shè)置z示例示例3 3程序代碼程序代碼z示例示例3 3實(shí)現(xiàn)過(guò)程展示實(shí)現(xiàn)過(guò)程展示第三十五頁(yè)，共48頁(yè)。示例示例(shl)3(shl)3說(shuō)明說(shuō)明z示例示例3 3在示例在示例1 1的基礎(chǔ)的基礎(chǔ)(jch)(jch)上增加了一個(gè)窗體，上增加了一個(gè)窗體，這個(gè)窗體用這個(gè)窗體用DataGridData

27、Grid控件顯示數(shù)據(jù)?？丶@示數(shù)據(jù)。z示例示例3 3中的兩個(gè)窗體的布局分別圖中的兩個(gè)窗體的布局分別圖1 1和圖和圖2 2所示。所示。圖圖1 Form1布局布局圖圖2 Form2布局布局第三十六頁(yè)，共48頁(yè)。z在圖所示的在圖所示的Form1Form1上，當(dāng)用戶單擊上，當(dāng)用戶單擊“查找查找”命令命令按鈕時(shí)，顯示按鈕時(shí)，顯示Form2Form2。zForm2Form2上上DataGridDataGrid中的數(shù)據(jù)是根據(jù)中的數(shù)據(jù)是根據(jù)Form1Form1中當(dāng)前中當(dāng)前顯示的學(xué)號(hào)值去查找此學(xué)生的姓名、所修的課顯示的學(xué)號(hào)值去查找此學(xué)生的姓名、所修的課程名、課程的學(xué)分以及考試成績(jī)。程名、課程的學(xué)分以及考試成績(jī)。

28、z在在Form2Form2上單擊上單擊“返回返回”命令按鈕（對(duì)象命令按鈕（對(duì)象(duxing)(duxing)名為名為cmdReturncmdReturn），可以返回到），可以返回到Form1Form1，并且同時(shí)卸載，并且同時(shí)卸載Form2Form2。 第三十七頁(yè)，共48頁(yè)。示例示例3 3控件的屬性控件的屬性(shxng)(shxng)設(shè)置設(shè)置zForm1窗體上各控件屬性的設(shè)置窗體上各控件屬性的設(shè)置(shzh)同示同示例例1。zForm2窗體窗體zDataGrid數(shù)據(jù)綁定控件的對(duì)象名為：數(shù)據(jù)綁定控件的對(duì)象名為：dtgCondzDtgCond控件的列屬性在程序代碼中設(shè)置控件的列屬性在程序代碼中設(shè)

29、置(shzh)。zADO數(shù)據(jù)控件名為：數(shù)據(jù)控件名為：AdodcGridzConnectionString屬性的值同示例屬性的值同示例1的的AdodcStudentzCommandType和和RecordSource屬性我們?cè)趯傩晕覀冊(cè)诔绦虼a中設(shè)置程序代碼中設(shè)置(shzh)。第三十八頁(yè)，共48頁(yè)。示例示例(shl)3(shl)3程序代碼程序代碼zForm1上的上的“查找查找”和和“退出退出”命令按鈕命令按鈕代碼代碼(di m)z Form2上的代碼上的代碼(di m)zForm2上的初始化上的初始化dtgCond控件代碼控件代碼(di m)zForm2上的上的Load事件代碼事件代碼(di m

30、)zForm2上上“返回返回”按鈕代碼按鈕代碼(di m)第三十九頁(yè)，共48頁(yè)。Form1Form1上的上的“查找查找”和和“退出退出”命令命令(mng (mng lng)lng)按鈕代碼按鈕代碼Private Sub CmdExit_Click() 退出退出按鈕按鈕 EndEnd Sub Private Sub CmdSearch_Click() 查找查找(ch zho)按鈕按鈕 Form2.Show 顯示顯示Form2窗體窗體End Sub第四十頁(yè)，共48頁(yè)。Form2Form2上的初始化上的初始化dtgConddtgCond控件代碼控件代碼(di m)(di m)Private Sub

31、InitGrid() 初始化初始化dtgCond控件控件 With DtgCond 設(shè)置設(shè)置(shzh)DtgCond的列標(biāo)題的列標(biāo)題 .Columns(0).Caption = 學(xué)號(hào)學(xué)號(hào) .Columns(1).Caption = 課程名課程名 .Columns(2).Caption = 學(xué)分學(xué)分 .Columns(3).Caption = 成績(jī)成績(jī) 設(shè)置設(shè)置(shzh)DtgCond的列寬的列寬 .Columns(0).Width = 1000 .Columns(1).Width = 2000 .Columns(2).Width = 800 .Columns(3).Width = 800 End WithEnd Sub第四十一頁(yè)，共48頁(yè)。Form2Form2上的上的LoadLoad事件事件(shjin)(shjin)代代碼碼Private Sub Form_L