【正文】 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。 第一章 系統(tǒng)的分析 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標和思想 本系統(tǒng)開發(fā)目標是服務于 人們查詢公交車路線信息 ,方便工作人員 日常出行 . 同時力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲安全 . 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 2． 2 系統(tǒng)的可行性分析 技術上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術上開發(fā)難度一般 . 經(jīng)濟上 :本系統(tǒng)服務于 人們出行公交車查詢 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟上的可行性 . 社會上 :本系統(tǒng)同時也方便了廣大社會 .所以具有社會可行性 . 第二章 系統(tǒng)的設計 3． 1 系統(tǒng)的功能結(jié)構設計 主界面 按車次查詢 按起點終點查詢 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 3． 2 系統(tǒng)的數(shù)據(jù)庫設計 信息表 : 3． 2 界面設計與代碼設計 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 1 關于界面設計 : 代碼設計 : 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 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 = False End If Load Form1 = False End Sub Private Sub Timer2_Timer() = True = False End Sub 2:主界面設計 : 代碼設計 : 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 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 Public Sub showallstation() 39。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。 如果你的機器沒安裝有 Access，可通過 VB 建庫。 3) Largechange 屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時 ,value 的改變量。 2） DragDrop 事件：在一個完整的拖放動作完成或使用 Drag 方法，并將其 Action 參數(shù)設置為 2 時發(fā)生。 9) DisabledPicture 屬性：設置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。 11） MouseMove 事件：在控件上移動鼠標時發(fā)生。 3） DragDrop 事件：在 一個完整的拖放動作或使用 Drag 方法，并將其Action 參數(shù)設置位 2 時，該事件發(fā)生。 18) FontStrikethru 屬性：設置 /返回字體刪除線樣式。 10) DataField 屬性：設置 /返回數(shù)據(jù)使用者將被綁定到的字段名。 2) Alignment 屬性：決定單選按鈕的標題在控件上的位置。 2) Maxlength 屬性：該屬性設定在文本框控件中能夠輸入的最大字符數(shù)。 6） KeyPress 事件：當用戶按下或松開一個 ANSI 鍵時發(fā)生。 13) DisabledPicture 屬性：設置 /返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得 Visual Basic 越來越適合一般的應用程序開發(fā)。而對于后者則要求應用程序功能完備 ,易使用等特點。各行各業(yè)的人們無須經(jīng)過特別的訓練就能夠使用電腦完成許許多多復雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。 經(jīng)過分析 ,我們使用 MICROSOFT 公司的 VISUAL BASIC 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時間內(nèi)建立系統(tǒng)應用原型 ,然后 ,對初始原型系統(tǒng)進行需求迭代 ,不斷修正和改進 ,直到形成用戶滿意的可行系統(tǒng)。正如 Bill Gate 所說，世界上絕大多數(shù)的 Windows應用程序是用 Visual Basic 編寫的。 14) MaskColor 屬性：設置 /返回一個在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設置返回 mandButton 控件中要顯示的圖片。 7） MouseDown 事件：當在命令按鈕上按下鼠標按鈕時發(fā)生。 3) Multline 屬性：該屬性設定 text 字符串中是否接受換行符。 3) Enable 屬性：該控件為灰色時為 false,表示運行時不可用。 11) DataFormat 屬性：設置 /返回 DataFormat 對象，一個綁定對象將附加到它。 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 19) FontUnderLine 屬性：設置 /返回字體下劃線樣式。 4） DragOver 事件： 在拖放操作正在進行時發(fā)生。 12） MouseUp 事件：在控件上釋放鼠標時發(fā)生。 10) DownPicture 屬性：設置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。 3） DragOver 事件：在拖放操作正在進行時發(fā)生。 4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 二、 利用 adodc（ ADO Data Control)進行數(shù)據(jù)庫鏈 接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設置和操作其屬性就可以實現(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ù)據(jù)庫 系統(tǒng)結(jié)構的對象類的集合 .他們提供了管理關系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(shù)據(jù)庫 ,定義表 ,字段和建立表間關系 ,定位和查詢數(shù)據(jù)庫等 . 關系數(shù)據(jù)庫 介紹 : 關系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應用數(shù)學方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關系。 以下代碼是用來把在數(shù)據(jù)庫的所有不同的車站顯示在起始站中 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 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With Next End Sub Public Sub showdata(num As Integer) 39。 其思路是先掃描整個數(shù)據(jù)庫，把有起始站的車站名的記錄存放在 MSF1(1)中，把有終點站的車站名的記錄存放在 MSF1(2)中 39。把轉(zhuǎn)發(fā)站作為終點站進行查詢 digeitemp = digein digein = 0 showSEdata , , 2 39。以下代碼寫得不是很好 ,有點亂的感覺 39。該算法有一大好處是極大的提高了查詢的速度，因為，在掃描整個數(shù)據(jù)庫時，沒有內(nèi)循環(huán)。用于顯示按起始站和終點站進行的查詢 39。 并把這些車站名存放在一文本框中，以用于下次讀取 39。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關系模型。 2) Enable 屬性 :為 true 時 (缺省值 ),激活定時器開始計時 。 5） OLECompleteDrag 事件：當源部件被放到目標時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 12) DragMode 屬性：設置返回一個值，確定在拖放操作中所用方式。 2) Index 屬性 :該屬性值為復選框控件數(shù)組的下標 . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號 ,為 2 表示灰色勾號 . 4) Container 屬性： Form 控件上的容器。 6） LostFocus 事件：當對象失去焦點時發(fā)生。 21) FontSize 屬性：設置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設置 /返回控件的高度。 13) DownPicture 屬性：設置 /返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 5) Passwordchar 屬性：該 屬性設定輸入文本的特殊顯示字符 ,在設計密碼程序時非常有用。 9） MouseUp 事件：當在命令按鈕上釋放鼠標按鈕時發(fā)生。命令按鈕的 Click 事件僅對當單擊鼠標時發(fā) 生。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。 關鍵字 :公交車查詢 管理 ,MIS,visual basic ,數(shù)據(jù)庫 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 Abstract With economic development, social progress, the puter and went to work learning and our daily lives, we bee an indispensable tool in everyday life. As science and technology continue to improve, puter science increasingly mature, and its powerful functions for the people to deeply understan