【正文】 ly, 提示! Exit SubEnd Ifgcaf = 1 = False = FalseMSF1(0).Visible = TrueMSF1(1).Visible = FalseMSF1(2).Visible = Falsetxtsql = select *from bus where number = 39。其思路是先統(tǒng)計(jì)要經(jīng)過的車站個(gè)數(shù)，再把最小車站個(gè)數(shù)的線路顯示出來39。用來標(biāo)志用什么方式來進(jìn)行查詢For i = 0 To NCText2(i).Visible = FalseNextbcb1 = Falsebcbm = Falsebcbe = Falsebcbs = Falsedigein = 0digeitemp = 0showtitle (0)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 IfElseIf MSF1(0).Visible = True Then = 查找經(jīng)過站點(diǎn)最小的線路 MSF1(0).Clear With MSF1(0) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。showdata 0 = TrueEnd SubPrivate Sub Command2_Click() = 查找經(jīng)過站點(diǎn)最小的線路gcaf = 2If = Then MsgBox 您沒有輸入要查詢的起點(diǎn)站!, vbInformation + vbOKOnly, 提示! Exit SubEnd IfIf = Then MsgBox 您沒有輸入要查詢的終點(diǎn)站!, vbInformation + vbOKOnly, 提示! Exit SubEnd IfIf = False Or = Thendigein = 0 showSEdata , , 0 digeitemp = digein = TrueElse If Then = True End If digein = 0 showSEdata , , 1 39。 該過程的作用是當(dāng)走起始站和終點(diǎn)站沒有直達(dá)的車時(shí)，查找所有的可用來轉(zhuǎn)車的車站名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) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。第一章 系統(tǒng)的分析第一章 系統(tǒng)的分析2．1 系統(tǒng)開發(fā)的目標(biāo)和思想本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于人們查詢公交車路線信息,方便工作人員日常出行.同時(shí)力求做到界面人性化,功能齊全,數(shù)據(jù)存儲(chǔ)安全.2．2 系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visual basic ,技術(shù)上開發(fā)難度一般.經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于人們出行公交車查詢,提高了工作人員辦事效率,.社會(huì)上:.第二章 系統(tǒng)的設(shè)計(jì)3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)主界面按車次查詢按起點(diǎn)終點(diǎn)查詢3．2 系統(tǒng)的數(shù)據(jù)庫設(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。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言第二步：用Access建立一個(gè)名為Pad的數(shù)據(jù)庫，在庫中建立一個(gè)表Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。2) Mutselect屬性:可以設(shè)置列表框?yàn)閱芜x或允許多選屬性.3) Selectd屬性:標(biāo)示一個(gè)數(shù)組,數(shù)組各元素為:4) Selected(0),selected(1)…u 滾動(dòng)條類的控件：1) Value屬性：滾動(dòng)條上滑塊所在位置由value值所決定。15) Value屬性：設(shè)置或返回控件的狀態(tài)。7) DataFormat 屬性：設(shè)置或返回DataFormat對(duì)象，用于數(shù)據(jù)綁定。9） KeyPress事件：當(dāng)用戶按下或釋放ANSI一個(gè)鍵時(shí)發(fā)生。u 單選按鈕類的常用事件：1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。16) FontBold 屬性：設(shè)置/返回字體粗體樣式。8) BackColor 屬性：設(shè)置/返回背景色。8) Alignment屬性：設(shè)定控件中的文本對(duì)其方式9) Appearance屬性：設(shè)定一個(gè)對(duì)象在運(yùn)行時(shí)是否可以3D效果顯示。3) Backstyle屬性：用以指示標(biāo)簽是否透明.4) Bordstyle屬性:用以設(shè)定控件是否有邊框。2） 獲得焦點(diǎn)――GotFocus事件（1） 觸發(fā)與適用 當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過諸如Tab切換或單擊對(duì)象之類的用戶動(dòng)作，或在代碼中用SetFocus方法改變焦點(diǎn)來實(shí)現(xiàn)。5) Cancel屬性：該屬性決定按鈕是否為一個(gè)”取消”按鈕。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。公交車查詢管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用?，F(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用Visual Basic也一樣能夠開發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。關(guān)鍵字:公交車查詢管理,MIS,visual basic ,數(shù)據(jù)庫AbstractWith 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 understand that it has entered human society in various fields and is playing an increasingly important role. It has to go down to the daily work and life, such as word processing, information management, aided design, graphics and video processing, as well as education and training game entertainment. All people without special training will be able to use puters to plete numerous plex. However, although now the world has been filled with an overabundance of software, but they still can not meet the special needs of the various users, it also had to develop software suited to their particular needs. Professional Windows application software development before the work is needed in many professional knowledge and petence through special training. Different now, even if you have not received strict procedures designed training, the use of Visual Basic also like to develop a powerful, and suited to their special needs applications. Visual Basic inherited Basic language learn userfriendly features, and are particularly suited to new learner learning Windows system programming. Transportation vehicles using puter management information management system of a puter model cars line information technology application innovation in the puter before the public has not yet universal car enquiries are managed by the working people to operate manual enquiries. Now the general public enquiries have adopted puter intelligent vehicle management using the puter as a tool for automatic puter line management procedures to help people more effectively model cars line enquiries. Public enquiry management system is a typical car information management system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the