西工大軟件技術(shù)實驗報告 實驗六.doc

西北工業(yè)大學(xué)軟件技術(shù)專用選取日期軟件技術(shù)實驗報告實驗序號六名稱Data數(shù)據(jù)控件綜合應(yīng)用班級09061201學(xué)號2012302337姓名劉昕實驗內(nèi)容及完成情況：用Data控件建立與數(shù)據(jù)庫的連接，并在連接的基礎(chǔ)上在相應(yīng)的綁定控件中實時顯示數(shù)據(jù)庫中的數(shù)據(jù)，通過操作實現(xiàn)數(shù)據(jù)庫中數(shù)據(jù)追加、修改、刪除和查詢。實驗步驟： 1）用VB本身自帶的可視化數(shù)據(jù)管理器建立student.mdb本地數(shù)據(jù)庫，其中包含兩個表，即基本情況表和學(xué)生成績表，并錄入本班學(xué)生數(shù)據(jù)。 2）根據(jù)實驗設(shè)計需要在窗體上放上若干所需的標(biāo)簽控件、文本框控件、 命令按鈕控件等，并設(shè)置各控件的必要屬性值。 3）在窗體適當(dāng)位置放置一個數(shù)據(jù)控件（Data控件）,設(shè)置該數(shù)據(jù)控件的Connect、DatabaseName和RecordSource等屬性，建立與student.mdb數(shù)據(jù)庫的連接。4）設(shè)置界面上的控件與數(shù)據(jù)控件綁定，使之受數(shù)據(jù)控件約束，并可通過其顯示數(shù)據(jù)庫中數(shù)據(jù)。5）設(shè)置數(shù)據(jù)控件Visible屬性為不可見，通過命令按鈕的單擊事件過程實現(xiàn)數(shù)據(jù)庫中數(shù)據(jù)的逐條瀏覽、增加、修改、刪除和查詢。6）編寫相關(guān)的事件過程程序代碼，要求瀏覽時禁止一切增、刪、改操作，而進行增、刪、改操作時又禁止移動數(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 = 確認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 = 確認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$(請輸入專業(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ù)據(jù)庫第一條記錄時繼續(xù)執(zhí)行“上一條”指令，運行時彈出“實時錯誤3021”的錯誤窗口，后通過添加If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst 語句進行溢出解決在Text插件進行數(shù)據(jù)庫連接時出現(xiàn)“這個數(shù)據(jù)源不支持”的錯誤彈窗，后發(fā)現(xiàn)是屬性“DataFormate”未處于初始值而進行了關(guān)聯(lián)，后經(jīng)過刪除并重新插入Text插件解決編寫程序代碼時未注意到Command控件序號與實驗代碼的關(guān)聯(lián)，導(dǎo)致顯示錯誤，后在重新調(diào)整后改正關(guān)于MsgBox語句如何控制彈出窗體的標(biāo)題欄方面，MsgBox 無此專業(yè)!,”提示：”該語句出現(xiàn)語法錯誤，通過刪除，“提示”語句進行解決，但同時也喪失了該項功能關(guān)于Data1和Data2同時進行連接時，在代碼中必須同時體現(xiàn)對兩個控件的控制，并在數(shù)據(jù)庫中輸入數(shù)據(jù)時注意數(shù)據(jù)之間的相互對應(yīng)進行數(shù)據(jù)庫鏈接時，必須注意數(shù)據(jù)庫文件的具體保存位置實驗中所涉及的知識及技術(shù)：Data控件連接數(shù)據(jù)庫的方法關(guān)于綁定控件的相關(guān)設(shè)置，以及記錄集的相關(guān)屬性及方法利用Data控件連接數(shù)據(jù)庫后，用AddNew、Delete、Edit、Update和Refresh方法實現(xiàn)數(shù)據(jù)庫基本操作對Command控件的相關(guān)語句的初步運用和了解實驗中的創(chuàng)新及功能擴充：嘗試了對Data控件的初步使用和屬性認識，并用AddNew、Delete、Edit、Update和Refresh方法的實現(xiàn)了數(shù)據(jù)庫基本操作對自定義變量的定義和應(yīng)用有了更進一步的認識，并運用了“Picture”控件和相關(guān)語句向數(shù)據(jù)庫中插入了圖片嘗試并成功在一個窗體內(nèi)同時進