frmpopmenu.frm

包含了源代码,说明文档和可执行文件.为青岛公交查询系统.实现了模糊查询.

VERSION 5.00
Begin VB.Form frmPopmenu 
   Caption         =   "弹出式菜单"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu popmenu 
      Caption         =   "popmenu"
      Visible         =   0   'False
      Begin VB.Menu Popmenu_Addline 
         Caption         =   "添加线路信息"
      End
      Begin VB.Menu Popmenu_Changeline 
         Caption         =   "修改线路信息"
      End
      Begin VB.Menu Popmenu_Delline 
         Caption         =   "删除线路信息"
      End
   End
   Begin VB.Menu popmenu2 
      Caption         =   "popmenu2"
      Visible         =   0   'False
      Begin VB.Menu Popmenu_AddPlat 
         Caption         =   "添加站点信息"
      End
      Begin VB.Menu Popmenu_ChangePlat 
         Caption         =   "修改站点信息"
      End
      Begin VB.Menu Popmenu_DelPlat 
         Caption         =   "删除站点信息"
      End
   End
   Begin VB.Menu popmenu3 
      Caption         =   "popmenu3"
      Visible         =   0   'False
      Begin VB.Menu Popmenu_AddPlace 
         Caption         =   "添加地点信息"
      End
      Begin VB.Menu Popmenu_ChangePlace 
         Caption         =   "修改地点信息"
      End
      Begin VB.Menu Popmenu_DelPlace 
         Caption         =   "删除地点信息"
      End
   End
End
Attribute VB_Name = "frmPopmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Popmenu_AddLine_Click()                      '添加线路
    ichangeFlag = 1
    frmAddLine.Show
    frmAddLine.ZOrder 0
End Sub



Private Sub Popmenu_ChangeLine_Click()                  '修改线路信息
    If frmmanageLine.MSFlexGrid1.Rows > 1 Then
        strPublicSQL = "select * from LineInfo where [NO]="
        strPublicSQL = strPublicSQL & Trim(frmmanageLine.MSFlexGrid1.TextMatrix( _
                frmmanageLine.MSFlexGrid1.Row, 0))
        frmChangeLine.Show
        frmChangeLine.ZOrder 0
    Else
        Exit Sub
    End If
End Sub





Private Sub Popmenu_Delline_Click()                      '删除线路信息
    Dim sql As String
    Dim rs As New ADODB.Recordset
      sql = "delete from LineInfo where [NO]=" & Trim(frmmanageLine.MSFlexGrid1.TextMatrix( _
                frmmanageLine.MSFlexGrid1.Row, 0))
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
                                                                                    Then
        
            Call TransactSQL(sql, "shujuku")
            MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "提示!"
            sql = "select * from LineInfo order by [NO]"
            Call frmmanageLine.showTopic              '显示结果
            Call frmmanageLine.ShowData(sql)
        End If
    End Sub

Private Sub Popmenu_AddPlat_Click()                      '添加站点
    ichangeFlag = 1
    frmAddPlat.Show
    frmAddPlat.ZOrder 0
End Sub



Private Sub Popmenu_ChangePlat_Click()                  '修改站点信息
    If frmmanagePlat.MSFlexGrid1.Rows > 1 Then
        strPublicSQL = "select * from PlatInfo where PlatNO="
        strPublicSQL = strPublicSQL & Trim(frmmanagePlat.MSFlexGrid1.TextMatrix( _
                frmmanagePlat.MSFlexGrid1.Row, 0))
        frmChangePlat.Show
        frmChangePlat.ZOrder 0
    Else
        Exit Sub
    End If
End Sub





Private Sub Popmenu_DelPlat_Click()                      '删除站点信息
    Dim sql As String
    Dim rs As New ADODB.Recordset
      sql = "delete from PlatInfo where PlatNO=" & Trim(frmmanagePlat.MSFlexGrid1.TextMatrix( _
                frmmanagePlat.MSFlexGrid1.Row, 0))
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
                                                                                    Then
        
            Call TransactSQL(sql, "shujuku")
            MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "提示!"
            sql = "select * from PlatInfo order by PlatNO"
            Call frmmanagePlat.showTopic              '显示结果
            Call frmmanagePlat.ShowData(sql)
        End If
    End Sub


Private Sub Popmenu_AddPlace_Click()                      '添加地点
    ichangeFlag = 1
    frmAddPlace.Show
    frmAddPlace.ZOrder 0
End Sub



Private Sub Popmenu_ChangePlace_Click()                  '修改地点信息
    If frmmanagePlat.MSFlexGrid1.Rows > 1 Then
        strPublicSQL = "select * from PlaceInfo where PlaceNO="
        strPublicSQL = strPublicSQL & Trim(frmmanagePlace.MSFlexGrid1.TextMatrix( _
                frmmanagePlace.MSFlexGrid1.Row, 0))
        frmChangePlace.Show
        frmChangePlace.ZOrder 0
    Else
        Exit Sub
    End If
End Sub





Private Sub Popmenu_DelPlace_Click()                      '删除地点信息
    Dim sql As String
    Dim rs As New ADODB.Recordset
      sql = "delete from PlaceInfo where PlaceNO=" & Trim(frmmanagePlace.MSFlexGrid1.TextMatrix( _
                frmmanagePlace.MSFlexGrid1.Row, 0))
        If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
                                                                                    Then
        
            Call TransactSQL(sql, "shujuku")
            MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "提示!"
            sql = "select * from PlaceInfo order by PlaceNO"
            Call frmmanagePlace.showTopic              '显示结果
            Call frmmanagePlace.ShowData(sql)
        End If
    End Sub