frm_quebusinfo.frm

vb+sql (sql server 2000)

VERSION 5.00
Begin VB.Form frm_quebusinfo 
   Caption         =   "查询公车信息"
   ClientHeight    =   1875
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4080
   LinkTopic       =   "Form1"
   ScaleHeight     =   11010
   ScaleWidth      =   15240
   StartUpPosition =   3  'Windows Default
   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 cmbbustype 
      DataField       =   "bustype"
      DataSource      =   "Adodc1"
      Height          =   315
      Left            =   1800
      TabIndex        =   3
      Text            =   "请选择"
      Top             =   840
      Width           =   1815
   End
   Begin VB.ComboBox cmbbusno 
      DataField       =   "busNO"
      DataSource      =   "Adodc1"
      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_quebusinfo"
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 businfo where 1=1"
If cmbbusno.ListIndex > 0 Then
    strSQL = strSQL + " and busno='" + cmbbusno.Text + "'"
End If
If cmbbustype.ListIndex > 0 Then
    strSQL = strSQL + " and bustype='" + cmbbustype.Text + "'"
End If
frm_bus.FGridDatatable.Clear
frm_bus.ShowTitle
frm_bus.loadData (strSQL)
frm_bus.Show
Unload Me
End Sub

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

OpenDB
strSQL = "Select Distinct busno from businfo"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic
    If Not objRS.EOF Then
        Do While Not objRS.EOF
            cmbbusno.AddItem objRS.Fields(0).Value
            objRS.MoveNext
        Loop
    objRS.Close
    
Else
    objRS.Close
    CloseDB
    MsgBox "请先设置公车信息", vbOKOnly
    
    Exit Sub
End If
strSQL = "Select Distinct bustype from businfo"
objRS.Open strSQL, objConn, 1, 3
    Do While Not objRS.EOF
            cmbbustype.AddItem objRS.Fields(0).Value
            objRS.MoveNext
        Loop
        
        
    objRS.Close
CloseDB

End Sub

Private Sub fault_Click()
Unload Me
End Sub