毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

员工培训管理系统 第8页

更新时间:2009-3-30:  来源:毕业论文
员工培训管理系统 第8页
用户管理界面及代码设计
5.4.1用户管理界面
这里的用户是指使用员工培训管理系统 第8页的用户,其界面包括:添加和删除用户、数据还原和备份等;用户按权限等级分系统管理员、超级用户和普通用户。系统管理员拥有各级系统的全部使用功能;超级用户与系统管理员相比,只不具备系统的数据还原和备份功能,其他功能与系统管理员一样;而普通用户只具有查询管理功能。
    

图5-4 用户管理界面
5.4.2用户管理界面代码设计
用户管理界面实现的代码设计如下(这里以添加用户为例):
Dim MyAddUser As OpenRs                   ’调用类函数
Dim Choose As Boolean
Dim Level As Integer
Private Sub Cmdcancel_Click()                 ’设置取消键
Unload Me
End Sub

Private Sub cmdComp_Click()             
If Choose = False Then                       
   MsgBox "请选择一个操作级别!", vbOKOnly + vbInformation, "添加新用户"
   Exit Sub
End If
MyAddUser.rs1.AddNew                           ’增加一条连接到表的记录集
MyAddUser.rs1!user_id = Trim(txtUserid.Text)       ’把输入框数据存入记录集
MyAddUser.rs1!user_name = Trim(txtUsername .Text)
MyAddUser.rs1!user_des = Trim(txtUserdes.Text)
MyAddUser.rs1!user_pwd = Trim(txtPwd1.Text)
MyAddUser.rs1!user_level = Level
MyAddUser.rs1.Update                              ’更新存入表
If MsgBox("添加用户成功!" & vbCrLf & vbCrLf & "是否继续添加用户?", vbYesNo + vbQuestion, "添加用户") = vbYes Then
   Frame3.Visible = False
   cmdComp.Visible = False
   Frame1.Visible = True
   cmdNext.Visible = True
   txtUserid.SetFocus
   Call ClearText
  
Else
   Unload Me
End If
End Sub

Private Sub cmdNext_Click()                                   ’设置下一步按钮
Choose = False
Dim txtUseridSQL As String
If Trim(txtUserid.Text) = "" Then                                ’用户id为空重新输入
   MsgBox "用户编号不能为空!", vbOKOnly + vbInformation, "提示"
   txtUserid.SetFocus
   Exit Sub
Else
   txtUseridSQL = "select * from User_Info"                ’从数据库读出用户id验证
   MyAddUser.rsDK1 txtUseridSQL
   While (MyAddUser.rs1.EOF = False)
      If Trim(MyAddUser.rs1!user_id) = Trim(txtUserid.Text) Then
         MsgBox "用户编号已存在,请重新输入用户编号!", vbOKOnly + vbExclamation, "警告"
         txtUserid.Text = ""
         txtUsername.Text = ""
         txtUserdes.Text = ""
         txtUserid.SetFocus
         Exit Sub
      Else
         MyAddUser.rs1.MoveNext
      End If
   Wend
End If

If txtUsername.Text = "" Then                                    ’用户名为空提示
   MsgBox "用户名不能为空!", vbOKOnly + vbInformation, "提示"
   txtUsername.SetFocus
   Exit Sub
End If
Frame1.Visible = False
Frame2.Visible = True
txtPwd1.SetFocus
cmdNext.Visible = False
cmdNext1.Visible = True
End Sub

Private Sub cmdNext1_Click()                                   ’密码为空提示
Dim i As Integer
    If txtPwd1.Text = "" Then
       MsgBox "请输入密码!", vbOKOnly + vbInformation, "提示"
       txtPwd1.SetFocus
       Exit Sub
    End If
    If txtPwd2.Text = "" Then
       MsgBox "请输入确认密码!", vbOKOnly + vbInformation, "提示"
       txtPwd2.SetFocus
       Exit Sub
    End If
    If txtPwd1.Text <> txtPwd2.Text Then              ’密码不一致提示
       MsgBox "两次输入的密码不一致!!!" & vbCrLf & vbCrLf & "请重新输入!", vbOKOnly + vbInformation, "提示"
       txtPwd1.Text = ""
       txtPwd2.Text = ""
       txtPwd1.SetFocus
       Exit Sub
    End If
Frame2.Visible = False
Frame3.Visible = True
cmdNext1.Visible = False
cmdComp.Visible = True
For i = 0 To 2                                           '取消选项按钮选择
Option1(i).Value = False
Next i
List1.ListIndex = -1
End Sub

Private Sub Choose_level()                               ’各用户等级权限设置
Dim i As Integer
If Option1(0).Value = True Then
   Level = 1
   For i = 0 To 9  '全选
   List1.Selected(i) = True
   Next i
   List1.ListIndex = -1
ElseIf Option1(1).Value = True Then
   Level = 2
   For i = 0 To 6
   List1.Selected(i) = True
   Next i
   List1.Selected(7) = False
   List1.Selected(8) = False
   List1.Selected(9) = False
   List1.ListIndex = -1
ElseIf Option1(2).Value = True Then
   Level = 3
   List1.Selected(0) = True
   List1.Selected(1) = True
   For i = 2 To 9
   List1.Selected(i) = False
   Next i
   List1.ListIndex = -1
End If
End Sub

Private Sub Form_Load()
Set MyAddUser = New OpenRs
End Sub

Private Sub Option1_Click(Index As Integer)
Choose = True
Call Choose_level
End Sub
Private Sub ClearText()
Dim i As Integer
txtUserid.Text = ""
txtUsername.Text = ""
txtUserdes.Text = ""
txtPwd1.Text = ""
txtPwd2.Text = ""
For i = 0 To 2                                                '取消选项按钮选择
Option1(i).Value = False
Next i
Choose = False
For i = 0 To 9

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

员工培训管理系统 第8页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©youerw.com 优文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。