公交查詢系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-在線瀏覽
2024-09-07 15:32本頁面
【正文】 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 SubEnd 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。 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。,price as 39。,efficacy as 39。,formula as 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 SubEnd Class 公 交 職 員 管 理 界 面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。,style as 39。,id as 39。,name as 39。,tel as 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。 Cmd = SELECT id FROM [user] where id=39。 If = Then MsgBox(請輸入登陸賬號) () ElseIf (CmdStr) Then MsgBox(該登陸賬號已經(jīng)存在) () ElseIf = Then MsgBox(請輸入密碼) () ElseIf Then MsgBox(兩次密碼不一致) () () ElseIf = 請選擇 Then MsgBox(請選擇級別) () ElseIf = Then MsgBox(請輸入身份證號) () ElseIf (Cmd) Then MsgBox(該員工已經(jīng)存在) () ElseIf = Then MsgBox(請輸入姓名) () ElseIf = Then MsgBox(請輸入聯(lián)系方式) () Else
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1