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

/// summary

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

/// 是否存在該記錄

/// /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)注冊(cè)機(jī)

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

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

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

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

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

總結(jié)如下：

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

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

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

思路是:

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

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

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

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

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

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

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

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

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

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

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

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

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

Option?Explicit

Public?loginname?As?String

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

Public?rs?As?New?ADODB.Recordset

Public?sql?As?String

Public?Newname?As?String

2）注冊(cè)窗體代碼：

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?'沒(méi)有該用戶名可以注冊(cè)

MsgBox?"用戶名可以注冊(cè)!"

rs.Close

cn.Close

Newname?=?Text1.Text

Text4?=?Newname

Text2.SetFocus

Else

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

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

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

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

If?pnum??2?Then?'pnum就是密碼驗(yàn)證次數(shù)，當(dāng)次數(shù)超過(guò)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ò)誤超過(guò)三次,系統(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?'獲取按鍵，如果是回車(chē)就運(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 注冊(cè)問(wèn)題

改為：

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

網(wǎng)站欄目：Vb.net賬號(hào)注冊(cè)系統(tǒng),vbs注冊(cè)表
本文鏈接：http://www.rwnh.cn/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)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)