【文章內(nèi)容簡介】 taFormat 對象，用于數(shù)據(jù)綁 定。 8) Datasource 屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 10) DownPicture 屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時(shí)顯示。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。 12) DragMode 屬性：設(shè)置返回一個(gè)值，確定在拖放操作中所用方式。 13) Font 屬性：設(shè)置或返回字體的屬性。 14) Name 屬性：設(shè)置或返回控件的標(biāo)識名。 15) Value 屬性：設(shè)置或返回控件的狀態(tài) 。 ? 復(fù)選按鈕類的控件的基本事件： 1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 3） DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。 4） GotFocus 事件：在對象獲的焦點(diǎn)時(shí)發(fā)生。， 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。 ? 框架類的控件： 1) List 屬性：列表框 控件的表項(xiàng)是使用數(shù)組的方式保存 ,數(shù)組的每一個(gè)元素存儲列表控件的一個(gè)表項(xiàng) 1) Listcount 屬性 :控件列表部分項(xiàng)目的個(gè)數(shù)。 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 2) Mutselect 屬性 :可以設(shè)置列表框?yàn)閱芜x或允許多選屬性 . 3) Selectd 屬性 :標(biāo)示一個(gè)數(shù)組 ,數(shù)組各元素為 : 4) Selected(0),selected(1)? ? 滾動(dòng)條類的控件： 1) Value 屬性：滾動(dòng)條上滑塊所在位置由 value 值所決定。 2) Max 和 min 屬性：對 value 值的最大 ,最小進(jìn)行限制。 3) Largechange 屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。 ? 定時(shí)器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。 2) Enable 屬性 :為 true 時(shí) (缺省值 ),激活定時(shí)器開始計(jì)時(shí) 。為 false 時(shí)處于休眠狀態(tài) . 數(shù)據(jù)庫連接方式選擇 Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。三是 : 利用 DataEnvironment 進(jìn)行數(shù)據(jù)庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進(jìn)行編程 :現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 . 第一步：給窗體添加一個(gè) Data 控件。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫，在庫中建立一個(gè)表 Myset，給表添加四個(gè)字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 二、 利用 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)對數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對數(shù)據(jù)庫進(jìn)行操縱 : 在 visual basic 中提供了兩種與 jet數(shù)據(jù)引擎接口的方法 :data控件與數(shù)據(jù)訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫 系統(tǒng)結(jié)構(gòu)的對象類的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(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)。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù) 結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù) ；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)， Microsoft Access 將從一個(gè)或多個(gè)表中檢 索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。 第一章 系統(tǒng)的分析 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 人們查詢公交車路線信息 ,方便工作人員 日常出行 . 同時(shí)力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲安全 . 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 2． 2 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 人們出行公交車查詢 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會上 :本系統(tǒng)同時(shí)也方便了廣大社會 .所以具有社會可行性 . 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 主界面 按車次查詢 按起點(diǎn)終點(diǎn)查詢 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 信息表 : 3． 2 界面設(shè)計(jì)與代碼設(shè)計(jì) 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 1 關(guān)于界面設(shè)計(jì) : 代碼設(shè)計(jì) : Option Explicit Dim bt As Boolean Private Sub Check1_Click() If = 0 Then = True Else = False End If End Sub Private Sub Form_Load() bt = True End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() bt = False If = 0 Then = True Else 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 = False End If Load Form1 = False End Sub Private Sub Timer2_Timer() = True = False End Sub 2:主界面設(shè)計(jì) : 代碼設(shè)計(jì) : Dim bcbm As Boolean Dim bcb1 As Boolean Dim bcbs As Boolean Dim bcbe As Boolean Dim tm As Integer Dim intpart As Integer Public IsBeginS As Boolean 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Public Sub showallstation() 39。 以下代碼是用來把在數(shù)據(jù)庫的所有不同的車站顯示在起始站中 39。 其思路是如果在啟動(dòng)界面中，用戶選擇了更新數(shù)據(jù)庫，則掃描整個(gè)數(shù) 據(jù)庫，并把不同的車站加到起始站中 39。 并把這些車站名存放在一文本框中，以用于下次讀取 39。 如果用戶沒有選擇更新數(shù)據(jù)庫，則直接從文件中讀取車站存放在起始站中 39。 這樣做的好處是可以大大提高效率，如果每次啟動(dòng)都要重新檢索數(shù)據(jù)庫，則要花費(fèi)大量的時(shí)間 If IsBeginS = False Then 39。用戶選擇了更新數(shù)據(jù)庫 Dim strm As String Dim mrc3 As Set mrc3 = New Set mrc3 = Do While Not For i = 1 To NC strm = Text2(i).Text If strm = Then Exit For End If For j = 0 To If (j) = Trim(strm) Then Exit For End If Next If j Then Trim(strm) End If Next Loop If Mid(, Len() 1, 1) \ Then Open + \ For Output As 1 Else Open + For Output As 1 End If Print 1, CStr() For k = 0 To 1 Print 1, , (k) Next Close 1 Set mrc3 = Nothing Else 39。用戶沒有選擇了更新數(shù)據(jù)庫 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Dim strbs As String Dim intnb As Integer If Mid(, Len() 1, 1) \ Then Open + \ For Input As 1 Else Open + For Input As 1 End If Input 1, strbs intnb = CInt(Val(strbs)) For k = 0 To intnb 1 I