📄 limit.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form FrmLimit
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
Caption = "权限管理"
ClientHeight = 6720
ClientLeft = 60
ClientTop = 345
ClientWidth = 11460
Icon = "Limit.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 7122.306
ScaleMode = 0 'User
ScaleWidth = 11575.75
Begin ComctlLib.TreeView TreTree
DragIcon = "Limit.frx":08CA
Height = 6495
Left = 120
TabIndex = 0
Top = 120
Width = 2745
_ExtentX = 4842
_ExtentY = 11456
_Version = 327682
HideSelection = 0 'False
Indentation = 441
LabelEdit = 1
LineStyle = 1
Style = 6
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid HFlLimit
Height = 6495
Left = 3000
TabIndex = 1
Top = 120
Width = 8415
_ExtentX = 14843
_ExtentY = 11456
_Version = 393216
Rows = 15
Cols = 5
FixedCols = 0
BackColorFixed = 12632256
BackColorBkg = 12632256
FocusRect = 0
HighLight = 0
GridLinesUnpopulated= 2
AllowUserResizing= 1
Appearance = 0
_NumberOfBands = 1
_Band(0).Cols = 5
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
End
Begin VB.Menu LimitPopMenu
Caption = "权限管理"
Visible = 0 'False
Begin VB.Menu LimitRefresh
Caption = "栏目刷新"
End
Begin VB.Menu menuSetLimit
Caption = "全部设置"
End
Begin VB.Menu menuNotSet
Caption = "全部取消"
End
End
End
Attribute VB_Name = "FrmLimit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private nodX As Node
Private SaveFlag As Boolean
Private strNodeKey As String
Private TwoFlag As Boolean
Private Sub DispLimit()
Dim RSTGroupUser As rdoResultset
Dim i As Integer
Dim j As Integer
On Error GoTo DatabaseError
Screen.MousePointer = 11
SaveFlag = False
FrmLimit.Caption = "权限管理（" & GetTitle(strNodeKey) & "）"
sql = "SELECT linkstate FROM treebase WHERE "
sql = sql & "treeno='" & strNodeKey & "' order by treeno"
Set rst = gclsDatabase.RDOSelect(sql)
Select Case rst!linkstate
'Case 1
' Call HFlLimitInit
'HFlLimit.Rows = 1
Case Is <> 3
Call HFlLimitInit
HFlLimit.ColWidth(2) = 2750
HFlLimit.ColWidth(3) = 2750
HFlLimit.ColWidth(4) = 0
HFlLimit.ColWidth(5) = 0
HFlLimit.ColWidth(6) = 0
HFlLimit.ColWidth(7) = 0
HFlLimit.Redraw = False
'----------Set Group
sql = "SELECT DISTINCT groupname FROM groupuser "
sql = sql & "ORDER BY groupname"
Set RSTGroupUser = gclsDatabase.RDOSelect(sql)
If RSTGroupUser.RowCount > 0 Then
Do While Not RSTGroupUser.EOF
If Len(Trim(RSTGroupUser!GroupName)) <> 0 Then
i = HFlLimit.Rows
If i = 2 Then
If TwoFlag = False Then
i = 1
TwoFlag = True
End If
End If
HFlLimit.Rows = i + 1
HFlLimit.Row = i
HFlLimit.Col = 0
HFlLimit.Text = Trim(RSTGroupUser!GroupName)
'HFlLimit.CellAlignment = flexAlignCenterCenter
HFlLimit.TextMatrix(i, 1) = ""
sql = "SELECT limit FROM treelimit WHERE "
sql = sql & "treeno='" & strNodeKey & "' AND "
sql = sql & "groupname='" & RSTGroupUser!GroupName & "'"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
HFlLimit.TextMatrix(i, 7) = Trim(rst!limit)
For j = 1 To 5
If Mid(Trim(rst!limit), j, 1) = "1" Then
HFlLimit.Row = i
HFlLimit.Col = j + 1
Set HFlLimit.CellPicture = LoadPicture(Trim(App.Path) & "\images\v2.bmp")
HFlLimit.CellPictureAlignment = flexAlignCenterCenter
Else
HFlLimit.TextMatrix(i, j + 1) = ""
End If
Next j
Else
HFlLimit.TextMatrix(i, 7) = "0000000000"
For j = 2 To 6
HFlLimit.TextMatrix(i, j) = ""
Next j
End If
'Rst.Close
End If
RSTGroupUser.MoveNext
Loop
End If
RSTGroupUser.Close
'----------Set User
sql = "SELECT DISTINCT username,username_c FROM groupuser "
sql = sql & "ORDER BY username"
Set RSTGroupUser = gclsDatabase.RDOSelect(sql)
If RSTGroupUser.RowCount > 0 Then
Do While Not RSTGroupUser.EOF
If Len(Trim(RSTGroupUser!Username)) <> 0 Then
i = HFlLimit.Rows
If i = 2 Then
If TwoFlag = False Then
i = 1
TwoFlag = True
End If
End If
HFlLimit.Rows = i + 1
HFlLimit.TextMatrix(i, 0) = ""
HFlLimit.Row = i
HFlLimit.Col = 1
If Len(Trim(RSTGroupUser!Username_c)) = 0 Then
HFlLimit.Text = Trim(RSTGroupUser!Username)
Else
HFlLimit.Text = Trim(RSTGroupUser!Username_c) & "(" & Trim(RSTGroupUser!Username) & ")"
End If
'HFlLimit.CellAlignment = flexAlignCenterCenter
sql = "SELECT limit FROM treelimit WHERE "
sql = sql & "treeno='" & strNodeKey & "' AND "
sql = sql & "groupname='' AND "
sql = sql & "username='" & RSTGroupUser!Username & "'"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
HFlLimit.TextMatrix(i, 7) = Trim(rst!limit)
For j = 1 To 2
If Mid(Trim(rst!limit), j, 1) = "1" Then
HFlLimit.Row = i
HFlLimit.Col = j + 1
Set HFlLimit.CellPicture = LoadPicture(Trim(App.Path) & "\images\v2.bmp")
HFlLimit.CellPictureAlignment = flexAlignCenterCenter
Else
HFlLimit.TextMatrix(i, j + 1) = ""
End If
Next j
For j = 3 To 5
HFlLimit.TextMatrix(i, j + 1) = ""
Next j
Else
HFlLimit.TextMatrix(i, 7) = "0000000000"
For j = 2 To 6
HFlLimit.TextMatrix(i, j) = ""
Next j
End If
'Rst.Close
End If
RSTGroupUser.MoveNext
Loop
End If
RSTGroupUser.Close
HFlLimit.Redraw = True
Case 3
Call HFlLimitInit
HFlLimit.Redraw = False
'----------Set Group
sql = "SELECT DISTINCT groupname FROM groupuser "
sql = sql & "ORDER BY groupname"
Set RSTGroupUser = gclsDatabase.RDOSelect(sql)
If RSTGroupUser.RowCount > 0 Then
Do While Not RSTGroupUser.EOF
If Len(Trim(RSTGroupUser!GroupName)) <> 0 Then
i = HFlLimit.Rows
If i = 2 Then
If TwoFlag = False Then
i = 1
TwoFlag = True
End If
End If
HFlLimit.Rows = i + 1
HFlLimit.Row = i
HFlLimit.Col = 0
HFlLimit.Text = Trim(RSTGroupUser!GroupName)
'HFlLimit.CellAlignment = flexAlignCenterCenter
HFlLimit.TextMatrix(i, 1) = ""
sql = "SELECT limit FROM treelimit WHERE "
sql = sql & "treeno='" & strNodeKey & "' AND "
sql = sql & "groupname='" & RSTGroupUser!GroupName & "'"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
HFlLimit.TextMatrix(i, 7) = Trim(rst!limit)
For j = 1 To 5
If Mid(Trim(rst!limit), j, 1) = "1" Then
HFlLimit.Row = i
HFlLimit.Col = j + 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -