【正文】 清華大學 出版社 ， 2020 [4] 武馬群。圖片信息資料資源在教學和研究中日益凸顯其作用且愈來愈受到重視。 一個 UcPicScroll 控件（ Image_Full） 。該過程首先獲取目錄的鍵值， 然后調(diào)用函數(shù) Private Function GetThumbsNumber(IDCat As String) As Integer。首先添加一個根結(jié)點 代表本機 ，并將根結(jié)點設置成可擴展的，以便添加 子節(jié)點。 5． 4． 3frmAddToDb 窗體 本窗體實現(xiàn)向數(shù)據(jù)庫中添加圖片的功能，同時顯示圖片信息。 添加一個 msflexgrid 控件 fullgrid 用來顯示分行按規(guī)則選中數(shù)據(jù)庫中的圖片。調(diào)用Public Sub BestFit()過程圖片最大化顯示。 為了在給定的一個鼠標按鈕按下或釋放時指定將引起的一些操作，應當使用 MouseDown 或者 MouseUp 事件過程。非零表示成功，零表示失敗。用 VB 寫出的每行代碼都會被 VB 轉(zhuǎn)化成 API 函數(shù)傳遞給 Windows。本系統(tǒng)將按照流程圖進行設計。 搜索圖片時 本系統(tǒng)實現(xiàn)的是按圖片名字搜索圖片，確定是搜索全部文件夾還是當前文件夾；然后確定匹配字符串是首字符串匹配還是中間字符串匹配。 Visual SourceSafe 這個源 控件 (sourcecontrol) 工具跟蹤并保存對文件的更改，使文件（例如代碼模塊）可以容易經(jīng)濟地重復 使用。 企業(yè)版的特性 應用程序性能評測器 (Application Performance Explorer) 這個工具可使您用來測試所考慮的各種企業(yè)應用程序設計方案的運行時性能和資源加載特性。 9 從開發(fā)個人或小組使用的小工具，到大型企業(yè)應用系統(tǒng)，甚至通過 Inter 的遍及全球分布式應用程序，都可在 Visual Basic 提供的工具中各取所需。數(shù)據(jù)庫系統(tǒng)便能解決上述問題。圖片應用壓縮算法壓縮存儲在數(shù)據(jù)庫中，以此來節(jié)省磁盤空間，用戶可以存儲和查看圖庫中的圖片。 To achieve Visual Basic connecting to access by DAO， we developed a mini software named Pictures Database Management System。 本軟件通過數(shù)據(jù)庫管理圖片，將圖片壓縮存儲在數(shù)據(jù)庫中。圖片信息資料資源在教學和研究中日益凸顯其作用 且愈來愈受到重視 。數(shù)據(jù)文件與程序文件保持著一定的對應關(guān)系。 Visual Basic 編程系統(tǒng)和 VBA 都使用這一語言。 ? 企業(yè)版使得專業(yè)編程人員能夠開發(fā)功能強大的組內(nèi)分布式應用程序。它可以包含向?qū)А?ActiveX 組件、 Database Connection 對象以及在 Visual Basic 工程中使用的許多其他組件。 ??? 添加圖片時 單擊 add pictures 向數(shù)據(jù)庫中添加圖片，此時調(diào)用另外一個添加圖片窗體 并連接到數(shù)據(jù)庫 。 4． 能夠?qū)尤霐?shù)據(jù)庫的圖片進行壓縮操作，以減少圖片 所占用的空間。 圖片元素的處理功能均在工程 Thumb_DB 中實現(xiàn)， 通過程序與數(shù)據(jù) 庫的連接，訪問數(shù)據(jù)庫的結(jié)果集。對于 VB窗體和控件，倘若在 API 繪圖過程中使用這個函數(shù)，建議恢復原來的 StretchBlt 模式。然而不能在事件中產(chǎn)生錯誤，因為這樣對容器是致命的，所以 ReadProperties 事件過程中的任何錯誤捕獲都不應產(chǎn)生錯誤。 調(diào)用 Public Property Set Picture(ByVal New_Picture As StdPicture)方法， 顯示重新設置圖片屬性的圖片。 添加 3 個 DATA 控件： DataCategories、 DataPictures、 DataCopy用來連接數(shù)據(jù)庫對象。同時在單擊事件中加入調(diào)用關(guān)閉數(shù)據(jù)庫、卸載各個窗體的函數(shù)。 窗體中添加一個 Data 控件命名為 DataPictures 用來連接數(shù)據(jù)庫，以進行添加操作。 函數(shù) Private Sub Save_to_DB()對 DataPictures 數(shù)據(jù)對象進行數(shù)據(jù)庫 操作。 5． 4． 6frmFull 窗體 當在主窗體中單擊全 屏按鈕時調(diào)用本窗體，實現(xiàn)全屏顯示和編輯圖片的功能，以使圖片能打到更好的效果。 4． 5 編碼實現(xiàn) 經(jīng)過以上的詳細設計，接下來就可以用編碼實現(xiàn)程序功能了。 Access 數(shù)據(jù)庫程序設計。 Visual Basic 案例開發(fā)集錦。其 基本功能已經(jīng)完成，能夠?qū)D片壓縮存儲在數(shù)據(jù)庫中，并能進行一系列數(shù)據(jù)庫操作，實現(xiàn)添加、查詢、刪除等功能。定義菜單控件數(shù)組 opFull（ 24），用來顯示右鍵基本菜單；定義控件數(shù)組 opColor（ 4），實現(xiàn)背 景色的二級子菜單；定義菜單數(shù)組 opDelay(8)，實現(xiàn)時間延遲的子菜單。 33 5． 4． 4frmComments 窗體 本窗體包含兩個控件： TextBox 命名為： txtComments，用于顯 示 圖 片 的 名 字 和 擴 展 名 ； ucGrphicButton 命 名 為 ：btnUpdateComments，用于更新 txtComments 的內(nèi)容。 點擊驅(qū)動器時調(diào)用過程 Private Sub Dir_NodeClick(ByVal Node As )， file_back 的路徑設置為 Node 下的鍵值 Key。 Me_Back 中添加 6 個 ucGraphicButton，分別實現(xiàn)收縮文件，展開文件，清除選擇，選擇反轉(zhuǎn)功能。應用菜單數(shù)組 Opthumb（）。 26 5． 4 窗體設計 5． 4． 1frmCompact_DB 窗體 本窗體主要用于壓縮數(shù)據(jù)庫。 下列情況對 Click 和 DblClick 事件都適用： 如果鼠標按鈕是當其指針在窗體或控件之上時被按下，則該對象將 “捕獲 ”鼠標并接收包括最后 MouseUp 事件在內(nèi)的全部鼠標事件。 5． 2． 2 全局變量和常量聲明 Public Const THUMB_MAX_SIZE = 61，圖片大小。返回值零表示失敗，非零表示成功。點擊相應的按鈕，系統(tǒng)轉(zhuǎn)入其他相應功能界面，最后數(shù)據(jù)庫更新后，單擊退出按鈕退出系統(tǒng)。 顯示圖片信息并能對圖片進行處理，使圖片以最好的格式顯示。 本章主要闡述了該系統(tǒng)的 需求分析、 功能要求 、分析建模和開發(fā)環(huán)境。 OLE DB 11 OLE DB 是一組 OLE 接口，這些接口為應用程序訪問保存在不同信息源的數(shù)據(jù)提供了統(tǒng)一的方法。甚至可直接使用 VBP 或 VBE 創(chuàng)建的應用 程序和對象。一般一個數(shù)據(jù)庫系統(tǒng)（ Database System）可分為數(shù)據(jù)庫（ Database）與數(shù)據(jù)管理系統(tǒng)（ Database Management System，DBMS）兩個部分 ???。 Visual Basic，簡稱 VB，是當今世界上應用最廣泛的編程語言之一，它也被公認為是編程效率最高的一種編程方法 ???。 The first chapter and the second introduced the development idea and designing tools。 論文主要部分分為六部分。 Key Words： manage pictures， management system， DAO， Visual 。數(shù)據(jù)有多種形式，如文字、數(shù)碼、符號、圖形、圖像以及聲音等。 Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。 ? 專業(yè)版為專業(yè)編程人員提供了一整套功能完備的開發(fā)工具。 UserConnection 設計器 這個 ActiveX 設計器對編程數(shù)據(jù)訪問提供設計時支持。 3． 2 功能需求 根據(jù)以上需求分析，本系統(tǒng)的具體功能如下： 系統(tǒng)啟動時 首先自動加載默認數(shù)據(jù)庫， 顯示系統(tǒng)主窗體界面。 2． 能構(gòu)正確連接數(shù)據(jù)庫，并實現(xiàn)數(shù)據(jù)庫的基本功能，如：查詢圖片，顯示圖片信息，刪除圖片，添加圖片，添加目錄；能夠按照圖片名稱查找 并顯示相關(guān)信息，能夠按照圖片格式（如： gif， jpeg，bmp， ico 等）進行查找和插入等操作。 本系統(tǒng)使用的是 MicroSoft VB 下數(shù)據(jù)庫引擎 The Microsoft Jet database engine. ， 使 用 方法對數(shù)據(jù)庫進行壓縮， DBEngine是 DAO 的一個成員。返回值 long，取得當前的伸縮模式，零表示出錯。 5． 3 用戶自定義控件 5． 3． 1ucGraphicButton 控件 添加 2 個 Image 控件，用來表示窗體中的按鈕，一個表示按下鼠標，一個表示表示松開鼠標。 窗體添加兩個 image 控件（ cRelease， cGrub）， 用于實現(xiàn)全屏時鼠標放開和按下的狀態(tài)。 27 添加框架控件 frameComand2，其中添加 6 個復選框，分別表示：預覽、載入圖片、查看詳細信息、說明、全部搜索、 過濾 ；添加 2 個 組合框，用來按文件名搜索圖片。 調(diào)用窗體的同時調(diào)用 form_paint 函數(shù)，向空白處畫線以使界面美觀。 chkFileNameFilter 和 txtFileNameFilter 實現(xiàn)選擇圖片格式的功能。 單擊 toolbar 控件中的添加按鈕（添加選中、添加全部），調(diào)用Private Sub Commands_ButtonClick(ByVal Button As )過程。 MDBs 用來實現(xiàn)選擇數(shù)據(jù)庫的功能。 窗體添加一個 ucPicScroll 控件（ View），實現(xiàn)本窗體顯示圖片的功能。 40 參考文獻 [1] 楊晶 。電子工業(yè)出版社 ， 2020 [8] 陳可欣。通過學習，已經(jīng)了解了軟件開發(fā)的基本流程， 能夠連接數(shù)據(jù)庫，進行數(shù)據(jù)庫編程。 選擇右鍵功能 時，調(diào)用 Private Sub opFull_Click(Index As Integer)事件，選擇相應的功能 時，調(diào)用 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 選擇 。 Private Sub Form_Resize()過程 重新設置窗體的高度和寬度。 調(diào)用 AddItem（）方法，向 file_back 文件列表框中添加搜索到的圖片名以及擴展名，在 file_back 中顯示過濾后的圖片名字 32 以及擴展名。添加 2 個 Shape 控件，用來顯示圖片載入的進度，以百分數(shù)形式顯示。添加目錄列表， 搜索數(shù)據(jù)庫結(jié)果集，循環(huán)添加到 treeview 中。需要引用微軟數(shù)據(jù)訪問對象庫，本系統(tǒng)引用的時 Microsoft DAO Object Library。 Private Sub UserControl_Click()，單擊鼠標事件。 Public tblID() As Long，圖片的 ID 值， Public tblSt() As Long，圖片狀態(tài)值， 1 表示裝載出錯，2 表示圖片移走， 3 表示圖片被刪除。源矩形會根據(jù)需要進行伸縮，以便與目標矩形的大小相