西工大軟件技術(shù)實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)六.doc

西北工業(yè)大學(xué)軟件技術(shù)專用選取日期軟件技術(shù)實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)序號(hào)六名稱Data數(shù)據(jù)控件綜合應(yīng)用班級(jí)09061201學(xué)號(hào)2012302337姓名劉昕實(shí)驗(yàn)內(nèi)容及完成情況：用Data控件建立與數(shù)據(jù)庫(kù)的連接，并在連接的基礎(chǔ)上在相應(yīng)的綁定控件中實(shí)時(shí)顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)，通過操作實(shí)現(xiàn)數(shù)據(jù)庫(kù)中數(shù)據(jù)追加、修改、刪除和查詢。實(shí)驗(yàn)步驟： 1）用VB本身自帶的可視化數(shù)據(jù)管理器建立student.mdb本地?cái)?shù)據(jù)庫(kù)，其中包含兩個(gè)表，即基本情況表和學(xué)生成績(jī)表，并錄入本班學(xué)生數(shù)據(jù)。 2）根據(jù)實(shí)驗(yàn)設(shè)計(jì)需要在窗體上放上若干所需的標(biāo)簽控件、文本框控件、 命令按鈕控件等，并設(shè)置各控件的必要屬性值。 3）在窗體適當(dāng)位置放置一個(gè)數(shù)據(jù)控件（Data控件）,設(shè)置該數(shù)據(jù)控件的Connect、DatabaseName和RecordSource等屬性，建立與student.mdb數(shù)據(jù)庫(kù)的連接。4）設(shè)置界面上的控件與數(shù)據(jù)控件綁定，使之受數(shù)據(jù)控件約束，并可通過其顯示數(shù)據(jù)庫(kù)中數(shù)據(jù)。5）設(shè)置數(shù)據(jù)控件Visible屬性為不可見，通過命令按鈕的單擊事件過程實(shí)現(xiàn)數(shù)據(jù)庫(kù)中數(shù)據(jù)的逐條瀏覽、增加、修改、刪除和查詢。6）編寫相關(guān)的事件過程程序代碼，要求瀏覽時(shí)禁止一切增、刪、改操作，而進(jìn)行增、刪、改操作時(shí)又禁止移動(dòng)數(shù)據(jù)指針。代碼：Private Sub Command1_Click()Data1.Recordset.MoveFirstData2.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()Data1.Recordset.MovePreviousData2.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirstIf Data2.Recordset.BOF Then Data2.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastData2.Recordset.MoveNextIf Data2.Recordset.EOF Then Data2.Recordset.MoveLastEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveLastData2.Recordset.MoveLastEnd SubPrivate Sub Command5_Click()On Error Resume NextCommand6.Enabled = Not Command6.EnabledCommand7.Enabled = Not Command7.EnabledCommand8.Enabled = TrueCommand9.Enabled = Not Command9.EnabledIf Command5.Caption = 新增 ThenCommand5.Caption = 確認(rèn)Data1.Recordset.AddNewData2.Recordset.AddNewText1.SetFocusElseCommand8.Enabled = FalseCommand1.Caption = 新增Data1.Recordset.UpdateData1.Recordset.MoveLastData2.Recordset.UpdateData2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveLastIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastData2.Recordset.DeleteData2.Recordset.MoveLastIf Data2.Recordset.EOF Then Data2.Recordset.MoveLastEnd SubPrivate Sub Command7_Click()On Error Resume NextCommand5.Enabled = Not Command5.EnabledCommand6.Enabled = Not Command6.EnabledCommand8.Enabled = TrueCommand9.Enabled = Not Command9.EnabledIf Command7.Caption = 修改 ThenCommand7.Caption = 確認(rèn)Data1.Recordset.EditText1.SetFocusData2.Recordset.EditElseCommand7.Caption = 修改Data1.Recordset.UpdateData2.Recordset.UpdateCommand8.Enabled = FalseEnd IfEnd SubPrivate Sub Command8_Click()On Error Resume NextCommand5.Caption = 新增Command7.Caption = 修改Command5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand9.Enabled = TrueData1.UpdateControlsData1.Recordset.MoveLastData2.UpdateControlsData2.Recordset.MoveLastEnd SubPrivate Sub Command9_Click()Dim mzy As Stringmzy = InputBox$(請(qǐng)輸入專業(yè), 查找窗)Data1.RecordSource = select*from 基本情況 where 專業(yè)= & mzy & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 無此專業(yè)!Data1.RecordSource = 基本情況Data1.RefreshEnd IfEnd SubPrivate Sub Picture1_Click()Picture1.Picture = Clipboard.GetDataEnd Sub實(shí)驗(yàn)中遇到的問題及解決方法：在處于顯示數(shù)據(jù)庫(kù)第一條記錄時(shí)繼續(xù)執(zhí)行“上一條”指令，運(yùn)行時(shí)彈出“實(shí)時(shí)錯(cuò)誤3021”的錯(cuò)誤窗口，后通過添加If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst 語(yǔ)句進(jìn)行溢出解決在Text插件進(jìn)行數(shù)據(jù)庫(kù)連接時(shí)出現(xiàn)“這個(gè)數(shù)據(jù)源不支持”的錯(cuò)誤彈窗，后發(fā)現(xiàn)是屬性“DataFormate”未處于初始值而進(jìn)行了關(guān)聯(lián)，后經(jīng)過刪除并重新插入Text插件解決編寫程序代碼時(shí)未注意到Command控件序號(hào)與實(shí)驗(yàn)代碼的關(guān)聯(lián)，導(dǎo)致顯示錯(cuò)誤，后在重新調(diào)整后改正關(guān)于MsgBox語(yǔ)句如何控制彈出窗體的標(biāo)題欄方面，MsgBox 無此專業(yè)!,”提示：”該語(yǔ)句出現(xiàn)語(yǔ)法錯(cuò)誤，通過刪除，“提示”語(yǔ)句進(jìn)行解決，但同時(shí)也喪失了該項(xiàng)功能關(guān)于Data1和Data2同時(shí)進(jìn)行連接時(shí)，在代碼中必須同時(shí)體現(xiàn)對(duì)兩個(gè)控件的控制，并在數(shù)據(jù)庫(kù)中輸入數(shù)據(jù)時(shí)注意數(shù)據(jù)之間的相互對(duì)應(yīng)進(jìn)行數(shù)據(jù)庫(kù)鏈接時(shí)，必須注意數(shù)據(jù)庫(kù)文件的具體保存位置實(shí)驗(yàn)中所涉及的知識(shí)及技術(shù)：Data控件連接數(shù)據(jù)庫(kù)的方法關(guān)于綁定控件的相關(guān)設(shè)置，以及記錄集的相關(guān)屬性及方法利用Data控件連接數(shù)據(jù)庫(kù)后，用AddNew、Delete、Edit、Update和Refresh方法實(shí)現(xiàn)數(shù)據(jù)庫(kù)基本操作對(duì)Command控件的相關(guān)語(yǔ)句的初步運(yùn)用和了解實(shí)驗(yàn)中的創(chuàng)新及功能擴(kuò)充：嘗試了對(duì)Data控件的初步使用和屬性認(rèn)識(shí)，并用AddNew、Delete、Edit、Update和Refresh方法的實(shí)現(xiàn)了數(shù)據(jù)庫(kù)基本操作對(duì)自定義變量的定義和應(yīng)用有了更進(jìn)一步的認(rèn)識(shí)，并運(yùn)用了“Picture”控件和相關(guān)語(yǔ)句向數(shù)據(jù)庫(kù)中插入了圖片嘗試并成功在一個(gè)窗體內(nèi)同時(shí)進(jìn)