【正文】 eX 控件、Inter Information Server Application Designer、 10 集成的 Visual Database Tools 和 Data Environment、 Active Data Objects、和 Dynamic HTML Page Designer。企業(yè)版包括的印刷文檔包括 Visual Studio Enterprise Features 手冊(cè)以及包含全部聯(lián)機(jī)文檔的 Microsoft Developer Network CD。 OLE DB 11 OLE DB 是一組 OLE 接口，這些接口為應(yīng)用程序訪問(wèn)保存在不同信息源的數(shù)據(jù)提供了統(tǒng)一的方法。 SQL Server Microsoft SQL Server Programmer39。在Visual Basic 的這個(gè)版本中，此工具已經(jīng)被上面列出的數(shù)據(jù)環(huán)境設(shè)計(jì)器所取代。 可視化數(shù)據(jù)庫(kù)工具集成 （查詢?cè)O(shè)計(jì)器和數(shù)據(jù)庫(kù)設(shè)計(jì)器） 使用這些設(shè)計(jì)器，您可以可視地創(chuàng)建并修改數(shù)據(jù)庫(kù)結(jié)構(gòu)描述和查詢：創(chuàng)建 SQL Server 和 Oracle 數(shù)據(jù)庫(kù)表、通過(guò)拖放來(lái)創(chuàng)建視圖、以及自動(dòng)更改列的數(shù)據(jù)類(lèi)型。 本章主要闡述了該系統(tǒng)的 需求分析、 功能要求 、分析建模和開(kāi)發(fā)環(huán)境。 可以顯示圖片詳細(xì)信息。 如果沒(méi)有發(fā)現(xiàn)數(shù)據(jù)庫(kù)則報(bào)告錯(cuò)誤信息。 向數(shù)據(jù)庫(kù)的添加過(guò)程中顯示添加的進(jìn)度，進(jìn)度條顯示添加的百分比和所用時(shí)間。 顯示圖片信息并能對(duì)圖片進(jìn)行處理，使圖片以最好的格式顯示。通過(guò)這個(gè)階段的工作將劃分處組成系統(tǒng)的物理元素 —— 程序、文件、數(shù)據(jù)庫(kù)、 人工過(guò)程和問(wèn)題等等。 3． 在正確連接數(shù)據(jù)庫(kù)，查詢到用戶相應(yīng)的信息后，應(yīng)在界面上顯示相關(guān)的信息。 流程圖簡(jiǎn)單地介紹了程序的運(yùn)行過(guò)程 以及主要功能。點(diǎn)擊相應(yīng)的按鈕，系統(tǒng)轉(zhuǎn)入其他相應(yīng)功能界面，最后數(shù)據(jù)庫(kù)更新后，單擊退出按鈕退出系統(tǒng)。 19 第 五 章 詳細(xì)設(shè)計(jì) 和編碼 詳細(xì)設(shè)計(jì)階段的根本目標(biāo)使確定應(yīng)該怎樣具體地實(shí)現(xiàn)所要求的 系統(tǒng)，經(jīng)過(guò)這個(gè)階段的工作，應(yīng)該得出對(duì)目標(biāo)系統(tǒng)的精確描述，從而在編碼階段可以把這個(gè)描述直接翻譯成用某種程序設(shè)計(jì)語(yǔ)言些的程序。 ??? 20 5． 1． 2 工程 Thumb_DB 實(shí)現(xiàn)數(shù)據(jù)庫(kù)的所有功能，包括添加數(shù)據(jù)庫(kù)元素，顯示數(shù)據(jù)庫(kù)的內(nèi)容，主窗體設(shè)計(jì)，數(shù)據(jù)庫(kù)搜索及添加，全屏顯示，瀏覽圖片內(nèi)容。 5． 2 模塊設(shè)計(jì) 5． 2． 1 聲明 API 函數(shù) 系統(tǒng)中要用到幾個(gè) Windows API （ Application Program Interface）函數(shù)，用于調(diào)用系統(tǒng)函數(shù)，以便是程序來(lái)控制 Windows的各個(gè)部件（從桌面的外觀到位一個(gè)新進(jìn)程分配的內(nèi)存）的外觀和行為的一套預(yù)先第一的 Windows 函數(shù)。返回值零表示失敗，非零表示成功。返回值零表示失敗，非零表示成功。 22 Public Declare Function SetStretchBltMode Lib gdi32 (ByVal hdc As Long, ByVal nStretchMode As Long) As Long，指定 StretchBlt 和 StretchDIBits 函數(shù)的伸縮模式。 Public Declare Function ShellExecute Lib shell32 Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long，查找與指定文件關(guān)聯(lián)在一起的程序的文件名。 5． 2． 2 全局變量和常量聲明 Public Const THUMB_MAX_SIZE = 61，圖片大小。 Public ThumbIsSelected As Boolean，判斷圖片是否被選中。 其中調(diào)用了幾個(gè)事件： Private Sub UserControl_ReadProperties(PropBag As PropertyBag)， 當(dāng)加載具有保存狀態(tài)的對(duì)象的舊實(shí)例時(shí)，發(fā)生該事件。 Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)，鼠標(biāo)松開(kāi)時(shí)發(fā)生的事件。 下列情況對(duì) Click 和 DblClick 事件都適用： 如果鼠標(biāo)按鈕是當(dāng)其指針在窗體或控件之上時(shí)被按下，則該對(duì)象將 “捕獲 ”鼠標(biāo)并接收包括最后 MouseUp 事件在內(nèi)的全部鼠標(biāo)事件。 此事件是在一個(gè)對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。兩個(gè) PictureBox 控件（ PicScroll，Picloaded） ，分別用于顯示圖片和設(shè)置背景顏色。鼠標(biāo)按下、拖動(dòng)、 松開(kāi)時(shí)，分別發(fā)生Private Sub PicScroll_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ， Private Sub PicScroll_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)， Private Sub PicScroll_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)事件。 26 5． 4 窗體設(shè)計(jì) 5． 4． 1frmCompact_DB 窗體 本窗體主要用于壓縮數(shù)據(jù)庫(kù)。 添加 3 個(gè) label 控件和 1 個(gè) filelistbox 控件，用來(lái)顯示數(shù)據(jù)庫(kù)信息。 添加一個(gè) treeview 控件 TreeView，實(shí)現(xiàn)將數(shù)據(jù)庫(kù)中的數(shù)據(jù)綁定到 treeview 控件，此前 必須先添加對(duì)當(dāng)前版本的數(shù)據(jù)訪問(wèn)對(duì)象（ DAO）的引用 ，即： Microsoft DAO Object Library。 添加一個(gè)自定義控件 ucPicScroll，用來(lái)預(yù)覽圖片。應(yīng)用菜單數(shù)組 Opthumb（）。 向 fullgird 中添加圖片：先初始化定時(shí)器，獲得數(shù)據(jù)庫(kù)中 IDCat字段值，然后清空 fullgird 并初始化滾動(dòng)條。 單擊 toolbar 中按鈕時(shí)分別載入其他窗體并發(fā)生相應(yīng)的事件，實(shí)現(xiàn)相應(yīng)的功能。 搜索時(shí)，調(diào)用 txtFilter_KeyPress 事件， 應(yīng)用字符串對(duì)比函數(shù)比較圖片名和所輸入的字符串，然后調(diào)用 btnRefresh_Click 刷新fullgrid， 中保存著對(duì)比的信息，最后將圖片添加到服了 fullgrid 中。 Me_Back 中添加 6 個(gè) ucGraphicButton，分別實(shí)現(xiàn)收縮文件，展開(kāi)文件，清除選擇，選擇反轉(zhuǎn)功能。 添加一個(gè) CommandButton 用于取消圖片的載入。 Toolbar 中包含 4 個(gè) 按鈕，分別表示：添加選中圖片，添加所有圖片，分隔符，退出窗體按鈕。 窗體圖片如下圖： 31 圖 5－ 3 添加圖片窗體 frmAddToDB 窗 體 被 載 入 后 ， 刷 新 Dir ，建立一個(gè)FileSystemObject 類(lèi)型的變量 FSO。 點(diǎn)擊驅(qū)動(dòng)器時(shí)調(diào)用過(guò)程 Private Sub Dir_NodeClick(ByVal Node As )， file_back 的路徑設(shè)置為 Node 下的鍵值 Key。在 lblInfo 控件中顯示圖片個(gè)數(shù)、圖片大小等相關(guān)信息。該過(guò)程首先屏蔽窗體操作，初始化進(jìn)度條；然后獲取選中的文件，再激活窗體操作，調(diào)用 Save_to_DB函數(shù) 向數(shù)據(jù)庫(kù)添加圖片，同時(shí)刷新進(jìn)度條，刷新時(shí)間，刷新圖片計(jì)數(shù)器。 在目標(biāo) treeview 控件中，選擇目錄時(shí)調(diào)用過(guò)程 Private Sub Treeview_NodeClick(ByVal Node As )。 33 5． 4． 4frmComments 窗體 本窗體包含兩個(gè)控件： TextBox 命名為： txtComments，用于顯 示 圖 片 的 名 字 和 擴(kuò) 展 名 ； ucGrphicButton 命 名 為 ：btnUpdateComments，用于更新 txtComments 的內(nèi)容。 Private Sub Form_Paint()過(guò)程，首先應(yīng)用 cls 函數(shù) 清除 運(yùn)行時(shí) Form 所生成的圖形和文本 ，調(diào)用 drawbar 函數(shù)再在窗體空白處畫(huà)直線，以此來(lái)達(dá)到渲染的目的。 窗體如下圖所示： 圖 5－ 5 選擇數(shù)據(jù)庫(kù)窗口 在窗體的載 入事件中 ，編寫(xiě) 代碼，導(dǎo) 入默認(rèn)數(shù) 據(jù)庫(kù)（ ）。frameWatch 中添加一個(gè) timer 控件（ tiemeWatch），用來(lái)控制時(shí)間；一個(gè) label 控件用來(lái)顯示時(shí)間。定義菜單控件數(shù)組 opFull（ 24），用來(lái)顯示右鍵基本菜單；定義控件數(shù)組 opColor（ 4），實(shí)現(xiàn)背 景色的二級(jí)子菜單；定義菜單數(shù)組 opDelay(8)，實(shí)現(xiàn)時(shí)間延遲的子菜單。 選 擇 二 級(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)選擇功能 。 窗體如下圖： 圖 5－ 7 查看圖片窗口 37 加載 窗體時(shí)，調(diào)用 Private Sub Form_Resize()函數(shù)，設(shè)置窗體的寬度、高度和顯示方式，顯示圖片。 38 結(jié)論 圖片作為細(xì)節(jié)和實(shí)景的記錄載體，在反映和體現(xiàn)信息時(shí)有著文字不可替代的直觀性、生動(dòng)性和客觀性，是教學(xué)和研究中不可或 缺的直觀形象素材，同時(shí)讀圖也是獲取知識(shí)、啟迪心智的一種重要學(xué)習(xí)方式。其 基本功能已經(jīng)完成，能夠?qū)D片壓縮存儲(chǔ)在數(shù)據(jù)庫(kù)中，并能進(jìn)行一系列數(shù)據(jù)庫(kù)操作，實(shí)現(xiàn)添加、查詢、刪除等功能。 39 致謝 在這幾個(gè)月的畢業(yè)設(shè)計(jì)期間，導(dǎo)師和同學(xué)給我提供了很多寶貴的意見(jiàn)和建議，對(duì)我的畢業(yè)設(shè)計(jì)起了很大的幫助作用。 程序設(shè)計(jì)。數(shù)據(jù)庫(kù)系統(tǒng)與 Access 教程。 Visual Basic 案例開(kāi)發(fā)集錦。 ACCES VBA 數(shù)據(jù)庫(kù)開(kāi)發(fā)范例應(yīng)用 。 Database Programming —— with Access， SQL and Visual Basic。數(shù)據(jù)庫(kù)應(yīng)用技術(shù)－ Access2020。 Access 數(shù)據(jù)庫(kù)程序設(shè)計(jì)。 感謝 同班 同學(xué) 和同組同學(xué)的 慷慨幫助。 幾個(gè)月期間，學(xué)習(xí)了 Visual Basic 語(yǔ)言以及開(kāi)發(fā)環(huán)境，學(xué)習(xí)了數(shù)據(jù)庫(kù)的基本知識(shí)。 隨著計(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ì)。 4． 5 編碼實(shí)現(xiàn) 經(jīng)過(guò)以上的詳細(xì)設(shè)計(jì)，接下來(lái)就可以用編碼實(shí)現(xiàn)程序功能了。 窗體 調(diào)用 frmAddToDB窗體添加圖片時(shí)，單