📄 frmchangeline.frm
字号:
End
Begin VB.Label Label34
Caption = "站 点31:"
Height = 375
Left = 480
TabIndex = 73
Top = 8160
Width = 975
End
Begin VB.Label Label33
Caption = "站 点30:"
Height = 255
Left = 4080
TabIndex = 72
Top = 7680
Width = 975
End
Begin VB.Label Label32
Caption = "站 点29:"
Height = 255
Left = 480
TabIndex = 71
Top = 7680
Width = 975
End
Begin VB.Label Label31
Caption = "站 点28:"
Height = 255
Left = 4080
TabIndex = 70
Top = 7200
Width = 975
End
Begin VB.Label Label30
Caption = "站 点27:"
Height = 255
Left = 480
TabIndex = 69
Top = 7200
Width = 975
End
Begin VB.Label Label29
Caption = "站 点26:"
Height = 255
Left = 4080
TabIndex = 68
Top = 6720
Width = 975
End
Begin VB.Label Label28
Caption = "站 点25:"
Height = 255
Left = 480
TabIndex = 67
Top = 6720
Width = 975
End
Begin VB.Label Label27
Caption = "站 点24:"
Height = 255
Left = 4080
TabIndex = 66
Top = 6240
Width = 975
End
Begin VB.Label Label26
Caption = "站 点23:"
Height = 255
Left = 480
TabIndex = 65
Top = 6240
Width = 975
End
Begin VB.Label Label25
Caption = "站 点22:"
Height = 255
Left = 4080
TabIndex = 64
Top = 5760
Width = 975
End
Begin VB.Label Label24
Caption = "站 点21:"
Height = 375
Left = 480
TabIndex = 63
Top = 5760
Width = 975
End
Begin VB.Label Label23
Caption = "站 点20: "
Height = 255
Left = 4080
TabIndex = 62
Top = 5280
Width = 975
End
Begin VB.Label Label22
Caption = "站 点19: "
Height = 375
Left = 480
TabIndex = 61
Top = 5280
Width = 975
End
Begin VB.Label Label21
Caption = "站 点18: "
Height = 255
Left = 4080
TabIndex = 60
Top = 4800
Width = 975
End
Begin VB.Label Label20
Caption = "站 点17: "
Height = 255
Left = 480
TabIndex = 59
Top = 4800
Width = 975
End
Begin VB.Label Label19
Caption = "站 点16: "
Height = 255
Left = 4080
TabIndex = 58
Top = 4320
Width = 975
End
Begin VB.Label Label18
Caption = "站 点15: "
Height = 255
Left = 480
TabIndex = 57
Top = 4320
Width = 975
End
Begin VB.Label Label17
Caption = "站 点14: "
Height = 255
Left = 4080
TabIndex = 56
Top = 3840
Width = 975
End
Begin VB.Label Label16
Caption = "站 点13: "
Height = 255
Left = 480
TabIndex = 55
Top = 3840
Width = 975
End
Begin VB.Label Label15
Caption = "站 点12:"
Height = 255
Left = 4080
TabIndex = 54
Top = 3360
Width = 975
End
Begin VB.Label Label14
Caption = "站 点11: "
Height = 255
Left = 480
TabIndex = 53
Top = 3360
Width = 975
End
Begin VB.Label Label12
Caption = "站 点9: "
Height = 375
Left = 480
TabIndex = 21
Top = 2880
Width = 975
End
Begin VB.Label Label11
Caption = "站 点10: "
Height = 375
Left = 4080
TabIndex = 20
Top = 2880
Width = 975
End
Begin VB.Label Label10
Caption = "站 点7: "
Height = 375
Left = 480
TabIndex = 19
Top = 2400
Width = 975
End
Begin VB.Label Label9
Caption = "站 点8: "
Height = 375
Left = 4080
TabIndex = 18
Top = 2400
Width = 975
End
Begin VB.Label Label8
Caption = "站 点5: "
Height = 375
Left = 480
TabIndex = 17
Top = 1920
Width = 975
End
Begin VB.Label Label7
Caption = "站 点6: "
Height = 375
Left = 4080
TabIndex = 16
Top = 1920
Width = 975
End
Begin VB.Label Label6
Caption = "站 点4: "
Height = 375
Left = 4080
TabIndex = 15
Top = 1440
Width = 975
End
Begin VB.Label Label5
Caption = "站 点3: "
Height = 375
Left = 480
TabIndex = 14
Top = 1440
Width = 975
End
Begin VB.Label Label4
Caption = "站 点1: "
Height = 375
Left = 480
TabIndex = 13
Top = 960
Width = 855
End
Begin VB.Label Label3
Caption = "站 点2: "
Height = 375
Left = 4080
TabIndex = 12
Top = 960
Width = 975
End
Begin VB.Label Label2
Caption = "线路名称:"
Height = 375
Left = 1800
TabIndex = 11
Top = 480
Width = 855
End
End
End
Attribute VB_Name = "frmChangeLine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private iNum As Integer
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
Private Sub cmdOK_Click()
Dim sql As String
sql = "update LineInfo set LineName='" & textLineName.Text
sql = sql & "',Plat01='" & Me.textPlat01 & "',Plat02='" & Me.textPlat02 & "',"
sql = sql & "Plat03='" & Me.textPlat03 & "',Plat04='" & Me.textPlat04
sql = sql & "',Plat05='" & Me.textPlat05 & "',Plat06='" & Me.textPlat06
sql = sql & "',Plat07='" & Me.textPlat07 & "',Plat08='" & Me.textPlat08
sql = sql & "',Plat09='" & Me.textPlat09 & "',Plat10='" & Me.textPlat10
sql = sql & "',Plat11='" & Me.textPlat11 & "',Plat12='" & Me.textPlat12
sql = sql & "',Plat13='" & Me.textPlat13 & "',Plat14='" & Me.textPlat14
sql = sql & "',Plat15='" & Me.textPlat15 & "',Plat16='" & Me.textPlat16
sql = sql & "',Plat17='" & Me.textPlat17 & "',Plat18='" & Me.textPlat18
sql = sql & "',Plat19='" & Me.textPlat19 & "',Plat20='" & Me.textPlat20
sql = sql & "',Plat21='" & Me.textPlat21 & "',Plat22='" & Me.textPlat22
sql = sql & "',Plat23='" & Me.textPlat23 & "',Plat24='" & Me.textPlat24
sql = sql & "',Plat25='" & Me.textPlat25 & "',Plat26='" & Me.textPlat26
sql = sql & "',Plat27='" & Me.textPlat27 & "',Plat28='" & Me.textPlat28
sql = sql & "',Plat29='" & Me.textPlat29 & "',Plat30='" & Me.textPlat30
sql = sql & "',Plat31='" & Me.textPlat31 & "',Plat32='" & Me.textPlat32
sql = sql & "',Plat33='" & Me.textPlat33 & "',Plat34='" & Me.textPlat34
sql = sql & "',Plat35='" & Me.textPlat35 & "',Plat36='" & Me.textPlat36
sql = sql & "',Plat37='" & Me.textPlat37 & "',Plat38='" & Me.textPlat38 & "' where [NO]=" & iNum
Call TransactSQL(sql, "shujuku") '修改记录
MsgBox "已经更改信息！", vbOKOnly + vbExclamation, "提示"
sql = "select * from LineInfo where [NO]=" & iNum
Call frmmanageLine.showTopic '显示修改结果
Call frmmanageLine.ShowData(sql)
frmmanageLine.Show
frmmanageLine.ZOrder 0
Unload Me
End Sub
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Set rs = getRS(strPublicSQL, "shujuku")
If rs.EOF = False Then
iNum = rs(0)
Me.textLineName = rs(1)
Me.textPlat01 = rs(2)
Me.textPlat02 = rs(3)
Me.textPlat03 = rs(4)
Me.textPlat04 = rs(5)
Me.textPlat05 = rs(6)
Me.textPlat06 = rs(7)
Me.textPlat07 = rs(8)
Me.textPlat08 = rs(9)
Me.textPlat09 = rs(10)
Me.textPlat10 = rs(11)
Me.textPlat11 = rs(12)
Me.textPlat12 = rs(13)
Me.textPlat13 = rs(14)
Me.textPlat14 = rs(15)
Me.textPlat15 = rs(16)
Me.textPlat16 = rs(17)
Me.textPlat17 = rs(18)
Me.textPlat18 = rs(19)
Me.textPlat19 = rs(20)
Me.textPlat20 = rs(21)
Me.textPlat21 = rs(22)
Me.textPlat22 = rs(23)
Me.textPlat23 = rs(24)
Me.textPlat24 = rs(25)
Me.textPlat25 = rs(26)
Me.textPlat26 = rs(27)
Me.textPlat27 = rs(28)
Me.textPlat28 = rs(29)
Me.textPlat29 = rs(30)
Me.textPlat30 = rs(31)
Me.textPlat31 = rs(32)
Me.textPlat32 = rs(33)
Me.textPlat33 = rs(34)
Me.textPlat34 = rs(35)
Me.textPlat35 = rs(36)
Me.textPlat36 = rs(37)
Me.textPlat37 = rs(38)
Me.textPlat38 = rs(39)
End If
rs.Close
End Sub
Private Sub Label1_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -