【正文】 效果顯示。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 8) BackColor 屬性：設(shè)置 /返回背景色。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 12) DisabledPicture 屬性：設(shè)置 /返 回一個(gè)對(duì)圖像的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。 14) DragMode 屬性：設(shè)置 /返回一個(gè)值，確定在拖放操作中所用的方式。 16) FontBold 屬性：設(shè)置 /返回字體粗體樣式。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 20) FontName 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小。 23) MaskColor 屬性：設(shè)置 /返回一個(gè)在控件的圖片中作為掩碼的顏色。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。 3） DragDrop 事件：在 一個(gè)完整的拖放動(dòng)作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2 時(shí)，該事件發(fā)生。 5） GotFocus 事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。 7） KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。 9） KeyPress 事件：當(dāng)用戶按下或釋放 ANSI 一個(gè)鍵時(shí)發(fā)生。 11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 ? 復(fù)選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 5) DataChangeed 屬性：設(shè)置 /返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。 7) DataFormat 屬性：設(shè)置或返回 DataFormat 對(duì)象，用于數(shù)據(jù)綁 定。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。 13) Font 屬性：設(shè)置或返回字體的屬性。 15) Value 屬性：設(shè)置或返回控件的狀態(tài) 。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(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 值所決定。 3) Largechange 屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 ? 定時(shí)器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。為 false 時(shí)處于休眠狀態(tài) . 數(shù)據(jù)庫(kù)連接方式選擇 Visual 連接數(shù)據(jù)庫(kù)的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫(kù)鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)鏈接 。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫(kù)，在庫(kù)中建立一個(gè)表 Myset，給表添加四個(gè)字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 如果你的機(jī)器沒(méi)安裝有 Access，可通過(guò) VB 建庫(kù)。 20 世紀(jì) 70 年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)與非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)還有其他數(shù)據(jù) 結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。目前已成為關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言 Microsoft Access 介紹 : 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。 第一章 系統(tǒng)的分析 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想 本系統(tǒng)開(kāi)發(fā)目標(biāo)是服務(wù)于 人們查詢公交車路線信息 ,方便工作人員 日常出行 . 同時(shí)力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲(chǔ)安全 . 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 2． 2 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫(kù) ,技術(shù)上開(kāi)發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 人們出行公交車查詢 ,提高了工作人員辦事效率 ,節(jié)省了開(kāi)支 .所以具有經(jīng)濟(jì)上的可行性 . 社會(huì)上 :本系統(tǒng)同時(shí)也方便了廣大社會(huì) .所以具有社會(huì)可行性 . 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 主界面 按車次查詢 按起點(diǎn)終點(diǎn)查詢 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 3． 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) 信息表 : 3． 2 界面設(shè)計(jì)與代碼設(shè)計(jì) 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(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 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(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 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Public Sub showallstation() 39。 其思路是如果在啟動(dòng)界面中，用戶選擇了更新數(shù)據(jù)庫(kù)，則掃描整個(gè)數(shù) 據(jù)庫(kù)，并把不同的車站加到起始站中 39。 如果用戶沒(méi)有選擇更新數(shù)據(jù)庫(kù)，則直接從文件中讀取車站存放在起始站中 39。用戶選擇了更新數(shù)據(jù)庫(kù) 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。用于顯示列表中的標(biāo)題 For j = 0 To 2 If numt = 2 And j = 1 Then Exit Sub End If MSF1(j).Clear Dim i As Integer With MSF1(j) .Rows = 2 .Cols = NC + 3 .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。用于顯示按車站名進(jìn)行的查詢 showtitle (num) Dim j As Integer Dim i As Integer Dim mrc0 As Set mrc0 = New Set mrc0 = ExecuteSQL(txtsql) If = False Then With MSF1(num) .Rows = 2 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To If (i 1) Null Then .TextMatrix(.Row, i 1) = (i 1) End If Next i .Row = .Row + 1 Loop End With End If Set mrc0 = Nothing End Sub Public Sub showSEdata(s As String, e As String, numb As Integer) 39。其思路是掃描整個(gè)數(shù)據(jù)庫(kù)，如果在一條記錄中有起點(diǎn)站和終點(diǎn)站則把該記錄加到列表中 39。 用于記錄遞歸次數(shù) If digein = 3 Then 39。 該過(guò)程的作用是當(dāng)走起始站和終點(diǎn)站沒(méi)有直達(dá)的車時(shí)，查找所有的可用來(lái)轉(zhuǎn)車的車站名 39。 再掃描整個(gè) MSF1(1)，對(duì)于每一條記錄中的每一個(gè)車站，再掃描 MSF1(2)中的每一條記錄，如果該記錄中既包含該車站，又包含要查詢的終點(diǎn)站，則該車站符合要求 39。這可是我想了好久才想出來(lái)的喲 ^^ = False If bcbm = False Then = 正在搜索中 ... = 11 = 11 = 11 = 11 Dim strs As String Dim strm As String Dim bfirst As Boolean Dim bsec As Boolean Dim mrc3 As Set mrc3 = New Set mrc3 = Dim finishst() As Str