管理员登录系统

第一篇：管理员登录系统

第一！！！1，（index.asp 用户登陆页面）

第二篇：VB用户登录管理系统

软件开发环境与工具

实验报告

实验二

实验题目：用户登录及管理系统 实验地点：软件实验室一 指导老师：王琦 实验类型：设计型

系 班：计算机科学与技术系1103班 姓 名：秦芳芳（2011100316）

2013年11月22日

一．实验项目名称：用户登录及管理系统 二.实验目的和任务：

1、掌握系统登录界面设计基本流程

2、了解用户管理所要实现的基本功能

3、要求利用三层架构思想机ado.Net相关技术实现程序

三.实验内容及要求：

1、能够进行登录验证

2、能够实现对用户的基本管理,管理员能够进行查询添加修改删除

3、利用ado.net数据库连接访问数据库,提高安全性

四．实验步骤：

1、class1.vb的代码：

Imports System.Data.SqlClient Public Class Class1

Dim strconn As String = Me.getstrconn()Public Function yanzheng(ByVal str1 As String)As Integer

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname ='” & str1 & “'” cmd.Connection = conn 'cmd.CommandType = CommandType.Text

Dim dr As SqlDataReader dr = cmd.ExecuteReader If dr.Read Then dr.Close()conn.Close()Return 1 Else

dr.Close()conn.Close()Return 0 End If

End Function

Public Function pwdyanzheng(ByVal str As String)As SqlDataReader

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()

Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname = '” & str & “'” cmd.Connection = conn Dim dr As SqlDataReader = cmd.ExecuteReader Return dr End Function

Public Function getstrconn()As String

Dim str As String str = “server=” & System.Configuration.ConfigurationManager.AppSettings(“server”)& “;” str &= “uid=” & System.Configuration.ConfigurationManager.AppSettings(“uid”)& “;” str &= “pwd=” & System.Configuration.ConfigurationManager.AppSettings(“pwd”)& “;” str &= “database=” & System.Configuration.ConfigurationManager.AppSettings(“database”)Return str End Function

Public Function getalldata()As DataSet

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim da As New SqlDataAdapter(“select * from student”, conn)Dim ds As New DataSet da.Fill(ds, “student”)conn.Close()Return ds End Function

Public Function insdata(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “insert into student(sname,sno)values('” & str1 & “','” & str2 & “')”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()

End Function

Public Function upd(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “update student set sno ='” & str2 & “'where sname ='” & str1 & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

Public Function deldata(ByVal str As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “delete from student where sname ='” & str & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

Public Function search(ByVal str1 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “select * from student”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

End Class

2、进入界面功能的代码：

Imports System.Data.SqlClient Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class

1Dim f As Integer

f = o.yanzheng(Me.TextBox1.Text)If f = 0 Then

MsgBox(“不存在该用户，请重新输入！”)Me.TextBox1.Text = “"

Me.TextBox1.Focus()Else

If f = 1 Then

Dim dr As SqlDataReader

dr = o.pwdyanzheng(Me.TextBox1.Text)dr.Read()If RTrim(dr!sno)<> Me.TextBox2.Text Then MsgBox(”密码错误，请重新输入！“)Me.TextBox2.Text = ”“

Me.TextBox2.Focus()Else

Dim strpwd As String

strpwd = Me.TextBox2.Text strpwd = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strpwd, ”md5“)Dim frm As New Form2

frm.loginname = Me.TextBox1.Text frm.logintime = TimeOfDay frm.Show()Me.Hide()End If

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click MyBase.Dispose()

End Sub End Class

3、用户管理和浏览信息界面的代码： Public Class Form2

Public loginname As String

Public logintime As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()Form3.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()Form4.Show()End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load Me.loginstatusname.Text = ”用户名：“ & loginname Me.loginstatustime.Text = ”登录时间：“ & logintime End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick Me.ToolStripStatusLabel1.Text = Now End Sub End Class

4、增，删，改，查功能页面的代码： Public Class Form3

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click Me.Hide()del.Show()End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()ins.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()upda.Show()End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button4.Click Me.Close()search.Show()End Sub End Class

5、显示信息界面的代码： Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Close()Form2.Show()End Sub

Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load Dim o As New Class

1Dim ds As New DataSet ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(”student“)End Sub End Class

6、插入信息界面的代码： Public Class ins

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class1

o.insdata(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Class

7、查询信息界面的代码： Public Class search

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Class

1Dim ds As New DataSet

o.search(Me.TextBox1.Text)ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(”student")End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button2.Click

Me.Close()Form2.Show()End Sub

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellClick Me.TextBox1.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString Me.TextBox2.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString Me.TextBox3.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString Me.TextBox4.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString Me.TextBox5.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString End Sub End Class

8、修改信息界面的代码： Public Class upda

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class1

o.upd(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Class

9、删除信息界面的代码： Public Class del

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Class1

'o.deldata(Me.TextBox1.Text)o.deldata(Me.TextBox1.Text)Me.Close()Form2.Show()End Sub

End Class

五、运行结果及截图：

（1）建立数据库

（2）运行截图

六、实验总结：

通过本次实验，我大致掌握了一个登录系统界面设计的基本流程，同时了解了用户管理所要实现的基本功能，而且能够利用三层架构思想机ado.Net相关技术实现程序，能够进行登录验证，实现了对用户的基本管理,在系统中实现了增删查改的功能，利用ado.net数据库连接访问数据库,提高了安全性，为以后的学习打下了很好的基础。

第三篇：管理员帐户设置了密码,但系统还是自动登录的解决方法

管理员帐户设置了密码,但系统还是自动登录的解决方法

基于种种原因，人们会对Win XP/2003登录帐户设置登录密码，这样每次登录系统都要输入密，比较麻烦。

于是，有人想既给帐户设置登录密码，又希望系统能够自动登录，不用输入密码。这能否办得到呢？答案是肯定的。然而，好多网友不知道怎么去设置自动登录，于是乎论坛上就常有问如何设置自动登录的求助帖子。

为此，我特意发这个教程，讲述如何实现系统自动登录的图解设置过程，希望对那些网友有所帮助。下面是自动登录设置的详细过程：

1、运行命令“control userpasswords2”

点击“开始”→运行→输入control userpasswords2→确定

2、先点选要设置自动登录的帐户名，然后点“要使用本机，必须输入用户名和密码”前面的方框，去掉里面的√，然后点“确定”。

3、在“自动登录”设置窗口中，“密码”和“确认密码”框里输入该帐户的登录密码，最后点“确定”。重启系统试试，是不是能够自动登录了。

日后，你如果改变了注意，不想用“自动登录”了，则可在上述第2步“用户帐户”窗口中，点“要使用本机，必须输入用户名和密码”前面的方框，出现个√，之后点“确定”即可。

第四篇：登录系统设计个人小结

项目实训总结

通过本次课程设计，我感受颇多，尽管上课时也认真听了老师的讲课，但是已开始面对自己的题目时，还真是有些不知所措，都不知道如何下手，后来鼓起勇气着手实训，纵然前面会很多挫折，硬着头皮开始了。

本次实训是分工合作形式，我负责JSP页面设计，在这过程中，要设计登录界面，管理员，教师和学生的相关功能。我负责了部分代码的完成，对于第一次合作完成一个完整教务登录管理系统确实有些摸不着头脑。然而，经过这差不多四个星期来的学习与编码，总算还是收获不少，对JavaEE的认识也更加的深刻了。JSP是一门新技术，他基于Java Servlet以及整个JavaEE框架体系的Web开发技术。从网上得知JavaEE的中文问题历史悠久，连绵不绝，至今也没有完全解决，但是上有政策下有对策，我们总是有办法搞定它的。跟JavaEE相关的中文问题主要有两类，一类是编程的问题，涉及到I/O，内码转换等。第二类是JavaEE运行环境的配置，涉及字体，属性配置等。觉得很有必要给自己写个备忘录之类的。学习了JavaEE，感触很深，这一技术是需要有一定基础、而且动手能力强的学科。书上也强调一点是：要想真正地掌握JavaEE技术，必须有较好的java语言基础，以及HTML语言方面的知识。想想的确对啊。

在这个过程中，我感觉就像人生的一个缩影，充满了酸甜苦辣。当一个问题想了好久也无法解决时，我感到沮丧与无助。当经过努力解决了一个程序上的难题时，我感到无比的喜悦。当经过每天为了编写代码一坐就是四五个小时，晚上还要写到凌晨一两点钟的时候，我感到无比的痛苦。但艰难痛苦已成往事，灿烂的明天向我走来，今天我总算迎接了胜利的果实，以前的辛酸与痛苦化作我坚强的力量，将在我将来的人生历程中，为我的美好明天打下坚实的基础。

从功能上来讲，本教务系统数据库采用自顶而下的设计思路，数据库的访问权限逐层限制。同时处于同一层次的不同角色之间的权限有交叉性又有差异性。基本上能够完成对数据的查询，添加，删除，修改等基本的数据库系统操作。

从数据库的运行效率上来讲，本教务管理系统由于没有采用数据库管理系统的默认的系统参数，并根据的实际的数据需求进行重新配臵，同时对物理体系结构的调整，使得数据库的运行效率得到提高。我们做东西，也是要追求进步，如果说做出来的东西和以前的系统都没什么两样，这样意义也不大。不过，这也得是在我们能力所及的范围内，我们得适当地把握好自己的时间和现有资源进行适当的设计。相信自己的努力还是能有一个很好的结果的，我们得对自己的发展有一个好的概括。

本教务管理系统登录设计，历时三周，从2017年底，经过了2018这崭新的一年每天都要写学习日报，报告总结每天学习了什么，遇到什么问题，如何处理等，这种方式让我们养成了好的学习习惯，确实受益匪浅。说实在话，一直觉得自己有做不完的作业，刚开始还有些抱怨，但随着作业的进行，我们慢慢看到了自己的小小成果，觉得付出有了回报，并开始乐在其中。在这期间，老师也一直陪伴和鼓励我们，告诉我们，只要坚持做下去，我们会收获到成功的喜悦的！谢谢老师和同学们的鼓励和支持！

第五篇：Windows_XP如何登录Administrator账户以及删除管理员账户的方法

XP系统一般情况下在装完系统后会有一个计算机管理员权限的用户，以后登陆时就显示这个用户，而看不到 Administrator账户，并且进入XP系统后在控制面板中的用户账户下看不到Administrator用户，就好像丢失了一样，如何看到，并使 用Administrator账户呢？那么又如何删除计算机管理员权限的用户呢？

（1）登陆Administrator账户

方法一：进入“控制面板”->“用户账户”->“更改用户登录或注销的方式”，然后将“使用欢迎屏幕”前的勾选去掉。重新启动计算机，使用用户名：Administrator，输入密码（没有密码就不要输入），OK!方法二：单击“开始/运行”，输入“rundll32 netplwiz.dll,UsersRunDll”，按回车键后弹出“用户账户”窗口，这和“控制面板”中打开的“用户账户”窗口不同！然后取消选定“ 要使用本机，用户必须输入用户名和密码”选项，单击确定。在弹出的对话框中输入你想让电脑每次自动登录的账户（默认Administrator）和密码即 可。下一次开机自动用Administrator登陆到系统，再看控制面板就有了Administrator。

（2）删除计算机管理员权限的账户

单击“开始/运行”，输入“rundll32 netplwiz.dll,UsersRunDll”，按回车键后弹出“用户账户”窗口，在本机用户中，选中要删除的计算机管理员权限的账户，然后单击下面的删除按钮，OK。

======================= 如何删除管理员账户方法2009-04-20 13:55

其一:在“开始→运行”中输入compmgmt.msc，在打开的“计算机管理”控制台中定位到“系统工具→本地用户和组→用户”，在右侧窗口的列表中选中所要删除的目标账户，右键点击之并选择“删除”，关闭控制台。

其二:在注册表中删除,简单的说,你可以查找要删除的管理员的名字,将查询出来的结果都删除即可.其三:笔者的Windows XP系统一直是使用“Administrator”管理员账户，并没有再创建其他账户。最近为了测试系统创建一个新超级管理员账户（如图1所示），但是测试完成后，在“用户账户”里却找不到本应有的删除账户的菜单（如图2所示）。

分析：

当Windows XP安装完成第一次登录时，系统要求输入使用的用户名，这里输入的用户名称不允许是“Administrator”和“Guest”。如果此时冷启动系统，下次登录Windows XP将自动以“Administrator”账户登录。在Windows XP创建新管理员账户后，原先的“Administrator”账户已经隐藏，系统就认为新建的管理员账户为唯一的管理员账户。

解决：

问题找到了，解决起来就容易多了，只需要让系统“明白”有另外一个系统管理员账户就可以删除新建的管理员账户。具体操作步骤如下：

1.以“Administrator”账户登录Windows XP，点击“开始→运行”，在运行文本框中输入“gpedit.msc”，回车后打开“组策略”工具；

2.在“组策略”窗口的目录树中展开“计算机配置→Windows设置→安全设置→本地策略→安全选项”，接着在右窗口中双击“账户：重命名系统管理员账户”，输入其他字符更改系统管理员名称（如图3所示）；

3.要“控制面板”中打开“用户账户”，可以发现“Administrator”已经更名为刚刚更改的名称，单击创建的管理员账户，进入具体操作窗口，单击“删除账户”进入具体删除操作（如图4所示）。

4.如果希望以“Administrator”使用系统，重复步骤2更换回来即可

如果以上中提到的命令没有运行结果，那么可以用下面的方法：

在xp系统中，可以依次单击：控制面板－>计算机管理，然后在左边框中，单击“本地用户和组”，打开tree，然后选中用户，就可以在右边看到计算机上所有的用户了，然后选中目标用户，进行删除操作皆可。

同时选中组，就可以在右边看到关于组的详细信息，可以对相应的目标组进行操作，删除或修改。