📄 form1.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form form1
Caption = "发行站点树状显示 "
ClientHeight = 4935
ClientLeft = 60
ClientTop = 345
ClientWidth = 7530
Icon = "form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 4935
ScaleWidth = 7530
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Text11
DataField = "ZDQC"
DataSource = "Data2"
Height = 270
Left = 600
TabIndex = 12
Top = 4590
Visible = 0 'False
Width = 645
End
Begin VB.TextBox Text10
DataField = "FXZH"
DataSource = "Data2"
Height = 270
Left = 1500
TabIndex = 11
Top = 4620
Visible = 0 'False
Width = 405
End
Begin VB.CommandButton Command5
Caption = "退出"
Height = 390
Left = 3750
TabIndex = 9
Top = 4290
Width = 3555
End
Begin VB.Data Data2
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\mrbkfx\BKsysdb.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 4515
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "mlzd"
Top = 60
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text8
Height = 270
Left = 4665
TabIndex = 8
Top = 3675
Width = 2640
End
Begin VB.TextBox Text7
Height = 270
Left = 4665
TabIndex = 7
Top = 3330
Width = 2640
End
Begin VB.TextBox Text6
Height = 270
Left = 4650
TabIndex = 6
Top = 2955
Width = 2655
End
Begin VB.TextBox Text5
Height = 270
Left = 4635
TabIndex = 5
Top = 2430
Width = 2640
End
Begin VB.TextBox Text4
Enabled = 0 'False
Height = 570
Left = 4620
TabIndex = 4
Top = 1590
Width = 2670
End
Begin VB.TextBox Text3
Height = 285
Left = 4635
TabIndex = 3
Top = 1170
Width = 2625
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 270
Left = 4635
TabIndex = 2
Top = 825
Width = 2625
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Left = 4650
TabIndex = 1
Top = 450
Width = 2610
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\mrbkfx\BKsysdb.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 5985
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "mlzd"
Top = 15
Visible = 0 'False
Width = 1095
End
Begin ComctlLib.TreeView TreeView1
Height = 4215
Left = 330
TabIndex = 0
Top = 495
Width = 3240
_ExtentX = 5715
_ExtentY = 7435
_Version = 327682
HideSelection = 0 'False
Indentation = 353
LabelEdit = 1
Style = 7
ImageList = "ImageList1"
Appearance = 1
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"form1.frx":030A
Height = 3615
Left = 3750
TabIndex = 10
Top = 510
Width = 930
End
Begin ComctlLib.ImageList ImageList1
Left = 270
Top = -135
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 2
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "form1.frx":03D1
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "form1.frx":06EB
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private nod As Node
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\msdb.mdb"
Data1.Connect = ";pwd=" & 73322
Data2.DatabaseName = App.Path & "\msdb.mdb"
Data2.Connect = ";pwd=" & 73322
End Sub
Private Sub Form_Activate()
Dim relative As Long
Dim relation As Long
Dim key As String
Dim text As String
Dim nod As Node
Data2.RecordSource = "select * from mlzd order by fxzh "
Data2.Refresh
key = Data2.Recordset(3)
text = "(" & Data2.Recordset(2) & ")" & Data2.Recordset(3)
If Data2.Recordset.RecordCount > 0 Then
Data2.Recordset.MoveFirst
Do While Data2.Recordset.EOF = False
If Len(Text10.text) = 2 Then
key = Data2.Recordset(3)
text = "(" & Data2.Recordset(1) & ")" & Data2.Recordset(2)
Set Node1 = TreeView1.Nodes.Add(, , key, text, 1)
End If
If Len(Text10.text) = 4 Then
key = Data2.Recordset(3)
text = "(" & Data2.Recordset(1) & ")" & Data2.Recordset(2)
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 1)
End If
If Len(Text10.text) = 6 Then
key = Data2.Recordset(3)
text = "(" & Data2.Recordset(1) & ")" & Data2.Recordset(2)
Set Node2 = TreeView1.Nodes.Add(Node2.Index, tvwChild, key, text, 1)
End If
If Len(Text10.text) = 8 Then
key = Data2.Recordset(3)
text = "(" & Data2.Recordset(1) & ")" & Data2.Recordset(2)
Set Node2 = TreeView1.Nodes.Add(Node3.Index, tvwChild, key, text, 1)
End If
Data2.Recordset.MoveNext
Loop
End If
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Text4.text = TreeView1.SelectedItem.key
Data1.RecordSource = "select * from mlzd where mlzd.zdqc like" + Chr(34) + Text4.text + Chr(34) + ""
Data1.Refresh
Data2.RecordSource = "select * from mlzd where mlzd.zdqc like" + Chr(34) + Text4.text + Chr(34) + ""
Data2.Refresh
If Data1.Recordset.Fields("FXZH") <> "" Then Text1.text = Data1.Recordset.Fields("FXZH") Else Text1.text = ""
If Data1.Recordset.Fields("bjDh") <> "" Then Text2.text = Data1.Recordset.Fields("bjDh") Else Text2.text = ""
If Data1.Recordset.Fields("fxzm") <> "" Then Text3.text = Data1.Recordset.Fields("fxzm") Else Text3.text = ""
If Data1.Recordset.Fields("dz") <> "" Then Text5.text = Data1.Recordset.Fields("dz") Else Text5.text = ""
If Data1.Recordset.Fields("yb") <> "" Then Text6.text = Data1.Recordset.Fields("yb") Else Text6.text = ""
If Data1.Recordset.Fields("dh") <> "" Then Text7.text = Data1.Recordset.Fields("dh") Else Text7.text = ""
If Data1.Recordset.Fields("lxr") <> "" Then Text8.text = Data1.Recordset.Fields("lxr") Else Text8.text = ""
End Sub
Private Sub Command5_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -