📄 frmdeluser.frm
字号:
VERSION 5.00
Object = "{CE671F01-259E-40DA-92FE-95803E2ECBB5}#1.0#0"; "SmartXPButton.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form FrmDelUser
BackColor = &H00E7DFE7&
BorderStyle = 1 'Fixed Single
Caption = "删除用户"
ClientHeight = 4980
ClientLeft = 45
ClientTop = 330
ClientWidth = 7335
Icon = "FrmDelUser.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4980
ScaleWidth = 7335
Begin VB.Frame Frame1
BackColor = &H00E7DFE7&
Caption = "浏览用户编号"
Height = 3255
Left = 120
TabIndex = 2
Top = 240
Width = 2895
Begin MSComctlLib.TreeView TreeView1
Height = 2655
Left = 120
TabIndex = 3
Top = 360
Width = 2535
_ExtentX = 4471
_ExtentY = 4683
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
HotTracking = -1 'True
ImageList = "ImageList1"
Appearance = 1
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid DelUser_Grid
Height = 3135
Left = 3360
TabIndex = 1
Top = 360
Width = 3855
_ExtentX = 6800
_ExtentY = 5530
_Version = 393216
BackColorFixed = 15196135
BackColorBkg = 15196135
BackColorUnpopulated= 15196135
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin SmartXPButton.XpButton cmdDelUser
Height = 495
Left = 1800
TabIndex = 0
Top = 4320
Width = 1335
_ExtentX = 2355
_ExtentY = 873
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "删除(&D)"
CaptionMouseOverColor= 16711680
PictureBackColor= 15790320
PictureSmoothBackColor= 15790320
ButtonPicture = "FrmDelUser.frx":1982
End
Begin MSComctlLib.ImageList ImageList1
Left = 1440
Top = 1560
_ExtentX = 1005
_ExtentY = 1005
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 = "FrmDelUser.frx":1F1C
Key = "user1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmDelUser.frx":292E
Key = "user2"
EndProperty
EndProperty
End
Begin SmartXPButton.XpButton cmdExit
Height = 495
Left = 3960
TabIndex = 5
Top = 4320
Width = 1335
_ExtentX = 2355
_ExtentY = 873
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "关闭(&E)"
CaptionMouseOverColor= 16711680
PictureBackColor= 15790320
PictureSmoothBackColor= 15790320
ButtonPicture = "FrmDelUser.frx":2EC8
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "提示：选定用户编号,然后单击""删除""按钮即可删除用户!"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 480
TabIndex = 4
Top = 3720
Width = 5250
End
End
Attribute VB_Name = "FrmDelUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MyDelUser As OpenRs
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub UserTree() '显示所有的用户编号
Dim mynod As Node
Dim sql1 As String
TreeView1.Nodes.Clear
'sql1 = "select * from User_Info order by user_level,user_id"
'MyDelUser.rsDK1 sql1
MyDelUser.rsDK1 "select * from user_info where user_level=1 order by user_id"
If Not MyDelUser.rs1.EOF Then
Set mynod = TreeView1.Nodes.Add(, , "Admin", "系统管理员", 1, 1)
While Not MyDelUser.rs1.EOF
Set mynod = TreeView1.Nodes.Add("Admin", tvwChild, , CStr(MyDelUser.rs1!user_id), 2, 2)
MyDelUser.rs1.MoveNext
Wend
End If
MyDelUser.rsDK1 "select * from user_info where user_level=2 order by user_id"
If Not MyDelUser.rs1.EOF Then
Set mynod = TreeView1.Nodes.Add(, , "PowerUser", "超级用户", 1, 1)
While Not MyDelUser.rs1.EOF
Set mynod = TreeView1.Nodes.Add("PowerUser", tvwChild, , CStr(MyDelUser.rs1!user_id), 2, 2)
MyDelUser.rs1.MoveNext
Wend
End If
MyDelUser.rsDK1 "select * from user_info where user_level=3 order by user_id"
If Not MyDelUser.rs1.EOF Then
Set mynod = TreeView1.Nodes.Add(, , "User", "普通用户", 1, 1)
While Not MyDelUser.rs1.EOF
Set mynod = TreeView1.Nodes.Add("User", tvwChild, , CStr(MyDelUser.rs1!user_id), 2, 2)
MyDelUser.rs1.MoveNext
Wend
End If
End Sub
Private Sub cmdDelUser_Click()
If MsgBox("确认要删除用户编号为 " & MyDelUser.rs1!user_id & " 的用户吗？", vbQuestion + vbOKCancel, "删除用户") = vbOK Then
MyDelUser.rs1.Delete
cmdDelUser.Enabled = False
DelUser_Grid.Clear
DelUser_Grid.FormatString = "|用户编号|用户名|用户级别| 用户描述"
Call UserTree
End If
End Sub
Private Sub Form_Activate()
Call UserTree
End Sub
Private Sub Form_Deactivate()
cmdDelUser.Enabled = False
End Sub
Private Sub Form_Load()
Set MyDelUser = New OpenRs
Call UserTree
DelUser_Grid.FormatString = "|用户编号|用户名|用户级别| 用户描述"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim sql2 As String
sql2 = "select user_id,user_name,user_level,user_des from User_Info where user_id='" & Node.Text & "'"
MyDelUser.rsDK1 sql2
If MyDelUser.rs1.EOF Then
DelUser_Grid.Clear
DelUser_Grid.FormatString = "|用户编号|用户名|用户级别| 用户描述"
cmdDelUser.Enabled = False
Else
Set DelUser_Grid.DataSource = MyDelUser.rs1
DelUser_Grid.FormatString = "|用户编号|用户名|用户级别| 用户描述"
cmdDelUser.Enabled = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -