張園園

（山西省大同市大同煤炭職業(yè)技術(shù)學院，山西大同037003）

我們在設(shè)計某些信息管理系統(tǒng)時經(jīng)常遇到需要處理圖片的情況。如圖1所示的一個學生信息管理系統(tǒng)的界面中，我們希望把每名學生的照片放在窗體上，使界面更加生動、信息更加全面。同樣，在進行報名信息管理時，我們也希望在界面上能看到考生的照片，方便考生進行信息核對。諸如此類圖片的處理一直都是比較復(fù)雜的，尤其是對于初學者。

圖1 學生管理

在數(shù)據(jù)庫中，圖片的特殊性有兩點：1、圖片所占存儲空間常常是比較大的；2、圖片的處理常常需要外部的程序。編寫代碼對于初學者有一定難度。

我們常用ACCESS來設(shè)計一般的小型數(shù)據(jù)庫。在ACCESS中，備注數(shù)據(jù)類型可以存儲最多65,535個字符，而OLE對象數(shù)據(jù)類型可以存儲最多1 G字節(jié)的鏈接或嵌入的對象（例如Microsoft Excel電子表格、Microsoft Word文檔、圖形、聲音或其它二進制數(shù)據(jù)）。因為圖片的大小常超出備注數(shù)據(jù)類型的限制，且用OLE類型更方便，所以我們利用ACCESS數(shù)據(jù)庫中的OLE數(shù)據(jù)類型存儲圖片，在VB程序中用OLE控件處理圖片。但是由于OLE對象不能支持ADO和OLEDB，我們要用DAO來連接數(shù)據(jù)，處理起來不方便。

下面介紹一種在VB程序中處理ACCESS數(shù)據(jù)庫中處理圖片的辦法。準確地說圖片沒有真正放在ACCESS數(shù)據(jù)庫，巧妙在于筆者是把圖片文件的文件名以字符型數(shù)據(jù)存放在數(shù)據(jù)庫中。同樣可以實現(xiàn)如圖1所示添加記錄中的圖片，還可以更改原有照片。

VB前臺用戶界面與后臺數(shù)據(jù)庫的連接采用方便、靈活、性能更優(yōu)的ADO控件。

具體方法如下：

1.數(shù)據(jù)庫的設(shè)計

在設(shè)計數(shù)據(jù)庫時除如圖2所示的平常字段外，還需添加名稱為“zaop”的字段來存放圖片文件名的信息。字段的類型用文本型。這是問題的關(guān)鍵，“zaop”的字段必需為文本型，而不是OLE對象。

圖2 學生表

2.連接數(shù)據(jù)庫

第一步：加入部件

在“工程”菜單的“部件”選項卡的“控件”列表中找到Microsoft ADO Data Control 6.0，單擊左端的復(fù)選框，使之顯示對號√，然后單擊“確定”鈕，完成添加。同時在工具箱可見ADO控件。

第二步：添加控件、改變屬性

為窗體添加ADO控件，默認名稱為Adodc1。并連接數(shù)據(jù)庫文件和表。

這里要注意的是：如圖3所示，連接到數(shù)據(jù)庫后要刪除數(shù)據(jù)庫前面的路徑，只留下數(shù)據(jù)庫文件名。而且數(shù)據(jù)庫文件要與工程文件放在同一目錄中。

圖3 連接數(shù)據(jù)庫

第三步：將窗體上有關(guān)的文本框綁定到ADODC控件上

對除命令按鈕和圖像框的其它對象設(shè)置如下兩個屬性值：

DataSource：數(shù)據(jù)源就是ADODC控件；

Datafield：數(shù)據(jù)字段就是表的字段，此處選擇你該使用的字段。

第四步：在代碼中使用ADODC控件對象的屬性和方法

主要是調(diào)動其Recordset記錄集對象的屬性、方法等來實現(xiàn)按鈕的功能。這里要討論的是“添加或更換照片”這個按鈕功能的實現(xiàn)，其它的不再贅述。

3.圖像的處理：即“添加或更換照片”這個按鈕功能的實現(xiàn)

(1)首先在窗體上需要添加一個通用對話框：“MicroSoft Common Dialog Control 6.0”。

(2)編寫“添加或更換照片”按鈕的功能，這是本程序的最關(guān)鍵的地方，代碼如下：

lj=App.Path'對工程所在路徑賦值給變量

Cd2.ShowOpen'通用對話框執(zhí)行打開方法選取準備添加或更改的圖片文件

ff=Cd2.FileName'把上面通用對話框所選取的圖片文件保存在變量中，注意此時保存的文件的絕對路徑

zaopian=Mid(ff,Len(App.Path)+2,Len(ff)-Len(App.Path))'利用函數(shù)截取所選取的圖片文件的文件名部分

student.Recordset.Fields("zaop").Value=zaopian'把圖片文件名寫入到數(shù)據(jù)庫存放圖片字段名的字段zaop中

student.Recordset.Update

ChDrive App.Path'設(shè)當前驅(qū)動器為工程所在驅(qū)動器

ChDir App.Path'設(shè)當前目錄為工程所在目錄

Image1.Picture=LoadPicture(zaopian)

(3)在瀏覽數(shù)據(jù)庫的記錄的各按鈕上實現(xiàn)照片的顯示功能，以“下一條”按鈕為例，代碼如下：

在設(shè)計程序時可以把所有學生的照片文件存放在工程所在目錄的一個子目錄中如“PIC”，這樣管理起來比較方便。以上是筆者對數(shù)據(jù)庫中的圖片處理摸索的另一種途徑，希望能對有需要的VB的初學者以及本課程的教師有所幫助。