【正文】 extMatrix(k, t) If bfin = False Then If = MSF1(2).TextMatrix(k, t) Or = MSF1(2).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(0).TextMatrix(k, NC + 2) = MSF1(2).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(2).Clear With MSF1(2) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。把轉(zhuǎn)發(fā)站作為終點站進行查詢 digeitemp = digein digein = 0 showSEdata , , 2 39。 其思路是先掃描整個數(shù)據(jù)庫，把有起始站的車站名的記錄存放在 MSF1(1)中，把有終點站的車站名的記錄存放在 MSF1(2)中 39。 CStr(k) .ColWidth(k) = 1000 Next .TextMatrix(0, NC + 2) = 備注 .ColWidth(0) = 200 .ColWidth(NC + 1) = 1000 .FixedRows = 1 For i = 1 To NC .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With Next End Sub Public Sub showdata(num As Integer) 39。 以下代碼是用來把在數(shù)據(jù)庫的所有不同的車站顯示在起始站中 39。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。 二、 利用 adodc（ ADO Data Control)進行數(shù)據(jù)庫鏈 接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個訪問數(shù)據(jù)庫的界面 ,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對數(shù)據(jù)庫進行操縱 : 在 visual basic 中提供了兩種與 jet數(shù)據(jù)引擎接口的方法 :data控件與數(shù)據(jù)訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計關(guān)系數(shù)據(jù)庫 系統(tǒng)結(jié)構(gòu)的對象類的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(shù)據(jù)庫 ,定義表 ,字段和建立表間關(guān)系 ,定位和查詢數(shù)據(jù)庫等 . 關(guān)系數(shù)據(jù)庫 介紹 : 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。 4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。 3） DragOver 事件：在拖放操作正在進行時發(fā)生。 10) DownPicture 屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。 12） MouseUp 事件：在控件上釋放鼠標時發(fā)生。 4） DragOver 事件： 在拖放操作正在進行時發(fā)生。 19) FontUnderLine 屬性：設(shè)置 /返回字體下劃線樣式。 11) DataFormat 屬性：設(shè)置 /返回 DataFormat 對象，一個綁定對象將附加到它。 3) Enable 屬性：該控件為灰色時為 false,表示運行時不可用。 3) Multline 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。 7） MouseDown 事件：當(dāng)在命令按鈕上按下鼠標按鈕時發(fā)生。 14) MaskColor 屬性：設(shè)置 /返回一個在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設(shè)置返回 mandButton 控件中要顯示的圖片。正如 Bill Gate 所說，世界上絕大多數(shù)的 Windows應(yīng)用程序是用 Visual Basic 編寫的。 經(jīng)過分析 ,我們使用 MICROSOFT 公司的 VISUAL BASIC 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對初始原型系統(tǒng)進行需求迭代 ,不斷修正和改進 ,直到形成用戶滿意的可行系統(tǒng)。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得 Visual Basic 越來越適合一般的應(yīng)用程序開發(fā)。 13) DisabledPicture 屬性：設(shè)置 /返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。 6） KeyPress 事件：當(dāng)用戶按下或松開一個 ANSI 鍵時發(fā)生。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 2) Alignment 屬性：決定單選按鈕的標題在控件上的位置。 10) DataField 屬性：設(shè)置 /返回數(shù)據(jù)使用者將被綁定到的字段名。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 3） DragDrop 事件：在 一個完整的拖放動作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2 時，該事件發(fā)生。 11） MouseMove 事件：在控件上移動鼠標時發(fā)生。 9) DisabledPicture 屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。 2） DragDrop 事件：在一個完整的拖放動作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時發(fā)生。 3) Largechange 屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時 ,value 的改變量。 如果你的機器沒安裝有 Access，可通過 VB 建庫。 如果要保存數(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。用于顯示列表中的標題 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。 該過程的作用是當(dāng)走起始站和終點站沒有直達的車時，查找所有的可用來轉(zhuǎn)車的車站名 39。 showdata 0 = True End Sub Private Sub Command2_Click() = 查找經(jīng)過站點最小的線路 gcaf = 2 If = Then MsgBox 您沒有輸入要查詢的起點站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = Then MsgBox 您沒有輸入要查詢的終點站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = False Or = Then digein = 0 showSEdata , , 0 digeitemp = digein = True Else If Then = True End If digein = 0 showSEdata , , 1 39。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With rs = 1 For s = intpart To MSF1(1).Rows + MSF1(2).Rows 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(0).TextMatrix(s, r) = Then Exit For End If MSF1(2).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(2).Refresh End If Else If MSF1(0).Visible = True