【正文】 ShowMSH Command1(1).Enabled = False Command1(2).Enabled = False MsgBox 修改成功！ Else Set rs = Nothing End If Exit SubErrH: MsgBox End SubPrivate Sub DELZD() On Error GoTo ErrH Dim rs As New select * from 站點(diǎn) where 名稱=39。 amp。 Trim((, 0)) amp。 39。, Cnn, adOpenDynamic, adLockOptimistic If = False Then Set rs = Nothing ShowMSH Command1(1).Enabled = False Command1(2).Enabled = False MsgBox 刪除成功！ Else Set rs = Nothing End If Exit SubErrH: MsgBox End SubPrivate Sub MSH_Click() If = 1 Then Text1(0) = (, 0) Command1(1).Enabled = True Command1(2).Enabled = True End IfEnd Sub線路信息管理 Private Sub ShowMSH() Dim rs As New select * from 線路, Cnn Set = rs (0) = 1100 (1) = 2000 (2) = 2000 (3) = 1200 (4) = 1200 Set rs = Nothing End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 ADDXL Case 1 UPTXL Case 2 DELXL Case 4 Unload Me End SelectEnd SubPrivate Sub Form_Load() ShowMSH Dim rs As New select * from 站點(diǎn), Cnn, adOpenDynamic, adLockOptimistic If = False Then Do While Not Trim((0)) Trim((0)) Loop End If Set rs = Nothing End SubPrivate Sub ADDXL() On Error GoTo ErrH Dim rs As New select * from 線路, Cnn, adOpenDynamic, adLockOptimistic (0).Value = Trim(Text1(0)) (1).Value = Trim(Combo1) (2).Value = Trim(Combo2) (3).Value = Trim(Combo3) (4).Value = Trim(Combo4) Set rs = Nothing ShowMSH MsgBox 添加成功！ Exit SubErrH: MsgBox End SubPrivate Sub UPTXL() On Error GoTo ErrH Dim rs As New select * from 線路 where 名稱=39。 amp。 Trim((, 0)) amp。 39。, Cnn, adOpenDynamic, adLockOptimistic If = False Then (1).Value = Trim(Combo1) (2).Value = Trim(Combo2) (3).Value = Trim(Combo3) (4).Value = Trim(Combo4) Set rs = Nothing ShowMSH Command1(1).Enabled = False Command1(2).Enabled = False MsgBox 修改成功！ Else Set rs = Nothing End If Exit SubErrH: MsgBox End SubPrivate Sub DELXL() On Error GoTo ErrH Dim rs As New select * from 線路 where 名稱=39。 amp。 Trim((, 0)) amp。 39。, Cnn, adOpenDynamic, adLockOptimistic If = False Then Set rs = Nothing ShowMSH Command1(1).Enabled = False Command1(2).Enabled = False MsgBox 刪除成功！ Else Set rs = Nothing End If Exit SubErrH: MsgBox End SubPrivate Sub MSH_Click() If = 1 Then Text1(0) = (, 0) Combo1 = (, 1) Combo2 = (, 2) Combo3 = (, 3) Combo4 = (, 4) Command1(1).Enabled = True Command1(2).Enabled = True End IfEnd Sub經(jīng)過(guò)站點(diǎn)管理 Private Sub ShowMSH() Dim rs As New select * from 線路過(guò)站表 where 線路=39。 amp。 Trim(Combo1) amp。 39。order by 站點(diǎn)序號(hào) asc, Cnn Set = rs (0) = 0 (1) = 1100 (2) = 2000 (3) = 2000 Set rs = Nothing End SubPrivate Sub Combo1_Click() If Trim(Combo1) = Then MsgBox 請(qǐng)選擇線路！ Exit Sub End If Dim rs As New select 站點(diǎn)序號(hào) from 線路過(guò)站表 where 線路=39。 amp。 Trim(Combo1) amp。 39。order by 站點(diǎn)序號(hào) desc, Cnn If = True Then Text1(0) = 1 Else Text1(0) = (0) + 1 End If select * from 線路過(guò)站表 where 線路=39。 amp。 Trim(Combo1) amp。 39。order by 站點(diǎn)序號(hào) asc, Cnn Set = rs (0) = 0 (1) = 1100 (2) = 2000 (3) = 2000 Set rs = Nothing End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 ADDXL Case 1 UPTXL Case 2 DELXL Case 4 Unload Me End SelectEnd SubPrivate Sub Form_Load() 39。ShowMSH Dim rs As New select * from 站點(diǎn), Cnn, adOpenDynamic, adLockOptimistic If = False Then Do While Not 39。 Trim((0)) Trim((0)) Loop End If select * from 線路, Cnn, adOpenDynamic, adLockOptimistic If = False Then Do While Not Trim((0)) Loop End If Set rs = Nothing End SubPrivate Sub ADDXL() On Error GoTo ErrH Dim rs As New select * from 線路過(guò)站表, Cnn, adOpenDynamic, adLockOptimistic (1).Value = Trim(Combo1) (2).Value = Trim(Text1(0)) (3).Value = Trim(Combo2) Set rs = Nothing ShowMSH MsgBox 添加成功！ Exit SubErrH: MsgBox End SubPrivate Sub UPTXL() On Error GoTo ErrH Dim rs As New select * from 線路過(guò)站表 where 記錄號(hào)= amp。 Trim((, 0)) amp。 , Cnn, adOpenDynamic, adLockOptimistic If = False Then (1).Value = Trim(Combo1) (2).Value = Trim(Text1(0)) (3).Value = Trim(Combo2) Set rs = Nothing ShowMSH Command1(1).Enabled = False Command1(2).Enabled = False MsgBox 修改成功！ Else