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

VB学生学籍管理系统(论文+源程序) 第7页

更新时间:2010-3-29:  来源:毕业论文
VB学生学籍管理系统(论文+源程序) 第7页
 Set Listit = ListView.ListItems.Add(, , ef.Fields("UserID"))
           Listit.SubItems(1) = "***" 
           隐藏用户的密码,用***来替代。
           Listit.SubItems(2) = ef("UserName")
           Listit.SubItems(3) = ef("UserPower")
        ef.MoveNext
    Loop
Set ef = Nothing
End Sub

3.添加用户
在Textbox中输入了相应的数据以后,按添加按钮则调用该按钮的Click事件,代码如下
当单击“添加”按钮时,首先检查输入的用户名和密码是否为空,代码如下:
Private Sub Command4_Click()
  If Trim(Text1.Text) = "" Then
      MsgBox "登陆用户名不允许为空!", vbOKOnly + 48, "提示:"
      Text1.SetFocus
      Exit Sub
End If

If InStr(1, Trim(Text1.Text), "'", vbTextCompare) Then
      MsgBox "用户姓名中有特殊字符" + "<'>,请删除。", vbOKOnly + 48, "提示:"
      Text1.SetFocus
      Exit Sub
End If

If Trim(Text2.Text) = "" Then
    MsgBox "密码不能为空,请输入密码!", vbOKOnly + 48, "提示:"
    Text2.Text = ""
    Text3.Text = ""
    Text2.SetFocus
    Exit Sub
End If
End Sub
如果不为空,则检查用户名是否有重复,需要打开系统信息表,
Private Sub Command4_Click()
……
    sqlstr = "select * from UserInfo where UserID='" & Text1.Text & "'"
rs.Open sqlstr, con, 1, 1
 End Sub
如果当前记录不为空,则逐条记录检查是否有重复
Private Sub Command4_Click()

……
Userid = Trim(Text1.Text)
Userpwd = MD5(Trim(Text2.Text))
Username = Trim(Text4.Text)
Userpower = Trim(Combo1.Text)
 
DelNO = rs.RecordCount
 
Do While Not rs.EOF
      ……
      rs.MoveNext
Loop
  ……
End Sub
如果有重复,则提示已存在这个用户,然后将焦点设置给Text1,并将所有的文本框清空。
Private Sub Command4_Click()
……
 Do While Not rs.EOF
      If Text1.Text = rs.Fields("UserID") Then
        MsgBox "已经存在用户名为 " & Userid & " 的用户帐号", vbInformation
        Text1.SetFocus
        Exit Sub
      End If
      rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Sub
如果没有重复,再检查两次输入的密码是否一致,如果不一致,则提示“两次密码不一致”。
Private Sub Command4_Click()
……
If Trim(Text3.Text) <> Trim(Text2.Text) Then
       MsgBox "两次密码不相同,请重输入!", vbOKOnly + 48, "提示:"
       Text2.Text = ""
       Text3.Text = ""
       Text2.SetFocus
       Exit Sub
End If
End Sub
如果以上全部正确无误的设置好了,则将新用户的信息添加到数据表中,并提示“添加新用户成功”。
Private Sub Command4_Click()
sqlstr = "insert into UserInfo(UserID,UserPWD,UserName,UserPower) "
sqlstr = sqlstr & "values('" & Userid & "','" & Userpwd & "', "
sqlstr = sqlstr & "'" & Username & "','" &Userpower & "')"
con.Execute sqlstr
    MsgBox "添加用户" & Text1.Text & "成功", vbOKOnly, "添加系统用户"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
 
    '更新列表
    LoadOperator
End Sub
4.删除系统用户
当用户双击ListView中的数据时,则会调用DeleteRecord()函数,如果系统用户只剩一个,则提示用户不能再删除;反之要求输入您想要删除的用户的密码,密码正确时才可以将该用户删除,密码错误时则不采取任何措施;最后调用LoadOperator显示并刷新Listview中的数据。根据以上的设计,DeleteRecord()的代码如下:
Private Sub DeleteRecord()
'删除用户操作
On Error Resume Next
If ListView.SelectedItem.Selected Then
    If DelNO <= 1 Then
        MsgBox "只剩下一个用户帐号,不允许再删除!", vbInformation
    ElseIf MsgBox("确定要删除用户名为"& ListView.SelectedItem.Text & "的用户帐号吗?", vbYesNo + 32 + vbDefaultButton2) = vbYes Then
         sqlstr = "select * from UserInfo where UserID='" & ListView.SelectedItem.Text & "'"
         rs.Open sqlstr, con, 1, 1
           
         If MD5(InputBox("请输入该用户的密码:")) = rs.Fields("UserPWD") Then
           sqlstr = "delete from UserInfo where UserID='" & ListView.SelectedItem.Text & "'"
               con.Execute sqlstr
            Else
               MsgBox "对不起!您输入的密码不正确,删除该用户失败!", vbInformation
            End If
            LoadOperator
    End If
End If
rs.Close: Set rs = Nothing
End Sub
5.菜单设计
在Listview中单击鼠标右键会调用ListView的MouseUp事件,出现右键菜单menuOpertor,

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

VB学生学籍管理系统(论文+源程序) 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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