发布时间 : 2024/5/19 21:32:06 星期日 文章公交查询系统的设计与实现更新完毕开始阅读fb415d5cbe23482fb4da4c9a

& \ If rs.EOF = False Then

rs.Fields(1).Value = Trim(Combo1) rs.Fields(2).Value = Trim(Combo2) rs.Fields(3).Value = Trim(Combo3) rs.Fields(4).Value = Trim(Combo4) rs.Update rs.Close

Set rs = Nothing ShowMSH

Command1(1).Enabled = False Command1(2).Enabled = False MsgBox \修改成功！\ Else

rs.Update rs.Close

Set rs = Nothing End If Exit Sub ErrH:

MsgBox Err.Description

End Sub

Private Sub DELXL() On Error GoTo ErrH

Dim rs As New ADODB.Recordset

rs.Open \* from 线路 where 名称='\& Trim(MSH.TextMatrix(MSH.RowSel, 0)) & \ If rs.EOF = False Then rs.Delete rs.Update rs.Close

Set rs = Nothing ShowMSH

Command1(1).Enabled = False Command1(2).Enabled = False MsgBox \删除成功！\ Else

rs.Update rs.Close

Set rs = Nothing End If

Exit Sub ErrH:

MsgBox Err.Description

End Sub

Private Sub MSH_Click()

If MSH.RowSel >= 1 Then

Text1(0) = MSH.TextMatrix(MSH.RowSel, 0) Combo1 = MSH.TextMatrix(MSH.RowSel, 1) Combo2 = MSH.TextMatrix(MSH.RowSel, 2) Combo3 = MSH.TextMatrix(MSH.RowSel, 3) Combo4 = MSH.TextMatrix(MSH.RowSel, 4)

Command1(1).Enabled = True Command1(2).Enabled = True End If End Sub

经过站点管理

Private Sub ShowMSH()

Dim rs As New ADODB.Recordset

rs.Open \* from 线路过站表 where 线路='\站点序号 asc\

Set MSH.DataSource = rs MSH.ColWidth(0) = 0 MSH.ColWidth(1) = 1100 MSH.ColWidth(2) = 2000 MSH.ColWidth(3) = 2000

rs.Close

Set rs = Nothing