第一篇：管理員登錄系統

第一！！！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，然后選中用戶，就可以在右邊看到計算機上所有的用戶了，然后選中目標用戶，進行刪除操作皆可。

同時選中組，就可以在右邊看到關于組的詳細信息，可以對相應的目標組進行操作，刪除或修改。