?? frmusermanger.frm
字號:
VERSION 5.00
Begin VB.Form frmUserManger
BorderStyle = 3 'Fixed Dialog
Caption = "用戶管理"
ClientHeight = 5055
ClientLeft = 45
ClientTop = 330
ClientWidth = 7935
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5055
ScaleWidth = 7935
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdReturn
Caption = "返 回"
Height = 375
Left = 6240
TabIndex = 3
Top = 4320
Width = 975
End
Begin VB.CommandButton cmdDel
Caption = "刪 除"
Height = 375
Left = 4440
TabIndex = 2
Top = 4320
Width = 975
End
Begin VB.CommandButton cmdModi
Caption = "修 改"
Height = 375
Left = 2520
TabIndex = 1
Top = 4320
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "新 增"
Height = 375
Left = 720
TabIndex = 0
Top = 4320
Width = 975
End
Begin VB.Frame Frame1
Caption = "用戶信息"
Height = 3855
Left = 240
TabIndex = 8
Top = 120
Width = 7455
Begin VB.Frame Frame2
Caption = "權限設制"
Height = 1095
Left = 4680
TabIndex = 15
Top = 240
Width = 2415
Begin VB.OptionButton Option3
Caption = "讀取權限"
Height = 255
Left = 360
TabIndex = 18
Top = 720
Width = 1335
End
Begin VB.OptionButton Option2
Caption = "修改權限"
Height = 255
Left = 360
TabIndex = 17
Top = 480
Width = 1575
End
Begin VB.OptionButton Option1
Caption = "無限制"
Height = 255
Left = 360
TabIndex = 16
Top = 240
Width = 1815
End
End
Begin VB.CommandButton cmdFirst
Caption = "<<"
Height = 375
Left = 720
TabIndex = 4
Top = 3240
Width = 855
End
Begin VB.CommandButton cmdPre
Caption = "<"
Height = 375
Left = 2400
TabIndex = 5
Top = 3240
Width = 855
End
Begin VB.CommandButton cmdNext
Caption = ">"
Height = 375
Left = 4200
TabIndex = 6
Top = 3240
Width = 855
End
Begin VB.CommandButton cmdLast
Caption = ">>"
Height = 375
Left = 5880
TabIndex = 7
Top = 3240
Width = 855
End
Begin VB.TextBox txtUser_des
Height = 1455
Left = 1320
MaxLength = 50
MultiLine = -1 'True
TabIndex = 11
Top = 1560
Width = 5775
End
Begin VB.TextBox txtUser_pwd
Height = 375
Left = 1320
TabIndex = 10
Top = 840
Width = 3015
End
Begin VB.TextBox txtUser_id
Height = 375
Left = 1320
TabIndex = 9
Top = 360
Width = 3015
End
Begin VB.Label lblUser_des
Caption = "描 述："
Height = 255
Left = 480
TabIndex = 14
Top = 1680
Width = 855
End
Begin VB.Label lblUser_pwd
Caption = "密 碼："
Height = 255
Left = 480
TabIndex = 13
Top = 960
Width = 855
End
Begin VB.Label lblUser_id
Caption = "用戶名："
Height = 255
Left = 480
TabIndex = 12
Top = 480
Width = 855
End
End
End
Attribute VB_Name = "frmUserManger"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim strQx As String
Private Sub cmdAdd_Click()
frmUserAdd.Show vbModal
End Sub
Private Sub cmdDel_Click()
If Option1.Value = True Then
strSql = "Delete from sysuser where user_id = '" & txtUser_id & "'"
dbConn.Execute strSql
Form_Activate
Else
MsgBox "不能進行刪除操作！", vbOKOnly + vbExclamation, "警告"
End If
End Sub
Private Sub cmdFirst_Click()
rs.MoveFirst
refreshData
End Sub
Private Sub cmdLast_Click()
rs.MoveLast
refreshData
End Sub
Private Sub cmdmodi_Click()
If Option3.Value = False Then
tUser_id = txtUser_id.Text
frmUserModi.Show vbModal
Else
MsgBox "不能進行修改操作！", vbOKOnly + vbExclamation, "警告"
End If
End Sub
Private Sub cmdNext_Click()
On Error GoTo ERR_CONN
rs.MoveNext
refreshData
Exit Sub
ERR_CONN:
rs.MoveLast
refreshData
End Sub
Private Sub cmdPre_Click()
On Error GoTo ERR_CONN
rs.MovePrevious
refreshData
Exit Sub
ERR_CONN:
rs.MoveFirst
refreshData
End Sub
Private Sub cmdReturn_Click()
Unload Me
End Sub
Private Sub Form_Activate()
txtUser_id.Text = ""
txtUser_pwd.Text = ""
txtUser_des.Text = ""
txtUser_id.Locked = True
txtUser_pwd.Locked = True
txtUser_des.Locked = True
strSql = "Select user_id,user_pwd,user_qx,user_des from sysuser where user_id <> 'admin' order by user_id "
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open strSql, dbConn, adOpenStatic, adLockReadOnly
If rs.EOF Then
cmdFirst.Enabled = False
cmdLast.Enabled = False
cmdPre.Enabled = False
cmdNext.Enabled = False
cmdmodi.Enabled = False
cmdDel.Enabled = False
Else
rs.MoveFirst
refreshData
End If
End Sub
Private Sub Form_Load()
Me.Icon = LoadPicture(App.Path & "\Graph07.ico")
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
End Sub
Private Sub refreshData()
txtUser_id.Text = rs.Fields("user_id")
txtUser_pwd.Text = rs.Fields("user_pwd")
strQx = rs.Fields("user_qx")
Select Case strQx
Case "a"
Option1.Value = True
Case "b"
Option2.Value = True
Case "c"
Option3.Value = True
End Select
If Not IsNull(rs.Fields("user_des")) Then
txtUser_des.Text = rs.Fields("user_des")
End If
End Sub
Private Sub Option1_Click()
Select Case strQx
Case "a"
Option1.Value = True
Case "b"
Option2.Value = True
Case "c"
Option3.Value = True
End Select
End Sub
Private Sub Option2_Click()
Select Case strQx
Case "a"
Option1.Value = True
Case "b"
Option2.Value = True
Case "c"
Option3.Value = True
End Select
End Sub
Private Sub Option3_Click()
Select Case strQx
Case "a"
Option1.Value = True
Case "b"
Option2.Value = True
Case "c"
Option3.Value = True
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -