《案例集錦》word版

《《案例集錦》word版》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。

1、11案例一　我的桌面小鬧鐘案例集錦在前面的章節(jié)中講述了使用VB創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序的幾個(gè)范例，其實(shí)作為編程語(yǔ)言來(lái)說(shuō)，VB易于掌握和提高，可以極為迅速和簡(jiǎn)潔的創(chuàng)建Windows應(yīng)用程序，非常適合普通的用戶來(lái)編寫符合自己需要的實(shí)用小程序。在接下來(lái)的內(nèi)容中將向讀者介紹幾個(gè)用VB開(kāi)發(fā)實(shí)用小程序的方法，并且結(jié)合實(shí)例向讀者介紹VB編程中的許多技巧。案例一　我的桌面小鬧鐘一、概述在本例中將創(chuàng)建一個(gè)可以自動(dòng)跟隨鼠標(biāo)移動(dòng)的小鬧鐘，實(shí)時(shí)地顯示當(dāng)前計(jì)算機(jī)的時(shí)間，并且允許用戶添加、刪除和修改定時(shí)任務(wù)，這些任務(wù)將被保存在一個(gè)Access數(shù)據(jù)庫(kù)中，在設(shè)置的時(shí)間到達(dá)時(shí)，鬧鐘將用音樂(lè)警報(bào)，并彈

2、出消息框來(lái)提示用戶。其功能模塊圖如圖1.1所示。圖1.1　系統(tǒng)的功能模塊圖二、數(shù)據(jù)庫(kù)的準(zhǔn)備通過(guò)Access或者VB可視化數(shù)據(jù)管理器創(chuàng)建一個(gè)Access數(shù)據(jù)庫(kù)，在其中添加一個(gè)名為“任務(wù)列表”的數(shù)據(jù)表。該數(shù)據(jù)表的結(jié)構(gòu)如表1.1所示。表1.1　“任務(wù)列表”數(shù)據(jù)表的結(jié)構(gòu)字段名稱任務(wù)編號(hào)任務(wù)時(shí)間任務(wù)內(nèi)容任務(wù)狀態(tài)字段類型文本文本文本文本字段大小151510010主鍵是否否否三、應(yīng)用程序的編寫在VB中創(chuàng)建一個(gè)新的“標(biāo)準(zhǔn)EXE”工程，將其命名為“我的小鬧鐘”。在工程默認(rèn)的窗體Form1中添加一個(gè)圖片控件，兩個(gè)標(biāo)簽控件，一個(gè)時(shí)間控件，依表11.2至表11.5所示的內(nèi)容設(shè)置窗體和

3、控件的屬性。11案例一　我的桌面小鬧鐘表1.2　窗體Form1的屬性名稱BorderStyleShowInTaskBarForm10-NoneFalse表1.3　圖片控件的屬性名稱AppearanceBackColorBorderStylePicture10-Flat&H00FF8080&1-FixedSingle表1.4　標(biāo)簽控件的屬性名稱AlignmentBackStyleBorderStyleCaptionForeColorLabel1Label22-Center2-Center0-Transparent0-Transparent0-None0-None

4、我的小鬧鐘00:00:00&H00FFFFFF&&H80000012&表1.5　時(shí)間控件的屬性名稱EnableIntervalTimer1True100在控件箱窗體的空白部分右鍵單擊，在彈出的菜單中選擇“部件”，將打開(kāi)“部件”對(duì)話框，如圖1.2所示。圖1.2　“部件”對(duì)話框在“部件”對(duì)話框中選擇“控件”選項(xiàng)卡，在其列表中找到“MicrosoftMultimediaControl6.0”，在其前方的復(fù)選框中打勾，單擊“確定”按鈕，向工程中添加對(duì)MutimediaMCI控件的引用。在控件箱的最后將出現(xiàn)MutimediaMCI控件的圖標(biāo)，選中其圖標(biāo)，在Form1中繪

5、出其實(shí)例，如圖1.3所示，其屬性將在代碼中設(shè)置。11案例一　我的桌面小鬧鐘圖1.3　添加MutimediaMCI控件的Form1在工程中添加一個(gè)普通窗體Form2，如表1.7和表1.8所示為其設(shè)置屬性并添加菜單。表1.7　窗體Form2的屬性名稱BorderStyleCaptionShowInTaskBarForm21-FixedSingle任務(wù)列表True表1.8　窗體Form2的菜單標(biāo)題名稱復(fù)選縮進(jìn)等級(jí)菜單編輯任務(wù)列表跟隨鼠標(biāo)退出mnuMainmnuRWmnuGSmnuQuit不選中不選中選中不選中無(wú)縮進(jìn)縮進(jìn)縮進(jìn)縮進(jìn)在窗體上添加一個(gè)框架控件，兩個(gè)標(biāo)簽控件，

6、一個(gè)文本框控件和4個(gè)按鈕控件，并且同添加MutimediaMCI控件一樣，在窗體中添加MaskedEdit控件、ADOData控件和DataGrid控件并創(chuàng)建其實(shí)例。按照表1.9至表1.15所示內(nèi)容設(shè)置這些控件的屬性。表1.9　框架控件的屬性名稱CaptionFrame2任務(wù)表1.10　標(biāo)簽控件的屬性名稱AlignmentCaptionLabel1Label20-LeftJustfiy0-LeftJustfiy鬧響時(shí)間：任務(wù)內(nèi)容：表1.11　文本框控件的屬性名稱TextText1請(qǐng)輸入任務(wù)內(nèi)容11案例一　我的桌面小鬧鐘表1.12　按鈕控件的屬性名稱Captio

7、nCommand1新增任務(wù)Command2Command3Command4刪除任務(wù)修改任務(wù)關(guān)閉表1.13　MaskedEdit的屬性名稱FormatMaskPromptCharMaskEdBox1hh:mmAM/PM99:99_表1.14　ADOData控件的屬性名稱AlignmentVisibleAdodc12-vbAlignBottomFalse表1.15DataGrid控件的屬性名稱AllowAddNewAllowDelectAllowUpdateCaptionDataSourceDataGrid1FalseFalseFalse任務(wù)列表Adodc1完成后

8、的窗體Form2如圖1.4所示。圖1.