【正文】 Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生。3） DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。5） OLECompleteDrag事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。u 框架類的控件：1) List屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng)1) Listcount屬性:控件列表部分項(xiàng)目的個(gè)數(shù)。2) Max和min屬性：對(duì)value值的最大,最小進(jìn)行限制。4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。2) Enable屬性:為true時(shí)(缺省值),激活定時(shí)器開始計(jì)時(shí)。三是: (ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來大致對(duì)這幾種技術(shù)應(yīng)用介紹：一、 用data控件進(jìn)行數(shù)據(jù)庫鏈接.　第一步：給窗體添加一個(gè)Data控件。注意：請(qǐng)將庫文件存入程序所在目錄。二、 利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問數(shù)據(jù)庫的界面,用來實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三、 利用DAO對(duì)數(shù)據(jù)庫進(jìn)行操縱:在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對(duì)象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫的支持.,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.關(guān)系數(shù)據(jù)庫介紹:關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。MicrosoftMicrosoft在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。在打開一個(gè)窗體時(shí)，Microsoft將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。 amp。 39。打開數(shù)據(jù)庫 = False39。不可增加 = False 39。權(quán)限相關(guān) = FalseEnd IfSet = rs_readerExit Subloaderror: MsgBox End Sub 讀者管理模塊的設(shè)計(jì)與實(shí)現(xiàn):Private Sub Command1_Click()Dim sql As StringIf Trim() = Then MsgBox 讀者種類不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 借書數(shù)量不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 借書期限不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 有限期限不能為空, vbOKOnly + vbExclamation, Exit SubEnd Ifsql = select * from 讀者類別 where 種類名稱=39。 amp。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = CInt() (2) = CInt() (3) = CInt() MsgBox 添加讀者類別成功！, vbOKOnly, Else MsgBox 讀者類別重復(fù)！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd Sub3. 查詢讀者信息代碼分析:Private Sub Command1_Click()Dim rs_findreader As New Dim sql As StringIf = vbChecked Then sql = 讀者編號(hào)=39。 Trim( amp。 39。 amp。 ) amp。 Else sql = sql amp。 amp。 ) amp。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 讀者類別=39。 Trim( amp。 39。 and 讀者類別=39。 Trim( amp。 39。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findreader39。是39。否39。 amp。 39。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。參考文獻(xiàn)數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用 閃四清 清華大學(xué)出版社1999VisualVisual 羅光春 電子科技大學(xué)出版社2000Visual visual 周豐治 高等教育出版社2001軟件工程 楊文龍等 電子工業(yè)出版社2002管理信息系統(tǒng) 薛華成 清華大學(xué)出版社19991. 若不給自己設(shè)限，則人生中就沒有限制你發(fā)揮的藩籬。在紛雜的塵世里，為自己留下一片純靜的心靈空間，不管是潮起潮落，也不管是陰晴圓缺，你都可以免去浮躁，義無反顧，勇往直前，輕松自如地走好人生路上的每一步3. 花一些時(shí)間，總會(huì)看清一些事。有時(shí)候覺得自己像個(gè)神經(jīng)病。努力過后，才知道許多事情，堅(jiān)持堅(jiān)持，就過來了。歲月是有情的，假如你奉獻(xiàn)給她的是一些色彩，它奉獻(xiàn)給你的也是一些色彩。只有你自己才能把歲月描畫成一幅難以忘懷的人