📄 nodefrm.frm
字号:
VERSION 5.00
Begin VB.Form NodeFrm
Caption = "新建节点"
ClientHeight = 3405
ClientLeft = 5880
ClientTop = 4245
ClientWidth = 3255
Icon = "NodeFrm.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3405
ScaleWidth = 3255
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "自定义字段数值输入"
Height = 615
Left = 0
TabIndex = 14
Top = 1680
Width = 3255
Begin VB.TextBox TxtUser
Height = 270
Left = 1800
TabIndex = 6
Top = 240
Width = 1335
End
Begin VB.ComboBox cmbfd
Height = 300
Left = 120
TabIndex = 5
Text = "Combo1"
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame1
Caption = "节点坐标"
Height = 975
Left = 0
TabIndex = 11
Top = 2400
Width = 2175
Begin VB.TextBox TxtY
Height = 270
Left = 360
TabIndex = 8
Top = 600
Width = 1695
End
Begin VB.TextBox TxtX
Height = 270
Left = 360
TabIndex = 7
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 = 10
Top = 3000
Width = 735
End
Begin VB.CommandButton Cmdok
Caption = "确定"
Default = -1 'True
Height = 375
Left = 2400
TabIndex = 9
Top = 2520
Width = 735
End
Begin VB.Frame FrmNode
Caption = "节点属性数据输入"
Height = 1335
Left = 0
TabIndex = 0
Top = 120
Width = 3255
Begin VB.TextBox TxtNodeId
Height = 270
Left = 1080
TabIndex = 1
Top = 240
Width = 975
End
Begin VB.ComboBox Cmbfield
Height = 300
Left = 1200
TabIndex = 4
Text = "Combo1"
Top = 960
Width = 1935
End
Begin VB.OptionButton OptNode
Caption = "小区形心点"
Height = 255
Index = 1
Left = 1800
TabIndex = 3
Top = 600
Width = 1215
End
Begin VB.OptionButton OptNode
Caption = "非小区形心点"
Height = 255
Index = 0
Left = 120
TabIndex = 2
Top = 600
Value = -1 'True
Width = 1455
End
Begin VB.Label Label4
Caption = "(可自定义)"
Height = 255
Left = 2160
TabIndex = 17
Top = 285
Width = 975
End
Begin VB.Label Label3
Caption = "节点编号："
Height = 255
Left = 120
TabIndex = 16
Top = 280
Width = 975
End
Begin VB.Label Label1
Caption = "交叉口类型："
Height = 255
Left = 120
TabIndex = 15
Top = 1000
Width = 1095
End
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 1
X1 = 0
X2 = 3240
Y1 = 1575
Y2 = 1575
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 0
X1 = 0
X2 = 3240
Y1 = 1560
Y2 = 1560
End
End
Attribute VB_Name = "NodeFrm"
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()
'On Error GoTo Myerr
Dim NodeTypeSel As String
Dim CrossTypeSel As Integer
If OptNode(0).Value = True Then
NodeTypeSel = "a"
Else
NodeTypeSel = "a*"
End If
If cmbfield.Text = "信号交叉口" Then
CrossTypeSel = 1
ElseIf cmbfield.Text = "无控交叉口" Then
CrossTypeSel = 2
ElseIf cmbfield.Text = "环行交叉口" Then
CrossTypeSel = 3
ElseIf cmbfield.Text = "立体交叉口" Then
CrossTypeSel = 4
ElseIf cmbfield.Text = "交通枢纽" Then
CrossTypeSel = 5
ElseIf cmbfield.Text = "城市或集镇" Then
CrossTypeSel = 6
End If
X1 = Val(TxtX.Text)
Y1 = Val(TxtY.Text)
AddNewNode NodeTypeSel, CrossTypeSel, X1, Y1
Unload Me
'Myerr:
'MsgBox "自定义数据类型输入错误，请重新输入！"
'Exit Sub
End Sub
Private Sub Form_Load()
TxtUser.Enabled = True
cmbfield.AddItem "信号交叉口"
cmbfield.AddItem "无控交叉口"
cmbfield.AddItem "环行交叉口"
cmbfield.AddItem "立体交叉口"
cmbfield.AddItem "交通枢纽"
cmbfield.AddItem "城市或集镇"
cmbfield.Text = "信号交叉口"
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
End If
Dim RsNd As Recordset
Set RsNd = mDbBiblio.OpenRecordset("Nodes")
If RsNd.RecordCount <> 0 Then
RsNd.MoveLast
TxtNodeId.Text = Val(RsNd!NodeId) + 1
Else
TxtNodeId.Text = 1
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 + -