📄 winmenu0.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form winmenu0
BorderStyle = 0 'None
Caption = "Form2"
ClientHeight = 8685
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8685
ScaleWidth = 12000
ShowInTaskbar = 0 'False
Begin MSComctlLib.ImageList ilSmall
Left = 3240
Top = 2040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":031C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":0638
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":0954
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ilNormal
Left = 2640
Top = 2040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 48
ImageHeight = 48
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":0DA8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":10C4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":13E0
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":16FC
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 2040
Top = 2040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":1A18
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":1D3C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":2058
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":2374
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "winmenu0.frx":2690
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView tvone
Height = 6855
Left = 120
TabIndex = 0
Top = 360
Width = 3135
_ExtentX = 5530
_ExtentY = 12091
_Version = 393217
HideSelection = 0 'False
Indentation = 353
LabelEdit = 1
LineStyle = 1
Style = 7
FullRowSelect = -1 'True
ImageList = "ImageList1"
Appearance = 1
MousePointer = 1
OLEDragMode = 1
End
Begin MSComctlLib.ListView lvone
CausesValidation= 0 'False
Height = 6765
Left = 3360
TabIndex = 3
Top = 450
Width = 8415
_ExtentX = 14843
_ExtentY = 11933
View = 3
LabelEdit = 1
LabelWrap = 0 'False
HideSelection = -1 'True
OLEDropMode = 1
Checkboxes = -1 'True
FullRowSelect = -1 'True
HoverSelection = -1 'True
_Version = 393217
Icons = "ilNormal"
SmallIcons = "ilSmall"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
OLEDropMode = 1
NumItems = 0
Picture = "winmenu0.frx":29B4
End
Begin VB.Frame Frame1
Height = 615
Left = 120
TabIndex = 4
Top = 7320
Width = 11610
Begin VB.CommandButton Command1
Caption = "退 出"
Height = 375
Left = 9000
TabIndex = 9
Top = 170
Width = 2175
End
Begin VB.CommandButton crefresh
Caption = "刷新列表结构元素"
Height = 375
Left = 6840
TabIndex = 8
Top = 170
Width = 2175
End
Begin VB.CommandButton cgoto
Caption = "进入户位信息管理"
Height = 375
Left = 4680
TabIndex = 7
Top = 170
Width = 2175
End
Begin VB.CommandButton cdelete
Caption = "删除列表项"
Height = 375
Left = 2520
TabIndex = 6
Top = 170
Width = 2175
End
Begin VB.CommandButton cappe
Caption = "增加列表项"
Height = 375
Left = 360
TabIndex = 5
Top = 170
Width = 2175
End
End
Begin VB.Image iscr
Height = 5415
Left = 3240
MousePointer = 9 'Size W E
Top = 120
Width = 135
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "详细列表视图 注:命令按钮的操作只对选择项操作有效"
Height = 240
Left = 2370
TabIndex = 2
Top = 120
Width = 6975
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "小区目录"
Height = 240
Left = 120
TabIndex = 1
Top = 120
Width = 2175
End
End
Attribute VB_Name = "winmenu0"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim xiaoquk As Database
Dim xiaoqut As Recordset
Dim xiaoqut1 As Recordset
Dim xqk As Database
Dim xqtab As Recordset
Dim xqtab1 As Recordset
Dim tvMoving As Boolean
Dim tvwidth, lvleft, lvwidth As Integer
Public nowkey As String
Public nownum As Integer
Public nowretu As Integer '返回值
Public nowretuyn As Integer '返回标记
Public ccondition As String
Public xqname As String
Dim xqyesno As Boolean '全局变量，测试小区是否有数据
Dim keyretu As String '记录刷新之后，如果再展开的位置。
Public Sub displaylv(key As String, idx As Integer)
Dim clmx As ColumnHeader
Dim itmx As ListItem
lvone.ColumnHeaders.Clear
lvone.ListItems.Clear
s = InStrRev(key, "B")
If s > 0 Then
kkname = Mid(key, 2, s - 2)
Else
kkname = Mid(key, 2, Len(key) - 1)
End If
Set xiaoqut = xiaoquk.OpenRecordset("select * from xiaoqu where xqbh='" + kkname + "'")
xqkname = LeftB(xiaoqut("xname"), 8)
If xiaoqut("sfcsh") = False Then Exit Sub
Set xqk = OpenDatabase(App.Path + "\data\" + xqkname + ".mdb")
ss = Right(key, Len(key) - s + 1)
s = Len(ss)
Select Case s
Case 2 '第一层
Set clmx = lvone.ColumnHeaders.Add(, , "选择", 550, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "楼栋", 850, , 0)
Set xqtab1 = xqk.OpenRecordset("dongsb")
For i = 1 To xqtab1("kloud")
ii = LTrim(Str$(i))
If Len(ii) < 2 Then ii = "0" + ii
Set itmx = lvone.ListItems.Add(, "a" + ii, ii + "栋", 1, 1)
itmx.SubItems(1) = ii
Next i
Case 3
Set clmx = lvone.ColumnHeaders.Add(, , "选择", 550, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "楼栋", 850, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "单元数", 850, , 0)
s1 = Right(ss, 2)
Set xqtab = xqk.OpenRecordset(" select * from dysb where kloud='" + s1 + "' ")
For i = 1 To Val(xqtab("kloudy"))
'测试有几栋楼,各有多少单元
ii = LTrim(Str$(i))
If Len(ii) < 2 Then ii = "0" + ii
Set itmx = lvone.ListItems.Add(, "a" + s1 + "b" + ii, ii + "单元", 2, 2)
itmx.SubItems(1) = s1
itmx.SubItems(2) = ii
Next i
Case 6
Set clmx = lvone.ColumnHeaders.Add(, , "选择", 550, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "楼栋", 850, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "单元数", 850, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "层数", 850, , 0)
s1 = Right(ss, 2) 'C单元数
s2 = Mid(ss, 2, 2) 'B楼栋数
Set xqtab = xqk.OpenRecordset(" select * from lcsb where kloud='" + s2 + "'and kloudy='" + s1 + "' ")
For i = 1 To Val(xqtab("klouc"))
'测试有几栋楼,各有多少单元
ii = LTrim(Str$(i))
If Len(ii) < 2 Then ii = "0" + ii
Set itmx = lvone.ListItems.Add(, "a" + s2 + "b" + s1 + "c" + ii, ii + "层", 3, 3)
itmx.SubItems(1) = s2
itmx.SubItems(2) = s1
itmx.SubItems(3) = ii
Next i
Case 9
Set clmx = lvone.ColumnHeaders.Add(, , "选择", 550, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "楼栋", 850, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "单元数", 850, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "层数", 850, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "户数", 850, , 0)
s3 = Right(ss, 2) 'D层数
s2 = Mid(ss, 2, 2) 'B楼栋数
s1 = Mid(ss, 5, 2) 'C单元数
Set xqtab = xqk.OpenRecordset("select * from husb where kloud='" + s2 + "' and kloudy='" + s1 + "'and klouc='" + s3 + "' ")
For i = 1 To Val(xqtab("klouhu"))
ii = LTrim(Str$(i))
If Len(ii) < 2 Then ii = "0" + ii
If Val(xqtab("klouhu") = 2) Then
If i = 1 Then lls = "左" Else lls = "右"
Else
If i = 1 Then lls = "左" Else If i = 2 Then lls = "中" Else lls = "右"
End If
Set itmx = lvone.ListItems.Add(, "a" + s2 + "b" + s1 + "c" + s3 + "d" + ii, lls + "户", 4, 4)
itmx.SubItems(1) = s2
itmx.SubItems(2) = s1
itmx.SubItems(3) = s3
itmx.SubItems(4) = lls
Next i
Case 12
Set clmx = lvone.ColumnHeaders.Add(, , "进行明细再进行查看", 950, , 0)
Exit Sub
Set clmx = lvone.ColumnHeaders.Add(, , "选择", 550, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "门牌号", 750, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "户主姓名", 950, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "联系电话", 950, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "是否入住", 950, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "销售面积", 950, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "户 型", 950, , 0)
Set clmx = lvone.ColumnHeaders.Add(, , "附加设备", 1150, , 0)
End Select
End Sub
Private Sub cappe_Click()
key = tvone.SelectedItem.key
s = InStrRev(key, "B")
ss = Right(key, Len(key) - s + 1)
nowkey = Len(ss)
nownum = lvone.ListItems.Count
message = "已达到上限，不能再增加了！"
If nownum = 10 Then
MsgBox message, vbOKOnly + vbExclamation, "金风售房管理系统"
Exit Sub
End If
If nowkey = 9 And nownum = 3 Then
MsgBox message, vbOKOnly + vbExclamation, "金风售房管理系统"
Exit Sub
End If
If nowkey = 12 Then
MsgBox "要输入用户明细信息，请进入户位信息管理", vbOKOnly + vbExclamation, "金风售房管理系统"
Exit Sub
End If
winmenu0.Enabled = False
menuask.Show
End Sub
Private Sub cdelete_Click()
key = tvone.SelectedItem.key
s = InStrRev(key, "B")
ss = Right(key, Len(key) - s + 1)
nowkey = Len(ss)
If nowkey = 12 Then
MsgBox "要管理用户明细信息，请进入户位信息管理", vbOKOnly + vbExclamation, "金风售房管理系统"
Exit Sub
End If
'nowkey值与增加时冲突,所以增值20
nowkey = 20 + nowkey
nownum = lvone.ListItems.Count
winmenu0.Enabled = False
menuask.Show
End Sub
Private Sub cgoto_Click()
key = tvone.SelectedItem.key
s = InStrRev(key, "B")
ss = Right(key, Len(key) - s + 1)
key = Len(ss)
condition = " "
num1 = lvone.ListItems.Count
ii = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -