📄 yngc_frmaddprevilege.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "XPCMD.OCX"
Begin VB.Form yngc_frmAddPrevilege
BorderStyle = 3 'Fixed Dialog
Caption = "添加权限"
ClientHeight = 5970
ClientLeft = 30
ClientTop = 420
ClientWidth = 6705
Icon = "yngc_frmAddPrevilege.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5970
ScaleWidth = 6705
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame2
Height = 4452
Left = 4320
TabIndex = 4
Top = 1320
Width = 2172
Begin XPCmd.xpcmdbutton yngc_btnCancal
Height = 495
Left = 480
TabIndex = 8
Top = 3600
Width = 1215
_ExtentX = 2143
_ExtentY = 873
Caption = " 取 消"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPCmd.xpcmdbutton yngc_btnDel
Height = 495
Left = 480
TabIndex = 7
Top = 2640
Width = 1215
_ExtentX = 2143
_ExtentY = 873
Caption = " 权限删除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPCmd.xpcmdbutton yngc_btnSave
Height = 495
Left = 480
TabIndex = 6
Top = 1560
Width = 1215
_ExtentX = 2143
_ExtentY = 873
Caption = " 权限保存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPCmd.xpcmdbutton yngc_btnCreateUser
Height = 495
Left = 480
TabIndex = 5
Top = 480
Width = 1215
_ExtentX = 2143
_ExtentY = 873
Caption = " 权限添加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.TextBox yngc_txtPrevilegeName
Height = 372
Left = 4320
TabIndex = 0
Top = 600
Width = 2172
End
Begin MSComctlLib.ImageList ImageList1
Left = 3720
Top = 3000
_ExtentX = 794
_ExtentY = 794
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "yngc_frmAddPrevilege.frx":628A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "yngc_frmAddPrevilege.frx":65DC
Key = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame1
Caption = "权限列表"
Height = 5652
Left = 140
TabIndex = 1
Top = 120
Width = 3852
Begin MSComctlLib.TreeView TreeView1
Height = 5052
Left = 240
TabIndex = 2
Top = 360
Width = 3372
_ExtentX = 5953
_ExtentY = 8916
_Version = 393217
Style = 7
ImageList = "ImageList1"
Appearance = 1
End
End
Begin VB.Label Label1
Caption = "权限名称："
Height = 252
Left = 4320
TabIndex = 3
Top = 240
Width = 1212
End
End
Attribute VB_Name = "yngc_frmAddPrevilege"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'选中结点的索引
Private strIndex As Integer
' Item that is being dragged.
Private objDragNode As Object
'结点父结点索引
Private strParent As String
'结点的标识
Private strText As String
'结点的KEY
Private strKey As String
'记录编号
Private intId As String
'系统权限的编号
Private intPrevilegeKind As Integer
'权限名称
Private strPrevilegeName As String
'计数器
Private i As Integer
'定义节点
Private oNodex As Node
'判断是否点击了“删除”按钮
Private bolDelClick As Boolean
'SQL字符串
Private strSql As String
'数据集
Private objOraDyn As OraDynaset
Private Sub Form_Load()
intPrevilegeKind = 1
'清空TreeView中的结点
TreeView1.Nodes.Clear 'Clear the TreeView of any nodes
'SQL语句
strSql = "select * from yngc_sys_previlegetree where func_delflag=0 order by id"
'建立OraDynaset对象
Set objOraDyn = g_clsConnect.ObjectOraDb.CreateDynaset(strSql, 0&)
'开始一个事务
g_clsConnect.ObjectOraDb.BeginTrans
'判断是否有结点信息保存在表中
If objOraDyn.RecordCount > 0 Then
objOraDyn.MoveFirst
'Do While g_objOraDyn.EOF = False
For i = 1 To objOraDyn.RecordCount
If Trim(objOraDyn.Fields("parent")) = "0_" Then
'添加父结点
Set oNodex = TreeView1.Nodes.Add(, 1, Trim(objOraDyn.Fields("key_")), _
Trim(objOraDyn.Fields("text_")), 1, 1)
Else
'添加孩子结点
Set oNodex = TreeView1.Nodes.Add(Trim(objOraDyn.Fields("parent")), tvwChild, _
Trim(objOraDyn.Fields("key_")), Trim(objOraDyn.Fields("text_")), 1, 1)
'展开TREEVIEW使所有结点可见
oNodex.EnsureVisible
End If
objOraDyn.MoveNext
'Loop
Next i
'结束事务
'g_objOraSession.CommitTrans
Else
'没有结点信息保存时，添加结点
Set objDragNode = Nothing
yngc_subLast ("云南省基础地理信息中心")
TreeView1.Nodes(1).Selected = True
yngc_subChild ("用户管理")
End If
g_clsConnect.ObjectOraDb.CommitTrans
End Sub
'**************************************************************
'名称： yngc_fnGetNextKey()
'功能描述： 返回每一个新添加到TREEVIEW结点的关键值
'传入参数: 无
'返回参数：
'依赖关系：
'作者： 李建东
'创建日期 2005年11月23日
'**************************************************************
Private Function yngc_fnGetNextKey() As String
'结点的唯一关键值
Dim strNewKey As String
'结点的KEY
Dim intHold As Integer
On Error GoTo myerr
'获得第一个结点的KEY
intHold = Val(TreeView1.Nodes(1).Key)
'**************************************************************
'获得新添加结点的值
For i = 1 To TreeView1.Nodes.Count
If Val(TreeView1.Nodes(i).Key) > intHold Then
intHold = Val(TreeView1.Nodes(i).Key)
End If
Next
intHold = intHold + 1
'**************************************************************
strNewKey = CStr(intHold) & "_"
'返回一个唯一值
yngc_fnGetNextKey = strNewKey
Exit Function
myerr:
' TreeView 为空返回第一个结点的值
yngc_fnGetNextKey = "1_"
Exit Function
End Function
'**************************************************************
'名称： yngc_subLast()
'功能描述： 添加到TREEVIEW一个LAST结点
'传入参数: strNodeText（结点名称）
'返回参数：
'依赖关系：
'作者： 李建东
'创建日期 2005年11月23日
'**************************************************************
Private Sub yngc_subLast(strNodeText As String)
'Add a node using tvwLast
Dim skey As String
skey = yngc_fnGetNextKey()
'如果没有结点被选中返回错误编号
On Error GoTo myerr
TreeView1.Nodes.Add TreeView1.SelectedItem.Index, tvwLast, skey, strNodeText, 1, 2
Exit Sub
myerr:
'添加一个根结点在TREEVIEW的最后位置，因为没有结点被选中
TreeView1.Nodes.Add , tvwLast, skey, strNodeText, 1, 2
Exit Sub
End Sub
'**************************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -