评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

公交车查询系统+vb(一)毕业论文(5)

2013-05-09 18:15 ix(0, NC + 2) = "备注"
    .ColWidth(0) = 200
    .ColWidth(NC + 1) = 1000
    .FixedRows = 1
    For i = 1 To NC
      .ColAlignment(i) = 0
    Next i
    .FillStyle = flexFillSingle
    .Col = 0
    .Row = 0
    .RowSel = 1
    .ColSel = .Cols - 1
    .CellAlignment = 4
    .Row = 1
    End With
    Next
End Sub

Public Sub showdata(num As Integer)
'用于显示按车站名进行的查询
showtitle (num)
Dim j As Integer
Dim i As Integer

Dim mrc0 As ADODB.Recordset
Set mrc0 = New ADODB.Recordset
 Set mrc0 = ExecuteSQL(txtsql)
 If mrc0.EOF = False Then
   mrc0.MoveFirst
   With MSF1(num)
    .Rows = 2
    .Row = 1
    Do While Not mrc0.EOF
     .Rows = .Rows + 1
     For i = 1 To mrc0.Fields.Count
       If mrc0.Fields(i - 1) <> "Null" Then
      .TextMatrix(.Row, i - 1) = mrc0.Fields(i - 1)
      End If
     Next i
      .Row = .Row + 1
     mrc0.MoveNext
    Loop
 End With
 End If
 
  Set mrc0 = Nothing
End Sub

Public Sub showSEdata(s As String, e As String, numb As Integer)
'用于显示按起始站和终点站进行的查询
'其思路是扫描整个数据库，如果在一条记录中有起点站和终点站则把该记录加到列表中 本文来自中国科教评价网
'该过程用到了递归主要是由于起始站和终点站可以互换
digein = digein + 1 ' 用于记录递归次数
If digein = 3 Then '第三次递归的时候，退出
  a = MsgBox("没有直达的车次!您是否需要转车?", vbInformation + vbOKCancel, "询问")
  If a = vbOK Then
    Label5.Visible = True
    Cbm.Visible = True
    MSF1(0).Visible = False
  End If
Exit Sub
End If
showtitle (numb)
Dim j As Integer
Dim i As Integer
Dim m As Integer
Dim k As Integer
Dim ball As Boolean
Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
 Set mrc = Adodc1.Recordset
   mrc.MoveFirst
   With MSF1(numb)
    .Rows = 2
    .Row = 1
    Do While Not mrc.EOF
    ball = False
    For m = 1 To NC
      If Text2(m).Text = Trim(s) Then
        ball = True
       Exit For
      End If
    Next
    If ball = True Then
    For k = m To NC
      If Text2(k).Text = Trim(e) Then
          Exit For
       End If
    Next
    End If
    If ball = True And k <> NC + 1 Then
     .Rows = .Rows + 1
     For i = 1 To mrc.Fields.Count
       If mrc.Fields(i - 1) <> "Null" Then
      .TextMatrix(.Row, i - 1) = mrc.Fields(i - 1)
      End If

     Ne