当前位置:首页 > 代码 > 正文

登陆注册模块代码(登陆注册模块代码是多少)

admin 发布:2022-12-19 18:50 119


今天给各位分享登陆注册模块代码的知识,其中也会对登陆注册模块代码是多少进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

本文目录一览:

怎样用VB编写一个登陆系统,可以注册账号的那种

VB编写一个可以注册帐号的登录系统步骤:

1)1)首先需要用数据库软件(如ACCESS软件)建立一个数据库,新建几个表,用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。

2)VB新建数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3)然后在FORM1窗体中添加ADO数据控件,右键-ADODC1控件属性页-使用连接字符串,选生成,在提供者选项中选合适的OLE DB连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串,注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本(SQL)编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

4)可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。

5)数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6)想使用ADO数据对象,也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

以下是用ADO数据对象编写的登录和注册的代码:

1)标准模块代码:

Option Explicit

    Public loginname As String

    Public cn As New ADODB.Connection '定义数据库的连接存放数据和代码

    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 "该用户名已经存在,换名注册!"

                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 '防错代码,防止意外而导致的退出

    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 '如果没有记录则说明用户或密码为错误的

        If pnum  2 Then 'pnum就是密码验证次数,当次数超过3次,系统会自动保护退出

            pnum = pnum + 1

            MsgBox "用户名或密码错误!", vbInformation, "错误次数:"  pnum

            rs.Close

            cn.Close

            Text1.Text = ""

            Text2.Text = ""

            Text1.SetFocus

            Exit Sub

        Else

            MsgBox "用户名或密码错误超过三次,系统会自动退出", 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 '获取按键,如果是回车就运行image_click按钮的内容

        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

用Dreamweaver做登陆和注册界面的代码?

1、插入一个div,设置为400x300px大小,背景色为米黄色,居中。

2、输入标题文字和用户名、密码,调整位置。

3、继续插入填写部分,插入--表单--文本域,所以需要输入内容的“框”都是文本域。设置用户名文本域ID为username,点击确定。

4、继续同样的方式插入密码的文本域,设置ID为password。因为密码是非明文的,不需要显示,所以我们在属性面板里选择文本域的类型--密码。

5、插入按钮。插入--表单--按钮,插入两个按钮,ID分别设置为login和reg。login按钮设置为登陆,reg按钮设置为注册。

6、初始值是我们未输入内容时,填写框显示的提示文字。

7、这样一个简单的登陆界面就做好了,是不是很简单呢。

c#用代码实现注册登录代码

/*

*

输入用户名的文本框是txt_UserName;

*

输入真实姓名的文本框时txt_UserRegName

*

输入密码的文本框是txt_Password

*

注册提交按钮是btn_Register

*/

//注册提交按钮点击事件

private

void

btn_Register_Click(object

sender,

EventArgs

e)

{

using(SqlConnection

connection

=

new

SqlConnection("[数据库连接字符串]"))//初始化到数据库的连接

{

try

{

connection.Open();//打开此数据库连接

SqlCommand

sqlText

=

new

SqlCommand("insert

into

[用户名表]

values

(@nm,@rn,@pw)",

connection);//建立数据库命令对象

//添加数据库命令参数

sqlText.Parameters[0].Value

=

txt_UserName.Text;

sqlText.Parameters[1].Value

=

txt_UserRegName.Text;

sqlText.Parameters[2].Value

=

txt_Password.Text;

if

(sqlText.ExecuteNonQuery())

MessageBox.Show(this,

"注册失败",

"错误",

MessageBoxButtons.OK,

MessageBoxIcon.Error,

MessageBoxDefaultButton.Button1);

else

MessageBox.Show(this,

"恭喜您,注册成功!",

"成功",

MessageBoxButtons.OK,

MessageBoxIcon.Information,

MessageBoxDefaultButton.Button1);

}

catch

(SqlException

exception)

{

MessageBox.Show(this,

"注册失败:\n"

+

exception.Message,

"错误",

MessageBoxButtons.OK,

MessageBoxIcon.Error,

MessageBoxDefaultButton.Button1);

}

finally

{

connection.Close();

}

}

}

[]的不是代码,是要根据你自己情况写的

同样,SQL语句的参数也是.

C语言中怎么编写一个让用户注册登陆并将其注册的信息密码保存的程序模块?

我有一个C++的运行程序需要输入密码的程序,输入正确可以修改密码,密码保存在文件中是加密的。至于注册之类的可以再加上一个文件保存用户名和密码,再在程序里加上功能选择的代码,注册时扫描一遍文件中的名字,如果存在就提示,否则就OK。。。。

#includeiostream

#includefstream// 文件输入输出流

#define PASSLEN 16

#define PASS 3123 //这个东西用来加密密码s

#define infile "XMAN.txt" //保存密码的文件s

using namespace std;

bool exist() //判断密码文件是否存在 不存在表示未设置过密码

{

ifstream fin(infile); //文件输入输出流定义 ifstream +流的名字 用于从文件中读入数据

char temp[PASSLEN];

temp[0]=0;

fintemp;

if(temp[0]==0) return false;

else

return true;

}

void changepass()

{

char pass[PASSLEN];

ofstream fout(infile);

cout"Please Set New Password:";

cinpass;

for(int i=0;iPASSLEN;i++)

if(pass[i]!=0)

foutpass[i]+PASSendl;

cout"Pass Set Successfully !"endl;

}

int main()

{

char input[PASSLEN];

bool isok=true; //判断密码是否吻合

memset(input,0,sizeof(input));

if(!exist()) //密码文件不存在就重新设置密码

{changepass();return 0;}

ifstream fin(infile);

cout"Please Input The Password:";

cininput; //从键盘和文件分别读入密码

int len=strlen(input);

//coutlen;system("pause");

for(int i=0;ilen;i++) //这个循环用来判断密码是否吻合

{

int pass;

finpass;

pass-=PASS;

if(input[i]!=char(pass)) //一旦不相同就将 isok 设置为 false 同时推出循环

{

couti" "pass;system("pause");

isok=false;

break;

}

}

if(isok) //如果密码吻合

{

cout"PASS CHECK CORRECT !"endl;

int n;

cout"1 FOR CHANGE PASS OTHER NUMBER FOR CONTIUNE:";

cinn;

if(n==1)

changepass();

//这是接下来你要加的代码了

}

system("pause");

return 0;

}

用户登陆和注册代码怎么用C#写,求解

先设计一张后台数据表Login(如字段:username,pwd)

在登录界面放置两个textbox,一个btn

登录时在一个框内输入用户名,一个输入密码,点击按钮,在按钮点击事件中执行SQL查询语句:selecd

*from

Login

where

username='textbox1'

and

pwd='textbox2'

注册时用SQL插入语句:insert

into

Login

(username,pwd)

values('textbox1'

,'textbox2')

登陆注册模块代码的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于登陆注册模块代码是多少、登陆注册模块代码的信息别忘了在本站进行查找喔。

版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;

本文地址:http://ahzz.com.cn/post/18563.html


取消回复欢迎 发表评论:

分享到

温馨提示

下载成功了么?或者链接失效了?

联系我们反馈

立即下载