本人使用VB.NET，正在做一個(gè)用戶注冊登錄系統(tǒng)，但是不知該如何實(shí)現(xiàn)輸入的賬號(hào)和數(shù)據(jù)庫的信息進(jìn)行比對(duì)。

/// summary

成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比香河網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式香河網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋香河地區(qū)。費(fèi)用合理售后完善，10余年實(shí)體公司更值得信賴。

/// 是否存在該記錄

/// /summary

public bool Exists(string user_id)

{

StringBuilder Sql = new StringBuilder();

Sql.Append("select count(1) from USER_INFO");

Sql.Append(" where USER_ID=:user_id");

OracleParameter[] parameters = {

new OracleParameter(":user_id", OracleType.VarChar,20)

};

parameters[0].Value = user_id;

object obj = cn.Runsa.Data.OracleHelper.ExecuteScalar(ConfigurationManager.ConnectionStrings["oraclethree"].ToString(), CommandType.Text, Sql.ToString(), parameters);

if (obj == null || obj.ToString() == "0")

{

return false;

}

else

{

return true;

}

vb.net如何實(shí)現(xiàn)注冊機(jī)

原理有很多，這里實(shí)現(xiàn)的是在文件結(jié)尾追加配置字符的方法。

程序下載，右鍵另存為rar文件：/uploadfile/200510/20051017144056534.gif就可以實(shí)現(xiàn)注冊機(jī)了。

注冊機(jī)就是批量生成相同功能的而內(nèi)部配置不用程序文件的程序，這個(gè)程序的好處是不用在修改源代碼重新編譯的情況下產(chǎn)生新的文件，廣泛應(yīng)用與木馬行業(yè)。

注冊機(jī)是一種破解軟件，它的用途基本在兩個(gè)范圍之內(nèi):

一個(gè)就是由于一些軟件涉及版權(quán)問題，要完全使用的話需要注冊，或者有試用期限限制，或者只有注冊之后才可以享受全功能。第二個(gè)就是某些網(wǎng)站、網(wǎng)頁通過正常注冊用戶會(huì)很復(fù)雜，或者是網(wǎng)頁、網(wǎng)站管理員需要大量注冊內(nèi)測用戶的時(shí)候就可以用注冊機(jī)來達(dá)到簡單快速的注冊用戶了。

總結(jié)如下：

注冊機(jī)則解決了這一問題，注冊機(jī)根據(jù)其相應(yīng)解決的軟件而有不同的形式，一般需要脫殼軟件、內(nèi)存查看軟件和反組譯器等破解工具作為輔助。大部分在我們拿到注冊機(jī)之后,可以得到相應(yīng)的一些注冊碼或者其他相應(yīng)的一些東西。這些都是破解該軟件所需的，我們只要按照步驟填寫那些注冊碼，被封的軟件就可以高枕無憂的使用了。

大部分在我們拿到注冊機(jī)之后,可以得到相應(yīng)的一些注冊碼或者其他相應(yīng)的一些東西。這些都是破解該軟件所需的，我們只要按照步驟填寫那些注冊碼，被封的軟件就可以高枕無憂的使用了。

VB.net 中如何實(shí)現(xiàn)序列號(hào)注冊功能

思路是:

讀取電腦硬件的信息,用隨機(jī)數(shù)加工這些信息后在注冊表中做個(gè)記錄,用這個(gè)記錄生成注冊碼送回給你,你按特定的方法生成序列號(hào),你的小程序收到序列號(hào)后還原成數(shù)據(jù),數(shù)據(jù)比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時(shí),先比對(duì)硬件信息-第一注冊信息-第二注冊信息,看這三者是否統(tǒng)一,不統(tǒng)一的就是使用期軟件.

也可以省了第一注冊信息,直接發(fā)硬件信息給你生成序列號(hào),其他的相同.

怎樣用VB編寫一個(gè)登陸系統(tǒng)，可以注冊賬號(hào)的那種

VB編寫一個(gè)可以注冊帳號(hào)的登錄系統(tǒng)步驟：

1）1）首先需要用數(shù)據(jù)庫軟件（如ACCESS軟件）建立一個(gè)數(shù)據(jù)庫，新建幾個(gè)表，用以記錄帳號(hào)密碼的表、登錄日志表和其他與此有關(guān)的所需要的表等。

2）VB新建數(shù)據(jù)工程，此時(shí)VB6集成調(diào)試環(huán)境左邊工具箱內(nèi)已加載了有關(guān)數(shù)據(jù)庫編程必須的控件。

3）然后在FORM1窗體中添加ADO數(shù)據(jù)控件，右鍵-ADODC1控件屬性頁-使用連接字符串，選生成，在提供者選項(xiàng)中選合適的OLE DB連接數(shù)據(jù)庫等。在ADODC1控件屬性頁使用連接字符串空白文本窗口中就有一長串字符串，注意該字符串可復(fù)制到程序代碼用于編程。

ADODC1控件屬性頁的數(shù)據(jù)源內(nèi)有命令文本（SQL）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復(fù)制到程序代碼用于編程。

4）可以將SQL查詢語句賦值給ADO數(shù)據(jù)控件的RecordSource屬性實(shí)現(xiàn)。

5）數(shù)據(jù)的輸入、修改等可靈活應(yīng)用文本框或數(shù)據(jù)表格控件與ADO數(shù)據(jù)控件通過代碼綁定。

6）想使用ADO數(shù)據(jù)對(duì)象，也可將ADO數(shù)據(jù)控件所寫的代碼較方便的移植給ADO數(shù)據(jù)對(duì)象。

以下是用ADO數(shù)據(jù)對(duì)象編寫的登錄和注冊的代碼：

1）標(biāo)準(zhǔn)模塊代碼：

Option?Explicit

Public?loginname?As?String

Public?cn?As?New?ADODB.Connection?'定義數(shù)據(jù)庫的連接存放數(shù)據(jù)和代碼

Public?rs?As?New?ADODB.Recordset

Public?sql?As?String

Public?Newname?As?String

2）注冊窗體代碼：

Option?Explicit

Dim?Password?As?String

Private?Sub?Text1_KeyPress(KeyAscii?As?Integer)

If?KeyAscii?=?13?And?Text1??""?Then

sql?=?"select?*?from?用戶管理?where?用戶名='"??Text1.Text??"'"?'?and?密碼='"??Text2.Text??"'"

cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="??App.Path??"\data\data.mdb;Persist?Security?Info=False"

cn.Open

rs.CursorLocation?=?adUseClient

rs.Open?sql,?cn,?adOpenDynamic,?adLockOptimistic

If?rs.EOF?=?True?Then?'沒有該用戶名可以注冊

MsgBox?"用戶名可以注冊!"

rs.Close

cn.Close

Newname?=?Text1.Text

Text4?=?Newname

Text2.SetFocus

Else

MsgBox?"該用戶名已經(jīng)存在，換名注冊!"

Text1.Text?=?""

Text1.SetFocus

End?If

End?If

Exit?Sub

finish:

MsgBox?Err.Description

End?Sub

Private?Sub?Text2_KeyPress(KeyAscii?As?Integer)

If?KeyAscii?=?13?And?Text2??""?Then

Password?=?Text2.Text

Text5?=?Password

Text3.SetFocus

End?If

End?Sub

Private?Sub?Text3_KeyPress(KeyAscii?As?Integer)

If?KeyAscii?=?13?And?Text3.Text?=?Text2.Text?Then

Command3.Enabled?=?True

Command3.SetFocus

ElseIf?KeyAscii?=?13?And?Text3.Text??Text2.Text?Then

Text3?=?""

Text3.SetFocus

End?If

End?Sub

Private?Sub?Command1_Click()

Unload?Me

End?Sub

Private?Sub?Command3_Click()

sql?=?"select?*?from?用戶管理"

cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="??App.Path??"\data\data.mdb;Persist?Security?Info=False"

cn.Open

rs.CursorLocation?=?adUseClient

rs.Open?sql,?cn,?adOpenDynamic,?adLockOptimistic

rs.AddNew

rs.Fields(0)?=?Newname

rs.Fields(1)?=?Password

rs.Update

rs.Close

cn.Close

Command3.Enabled?=?False

End?Sub

3）登錄窗體代碼：

Option?Explicit

Dim?pnum?As?Integer

Private?Sub?Command1_Click()

On?Error?GoTo?finish?'防錯(cuò)代碼，防止意外而導(dǎo)致的退出

sql?=?"select?*?from?用戶管理?where?用戶名='"??Text1.Text??"'?and?密碼='"??Text2.Text??"'"

cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="??App.Path??"\data\data.mdb;Persist?Security?Info=False"

cn.Open

rs.CursorLocation?=?adUseClient

rs.Open?sql,?cn,?adOpenDynamic,?adLockOptimistic

'以上使用最通用的方法來查詢數(shù)據(jù)庫中是否有匹配的記錄

If?rs.EOF?=?True?Then?'如果沒有記錄則說明用戶或密碼為錯(cuò)誤的

If?pnum??2?Then?'pnum就是密碼驗(yàn)證次數(shù)，當(dāng)次數(shù)超過3次，系統(tǒng)會(huì)自動(dòng)保護(hù)退出

pnum?=?pnum?+?1

MsgBox?"用戶名或密碼錯(cuò)誤!",?vbInformation,?"錯(cuò)誤次數(shù)："??pnum

rs.Close

cn.Close

Text1.Text?=?""

Text2.Text?=?""

Text1.SetFocus

Exit?Sub

Else

MsgBox?"用戶名或密碼錯(cuò)誤超過三次,系統(tǒng)會(huì)自動(dòng)退出",?vbInformation,?"提示"

End

End?If

Else

loginname?=?rs.Fields(0)

Form1.Show

rs.Close

cn.Close

End?If

Exit?Sub

finish:

MsgBox?Err.Description

rs.Close

cn.Close

End?Sub

Private?Sub?Text2_KeyPress(KeyAscii?As?Integer)

If?KeyAscii?=?13?Then?'獲取按鍵，如果是回車就運(yùn)行image_click按鈕的內(nèi)容

Call?Command1_Click

End?If

End?Sub

Private?Sub?Text1_KeyPress(KeyAscii?As?Integer)

If?KeyAscii?=?13?Then

Text2.SetFocus

End?If

End?Sub

Private?Sub?Command2_Click()

End

End?Sub

Private?Sub?Command3_Click()

frmZhuce.Show

End?Sub

vb.net 注冊問題

改為：

sql = "insert into 表1 values(用戶名='" TextBox1.Text "' ,密碼='" TextBox2.Text "')"

網(wǎng)站欄目：Vb.net賬號(hào)注冊系統(tǒng),vbs注冊表
本文鏈接：http://aaarwkj.com/article32/dsigipc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供自適應(yīng)網(wǎng)站、動(dòng)態(tài)網(wǎng)站、企業(yè)建站、網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)