📄 系统_主操作桌面.frm
字号:
Picture = "系统_主操作桌面.frx":46A8
Key = "xq"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":4A42
Key = "xh"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":4DDC
Key = "dtb"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":5176
Key = "xtb"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":5510
Key = "lb"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":58AA
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 = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":5C44
Key = "y1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":6098
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":63B8
Key = "i"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主操作桌面.frx":740A
Key = "y"
EndProperty
EndProperty
End
Begin VB.Image imgSplitter
Height = 4785
Left = 4230
MousePointer = 9 'Size W E
Top = 750
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
'***********************************************
'* 模 块 名 称 :系统主操作桌面
'* 功 能 描 述 :
'* 程序员姓名 :倪德根
'* 最后修改时间:2008/03/20
'* 备 注:
'***********************************************
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 '窗体是否首次读入
Dim sjgnbmStr As String '上级编码
'5.04增加
Dim lvListViewDblclickOk As Boolean
Dim tvTreeViewdblclickok As Boolean
Dim isLeftButton As Boolean
Private Sub lvListView_DblClick() '点击ListView执行相应功能
If lvListView.ListItems.Count > 0 Then
'5.04----------
If lvListViewDblclickOk = False Then Exit Sub
If Not isLeftButton Then Exit Sub
'---------------------------------------------
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
If Xtgnbrec.Fields("mjbz") = True Then
gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
Call Zxxymk(gnsyte)
Else
'---------------
Dim SSql As String
sjgnbmStr = ""
lvListView.ColumnHeaders.Clear
lvListView.ListItems.Clear
SSql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Xtgnbrec.Fields("gnbm") + "' and MenuList=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 If
End If
End Sub
Private Sub lvListView_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'5.04增加-------------
isLeftButton = True
lvListViewDblclickOk = True
'--------------------------
Call lvListView_DblClick
End If
End Sub
'5.04增加
Private Sub lvListView_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
isLeftButton = True
Else
isLeftButton = False
End If
If lvListView.HitTest(X, Y) Is Nothing Then
lvListViewDblclickOk = False
Else
lvListViewDblclickOk = True
End If
End Sub
Private Sub Timer1_Timer()
Dim login_mode As String '注册模式
login_mode = GetSetting(Ebo_gsProductName, Ebo_gsPrjName, "login_mode", login_mode)
Select Case Trim(login_mode)
Case "10" '重新注册确定
Timer1.Enabled = False
Call Xtcsh
tvTreeView.Nodes.Clear
Me.Cshgns
Case "30" '重新注册,没有按下确定或取消按钮
Exit Sub
Case Else
Timer1.Enabled = False
End Select
End Sub
'5.04
Private Sub tvTreeView_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
isLeftButton = True
Else
isLeftButton = False
End If
If tvTreeView.HitTest(X, Y) Is Nothing Then
tvTreeViewdblclickok = False
Else
tvTreeViewdblclickok = True
End If
End Sub
Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
Dim SSql As String
If Node.Tag <> "" Then
If Node.Tag = False Then
SSql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "' and MenuList=1 order by gnbm"
If sjgnbmStr = Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) Then
Exit Sub
Else
sjgnbmStr = Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1)
End If
Else
SSql = "SELECT * FROM xt_xtgnb a," _
& "(SELECT sjgnbm FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "')b" & " where a.sjgnbm=b.sjgnbm and MenuList=1 order by gnbm"
End If
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(SSql)
If Node.Tag = True Then
If sjgnbmStr = Trim(Xtgnbrec!sjgnbm) Then
Exit Sub
Else
sjgnbmStr = Trim(Xtgnbrec!sjgnbm)
End If
End If
lvListView.ColumnHeaders.Clear
lvListView.ListItems.Clear
lvListView.ColumnHeaders.Add 1, "rcsw", "明细", 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
Public Sub Cshgns() '初始化系统功能树
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM Xt_xtgnb a,gy_czygl b WHERE (a.gnbm LIKE '66%') AND (a.MenuList = 1) AND (b.czybm = '" & Xtczybm & "') ORDER BY a.gnbm")
tvTreeView.Nodes.Add , 4, "T", "宇迪光学/ERP2.00", "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
If Len(Trim(.Fields("sjgnbm"))) <= 2 Then
nodX.EnsureVisible
End If
.MoveNext
Loop
End With
End Sub
'系统功能树操作
Private Sub tvTreeView_BeforeLabelEdit(Cancel As Integer) '屏蔽编辑
Cancel = 1
End Sub
Private Sub tvTreeView_Collapse(ByVal Node As MSComctlLib.Node) '功能树收缩
If Node.Index <> 1 And Node.Key <> "T33" Then
Node.Image = "stb"
End If
End Sub
Private Sub tvTreeView_Expand(ByVal Node As MSComctlLib.Node) '功能树展开
If Node.Index <> 1 And Node.Key <> "T33" Then
Node.Image = "szk"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -