【文章內(nèi)容簡介】 s 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。 + + 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。線路名稱 39。,price as 39。費用價格 39。,efficacy as 39。首站地址 39。,formula as 39。末站地址 39。 FROM gj Try = (CmdStr) Catch ex As Exception (ex) End Try = 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 公 交 職 員 管 理 界 面 14 Imports 公交查詢 Imports Public Class zhiyuanguanli Public userid As String Private row As Integer = 1 Private CmdStr As String Private Cmd As String Private sqlobject As SQL_Conn Private Sub zhiyuanguanli_Load(ByVal sender As , ByVal e As ) Handles sqlobject = New SQL_Conn CmdStr = SELECT user_id as 39。登陸賬號 39。,style as 39。員工級別 39。,id as 39。身份證號 39。,name as 39。職工姓名 39。,tel as 39。聯(lián)系方式 39。 FROM [user] Try = (CmdStr) Catch ex As Exception (ex) End Try = End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles CmdStr = SELECT user_id FROM [user] where user_id=39。 + + 39。 Cmd = SELECT id FROM [user] where id=39。 + + 39。 If = Then MsgBox(請輸入登陸賬號 ) () ElseIf (CmdStr) Then MsgBox(該登陸賬號已經(jīng)存在 ) () ElseIf = Then MsgBox(請輸入密碼 ) () ElseIf Then MsgBox(兩次密碼不一致 ) () () ElseIf = 請選擇 Then 15 MsgBox(請選擇級別 ) () ElseIf = Then MsgBox(請輸入身份證號 ) () ElseIf (Cmd) Then MsgBox(該員工已經(jīng)存在 ) () ElseIf = Then MsgBox(請輸入姓名 ) () ElseIf = Then MsgBox(請輸入聯(lián)系方式 ) () Else CmdStr = insert into [user] (user_id,pwd,style,id,name,tel,money)VALUES(39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + 0 + 39。) Try (CmdStr) MsgBox(添加成功 ) Call zhiyuanguanli_Load(sender, e) = = = = = = = 請選擇 Catch ex As Exception (ex) End Try End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim j As String j = 管理員 If = Then MsgBox(請選擇要刪除的員工 ) Else If = 管理員 Then CmdStr = select Style from [user] where Style=39。 + j + 39。 i = (CmdStr). If i 1 Then CmdStr = delete from [user] where id=39。 + + 39。 Try (CmdStr) If = userid Then MsgBox(刪除成功 ,請重新登錄 ) = = False 16 For Each ChildForm As Form In () Next (sender, e) () = 登錄 () Else MsgBox(刪除成功 ) End If Catch ex As Exception (ex) End Try Else : MsgBox(至少保留一個管理員用戶 ) End If Else CmdStr = delete from [user] where id=39。 + + 39。 Try (CmdStr) MsgBox(刪除成功 ) Catch ex As Exception (ex) End Try End If End If Call zhiyuanguanli_Load(sender, e) = = = = = = = 請選擇 End Sub 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).() = (4, row).() = = End If End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Call zhiyuanguanli_Load(sender, e) = = = 17 = = = = 請選擇 End Sub End Class 5 系 統(tǒng) 難 點 分 析 由于各個地區(qū)的公交車數(shù)據(jù)非常龐大 ,而且無