【正文】 s ) Handles cmdstr = select * from [user] where [user_id] =39。 + + 39。 and [pwd]= 39。 + + 39。 and [style]= 39。 + + 39。 Try If (cmdstr) Then = True = (sender, e) = MsgBox( + 成功登陸 ) = 就緒 () Else MsgBox(請(qǐng)?zhí)顚?xiě)正確的用戶名、密碼和用戶類(lèi)型 !) 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 注銷(xiāo) ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 注銷(xiāo) = = 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 查詢(xún) ToolStripMenuItem1_Click(ByVal sender As , ByVal e As ) Handles 查詢(xún) = Me () End Sub Private Sub 預(yù)定查詢(xún) ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 預(yù)定查詢(xún) = 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 公交查詢(xún) 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。 + + 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。線路名稱(chēng) 39。,price as 39。費(fèi)用價(jià)格 39。,efficacy as 39。首站地址 39。,formula as 39。末站地址 39。 FROM gj Try = (CmdStr) Catch ex As Exception (ex) End Try 12 = End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Call kehuchaxun_Load(sender, e) End Sub Private Sub DisplayImg(ByVal str As String) (str) If (str).Rows(0).Item(0) Is Then = Nothing Else Dim imgbyte() As Byte = (str).Rows(0).Item(0) Dim imgmemory As New MemoryStream(imgbyte) = (imgmemory) End If End Sub Private Sub Button1_Click_1(ByVal sender As , ByVal e As ) Handles End Sub End Class 公 交 查 詢(xún) 信 息 界 面 Imports 公交查詢(xún) Imports Public Class gongjiaoxinxichakan Private row As Integer = 1 Private CmdStr As String Private sqlobject As SQL_Conn Private Sub DataGridView1_CellClick(ByVal sender A