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

　　

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