【正文】 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è)在控件的圖片中作為掩碼的顏色。u 單選按鈕類(lèi)的常用事件：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ā)生。u 復(fù)選按鈕類(lèi)的控件：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)…u 滾動(dòng)條類(lèi)的控件：1) Value屬性：滾動(dòng)條上滑塊所在位置由value值所決定。3) Largechange屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí),value的改變量。u 定時(shí)器類(lèi)類(lèi)的控件：1) Interval屬性：表示定時(shí)的時(shí)間間隔,以毫秒為單位。為false時(shí)處于休眠狀態(tài).數(shù)據(jù)庫(kù)連接方式選擇Visual ：一是：用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ǔ)言Access介紹:使用Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類(lèi)型的信息創(chuàng)建一個(gè)表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢(xún)。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。Access 如果要分析數(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ù)于人們查詢(xún)公交車(chē)路線信息,方便工作人員日常出行.同時(shí)力求做到界面人性化,功能齊全,數(shù)據(jù)存儲(chǔ)安全.2．2 系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visual basic ,技術(shù)上開(kāi)發(fā)難度一般.經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于人們出行公交車(chē)查詢(xún),提高了工作人員辦事效率,.社會(huì)上:.第二章 系統(tǒng)的設(shè)計(jì)3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)主界面按車(chē)次查詢(xún)按起點(diǎn)終點(diǎn)查詢(xún)3．2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì):3．2 界面設(shè)計(jì)與代碼設(shè)計(jì)1關(guān)于界面設(shè)計(jì):代碼設(shè)計(jì):Option ExplicitDim bt As BooleanPrivate Sub Check1_Click()If = 0 Then = TrueElse = FalseEnd IfEnd SubPrivate Sub Form_Load()bt = TrueEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer()bt = FalseIf = 0 Then = TrueElse = FalseEnd IfLoad Form1 = FalseEnd SubPrivate Sub Timer2_Timer() = True = FalseEnd Sub2:主界面設(shè)計(jì):代碼設(shè)計(jì):Dim bcbm As BooleanDim bcb1 As BooleanDim bcbs As BooleanDim bcbe As BooleanDim tm As IntegerDim intpart As IntegerPublic IsBeginS As BooleanPublic Sub showallstation()39。 其思路是如果在啟動(dòng)界面中，用戶選擇了更新數(shù)據(jù)庫(kù)，則掃描整個(gè)數(shù)據(jù)庫(kù)，并把不同的車(chē)站加到起始站中39。 如果用戶沒(méi)有選擇更新數(shù)據(jù)庫(kù)，則直接從文件中讀取車(chē)站存放在起始站中39。用戶選擇了更新數(shù)據(jù)庫(kù)Dim strm As StringDim 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 1Set mrc3 = NothingElse 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) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。用于顯示按車(chē)站名進(jìn)行的查詢(xún)showtitle (num)Dim j As IntegerDim i As IntegerDim 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 = NothingEnd SubPublic 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á)的車(chē)時(shí)，查找所有的可用來(lái)轉(zhuǎn)車(chē)的車(chē)站名39。 再掃描整個(gè)MSF1(1)，對(duì)于每一條記錄中的每一個(gè)車(chē)站，再掃描MSF1(2)中的每一條記錄，如果該記錄中既包含該車(chē)站，又包含要查詢(xún)的終點(diǎn)站，則該車(chē)站符合要求39。這可是我想了好久才想出來(lái)的喲^^ = FalseIf bcbm = False Then = 正在搜索中... = 11 = 11 = 11 = 11Dim strs As StringDim strm As StringDim bfirst As BooleanDim bsec As BooleanDim mrc3 As Set mrc3 = New Set mrc3 = Dim finishst() As String Dim finnum As Integer finnum = 0 MSF1(1).Clear MSF1(2).ClearDo 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 + 1 End With End Select Next Loop For k = 0 To MSF1(1).Rows 1 For t = 0 To 1 strs = MSF1(1).TextMatrix(k, t) If strs = Then Exit For End If If finnum = 0 Then ReDim finishst(finnum) finishst(0) = strs Else For c = 0 To finnum If strs = finishst(c) Then Exit For End If Next If c finnum Then ReDim Preserve finishst(finnum) finishst(finnum) = strs finnum = finnum + 1 Else