📄 loginmodule.bas
字号:
Call connetion
cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = BuslastName(k)
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = BuslastName(k)
'执行command对象
Set rs = cmd.Execute
Do While Not rs.EOF
If rs("SiteName").Value = bussite(l) Then '公交线路换乘
BusSelect.BusList1.AddItem "您可以先乘坐第" & BusfirstName(i) & "公交车"
BusName(0) = BusfirstName(i)
BusSelect.BusList1.AddItem "接着转乘第" & BuslastName(k) & "车即可到达目的"
BusName(1) = BuslastName(k)
Exit Sub
End If
rs.MoveNext
Loop
Next
Else '无此站点
MsgBox "没有" & BusSelect.BusTxt2.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
BusSelect.BusTxt2.SelStart = 0
BusSelect.BusTxt2.SelLength = Len(BusSelect.BusTxt2.Text)
BusSelect.BusTxt2.SetFocus
Exit Sub
End If
Next
End If
Next
Else '无此站点
MsgBox "没有" & BusSelect.BusTxt1.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
BusSelect.BusTxt1.SelStart = 0
BusSelect.BusTxt1.SelLength = Len(BusSelect.BusTxt1.Text)
BusSelect.BusTxt1.SetFocus
End If
ElseIf BusSelect.BusOption5.Value = True Then
'先确定有哪些公交车经过站点
'=========================================================================================================
cmd.CommandText = "select * from SiteName where SiteName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = BusSelect.BusTxt1.Text
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = BusSelect.BusTxt1.Text
'执行command对象
Set rs = cmd.Execute
If Not rs.EOF Then
n = rs.RecordCount
ReDim BusfirstName(n)
For i = 0 To n - 1
BusfirstName(i) = rs("BusName").Value
rs.MoveNext
Next
rs.Close
'=========================================================================================================
'然后对每一俩公交车进行排除
'=========================================================================================================
For i = 0 To n - 1
Call connetion
cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = BusfirstName(i)
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = BusfirstName(i)
'执行command对象
Set rs = cmd.Execute
through = True
Do While Not rs.EOF
If rs("SiteName").Value = Trim(BusSelect.BusTxt2.Text) Then '直接到达
BusSelect.BusList1.AddItem "您可以直接乘坐第" & BusfirstName(i) & "公交车"
Exit Sub
Else '无直接到达
through = False
End If
rs.MoveNext
Loop
rs.Close
'======================================================================================================
'无直接到达
'======================================================================================================
If through = False Then
'=============================================================================================
Call connetion
cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = BusfirstName(i)
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = BusfirstName(i)
'执行command对象
Set rs = cmd.Execute
If Not rs.EOF Then
t = rs.RecordCount
ReDim bussite(t)
For p = 0 To t - 1
bussite(p) = rs("SiteName").Value
rs.MoveNext
Next
rs.Close
End If
For l = 0 To t
Call connetion
cmd.CommandText = "select * from SiteName where SiteName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = Trim(BusSelect.BusTxt2.Text)
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = Trim(BusSelect.BusTxt2.Text)
'执行command对象
Set rs = cmd.Execute
If Not rs.EOF Then
m = rs.RecordCount
ReDim BuslastName(m)
For j = 0 To m - 1
BuslastName(j) = rs("BusName").Value
rs.MoveNext
Next
rs.Close
For k = 0 To m - 1
Call connetion
cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = BuslastName(k)
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = BuslastName(k)
'执行command对象
Set rs = cmd.Execute
Do While Not rs.EOF
If rs("SiteName").Value = bussite(l) Then '公交线路换乘
BusSelect.BusList1.AddItem "您可以先乘坐第" & BusfirstName(i) & "公交车"
BusName(0) = BusfirstName(i)
BusSelect.BusList1.AddItem "接着转乘第" & BuslastName(k) & "车即可到达目的"
BusName(1) = BuslastName(k)
Exit Sub
End If
rs.MoveNext
Loop
Next
Else '无此站点
MsgBox "没有" & BusSelect.BusTxt2.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
BusSelect.BusTxt2.SelStart = 0
BusSelect.BusTxt2.SelLength = Len(BusSelect.BusTxt2.Text)
BusSelect.BusTxt2.SetFocus
Exit Sub
End If
Next
End If
Next
Else '无此站点
MsgBox "没有" & BusSelect.BusTxt1.Text & "站点的相关信息,请您确认是模糊查询还是精确查询", 48, "提示信息"
BusSelect.BusTxt1.SelStart = 0
BusSelect.BusTxt1.SelLength = Len(BusSelect.BusTxt1.Text)
BusSelect.BusTxt1.SetFocus
End If
End If
End Sub
Public Sub managebussite() '站点信息管理
Busmanage.BusList2.Clear
Call connetion
cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = Trim(Busmanage.BusTxt3.Text)
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = Trim(Busmanage.BusTxt3.Text)
'执行command对象
Set rs = cmd.Execute
If Not rs.EOF Then
n = rs.RecordCount
z = n
ReDim bussite(n, 3)
Busmanage.BusList2.AddItem "请点击列表框项查看相关信息"
Busmanage.BusList2.AddItem "第" & Busmanage.BusTxt3.Text & "公交车"
For i = 0 To rs.RecordCount - 1
If i = 0 Then
Busmanage.BusTxt4.Text = rs("SiteName").Value
Busmanage.BusList2.AddItem "始 点：" & rs("SiteName").Value
Busmanage.BusTxt6.Text = rs("SiteName").Value
ElseIf i = rs.RecordCount - 1 Then
Busmanage.BusTxt5.Text = rs("SiteName").Value
Busmanage.BusList2.AddItem "终 点：" & rs("SiteName").Value
Else
If i < 9 Then
Busmanage.BusList2.AddItem "第0" & (i + 1) & "站点：" & rs("SiteName").Value
Else
Busmanage.BusList2.AddItem "第" & (i + 1) & "站点：" & rs("SiteName").Value
End If
End If
bussite(i, 0) = rs("SiteName").Value
bussite(i, 1) = rs("SiteX").Value
bussite(i, 2) = rs("SiteY").Value
rs.MoveNext
Next
rs.Close
Set rs = Nothing
Set cnn = Nothing
Else
MsgBox "没有" & Busmanage.BusTxt3.Text & "公交车的相关信息,请您确认是否输入正确", 48, "提示信息"
Busmanage.BusTxt3.SelStart = 0
Busmanage.BusTxt3.SelLength = Len(Busmanage.BusTxt3.Text)
Busmanage.BusTxt3.SetFocus
End If
If Busmanage.BusOption8.Value = True Then
Busmanage.BusLabel11.Caption = "请选择要更改的站点然后更改您选中的公交站点名并直接回车"
ElseIf Busmanage.BusOption8.Value = True Then
Busmanage.BusLabel11.Caption = "请选择你要插入站点的后一位置更改您选中的公交站点名并直接回车"
End If
End Sub
Public Sub managebussiteedit() '站点信息管理
'Busmanage.BusList2.Clear
Set rs = New Recordset
Set cnn = New Connection
cnn.CursorLocation = adUseClient
cnn.Open "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "\data\" & "bus.mdb"
rs.Open "select * from SiteName where BusName=" & Trim(Busmanage.BusTxt3.Text) & ", cnn, adOpenStatic, adLockOptimistic"
rs.MoveFirst
' Call connetion
' cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'
' '设置para相关属性
' para.Type = adBSTR
' para.Direction = adParamInput
' para.Value = Busmanage.BusTxt3.Text
'
' '把para添加到参数集
' cmd.Parameters.Append para
' cmd.Parameters(0) = Busmanage.BusTxt3.Text
'
' '执行command对象
i = 0
Do While Not rs.EOF
rs("SiteName").Value = bussite(i, 0)
i = i + 1
rs.MoveNext
Loop
rs.Update
rs.Close
End Sub
Public Sub managebusline() '公交线路管理
Busmanage.BusList2.Clear
Call connetion
cmd.CommandText = "select * from SiteName where BusName=? order by BusNameID ASC"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = Busmanage.BusTxt3.Text
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = Busmanage.BusTxt3.Text
'执行command对象
Set rs = cmd.Execute
If Not rs.EOF Then
n = rs.RecordCount
ReDim bussite(n, 3)
Busmanage.BusList2.AddItem "请点击列表框项修改相关信息"
Busmanage.BusList2.AddItem "第" & Busmanage.BusTxt3.Text & "车"
bussite(0, 0) = Trim(Busmanage.BusTxt3.Text)
For i = 1 To rs.RecordCount
If i = 1 Then
bussite(i, 0) = rs("SiteName").Value
bussite(i, 1) = rs("SiteX").Value
bussite(i, 2) = rs("SiteY").Value
Busmanage.BusTxt4.Text = rs("SiteName").Value
Busmanage.BusList2.AddItem "始 点：" & rs("SiteName").Value
ElseIf i = rs.RecordCount Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -