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