frm_quelineinfo.frm

一个长途汽车站收费管理系统

VERSION 5.00
Begin VB.Form frm_quelineinfo 
   Caption         =   "查询线路信息"
   ClientHeight    =   1875
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4080
   LinkTopic       =   "Form1"
   ScaleHeight     =   1875
   ScaleWidth      =   4080
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton fault 
      Caption         =   "取消"
      Height          =   375
      Left            =   2280
      TabIndex        =   5
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton Cmd_que 
      Caption         =   "查询"
      Height          =   375
      Left            =   1080
      TabIndex        =   4
      Top             =   1320
      Width           =   975
   End
   Begin VB.ComboBox cmbArrivalCity 
      Height          =   315
      Left            =   1800
      TabIndex        =   3
      Text            =   "请选择"
      Top             =   840
      Width           =   1815
   End
   Begin VB.ComboBox cmbDepartcity 
      Height          =   315
      Left            =   1800
      TabIndex        =   1
      Text            =   "请选择"
      Top             =   360
      Width           =   1815
   End
   Begin VB.Label Label2 
      Caption         =   "到达城市"
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "起始城市"
      Height          =   255
      Left            =   720
      TabIndex        =   0
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "frm_quelineinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cmd_que_Click()
    Dim strSQL As String
    strSQL = "Select * from buslineinfo where 1=1"
    If cmbDepartcity.ListIndex > 0 Then
        strSQL = strSQL + " and departcity='" + cmbDepartcity.Text + "'"
    End If
    If cmbArrivalCity.ListIndex > 0 Then
        strSQL = strSQL + " and Arrivalcity='" + cmbArrivalCity.Text + "'"
    End If
    frm_busline.FGridDatatable.Clear
    frm_busline.ShowTitle
    frm_busline.loadData (strSQL)
    frm_busline.Show
    Unload Me
End Sub

Private Sub Form_Load()
Dim strSQL As String
Dim i As Integer

OpenDB
strSQL = "Select Distinct DepartCity from buslineinfo"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic
    If Not objRS.EOF Then
        Do While Not objRS.EOF
            cmbDepartcity.AddItem objRS.Fields(0).Value
            objRS.MoveNext
        Loop
    objRS.Close
    
Else
    objRS.Close
    CloseDB
    MsgBox "请先设置线路", vbOKOnly
    Unload Me
End If
strSQL = "Select Distinct arrivalCity from buslineinfo"
objRS.Open strSQL, objConn, 1, 3
    Do While Not objRS.EOF
            cmbArrivalCity.AddItem objRS.Fields(0).Value
            objRS.MoveNext
        Loop
        
        
    objRS.Close
CloseDB

End Sub

Private Sub fault_Click()
Unload Me
End Sub