📄
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Xt_Control
Caption = "桌面"
ClientHeight = 5850
ClientLeft = 675
ClientTop = 1665
ClientWidth = 9240
Icon = "系统主操作桌面.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5850
ScaleWidth = 9240
WindowState = 2 'Maximized
Begin VB.PictureBox picSplitter
BackColor = &H00808080&
BorderStyle = 0 'None
FillColor = &H00808080&
Height = 4800
Left = 5880
ScaleHeight = 2090.126
ScaleMode = 0 'User
ScaleWidth = 780
TabIndex = 0
Top = 705
Visible = 0 'False
Width = 72
End
Begin MSComctlLib.ImageList ImageList1
Left = 5220
Top = 2340
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":1042
Key = "xttb"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":2094
Key = "stb"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":30E6
Key = "szk"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":3480
Key = "kpgl"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":44D2
Key = "gnqx"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":4924
Key = "gnqx2"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView lvListView
Height = 3375
Left = 2160
TabIndex = 5
Top = 705
Width = 2295
_ExtentX = 4048
_ExtentY = 5953
Arrange = 2
LabelWrap = -1 'True
HideSelection = -1 'True
OLEDragMode = 1
OLEDropMode = 1
PictureAlignment= 1
_Version = 393217
Icons = "ImageList2"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDragMode = 1
OLEDropMode = 1
NumItems = 0
Picture = "系统主操作桌面.frx":4CBE
End
Begin VB.PictureBox picTitles
Align = 1 'Align Top
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 9240
TabIndex = 1
TabStop = 0 'False
Top = 420
Width = 9240
Begin VB.Label lblTitle
BorderStyle = 1 'Fixed Single
Caption = "新世纪/ERP"
Height = 270
Index = 0
Left = 0
TabIndex = 3
Tag = " 树形视图:"
Top = 12
Width = 2016
End
Begin VB.Label lblTitle
BorderStyle = 1 'Fixed Single
Caption = " 列表视图:"
Height = 270
Index = 1
Left = 2078
TabIndex = 2
Tag = " 列表视图:"
Top = 12
Width = 3216
End
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 3360
Top = 2160
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.TreeView tvTreeView
Height = 4800
Left = 0
TabIndex = 4
Top = 705
Width = 2010
_ExtentX = 3545
_ExtentY = 8467
_Version = 393217
Indentation = 117
Style = 7
ImageList = "ImageList1"
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar tbToolBar
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 6
Top = 0
Width = 9240
_ExtentX = 16298
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
AllowCustomize = 0 'False
Appearance = 1
ImageList = "imlToolbarIcons"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "返回"
Object.ToolTipText = "返回"
ImageKey = "xq"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "向前"
Object.ToolTipText = "向前"
ImageKey = "xh"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "大图标"
Object.ToolTipText = "大图标"
ImageKey = "dtb"
Style = 2
Value = 1
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "小图标"
Object.ToolTipText = "小图标"
ImageKey = "xtb"
Style = 2
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "列表"
Object.ToolTipText = "列表"
ImageKey = "lb"
Style = 2
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "详细资料"
Object.ToolTipText = "详细资料"
ImageKey = "xxzl"
Style = 2
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 4710
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":E554
Key = "xq"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":E8EE
Key = "xh"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":EC88
Key = "dtb"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":F022
Key = "xtb"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":F3BC
Key = "lb"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":F756
Key = "xxzl"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Left = 6210
Top = 2370
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":FAF0
Key = "y"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":FF44
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统主操作桌面.frx":10264
Key = "i"
EndProperty
EndProperty
End
Begin VB.Image imgSplitter
Height = 4788
Left = 1965
MousePointer = 9 'Size W E
Top = 705
Width = 150
End
End
Attribute VB_Name = "Xt_Control"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const NAME_COLUMN = 0
Const TYPE_COLUMN = 1
Const SIZE_COLUMN = 2
Const DATE_COLUMN = 3
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Dim mbMoving As Boolean
Const sglSplitLimit = 1000
Dim nodX As Node
Dim mitem As ListItem
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim Ztxxrec As New ADODB.Recordset '帐套信息动态集
Dim Xtgnbrec As New ADODB.Recordset '系统功能表
Dim Xtqxxzrec As New ADODB.Recordset '系统权限限制动态集
Dim Tsxx As String '系统提示信息
Dim gnsyte As String '系统功能项索引
Dim Xtrlrec As New ADODB.Recordset '系统日历动态集
Dim Ctsfscdr As Boolean '窗体是否首次读入
Private Sub lvListView_DblClick() '点击ListView执行相应功能
If lvListView.ListItems.count > 0 Then
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(lvListView.SelectedItem.Key), 2, Len(Trim(lvListView.SelectedItem.Key)) - 1) + "'")
If Not Xtgnbrec.EOF Then
gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
Call Zxxymk(gnsyte)
End If
End If
End Sub
Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
Dim Ssql As String
If Node.Tag = False Then
lvListView.ColumnHeaders.Clear
lvListView.ListItems.Clear
Ssql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "' order by gnbm"
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(Ssql)
lvListView.ColumnHeaders.Add 1, "rcsw", tvTreeView.SelectedItem.Text, 3000, , "stb"
Do While Not Xtgnbrec.EOF
Set mitem = lvListView.ListItems.Add()
mitem.Text = Trim(Xtgnbrec!gnmc)
If Xtgnbrec.Fields("mjbz") Then
mitem.SmallIcon = "gnqx"
mitem.Icon = "y"
Else
mitem.Icon = "i"
mitem.SmallIcon = "stb"
End If
mitem.Key = "T" & Trim(Xtgnbrec!gnbm)
Xtgnbrec.MoveNext
Loop
End If
End Sub
Private Sub Cshgns() '初始化系统功能树
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm like '51%' and MenuList=1 order by gnbm")
tvTreeView.Nodes.Add , 4, "T", "新世纪/ERP", "xttb"
With Xtgnbrec
Do While Not .EOF
If .Fields("mjbz") Then
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "gnqx")
Else
If Trim(.Fields("sjgnbm")) = "" Then
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "kpgl")
Else
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "stb")
End If
End If
nodX.Tag = Xtgnbrec!mjbz
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -