公交查詢系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-展示頁(yè)
2024-08-12 15:32本頁(yè)面
【正文】 = False = False = False = 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 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 = 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 ) Handles = Me () 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 =
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1