【導(dǎo)讀】布和傳播成為其在教學(xué)和研究應(yīng)用方面的主流趨勢(shì)。本系統(tǒng)使用VB的DAO技術(shù)實(shí)現(xiàn)數(shù)。據(jù)庫(kù)的連接與管理，以此來(lái)管理圖片。論文主要部分分為六部分。第一章和第二章介紹了設(shè)計(jì)思想。對(duì)本次開(kāi)發(fā)作一總結(jié)。本軟件通過(guò)數(shù)據(jù)庫(kù)管理圖片，將圖片壓縮存儲(chǔ)在數(shù)據(jù)庫(kù)中。KeyWords：managepictures，managementsystem，DAO，Visual

　　

【正文】 ， TreeView 用來(lái)選擇要添加的數(shù)據(jù)庫(kù)目錄。 ListBox 類(lèi)型的 File 實(shí)現(xiàn)顯示源目錄下的圖片名字和格式，圖片帶由復(fù)選框的形式，以便用戶選擇。添加 2 個(gè) Shape 控件，用來(lái)顯示圖片載入的進(jìn)度，以百分?jǐn)?shù)形式顯示。 添加一個(gè) CommandButton 用于取消圖片的載入。 PictureBox類(lèi)型的 Image_Thumbn 用來(lái)預(yù)覽源文件中的圖片，鼠標(biāo)點(diǎn)擊圖片時(shí)顯示預(yù)覽； Shap 類(lèi)型的 shpPictureInfo 顯示圖片的大小、名字、寬度、高度等屬性。 Me_Back2 中包含一個(gè) checkbox 類(lèi)型的 chkFileNameFilter，一個(gè) txtFileNameFilter 類(lèi)型為 TextBox，一個(gè) toolbar 控件命名為Commands。 chkFileNameFilter 和 txtFileNameFilter 實(shí)現(xiàn)選擇圖片格式的功能。 Toolbar 中包含 4 個(gè) 按鈕，分別表示：添加選中圖片，添加所有圖片，分隔符，退出窗體按鈕。 Me_Back3 中包含一個(gè) CheckBox 控件數(shù)組 chkExt（），用來(lái)分別代表圖片的格式（ jpg， gif， bmp， wmf， ico），讓用戶來(lái)選擇。 窗體中添加一個(gè) Data 控件命名為 DataPictures 用來(lái)連接數(shù)據(jù)庫(kù)，以進(jìn)行添加操作。 各個(gè)窗體均添加 label 控件，用來(lái)顯示相關(guān)信息。 窗體圖片如下圖： 31 圖 5－ 3 添加圖片窗體 frmAddToDB 窗 體 被 載 入 后 ， 刷 新 Dir ，建立一個(gè)FileSystemObject 類(lèi)型的變量 FSO。首先添加一個(gè)根結(jié)點(diǎn) 代表本機(jī) ，并將根結(jié)點(diǎn)設(shè)置成可擴(kuò)展的，以便添加 子節(jié)點(diǎn)。 對(duì)每個(gè) 進(jìn)行循環(huán)添加目錄，先判斷 drive 的類(lèi)型，然后添加子節(jié)點(diǎn)。 添加結(jié)束之后關(guān)閉 FSO。 點(diǎn)擊驅(qū)動(dòng)器時(shí)調(diào)用過(guò)程 Private Sub Dir_NodeClick(ByVal Node As )， file_back 的路徑設(shè)置為 Node 下的鍵值 Key。然后調(diào)用 Private Sub ScanFiles()過(guò)程，瀏覽文件下的圖片名以及擴(kuò)展名。 Private Sub ScanFiles()過(guò)程中首先判斷控件數(shù)組 chkExt（）復(fù)選框是否被選中，獲取 chkExt（）的 Tag 屬性值。 調(diào)用 AddItem（）方法，向 file_back 文件列表框中添加搜索到的圖片名以及擴(kuò)展名，在 file_back 中顯示過(guò)濾后的圖片名字 32 以及擴(kuò)展名。在 lblInfo 控件中顯示圖片個(gè)數(shù)、圖片大小等相關(guān)信息。 單 擊 轉(zhuǎn) 換 按 鈕 時(shí) ， 調(diào) 用 過(guò) 程 Private Sub btnInvertSelection_Click()。過(guò)程先記錄 file 下的信息，然后調(diào)用Not ()函數(shù)實(shí)現(xiàn)反轉(zhuǎn) 選擇 。 單擊 toolbar 控件中的添加按鈕（添加選中、添加全部），調(diào)用Private Sub Commands_ButtonClick(ByVal Button As )過(guò)程。該過(guò)程首先屏蔽窗體操作，初始化進(jìn)度條；然后獲取選中的文件，再激活窗體操作，調(diào)用 Save_to_DB函數(shù) 向數(shù)據(jù)庫(kù)添加圖片，同時(shí)刷新進(jìn)度條，刷新時(shí)間，刷新圖片計(jì)數(shù)器。 如果時(shí)全部添加和以上相差不多，只是減少了判斷選中一步操作。 函數(shù) Private Sub Save_to_DB()對(duì) DataPictures 數(shù)據(jù)對(duì)象進(jìn)行數(shù)據(jù)庫(kù) 操作。首先設(shè)置各個(gè)字段值，然后將數(shù)據(jù)添加到結(jié)果集，更新數(shù)據(jù)庫(kù)，至此保存完成。 在目標(biāo) treeview 控件中，選擇目錄時(shí)調(diào)用過(guò)程 Private Sub Treeview_NodeClick(ByVal Node As )。該過(guò)程首先獲取目錄的鍵值， 然后調(diào)用函數(shù) Private Function GetThumbsNumber(IDCat As String) As Integer。該函數(shù)首先獲得源數(shù)據(jù)集，然后將源結(jié)果集添加至數(shù)據(jù)庫(kù)結(jié)果集，最后刷新數(shù)據(jù)庫(kù)，至此圖片以添加到了數(shù)據(jù)庫(kù)中 。 單擊 Image_Thumbnail 控件中圖片，加載 frmview 窗體顯示圖片。 33 5． 4． 4frmComments 窗體 本窗體包含兩個(gè)控件： TextBox 命名為： txtComments，用于顯 示 圖 片 的 名 字 和 擴(kuò) 展 名 ； ucGrphicButton 命 名 為 ：btnUpdateComments，用于更新 txtComments 的內(nèi)容。 窗體圖片如下圖： 圖 5－ 4 說(shuō)明窗口 當(dāng)單擊主窗體的說(shuō)明復(fù)選框時(shí)，主窗體調(diào)用 Private Sub chkComments_Click()方法，加載此窗體。加載之后，調(diào)用 Private Sub Form_Resize()和 Private Sub Form_Paint()過(guò)程。 Private Sub Form_Resize()過(guò)程 重新設(shè)置窗體的高度和寬度。 Private Sub Form_Paint()過(guò)程，首先應(yīng)用 cls 函數(shù) 清除 運(yùn)行時(shí) Form 所生成的圖形和文本 ，調(diào)用 drawbar 函數(shù)再在窗體空白處畫(huà)直線，以此來(lái)達(dá)到渲染的目的。 5． 4． 5frmDB 窗體 本窗體實(shí)現(xiàn)導(dǎo)入默認(rèn)數(shù)據(jù)庫(kù)并且選擇數(shù)據(jù)庫(kù)文 件的功能。 34 窗體中添加一個(gè) MDBs 控件，類(lèi)型為 FileListBox。 MDBs 用來(lái)實(shí)現(xiàn)選擇數(shù)據(jù)庫(kù)的功能。 窗體如下圖所示： 圖 5－ 5 選擇數(shù)據(jù)庫(kù)窗口 在窗體的載 入事件中 ，編寫(xiě) 代碼，導(dǎo) 入默認(rèn)數(shù) 據(jù)庫(kù)（ ）。在選擇數(shù)據(jù)庫(kù)的鼠標(biāo)單擊事件 Private Sub MDBs_Click()中，首先取得數(shù)據(jù)庫(kù)的名字，然后調(diào)用 frmMain 窗體中的方法獲取數(shù)據(jù)源，然后調(diào)用 frmAddToDB 窗體中的方法將數(shù)據(jù)庫(kù)名字添加到 MDBs 中，選擇完了之后隱藏窗體。 5． 4． 6frmFull 窗體 當(dāng)在主窗體中單擊全 屏按鈕時(shí)調(diào)用本窗體，實(shí)現(xiàn)全屏顯示和編輯圖片的功能，以使圖片能打到更好的效果。 ??? 窗體包含一個(gè) frame 控件（ framewatch），用來(lái)顯示系統(tǒng)當(dāng)前時(shí)間。frameWatch 中添加一個(gè) timer 控件（ tiemeWatch），用來(lái)控制時(shí)間；一個(gè) label 控件用來(lái)顯示時(shí)間。 一個(gè) UcPicScroll 控件（ Image_Full） 。實(shí)現(xiàn)調(diào)整窗體，全屏顯示圖片的效果。 35 添加右鍵菜單 menu 控件；應(yīng)用控件數(shù)組定義。定義菜單控件數(shù)組 opFull（ 24），用來(lái)顯示右鍵基本菜單；定義控件數(shù)組 opColor（ 4），實(shí)現(xiàn)背 景色的二級(jí)子菜單；定義菜單數(shù)組 opDelay(8)，實(shí)現(xiàn)時(shí)間延遲的子菜單。 窗體如下圖： 圖 5－ 6 全屏窗口 加載窗體時(shí)，首先設(shè)置背景顏色為默認(rèn)顏色（黑色）；然后重新設(shè)置窗體，設(shè)置圖片的寬度和高度，使圖片全屏顯示。 右鍵單擊圖片調(diào)用 Private Sub Image_Full_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)事件， 調(diào)用PopupMenu Image_Full_Menu， 彈出右鍵菜單。 選擇右鍵功能 時(shí)，調(diào)用 Private Sub opFull_Click(Index As Integer)事件，選擇相應(yīng)的功能 時(shí)，調(diào)用 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 選擇 。 選 擇 二 級(jí) 子 菜 單 時(shí) ， 調(diào) 用 Private Sub 36 opDelay_Click(Index As Integer)， Private Sub opColor_Click(Index As Integer)事件實(shí)現(xiàn)延遲和更換背景顏色的功能 ， Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)選擇功能 。 調(diào)用 Private Sub timerWatch_Timer() 方法，利用 Format(Now, hh:mm)方法顯示系統(tǒng)當(dāng)前時(shí)間。 窗體 調(diào)用 frmAddToDB窗體添加圖片時(shí)，單擊圖片信息框的圖片，調(diào)用 frmView 窗體，顯示圖片 ，左鍵單擊卸載窗體。 窗體添加一個(gè) ucPicScroll 控件（ View），實(shí)現(xiàn)本窗體顯示圖片的功能。 窗體如下圖： 圖 5－ 7 查看圖片窗口 37 加載 窗體時(shí)，調(diào)用 Private Sub Form_Resize()函數(shù)，設(shè)置窗體的寬度、高度和顯示方式，顯示圖片。鼠標(biāo)單擊 窗體時(shí)，調(diào)用 Private Sub View_Click()事件，使用 函數(shù)隱藏窗體。 4． 5 編碼實(shí)現(xiàn) 經(jīng)過(guò)以上的詳細(xì)設(shè)計(jì)，接下來(lái)就可以用編碼實(shí)現(xiàn)程序功能了。本系統(tǒng)選用 Visual Basic 作程序設(shè)計(jì)語(yǔ)言來(lái)編寫(xiě)代碼； 程序內(nèi)部有文檔，主要功能模塊都加入了注釋。 38 結(jié)論 圖片作為細(xì)節(jié)和實(shí)景的記錄載體，在反映和體現(xiàn)信息時(shí)有著文字不可替代的直觀性、生動(dòng)性和客觀性，是教學(xué)和研究中不可或 缺的直觀形象素材，同時(shí)讀圖也是獲取知識(shí)、啟迪心智的一種重要學(xué)習(xí)方式。圖片信息資料資源在教學(xué)和研究中日益凸顯其作用且愈來(lái)愈受到重視。 隨著計(jì)算機(jī)及網(wǎng)絡(luò)技術(shù)的不斷發(fā)展，圖片資源采用先進(jìn)的數(shù)據(jù)庫(kù)技術(shù)進(jìn)行整理、保存和檢索，并利用便捷的網(wǎng)絡(luò)技術(shù)進(jìn)行發(fā)布和傳播成為其在教學(xué)和研究應(yīng)用方面的主流趨勢(shì)。 至此，圖片數(shù)據(jù)庫(kù)管理系統(tǒng)已經(jīng)完成。其 基本功能已經(jīng)完成，能夠?qū)D片壓縮存儲(chǔ)在數(shù)據(jù)庫(kù)中，并能進(jìn)行一系列數(shù)據(jù)庫(kù)操作，實(shí)現(xiàn)添加、查詢、刪除等功能。 由于時(shí)間倉(cāng)促和本人能力有限，數(shù)據(jù)庫(kù)編程知識(shí)不足，本系統(tǒng)還有許多不足和缺點(diǎn)，如：用戶界 面不夠美觀、錯(cuò)誤處理不夠完善、運(yùn)行時(shí)占用資源大、移植性不好等等，這些都有待改善。 幾個(gè)月期間，學(xué)習(xí)了 Visual Basic 語(yǔ)言以及開(kāi)發(fā)環(huán)境，學(xué)習(xí)了數(shù)據(jù)庫(kù)的基本知識(shí)。通過(guò)學(xué)習(xí)，已經(jīng)了解了軟件開(kāi)發(fā)的基本流程， 能夠連接數(shù)據(jù)庫(kù)，進(jìn)行數(shù)據(jù)庫(kù)編程。 39 致謝 在這幾個(gè)月的畢業(yè)設(shè)計(jì)期間，導(dǎo)師和同學(xué)給我提供了很多寶貴的意見(jiàn)和建議，對(duì)我的畢業(yè)設(shè)計(jì)起了很大的幫助作用。 在此感謝 此次畢業(yè)設(shè)計(jì)過(guò)程中 導(dǎo)師對(duì)我的技術(shù)指導(dǎo)。 感謝 同班 同學(xué) 和同組同學(xué)的 慷慨幫助。 40 參考文獻(xiàn) [1] 楊晶 。 程序設(shè)計(jì)。機(jī)械工業(yè) 出版社 ， 2020 [2] 李春葆。 Access 數(shù)據(jù)庫(kù)程序設(shè)計(jì)。清華大學(xué) 出版社 ， 2020 [3] 申莉莉。數(shù)據(jù)庫(kù)系統(tǒng)與 Access 教程。清華大學(xué) 出版社 ， 2020 [4] 武馬群。數(shù)據(jù)庫(kù)應(yīng)用技術(shù)－ Access2020。北京工 業(yè) 大 學(xué)出版社 ， 2020 [5] 微軟 MSDN 幫助文檔 [6] 周峰。 Visual Basic 案例開(kāi)發(fā)集錦。電子工業(yè)出版社， 2020 [7] ( 英 )JOHN CARTER ，張淮野、袁怡等譯。 Database Programming —— with Access， SQL and Visual Basic。電子工業(yè)出版社 ， 2020 [8] 陳可欣。 ACCES VBA 數(shù)據(jù)庫(kù)開(kāi)發(fā)范例應(yīng)用 。中國(guó)青年出版社，2020