【正文】 ：反映控件狀態(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? 。 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ā)生。 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 年代以后開發(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 介紹 : 使用 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)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 人們查詢公交車路線信息 ,方便工作人員 日常出行 . 同時(shí)力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲(chǔ)安全 . 2． 2 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫(kù) ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 人們出行公交車查詢 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會(huì)上 :本系統(tǒng)同時(shí)也方便了廣大社會(huì) .所以具有社會(huì)可行性 . 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) 主界面 按車次查詢 按起點(diǎn)終點(diǎn)查詢 信息表 : 3． 2 界面設(shè)計(jì)與代碼設(shè)計(jì) 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 = 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 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 String Dim finnum As Integer finnum = 0 MSF1(1).Clear MSF1(2).Clear Do While Not For i = 1 To NC strs = Text2(i).Text Select Case strs Case Exit For Case With MSF1(1) .Rows = .Rows + 1 For z = 1 To If (z 1) Null Then .TextMatrix(.Row, z 1) = (z 1) End If Next .Row = .Row + 1 End With Case With MSF1(2) .Rows = .Rows + 1 For j = 1 To If (j 1) Null Then .TextMatrix(.Row, j 1) = (j 1) End If Next .Row = .Row +