【正文】 s Integer = 1 Private CmdStr As String Private sqlobject As SQL_Conn Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As ) Handles If row And = 0 Then 13 row = = (0, row).() = (1, row).() = (2, row).() = (3, row).() = (0, row).() If Then CmdStr = select photo from gj where name=39。,formula as 39。,efficacy as 39。,price as 39。 DisplayImg(CmdStr) Else : = Nothing End If End If End Sub Private Sub kehuchaxun_Load(ByVal sender As , ByVal e As ) Handles sqlobject = New SQL_Conn CmdStr = SELECT name as 39。 Try If (cmdstr) Then = True = (sender, e) = MsgBox( + 成功登陸 ) = 就緒 () Else MsgBox(請?zhí)顚懻_的用戶名、密碼和用戶類型 !) End If Catch ex As Exception (ex) End Try End Sub Private Sub Login_Load(ByVal sender As , ByVal e As ) Handles 8 = 0 sqlobject = New SQL_Conn = main End Sub End Class 本系統(tǒng)的界面和源 代碼 ． 1 管 理 員 登 陸 成 功 界 面 Imports Public Class main Public m_Login As Boolean = False Public m_style As String Public OPErr As New OutputErr Private sqlobject As SQL_Conn Private CmdStr As String Public Sub main_Load(ByVal sender As , ByVal e As ) Handles If m_Login = False Then = False = False = False = True = False = True = False = False = False = False 9 = Me () Else = True = True = False = True = False = True = True = True = True If m_style = 管理員 Then = True = True = True ElseIf m_style = 職員 Then = True = True = False End If End If End Sub Private Sub 退出 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 退出 () End Sub Private Sub 注銷 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 注銷 = = False For Each ChildForm As Form In () Next main_Load(sender, e) () = 登錄 End Sub Private Sub ToolStripButton7_Click(ByVal sender As , ByVal e As ) Handles = = False For Each ChildForm As Form In () Next main_Load(sender, e) () = 登錄 End Sub 10 Private Sub 登錄 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 登錄 () End Sub Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles = Now End Sub Private Sub ToolStripButton6_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub 添加 ToolStripMenuItem1_Click(ByVal sender As , ByVal e As ) Handles 添加 = Me () End Sub Private Sub 查詢 ToolStripMenuItem1_Click(ByVal sender As , ByVal e As ) Handles 查詢 = Me () End Sub Private Sub 預(yù)定查詢 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 預(yù)定查詢 = Me () End Sub Private Sub 添加職員 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 添加職員 = Me () End Sub Private Sub ToolStripButton5_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub ToolStripButton8_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 使用方法 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) MsgBox(點(diǎn)擊相應(yīng)的圖標(biāo)選擇需要的功能，選擇菜單、客戶等內(nèi)容時(shí)，直接點(diǎn)擊數(shù)據(jù)表 ) End Sub Private Sub ToolStripButton1_Click(ByVal sender As , ByVal e As ) 11 Handles = Me () End Sub End Class 公 交 信 息 修 改 界 面 Imports 公交查詢 Imports Public Class gongjiaoxinxichakan Private row As Integer = 1 Private CmdStr As String Private sqlobject As SQL_Conn Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As ) Handles If row And = 0 Then row = = (0, row).() = (1, row).() = (2, row).() = (3, row).() = (0, row).() If Then CmdStr = select photo from gj where name=39。 and [style]= 39。 and [pwd]= 39。 4 系統(tǒng)詳細(xì)設(shè)計(jì) 代碼設(shè)計(jì) 采用 dreamweaver 工具開發(fā)客戶端用戶體驗(yàn)，制作 JSP 網(wǎng)頁然后使用 Tomcat 作為服務(wù)器連接 SQL數(shù)據(jù)庫 人機(jī)界面設(shè)計(jì) 7 、 Imports Imports Public Class Login Private sqlobject As SQL_Conn Private cmdstr As String Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles cmdstr = select * from [user] where [user_id] =39。數(shù)據(jù)庫結(jié)構(gòu)如何設(shè)計(jì)無疑在整個(gè)系統(tǒng)設(shè)計(jì)中占有重要的地位，所以我們在開發(fā)一個(gè)系統(tǒng)之前，一定要考慮好數(shù)據(jù)庫該怎么設(shè)計(jì)，怎么樣設(shè)計(jì)方便接口實(shí)現(xiàn)和界面顯示。結(jié)構(gòu) 如下 : 表中 bus_number 用來保存車次，數(shù)據(jù)類型定義為數(shù)字； bus_station1, bus_station2, bus_station3, bus_station4 用來保存站點(diǎn)，類型定義為文本，但對于