【正文】 18) Enabled 屬性：設(shè)置 /返回運行時 TextBox 是否相應(yīng)用戶事件 19) Font 屬性：設(shè)置 /返回字體屬性 20) ForeColor 屬性：設(shè)置 /返回文本的前景色 21) Height 屬性：設(shè)置 /返回 TextBox 的高度 22) IMEMode 屬 性：設(shè)置 /返回數(shù)值用來確定輸入方法編輯器的狀態(tài) 23) Index 屬性：設(shè)置 /返回唯一的標(biāo)識控件數(shù)組中該控件的編號 24) Left 屬性：設(shè)置 /返回 TextBox 控件的水平位置 25) Locked 屬性：設(shè)置 /返回 TextBox 中文本是否可編輯 26) LinkItem 屬性：設(shè)置 /返回 DDE 與另一個應(yīng)用程序會話時，傳給接受端的數(shù)據(jù) 27) MaxLength 屬性：設(shè)置 /返回一個值，指定在 TextBox 控件中能夠輸入的字符最大值 28) MouseIcon 屬性：設(shè)置 /返回自定義鼠標(biāo)的圖標(biāo) 29) Top 屬性：設(shè)置 /返回 TextBox 控件的垂直位置 30) Tag 屬性：存儲 過程所需的附加數(shù)據(jù) ? 文本框類的事件： 1） Change 事件：當(dāng)改變文本框內(nèi)容時發(fā)生 2） Click 事件：鼠標(biāo)單擊控件時發(fā)生 3） DblClick 事件：用鼠標(biāo)左鍵雙擊控件時發(fā)生 4） DragDrop 事件：在一個完整的拖放動作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時發(fā)生 5） DragOver 事件：在拖放操作正在進行時發(fā)生 6） GotFocus 事件：當(dāng)一個命令按鈕獲得焦點時發(fā)生 7） LinkClose 事件：當(dāng)一個 DDE 對話結(jié)束時發(fā)生 8） LinkError 事件：當(dāng)一個 DDE 對話框過程中出現(xiàn)錯誤時，該事件發(fā)生 9） KeyDown 事件： 當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生 10） Validate 事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的 Causes Validation 屬性值設(shè)置為 True ? 單選按鈕類的控件： 1) Caption 屬性：顯示在控件上的文本 ,是單選按鈕的標(biāo)題。 （ 2） 事件處理過程 命令按鈕 GotFoucs 事件處理過程為： Private Sub ObjectGotFocus（ Index As Integer） 3） LostFocus 事件：當(dāng)一個對象失去焦點時發(fā)生 4） KeyDown 事件：當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生 5） KeyUp 事件：當(dāng)命令按鈕具有焦點時釋放一個鍵時發(fā)生。 1． 2 系統(tǒng)簡介 本系統(tǒng)主要方便人們查詢自己的公交車路線 ,方便人們乘坐公交 . 本系統(tǒng)主要由以下幾大功能組成 : 一 . 按車次查詢模塊 二 . 按起終點站查詢 三 . 查找經(jīng)過站點最小的路線 1. 開發(fā)軟件介紹 Visual Basic Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。 它已經(jīng)深入到 日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。 因為本人能力有限，加上時間緊迫，所以設(shè)計出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機版，不能實現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進一步改進。 ? 命令按鈕類的事件： 1） 單擊事件―― Click 事件 （ 1） 觸發(fā)與適用 此事件是在一個命令按鈕對象上按下然后釋放一個鼠標(biāo)按鈕時發(fā)生。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動條。 12) DisabledPicture 屬性：設(shè)置 /返 回一個對圖像的引用，該圖片在控件無效時顯示在控件中。 5） GotFocus 事件： 當(dāng)獲的對象焦點時發(fā)生。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。 ? 定時器類類的控件： 1) Interval 屬性：表示定時的時間間隔 ,以毫秒為單位。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。用于顯示按車站名進行的查詢 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。把轉(zhuǎn)發(fā)站作為起點站進行查詢 digeitemp = digein End If End Sub Private Sub Command3_Click() Load map End Sub Private Sub Command4_Click() 39。 Trim() amp。用戶選擇了更新數(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。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 2) Mutselect 屬性 :可以設(shè)置列表框為單選或允許多選屬性 . 3) Selectd 屬性 :標(biāo)示一個數(shù)組 ,數(shù)組各元素為 : 4) Selected(0),selected(1)? ? 滾動條類的控件： 1) Value 屬性：滾動條上滑塊所在位置由 value 值所決定。 7) DataFormat 屬性：設(shè)置或返回 DataFormat 對象，用于數(shù)據(jù)綁 定。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標(biāo)單擊控件時發(fā)生。 8) BackColor 屬性：設(shè)置 /返回背景色。 3) Backstyle 屬性：用以指示標(biāo)簽是否透明 . 4) Bordstyle 屬性 :用以設(shè)定控件是否有邊框。 5) Cancel 屬性：該屬性決定按鈕是否為一個 ” 取消 ” 按鈕。 公交車查詢 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面 。現(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計訓(xùn)練，使用 Visual Basic 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應(yīng) 用程序了。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。 9） MouseUp 事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時發(fā)生。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 21) FontSize 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設(shè)置 /返回控件的高度。 2) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號 ,為 2 表示灰色勾號 . 4) Container 屬性： Form 控件上的容器。 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 并把這些車站名存放在一文本框中，以用于下次讀取 39。該算法有一大好處是極大的提高了查詢的速度，因為，在掃描整個數(shù)據(jù)庫時，沒有內(nèi)循環(huán)。還有要注意的一點是在顯示出了最近車站的線路后，為了返回開始查詢到的線路，我用了 MSF1(i)做為存儲 Dim intmin As Integer Dim intcount As Integer Dim alloks() As Integer Dim rs As Integer Dim oksn As Integer Dim strbij As String Dim bfin As Boolean intmin = 10000 If gcaf = 2 Then If = 查找經(jīng)過站點最小的線路 Then = 返回 oksn = 0 If MSF1(0).Visible = True Then ReDim alloks(MSF1(0).Rows) MSF1(1).Clear MSF1(1).Rows = MSF1(0).Rows For k = 0 To MSF1(0).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(0).TextMatrix(k, t) = Then Exit For End If MSF1(1).TextMatrix(k, t) = MSF1(0).TextMatrix(k, t) If bfin = False Then If = MSF1(0).TextMatrix(k, t) Or = MSF1(0).TextMatrix(k, t) Then If intcount = 9999 Then intcount = 0 Else intcount = intcount + 1 bfin = True End If Else If intcount 9999 Then intcount = intcount + 1 End If End If End If Next MSF1(1).TextMatrix(k, NC + 2) = MSF1(0).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(0).Clear rs = 1 With MSF1(0) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。該過程用到了遞歸主要是由于起始站和終點站可以互換 digein = digein + 1 39。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢 索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)