📄 nodefrmedit.frm
字号:
VERSION 5.00
Begin VB.Form NodeFrmEdit
Caption = "节点属性"
ClientHeight = 3015
ClientLeft = 5880
ClientTop = 4245
ClientWidth = 3255
Icon = "NodeFrmEdit.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3015
ScaleWidth = 3255
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "自定义字段数值输入"
Height = 615
Left = 0
TabIndex = 14
Top = 1320
Width = 3255
Begin VB.ComboBox cmbfd
Height = 300
Left = 120
TabIndex = 4
Text = "Combo1"
Top = 240
Width = 1575
End
Begin VB.TextBox TxtUser
Height = 270
Left = 1800
TabIndex = 5
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame1
Caption = "节点坐标"
Height = 975
Left = 0
TabIndex = 11
Top = 2040
Width = 2175
Begin VB.TextBox TxtY
Height = 270
Left = 360
Locked = -1 'True
TabIndex = 7
Top = 600
Width = 1695
End
Begin VB.TextBox TxtX
Height = 270
Left = 360
Locked = -1 'True
TabIndex = 6
Top = 240
Width = 1695
End
Begin VB.Label Label2
Caption = "Y:"
Height = 255
Index = 1
Left = 120
TabIndex = 13
Top = 600
Width = 255
End
Begin VB.Label Label2
Caption = "X:"
Height = 255
Index = 0
Left = 120
TabIndex = 12
Top = 240
Width = 255
End
End
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 375
Left = 2400
TabIndex = 9
Top = 2640
Width = 735
End
Begin VB.CommandButton Cmdok
Caption = "确定"
Default = -1 'True
Height = 375
Left = 2400
TabIndex = 8
Top = 2160
Width = 735
End
Begin VB.ComboBox Cmbfield
Height = 300
Left = 1320
TabIndex = 3
Text = "Combo1"
Top = 840
Width = 1935
End
Begin VB.Frame FrmNode
Caption = "节点类型选择"
Height = 615
Left = 0
TabIndex = 0
Top = 120
Width = 3255
Begin VB.OptionButton OptNode
Caption = "小区形心点"
Height = 255
Index = 1
Left = 1800
TabIndex = 2
Top = 240
Width = 1215
End
Begin VB.OptionButton OptNode
Caption = "非小区形心点"
Height = 255
Index = 0
Left = 120
TabIndex = 1
Top = 240
Value = -1 'True
Width = 1455
End
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 1
X1 = 0
X2 = 3240
Y1 = 1215
Y2 = 1215
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 0
X1 = 0
X2 = 3240
Y1 = 1200
Y2 = 1200
End
Begin VB.Label Label1
Caption = "交叉口类型："
Height = 255
Left = 120
TabIndex = 10
Top = 920
Width = 1095
End
End
Attribute VB_Name = "NodeFrmEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************
'*
'* 本源码完全免费，共交通同仁学习参考 *
'* www.tranbbs.com *
'* Developed by Yang Ming *
'* Nanjing Institute of City Transportation Planning *
'* 请保留本版权信息，谢谢合作 *
'* 中国交通技术论坛 *
'* *
'* *
'*********************************************************************
Private Sub cmbfd_Click()
If FdNum <> 0 Then
Dim TempNum
If cmbfd.ListIndex = -1 Then
TempNum = 1
Else
TempNum = cmbfd.ListIndex + 1
End If
TxtUser.Text = UserName(TempNum)
End If
End Sub
Private Sub Cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
Dim NodeRs As Recordset
Set NodeRs = mDbBiblio.OpenRecordset("select * from Nodes where NodeId=" & FidIdEdit)
NodeRs.Edit
If OptNode(0).Value = True Then
NodeRs!NodeType = "a"
Else
NodeRs!NodeType = "a*"
End If
If cmbfield.Text = "信号交叉口" Then
NodeRs!CrossType = 1
ElseIf cmbfield.Text = "无控交叉口" Then
NodeRs!CrossType = 2
ElseIf cmbfield.Text = "环行交叉口" Then
NodeRs!CrossType = 3
ElseIf cmbfield.Text = "立体交叉口" Then
NodeRs!CrossType = 4
ElseIf cmbfield.Text = "交通枢纽" Then
NodeRs!CrossType = 5
ElseIf cmbfield.Text = "城市或集镇" Then
NodeRs!CrossType = 6
End If
If FdNum <> 0 Then
Dim i
For i = 1 To FdNum
If UserName(i) = "" Then
Dim Resp
Resp = MsgBox("自定义字段" & NodeFrm.cmbfd.List(i - 1) & "未输入有效值，确认继续吗？选择继续将以0填充该字段！", vbOKCancel)
If Resp = vbOK Then
UserName(i) = 0
Else
Exit Sub
End If
End If
NodeRs.Fields(cmbfd.List(i - 1)) = UserName(i)
Next i
End If
NodeRs.Update
Unload Me
End Sub
Private Sub Form_Load()
Dim NodeRs As Recordset
Set NodeRs = mDbBiblio.OpenRecordset("select * from Nodes where NodeId=" & FidIdEdit)
cmbfield.AddItem "信号交叉口"
cmbfield.AddItem "无控交叉口"
cmbfield.AddItem "环行交叉口"
cmbfield.AddItem "立体交叉口"
cmbfield.AddItem "交通枢纽"
cmbfield.AddItem "城市或集镇"
If NodeRs!CrossType = 1 Then
cmbfield.Text = "信号交叉口"
ElseIf NodeRs!CrossType = 2 Then
cmbfield.Text = "无控交叉口"
ElseIf NodeRs!CrossType = 3 Then
cmbfield.Text = "环行交叉口"
ElseIf NodeRs!CrossType = 4 Then
cmbfield.Text = "立体交叉口"
ElseIf NodeRs!CrossType = 5 Then
cmbfield.Text = "交通枢纽"
ElseIf NodeRs!CrossType = 6 Then
cmbfield.Text = "城市或集镇"
Else
cmbfield.Text = "信号交叉口"
End If
If NodeRs!NodeType = "a" Then
OptNode(0).Value = True
Else
OptNode(1).Value = True
End If
TxtX.Text = X1
TxtY.Text = Y1
Dim Fd As Field
Dim AllFdNum
AllFdNum = mDbBiblio.TableDefs("Nodes").Fields.Count
If AllFdNum <> 0 Then
step = 0
For Each Fd In mDbBiblio.TableDefs("Nodes").Fields
If Fd.Name <> "NodeType" And Fd.Name <> "NodeX" And Fd.Name <> "NodeY" And Fd.Name <> "CrossType" And Fd.Name <> "NodeId" Then
step = step + 1
cmbfd.AddItem Fd.Name
End If
Next
FdNum = step
If FdNum <> 0 Then
cmbfd.Text = cmbfd.List(0)
ReDim UserName(1 To FdNum)
Else
cmbfd.Text = "无自定义字段"
TxtUser.Enabled = False
End If
Dim i
If FdNum <> 0 Then
For i = 1 To FdNum
If IsNull(NodeRs.Fields(cmbfd.List(i - 1))) = True Then
UserName(i) = 0
Else
UserName(i) = NodeRs.Fields(cmbfd.List(i - 1))
End If
Next i
TxtUser.Text = UserName(1)
End If
End If
End Sub
Private Sub TxtUser_Change()
If FdNum <> 0 Then
Dim TempNum
If cmbfd.ListIndex = -1 Then
TempNum = 1
Else
TempNum = cmbfd.ListIndex + 1
End If
UserName(TempNum) = TxtUser.Text
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -