高中信息技術(shù)教學(xué)論文用的控件存取數(shù)據(jù)庫(kù)圖片的新方法

用VB6.0Data控件存取數(shù)據(jù)庫(kù)圖片新方法摘要:介紹了VB6中Data控件建立數(shù)據(jù)庫(kù)方法以及怎樣使用獨(dú)特方法實(shí)現(xiàn)對(duì)圖像數(shù)據(jù)顯示和查詢。關(guān)鍵詞:Data控件;數(shù)據(jù)庫(kù);圖像數(shù)據(jù)

1

建立Access關(guān)系型數(shù)據(jù)庫(kù):伴隨計(jì)算機(jī)技術(shù)發(fā)展,數(shù)據(jù)庫(kù)越來越顯示出其強(qiáng)大數(shù)據(jù)存放和數(shù)據(jù)管理功效。為了滿足大家對(duì)數(shù)據(jù)庫(kù)需要,VisualBasic提供了強(qiáng)大數(shù)據(jù)庫(kù)程序設(shè)計(jì)功效。即使VB并不是專用與數(shù)據(jù)庫(kù)開發(fā)軟件系統(tǒng),但它所提供數(shù)據(jù)庫(kù)功效卻幾乎能夠滿足全部編程人員需求。在VisualBasic環(huán)境下,Access數(shù)據(jù)庫(kù)是缺省數(shù)據(jù)庫(kù),Access所采取Jet數(shù)據(jù)庫(kù)引擎得到了最有效利用。比如VisualBasic內(nèi)部數(shù)據(jù)訪問控件（Data）就是建立在Jet引擎基礎(chǔ)上。數(shù)據(jù)庫(kù)是一組特定數(shù)據(jù)集合,是提供數(shù)據(jù)基地。它能保留數(shù)據(jù)并許可用戶訪問所需數(shù)據(jù)。數(shù)據(jù)庫(kù)保留數(shù)據(jù)都是相關(guān)數(shù)據(jù),為了便于保管和處理這些數(shù)據(jù),將這些數(shù)據(jù)存入數(shù)據(jù)庫(kù)時(shí)必需含有一定數(shù)據(jù)結(jié)構(gòu)和文件組織方法。數(shù)據(jù)庫(kù)中數(shù)據(jù)集合組成特定表,表中每一列為一個(gè)字段,每一行為一個(gè)統(tǒng)計(jì)。其中表是按行與列排列來表示相關(guān)信息邏輯組。Jet數(shù)據(jù)庫(kù)引擎包含在一組動(dòng)態(tài)鏈接庫(kù)（DLL）中,運(yùn)行時(shí),這些動(dòng)態(tài)鏈接庫(kù)文件被鏈接到VisualBasic程序。它把應(yīng)用程序請(qǐng)求翻譯成對(duì).mdb文件或其她數(shù)據(jù)庫(kù)物理操作。數(shù)據(jù)庫(kù)引擎真正讀取、寫入和修改數(shù)據(jù)庫(kù),并處理數(shù)據(jù)庫(kù)中全部?jī)?nèi)部事物。在Access數(shù)據(jù)庫(kù)系統(tǒng)中,信息以數(shù)據(jù)庫(kù)為單位存放到存放介質(zhì)如磁盤、光盤中。其擴(kuò)展名為mdb。2

Data控件2.1

Data控件內(nèi)涵Data控件是VisualBasic和數(shù)據(jù)庫(kù)之間聯(lián)接橋梁。經(jīng)過Data控件能夠不用編寫代碼而創(chuàng)建簡(jiǎn)單數(shù)據(jù)庫(kù),存取數(shù)據(jù)。另外,也可把Data控件和VisualBasic代碼結(jié)合起來創(chuàng)建完整功效應(yīng)用程序,為數(shù)據(jù)處理提供高級(jí)編程控制。在不用代碼情況下Data控件能夠完成下列任務(wù)（1）與當(dāng)?shù)鼗蜻h(yuǎn)程數(shù)據(jù)庫(kù)連接（2）打開指定數(shù)據(jù)庫(kù)表或定義統(tǒng)計(jì)集。（3）傳送數(shù)據(jù)字段到多種數(shù)據(jù)綁定控件,并可在其中顯示或改變數(shù)據(jù)字段值。（4）經(jīng)過數(shù)據(jù)綁定控件來添加新統(tǒng)計(jì)或更新數(shù)據(jù)庫(kù)（5）捕捉訪問數(shù)據(jù)時(shí)出現(xiàn)錯(cuò)誤（6）關(guān)閉數(shù)據(jù)庫(kù)要使用Data控件,最少得設(shè)置DatabaseName屬性和RecoredSource屬性。一旦設(shè)置了DatabaseName屬性,VisualBasic將檢索數(shù)據(jù)庫(kù)里全部表和有效查詢名稱,并依據(jù)DatabaseName把它們顯示在一個(gè)下拉列表里。若想打開外部數(shù)據(jù)庫(kù),還必需在“屬性”窗口設(shè)置Connect屬性。DatabaseName屬性用于返回或設(shè)置Data控件數(shù)據(jù)源名稱及位置,指定所要用數(shù)據(jù)庫(kù)。RecoredSource屬性用于指定控件能看到數(shù)據(jù)庫(kù)部分,即指定經(jīng)過窗體上被綁定控件所訪問統(tǒng)計(jì)起源。只有在設(shè)置了DatabaseName屬性后才能設(shè)置RecoredSource屬性。當(dāng)在運(yùn)行時(shí)改變RecoredSource屬性值,必需使用Refresh方法使改變生效,并重建Recoredset。2.2

數(shù)據(jù)綁定控件數(shù)據(jù)綁定控件是用于訪問數(shù)據(jù)庫(kù)信息數(shù)據(jù)識(shí)別控件。當(dāng)創(chuàng)建一個(gè)Data控件后,經(jīng)過設(shè)定對(duì)應(yīng)屬性,把數(shù)據(jù)綁定控件與Data控件聯(lián)絡(luò)起來,就能夠在數(shù)據(jù)綁定控件中顯示數(shù)據(jù)庫(kù)中對(duì)應(yīng)統(tǒng)計(jì)字段值,同時(shí)還可對(duì)這些數(shù)值進(jìn)行更改。在綁定控件里改變數(shù)據(jù),當(dāng)移動(dòng)另一個(gè)統(tǒng)計(jì)時(shí),這些改變會(huì)自動(dòng)地寫入到數(shù)據(jù)庫(kù)中。2.3

數(shù)據(jù)綁定控件屬性1.DataField屬性用于指定Data控件所建立統(tǒng)計(jì)集里字段名稱2.DataSource屬性用于指定Data控件所要綁定數(shù)據(jù)控件,經(jīng)過這個(gè)控件將目前控件連接到數(shù)據(jù)庫(kù)上。該屬性在運(yùn)行時(shí)不可用。假如要在運(yùn)行時(shí)將一個(gè)控件連結(jié)到數(shù)據(jù)庫(kù)中某個(gè)字段上,必需在設(shè)計(jì)時(shí)用DataSource屬性指定一個(gè)Data控件。2.4

添加數(shù)據(jù)綁定控件要在窗體中添加數(shù)據(jù)綁定控件,首先應(yīng)在窗體中創(chuàng)建綁定控件,然后設(shè)置該控件DataSource屬性和DataField屬性,指定要綁定Data控件和統(tǒng)計(jì)集里有效字段。假如設(shè)計(jì)時(shí)數(shù)據(jù)庫(kù)可用,則有效字段列表將顯示在“屬性”窗口里“DataField屬性設(shè)置”框中。假如在設(shè)計(jì)時(shí)數(shù)據(jù)庫(kù)不可用,則在數(shù)據(jù)值從數(shù)據(jù)庫(kù)中發(fā)送給控件之前,需在運(yùn)行時(shí)提供一個(gè)有效字段名稱。3

應(yīng)用實(shí)例筆者使用Data控件及數(shù)據(jù)綁定控件創(chuàng)建一個(gè)學(xué)生檔案數(shù)據(jù)庫(kù)查詢系統(tǒng)。首先在VB6經(jīng)過外接程序?qū)⑵湔{(diào)用Access,創(chuàng)建一個(gè)學(xué)生檔案數(shù)據(jù)庫(kù)及學(xué)生檔案數(shù)據(jù)表。不過這里需要提醒是“PictureBox”和“ImageList”都不能接收來自“Data”控件信息,所以可在圖片框內(nèi)部放置一個(gè)不可見不過有效“Label”控件,讓其接收文本類型路徑信息:待用“Loadpicture()”函數(shù)裝載圖像時(shí),參數(shù)用“LabelX.Caption”替換即可。其步驟以下:3.1

創(chuàng)建數(shù)據(jù)庫(kù)及空數(shù)據(jù)表1.開啟VB6,直接進(jìn)入VB6開發(fā)界面,在主界面添加Text1~Text5,label1~label6,image1,command1~command4,Data1,見圖3.2.調(diào)用外接程序,因?yàn)閂isualDataManager并非VB6標(biāo)準(zhǔn)組員,必需經(jīng)過外接程序?qū)⑵湔{(diào)用。開啟VisualDataManager。3.單擊VisualDataManager“文件”菜單,選擇“文件?新建?MicrosoftAccess?“Version7.0mdb”菜單項(xiàng),創(chuàng)建一個(gè)Access數(shù)據(jù)庫(kù)。4.在隨即彈出“保留”對(duì)話框中,為剛剛創(chuàng)建數(shù)據(jù)庫(kù)取名為Student,此時(shí)創(chuàng)建僅僅是一個(gè)空數(shù)據(jù)庫(kù),還要在其中加入數(shù)據(jù)表,并在表中添加所需字段完成創(chuàng)建空數(shù)據(jù)表工作。右擊“數(shù)據(jù)庫(kù)窗口”,在彈出快捷菜單中選擇“新建表”項(xiàng),開啟“表結(jié)構(gòu)”窗口,進(jìn)行數(shù)據(jù)表創(chuàng)建工作。并在窗口上方“表名稱”欄中為該表取名StudentList,單擊“添加字段”按鈕,為該表添加所需字段才能完成創(chuàng)建空數(shù)據(jù)表工作。依據(jù)系統(tǒng)設(shè)計(jì)要求,在表中添加“姓名”、“電話”、“手機(jī)”、“傳呼”、“地址”、“圖像路徑”六個(gè)字段,依次選擇數(shù)據(jù)類型是字符型、整型、字符型、字符型、字符型、字符型。5.完成字段添加工作后,單擊“生成表”按鈕,VisualDataManager彈出對(duì)話框是否要為這個(gè)數(shù)據(jù)庫(kù)創(chuàng)建一個(gè)關(guān)鍵字段,因?yàn)殛P(guān)鍵字段只有在多個(gè)數(shù)據(jù)表情況下會(huì)發(fā)揮作用,所以選擇“否”。6.數(shù)據(jù)庫(kù)及其空數(shù)據(jù)表創(chuàng)建工作完成,回到“數(shù)據(jù)庫(kù)窗口”,能夠發(fā)覺數(shù)據(jù)庫(kù)屬性下方多了一個(gè)名為“StudentList”數(shù)據(jù)庫(kù)表。7.在數(shù)據(jù)表中填寫數(shù)據(jù)右擊“數(shù)據(jù)庫(kù)窗口”中“StudentList”數(shù)據(jù)表,在彈出快捷菜單中選擇“打開”選項(xiàng),將剛剛創(chuàng)建空數(shù)據(jù)表打開,此時(shí)數(shù)據(jù)表是空,單擊目前窗口中“添加”菜單,開啟添加數(shù)據(jù)窗口,根據(jù)事先設(shè)計(jì)數(shù)據(jù)類型,在該窗口依次添加第一個(gè)學(xué)生“姓名”,“電話”,“手機(jī)”,“傳呼”,“地址”,“圖像路徑”等選項(xiàng),添加完成,單擊“刷新”按鈕,則第一個(gè)學(xué)生各項(xiàng)信息被綜合成一個(gè)統(tǒng)計(jì),添加到“StudentList”數(shù)據(jù)庫(kù)表當(dāng)中。反復(fù)上述步驟,依次將要建立學(xué)生檔案資料添加到StudentList數(shù)據(jù)庫(kù)表當(dāng)中。見圖1。

圖1

StudentList數(shù)據(jù)表3.2

創(chuàng)建數(shù)據(jù)庫(kù)程序基礎(chǔ)框架Data控件根據(jù)用戶提交要求,經(jīng)過Microsoft

Jet數(shù)據(jù)引擎從“StudentList”數(shù)據(jù)庫(kù)中提取對(duì)應(yīng)數(shù)據(jù)統(tǒng)計(jì),這一統(tǒng)計(jì)不一樣字段傳送給了不一樣數(shù)據(jù)綁定控件。文本框類數(shù)據(jù)綁定控件顯示是文件“姓名”,“電話”等文本信息,“Data”控件傳送過來字段也恰好是文本類型,只需簡(jiǎn)單傳送即可;而“圖片框”顯示是圖像數(shù)據(jù)本身,所以在“Data”控件將一個(gè)包含文件路徑信息字段傳輸過來后,必需使用一個(gè)LoadPicture（）函數(shù)將對(duì)應(yīng)圖像顯示出來。其步驟框架見圖2。

圖2

程序步驟框架1.設(shè)置各個(gè)基礎(chǔ)控件外觀屬性?Data控件:設(shè)置DataSource屬性選項(xiàng),設(shè)置為Student;設(shè)置RecorderSource為StudentList.?單擊Form1窗口中Text1控件,在屬性窗口找到其“DataSource屬性選項(xiàng)”,設(shè)置為Data1控件,表示該控件數(shù)據(jù)是經(jīng)過“Data1”控件從Student數(shù)據(jù)庫(kù)中取得,繼續(xù)找到該控件“DataField”屬性選項(xiàng),設(shè)置為“姓名”,表示該控件僅顯示被選中統(tǒng)計(jì)“姓名”字段。用一樣方法對(duì)Text2控件~Text5控件進(jìn)行綁定。2.選中添加在Image1控件內(nèi)部Label6控件,在“Visible”項(xiàng)屬性中將其設(shè)置成不可見,經(jīng)過“Data”控件與“StudentList”數(shù)據(jù)庫(kù)表中“圖像路徑”字段對(duì)它進(jìn)行綁定。同時(shí),將裝載該控件“Image1”“Stretch”項(xiàng)屬性設(shè)置為“True”。編寫代碼來實(shí)現(xiàn)圖像顯示:PrivateSubData1_Validate(ActionAsInt